Bug 10306: (QA follow-up) Correct a TestBuilder call

[koha.git] / t / db_dependent / ClassSource.t

diff --git a/t/db_dependent/ClassSource.t b/t/db_dependent/ClassSource.t
index 5e8a0ec..6d4ab7e 100644 (file)
--- a/t/db_dependent/ClassSource.t
+++ b/t/db_dependent/ClassSource.t
@@ -2,7 +2,8 @@
 
 use Modern::Perl;
 
-use Test::More tests => 24;
+use Test::More tests => 25;
+use Test::Warn;
 
 use C4::Context;
 
@@ -126,8 +127,11 @@ is_deeply(
 );
 
 #Test GetClassSort
-my $getclassSort = GetClassSort( 'source1', 'sortrule1', 'item1' )
-  ; #Note: Create a warning:" attempting to use non-existent class sorting routine $sort_routine"
+my $getclassSort;
+warning_like
+    { $getclassSort = GetClassSort( 'source1', 'sortrule1', 'item1' ) }
+    qr/attempting to use non-existent class sorting routine/,
+    'Non-existent class warning caught';
 is( $getclassSort, "SORTRULE1_ITEM1",
 " the sort key corresponding to Source1 and sortrule1 and item1 is SORTRULE1_ITEM1"
 );