View | Details | Raw Unified | Return to bug 20996
Collapse All | Expand All

(-)a/t/db_dependent/Illrequest/Config.t (-11 / +9 lines)
Lines 410-416 subtest '_load_configuration' => sub { Link Here
410
410
411
subtest 'Final tests' => sub {
411
subtest 'Final tests' => sub {
412
412
413
    plan tests => 10;
413
    plan tests => 9;
414
414
415
    $schema->storage->txn_begin;
415
    $schema->storage->txn_begin;
416
416
Lines 419-430 subtest 'Final tests' => sub { Link Here
419
    my $config = Koha::Illrequest::Config->new;
419
    my $config = Koha::Illrequest::Config->new;
420
420
421
    # getPrefixes (error & undef):
421
    # getPrefixes (error & undef):
422
    dies_ok( sub { $config->getPrefixes("FOO") }, "getPrefixes: die if not correct type.");
422
    is($config->getPrefixes(), undef,
423
    is_deeply($config->getPrefixes("brw_cat"), { default => undef},
424
              "getPrefixes: Undefined brw_cat prefix is undefined.");
425
    is_deeply($config->getPrefixes("branch"), { default => undef},
426
              "getPrefixes: Undefined branch prefix is undefined.");
423
              "getPrefixes: Undefined branch prefix is undefined.");
427
424
425
    is($config->has_branch(), undef, "Config does not have branch when no config loaded");
426
428
    # getDigitalRecipients (error & undef):
427
    # getDigitalRecipients (error & undef):
429
    dies_ok( sub { $config->getDigitalRecipients("FOO") },
428
    dies_ok( sub { $config->getDigitalRecipients("FOO") },
430
             "getDigitalRecipients: die if not correct type.");
429
             "getDigitalRecipients: die if not correct type.");
Lines 449-459 subtest 'Final tests' => sub { Link Here
449
    );
448
    );
450
449
451
    # getPrefixes (values):
450
    # getPrefixes (values):
452
    is_deeply($config->getPrefixes("brw_cat"),
451
    is_deeply($config->getPrefixes(),
453
              { B => '2-prefix', default => 'DEFAULT-prefix' },
452
              { '1' => 'T-prefix' },
454
              "getPrefixes: return configuration brw_cat prefixes.");
455
    is_deeply($config->getPrefixes("branch"),
456
              { 1 => 'T-prefix', default => 'DEFAULT-prefix' },
457
              "getPrefixes: return configuration branch prefixes.");
453
              "getPrefixes: return configuration branch prefixes.");
458
454
459
    # getDigitalRecipients (values):
455
    # getDigitalRecipients (values):
Lines 464-469 subtest 'Final tests' => sub { Link Here
464
              { 2 => 'borrower', default => 'branch' },
460
              { 2 => 'borrower', default => 'branch' },
465
              "getDigitalRecipients: return branch digital_recipients.");
461
              "getDigitalRecipients: return branch digital_recipients.");
466
462
463
    # has_branch test
464
    ok($config->has_branch(), "has_branch returns true if branch defined in configuration");
465
467
    $schema->storage->txn_rollback;
466
    $schema->storage->txn_rollback;
468
};
467
};
469
468
470
- 

Return to bug 20996