[Koha-patches] [PATCH] bug_11213: Added XSLTParse4Display() to Items test

Srdjan srdjan at catalyst.net.nz
Wed Apr 13 03:12:01 CEST 2016


---
 t/db_dependent/Items.t | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t
index 9bbb9d2..c6ed605 100755
--- a/t/db_dependent/Items.t
+++ b/t/db_dependent/Items.t
@@ -20,6 +20,7 @@ use Modern::Perl;
 
 use MARC::Record;
 use C4::Biblio;
+use C4::XSLT;
 use Koha::Database;
 use Koha::Library;
 
@@ -40,7 +41,7 @@ my $location = 'My Location';
 
 subtest 'General Add, Get and Del tests' => sub {
 
-    plan tests => 16;
+    plan tests => 18;
 
     $schema->storage->txn_begin;
 
@@ -63,6 +64,16 @@ subtest 'General Add, Get and Del tests' => sub {
     cmp_ok(scalar(@items_infos), '==', 1, "One item for biblionumber.");
     cmp_ok($items_infos[0]{biblionumber}, '==', $bibnum, "Item has correct biblionumber.");
 
+    C4::Context->set_preference('XSLTResultsDisplay', 'default');
+    C4::Context->set_preference('OPACXSLTResultsDisplay', 'default');
+    C4::Context->clear_syspref_cache();
+    my $record = GetMarcBiblio($bibnum);
+    my $html = XSLTParse4Display($bibnum, $record, "OPACXSLTResultsDisplay", \@items_infos);
+    ok($html, "XSLTParse4Display( OPACXSLTResultsDisplay )");
+    $html = XSLTParse4Display($bibnum, $record, "XSLTResultsDisplay", \@items_infos);
+    ok($html, "XSLTParse4Display( XSLTResultsDisplay )");
+
+
     # Get item.
     my $getitem = GetItem($itemnumber);
     cmp_ok($getitem->{'itemnumber'}, '==', $itemnumber, "Retrieved item has correct itemnumber.");
-- 
2.5.0


More information about the Koha-patches mailing list