Attachment #12205 for bug #8768

View | Details | Raw Unified | Return to bug 8768
Collapse All | Expand All




#!/usr/bin/perl
#
# This Koha test module is a stub!
# Add more tests here!!!

use strict;

    [ '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' );
- 

Return to bug 8768

Lines 1-6 Link Here

(-)a/t/ItemType.t (-2 / +8 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2	#	2	#
3	# This Koha test module is a stub!
4	# Add more tests here!!!	3	# Add more tests here!!!
5		4
6	use strict;	5	use strict;
Lines 33-39 my $itemtypes = [ Link Here
33	[ 'CD', 'CDRom', 0, 0, '', '' ]	32	[ 'CD', 'CDRom', 0, 0, '', '' ]
34	];	33	];
35		34
		35	my $itemtypes_empty = [
		36	[
		37	'itemtype', 'description', 'rentalcharge', 'notforloan',
		38	'imageurl', 'summary'
		39	],
		40	];
		41
36	my $dbh = C4::Context->dbh();	42	my $dbh = C4::Context->dbh();
		43	$dbh->{mock_add_resultset} = $itemtypes_empty;
37		44
38	my @itemtypes = C4::ItemType->all();	45	my @itemtypes = C4::ItemType->all();
39	is( @itemtypes, 0, 'Testing all itemtypes is empty' );	46	is( @itemtypes, 0, 'Testing all itemtypes is empty' );
40	-