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

(-)a/t/db_dependent/Koha/ItemTypes.t (-8 / +10 lines)
Lines 19-25 Link Here
19
19
20
use Modern::Perl;
20
use Modern::Perl;
21
21
22
use Test::More tests => 20;
22
use Test::More tests => 22;
23
use Data::Dumper;
23
use Data::Dumper;
24
use Koha::Database;
24
use Koha::Database;
25
use t::lib::Mocks;
25
use t::lib::Mocks;
Lines 117-123 Koha::Item->new( Link Here
117
        itemnumber => 1,
117
        itemnumber => 1,
118
        biblionumber => 1,
118
        biblionumber => 1,
119
        biblioitemnumber  =>1,
119
        biblioitemnumber  =>1,
120
        itype        => 'type2',
120
        itype        => 'type1',
121
        notforloan   => 1,
121
        notforloan   => 1,
122
        itemlost     => 0,
122
        itemlost     => 0,
123
    }
123
    }
Lines 155-162 is( Link Here
155
    'item types should be sorted by translated description'
155
    'item types should be sorted by translated description'
156
);
156
);
157
157
158
subtest is_used => sub{
158
sub is_used {
159
    plan test => 2;
159
    require Test::More;
160
    my $itemtype_code = shift;
160
    my $itemtype_code = shift;
161
    my $schema = Koha::Database->new()->schema();
161
    my $schema = Koha::Database->new()->schema();
162
    my $itemtotal = Koha::Items->search({ 'itype' => $itemtype_code })->count;
162
    my $itemtotal = Koha::Items->search({ 'itype' => $itemtype_code })->count;
Lines 164-171 subtest is_used => sub{ Link Here
164
    my $overalltotal = $itemtotal + $bibliototal;
164
    my $overalltotal = $itemtotal + $bibliototal;
165
    return $overalltotal;
165
    return $overalltotal;
166
}
166
}
167
for my $itemtype_code ('type1', 'type 2') {
167
168
        subtest "is_used $itemtype_code", \&is_used, $range;
168
my $passcount = is_used('type1');
169
}
169
is ( $passcount,2,'Exists in the database, test is successful');
170
171
my $failcount = is_used('type2');
172
is ( $failcount,0,'Doesnt exist in database, test is success');
170
173
171
$schema->txn_rollback;
174
$schema->txn_rollback;
172
- 

Return to bug 17944