X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=t%2Fdb_dependent%2FKoha.t;h=378a0c10768b104bb5c04dd74fa97748f9cfd281;hb=81cf767b17994c39dc83930305d4d9d65423db35;hp=016525a92e32f3975e1bf1a3b50e8a2c1aaeb9ea;hpb=63541e4223224831e4eb2bb51d108cc4a2155388;p=koha_fer

diff --git a/t/db_dependent/Koha.t b/t/db_dependent/Koha.t
index 016525a92e..378a0c1076 100644
--- 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