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 bdbb348..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 => 3;
+use Test::More tests => 8;
 
 BEGIN {
     use_ok('C4::Koha');
+    use_ok('C4::Members');
 }
 
 my $data = {
@@ -26,14 +27,31 @@ my $dbh = C4::Context->dbh;
 # Insert an entry into authorised_value table
 my $query = "INSERT INTO authorised_values (category, authorised_value, lib, lib_opac, imageurl) VALUES (?,?,?,?,?);";
 my $sth = $dbh->prepare($query);
-$sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
+my $insert_success = $sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
+ok($insert_success, "Insert data in database");
+
 
 # Tests
-is ( GetAuthorisedValueByCode($data->{category}, $data->{authorised_value}), $data->{lib}, "GetAuthorisedValueByCode" );
-is ( GetKohaImageurlFromAuthorisedValues($data->{category}, $data->{lib}), $data->{imageurl}, "GetKohaImageurlFromAuthorisedValues" );
+SKIP: {
+    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
-$query = "DELETE FROM authorised_values WHERE category=? AND authorised_value=? AND lib=? AND lib_opac=? AND imageurl=?;";
-$sth = $dbh->prepare($query);
-$sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
+if($insert_success){
+    $query = "DELETE FROM authorised_values WHERE category=? AND authorised_value=? AND lib=? AND lib_opac=? AND imageurl=?;";
+    $sth = $dbh->prepare($query);
+    $sth->execute($data->{category}, $data->{authorised_value}, $data->{lib}, $data->{lib_opac}, $data->{imageurl});
+}