Merge remote-tracking branch 'origin/new/bug_7367'

[koha_fer] / t / db_dependent / Koha.t

diff --git a/t/db_dependent/Koha.t b/t/db_dependent/Koha.t
index 016525a..378a0c1 100644 (file)
--- a/t/db_dependent/Koha.t
+++ b/t/db_dependent/Koha.t
@@ -7,10 +7,11 @@ use strict;
 use warnings;
 use C4::Context;
 
-use Test::More tests => 4;
+use Test::More tests => 8;
 
 BEGIN {
     use_ok('C4::Koha');
+    use_ok('C4::Members');
 }
 
 my $data = {
@@ -32,10 +33,19 @@ ok($insert_success, "Insert data in database");
 
 # Tests
 SKIP: {
-    skip "INSERT failed", 2 unless $insert_success;
+    skip "INSERT failed", 5 unless $insert_success;
     
     is ( GetAuthorisedValueByCode($data->{category}, $data->{authorised_value}), $data->{lib}, "GetAuthorisedValueByCode" );
     is ( GetKohaImageurlFromAuthorisedValues($data->{category}, $data->{lib}), $data->{imageurl}, "GetKohaImageurlFromAuthorisedValues" );
+
+    my $sortdet=C4::Members::GetSortDetails("lost", "3");
+    is ($sortdet, "Lost and Paid For", "lost and paid works");
+
+    my $sortdet2=C4::Members::GetSortDetails("loc", "child");
+    is ($sortdet2, "Children's Area", "Child area works");
+
+    my $sortdet3=C4::Members::GetSortDetails("withdrawn", "1");
+    is ($sortdet3, "Withdrawn", "Withdrawn works");
 }
 
 # Clean up