From 649f456a689afb0b8c9d87261f6e7516bfbe5c06 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Mon, 15 Nov 2021 09:51:53 -0300 Subject: [PATCH] Bug 29484: Regression tests Signed-off-by: Tomas Cohen Arazi --- t/db_dependent/OAI/Server.t | 42 ++++++++++++++++++++++++++++++++++++- 1 file changed, 41 insertions(+), 1 deletion(-) diff --git a/t/db_dependent/OAI/Server.t b/t/db_dependent/OAI/Server.t index 4888c625c2..c9ae0ec994 100755 --- a/t/db_dependent/OAI/Server.t +++ b/t/db_dependent/OAI/Server.t @@ -21,7 +21,7 @@ use Modern::Perl; use Test::Deep qw( cmp_deeply re ); use Test::MockTime qw/set_fixed_time set_relative_time restore_time/; -use Test::More tests => 33; +use Test::More tests => 34; use DateTime; use File::Basename; use File::Spec; @@ -865,3 +865,43 @@ subtest 'Tests for timestamp handling' => sub { $schema->storage->txn_rollback; }; + +subtest 'ListSets() tests' => sub { + + plan tests => 2; + + $schema->storage->txn_begin; + + # initial cleanup + $schema->resultset('OaiSet')->delete; + + test_query( + 'ListSets - no sets should return a noSetHierarchy exception', + { verb => 'ListSets' }, + { + error => { + code => 'noSetHierarchy', + content => 'There are no OAI sets defined', + } + } + ); + + # Add a couple sets + AddOAISet({ spec => 'set_1', name => 'Set 1' }); + AddOAISet({ spec => 'set_2', name => 'Set 2' }); + + test_query( + 'ListSets - no sets should return a noSetHierarchy exception', + { verb => 'ListSets' }, + { + ListSets => { + set => [ + { setSpec => 'set_1', setName => 'Set 1' }, + { setSpec => 'set_2', setName => 'Set 2' }, + ] + } + } + ); + + $schema->storage->txn_rollback; +}; -- 2.20.1