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 865-867 subtest 'Tests for timestamp handling' => sub { Link Here
865
865
866
    $schema->storage->txn_rollback;
866
    $schema->storage->txn_rollback;
867
};
867
};
868
- 
868
869
subtest 'ListSets() tests' => sub {
870
871
    plan tests => 2;
872
873
    $schema->storage->txn_begin;
874
875
    # initial cleanup
876
    $schema->resultset('OaiSet')->delete;
877
878
    test_query(
879
        'ListSets - no sets should return a noSetHierarchy exception',
880
        { verb => 'ListSets' },
881
        {
882
            error => {
883
                code    => 'noSetHierarchy',
884
                content => 'There are no OAI sets defined',
885
            }
886
        }
887
    );
888
889
    # Add a couple sets
890
    AddOAISet({ spec => 'set_1', name => 'Set 1' });
891
    AddOAISet({ spec => 'set_2', name => 'Set 2' });
892
893
    test_query(
894
        'ListSets - no sets should return a noSetHierarchy exception',
895
        { verb => 'ListSets' },
896
        {
897
            ListSets => {
898
                set => [
899
                    { setSpec => 'set_1', setName => 'Set 1' },
900
                    { setSpec => 'set_2', setName => 'Set 2' },
901
                ]
902
            }
903
        }
904
    );
905
906
    $schema->storage->txn_rollback;
907
};

Return to bug 29484