|
Lines 20-26
Link Here
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
|
| 22 |
use Data::Dumper; |
22 |
use Data::Dumper; |
| 23 |
use Test::More tests => 13; |
23 |
use Test::More tests => 14; |
| 24 |
|
24 |
|
| 25 |
use t::lib::Mocks; |
25 |
use t::lib::Mocks; |
| 26 |
use t::lib::TestBuilder; |
26 |
use t::lib::TestBuilder; |
|
Lines 95-100
Koha::Localization->new(
Link Here
|
| 95 |
my $type = Koha::ItemTypes->find($child1->itemtype); |
95 |
my $type = Koha::ItemTypes->find($child1->itemtype); |
| 96 |
ok( defined($type), 'first result' ); |
96 |
ok( defined($type), 'first result' ); |
| 97 |
is_deeply( $type->unblessed, $child1->unblessed, "We got back the same object" ); |
97 |
is_deeply( $type->unblessed, $child1->unblessed, "We got back the same object" ); |
|
|
98 |
is_deeply( $type->parent->unblessed, $parent1->unblessed, 'The parent method returns the correct object'); |
| 98 |
|
99 |
|
| 99 |
$type = Koha::ItemTypes->find($child2->itemtype); |
100 |
$type = Koha::ItemTypes->find($child2->itemtype); |
| 100 |
ok( defined($type), 'second result' ); |
101 |
ok( defined($type), 'second result' ); |
| 101 |
- |
|
|