bug 8768 correct an error in ItemType.t
authorColin Campbell <colin.campbell@ptfs-europe.com>
Thu, 13 Sep 2012 09:37:56 +0000 (10:37 +0100)
committerPaul Poulain <paul.poulain@biblibre.com>
Sat, 15 Sep 2012 05:20:08 +0000 (07:20 +0200)
The second test in ItemType.t tests that an empty table
returns no rows however as Mock::DBD has no resultset
it fails with an error in DBI It requires that an
empty resultset is defined in Mock::DBD first
This patch adds that mocked empty table

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
t/ItemType.t

index 476ca19..87e090e 100755 (executable)
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 #
-# This Koha test module is a stub!
 # Add more tests here!!!
 
 use strict;
@@ -33,7 +32,15 @@ my $itemtypes = [
     [ 'CD', 'CDRom', 0, 0, '', '' ]
 ];
 
+my $itemtypes_empty = [
+    [
+        'itemtype', 'description', 'rentalcharge', 'notforloan',
+        'imageurl', 'summary'
+    ],
+];
+
 my $dbh = C4::Context->dbh();
+$dbh->{mock_add_resultset} = $itemtypes_empty;
 
 my @itemtypes = C4::ItemType->all();
 is( @itemtypes, 0, 'Testing all itemtypes is empty' );