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

(-)a/t/ItemType.t (-2 / +8 lines)
Lines 1-6 Link Here
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
- 

Return to bug 8768