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

(-)a/t/db_dependent/OAI/Server.t (-2 / +41 lines)
Lines 21-27 use Modern::Perl; Link Here
21
use Test::Deep qw( cmp_deeply re );
21
use Test::Deep qw( cmp_deeply re );
22
use Test::MockTime qw/set_fixed_time set_relative_time restore_time/;
22
use Test::MockTime qw/set_fixed_time set_relative_time restore_time/;
23
23
24
use Test::More tests => 33;
24
use Test::More tests => 34;
25
use DateTime;
25
use DateTime;
26
use File::Basename;
26
use File::Basename;
27
use File::Spec;
27
use File::Spec;
Lines 863-865 subtest 'Tests for timestamp handling' => sub { Link Here
863
863
864
    $schema->storage->txn_rollback;
864
    $schema->storage->txn_rollback;
865
};
865
};
866
- 
866
867
subtest 'ListSets() tests' => sub {
868
869
    plan tests => 2;
870
871
    $schema->storage->txn_begin;
872
873
    # initial cleanup
874
    $schema->resultset('OaiSet')->delete;
875
876
    test_query(
877
        'ListSets - no sets should return a noSetHierarchy exception',
878
        { verb => 'ListSets' },
879
        {
880
            error => {
881
                code    => 'noSetHierarchy',
882
                content => 'There are no OAI sets defined',
883
            }
884
        }
885
    );
886
887
    # Add a couple sets
888
    AddOAISet({ spec => 'set_1', name => 'Set 1' });
889
    AddOAISet({ spec => 'set_2', name => 'Set 2' });
890
891
    test_query(
892
        'ListSets - no sets should return a noSetHierarchy exception',
893
        { verb => 'ListSets' },
894
        {
895
            ListSets => {
896
                set => [
897
                    { setSpec => 'set_1', setName => 'Set 1' },
898
                    { setSpec => 'set_2', setName => 'Set 2' },
899
                ]
900
            }
901
        }
902
    );
903
904
    $schema->storage->txn_rollback;
905
};

Return to bug 29484