Lines 19-25
Link Here
|
19 |
|
19 |
|
20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
21 |
|
21 |
|
22 |
use Test::More tests => 7; |
22 |
use Test::More tests => 8; |
23 |
use Test::Warn; |
23 |
use Test::Warn; |
24 |
|
24 |
|
25 |
use Koha::Authority::Types; |
25 |
use Koha::Authority::Types; |
Lines 29-36
use Koha::Database;
Link Here
|
29 |
|
29 |
|
30 |
use t::lib::TestBuilder; |
30 |
use t::lib::TestBuilder; |
31 |
|
31 |
|
|
|
32 |
use Try::Tiny; |
33 |
|
32 |
my $schema = Koha::Database->new->schema; |
34 |
my $schema = Koha::Database->new->schema; |
33 |
$schema->storage->txn_begin; |
35 |
$schema->storage->txn_begin; |
|
|
36 |
my $builder = t::lib::TestBuilder->new; |
34 |
|
37 |
|
35 |
is( ref(Koha::Authority::Types->find('')), 'Koha::Authority::Type', 'Koha::Objects->find should work if the primary key is an empty string' ); |
38 |
is( ref(Koha::Authority::Types->find('')), 'Koha::Authority::Type', 'Koha::Objects->find should work if the primary key is an empty string' ); |
36 |
|
39 |
|
Lines 40-46
is( $borrowernumber_exists, 1, 'Koha::Objects->columns should return the table c
Link Here
|
40 |
|
43 |
|
41 |
subtest 'update' => sub { |
44 |
subtest 'update' => sub { |
42 |
plan tests => 2; |
45 |
plan tests => 2; |
43 |
my $builder = t::lib::TestBuilder->new; |
46 |
|
44 |
$builder->build( { source => 'City', value => { city_country => 'UK' } } ); |
47 |
$builder->build( { source => 'City', value => { city_country => 'UK' } } ); |
45 |
$builder->build( { source => 'City', value => { city_country => 'UK' } } ); |
48 |
$builder->build( { source => 'City', value => { city_country => 'UK' } } ); |
46 |
$builder->build( { source => 'City', value => { city_country => 'UK' } } ); |
49 |
$builder->build( { source => 'City', value => { city_country => 'UK' } } ); |
Lines 60-66
subtest 'pager' => sub {
Link Here
|
60 |
|
63 |
|
61 |
subtest 'reset' => sub { |
64 |
subtest 'reset' => sub { |
62 |
plan tests => 1; |
65 |
plan tests => 1; |
63 |
my $builder = t::lib::TestBuilder->new; |
66 |
|
64 |
my $patrons = Koha::Patrons->search; |
67 |
my $patrons = Koha::Patrons->search; |
65 |
my $first_borrowernumber = $patrons->next->borrowernumber; |
68 |
my $first_borrowernumber = $patrons->next->borrowernumber; |
66 |
my $second_borrowernumber = $patrons->next->borrowernumber; |
69 |
my $second_borrowernumber = $patrons->next->borrowernumber; |
Lines 69-75
subtest 'reset' => sub {
Link Here
|
69 |
|
72 |
|
70 |
subtest 'delete' => sub { |
73 |
subtest 'delete' => sub { |
71 |
plan tests => 2; |
74 |
plan tests => 2; |
72 |
my $builder = t::lib::TestBuilder->new; |
75 |
|
73 |
my $patron_1 = $builder->build({source => 'Borrower'}); |
76 |
my $patron_1 = $builder->build({source => 'Borrower'}); |
74 |
my $patron_2 = $builder->build({source => 'Borrower'}); |
77 |
my $patron_2 = $builder->build({source => 'Borrower'}); |
75 |
is( Koha::Patrons->search({ -or => { borrowernumber => [ $patron_1->{borrowernumber}, $patron_2->{borrowernumber}]}})->delete, 2, ''); |
78 |
is( Koha::Patrons->search({ -or => { borrowernumber => [ $patron_1->{borrowernumber}, $patron_2->{borrowernumber}]}})->delete, 2, ''); |
Lines 81-85
subtest 'not_covered_yet' => sub {
Link Here
|
81 |
warning_is { Koha::Patrons->search->not_covered_yet } { carped => 'The method not_covered_yet is not covered by tests' }, "If a method is not covered by tests, the AUTOLOAD method won't execute the method"; |
84 |
warning_is { Koha::Patrons->search->not_covered_yet } { carped => 'The method not_covered_yet is not covered by tests' }, "If a method is not covered by tests, the AUTOLOAD method won't execute the method"; |
82 |
}; |
85 |
}; |
83 |
|
86 |
|
|
|
87 |
subtest 'Exceptions' => sub { |
88 |
plan tests => 2; |
89 |
|
90 |
my $patron_borrowernumber = $builder->build({ source => 'Borrower' })->{ borrowernumber }; |
91 |
my $patron = Koha::Patrons->find( $patron_borrowernumber ); |
92 |
|
93 |
try { |
94 |
$patron->blah('blah'); |
95 |
} catch { |
96 |
ok( $_->isa('Koha::Exceptions::Object::MethodNotFound'), |
97 |
'Calling a non-existent method should raise a Koha::Exceptions::Object::MethodNotFound exception' ); |
98 |
}; |
99 |
|
100 |
try { |
101 |
$patron->set({ blah => 'blah' }); |
102 |
} catch { |
103 |
ok( $_->isa('Koha::Exceptions::Object::PropertyNotFound'), |
104 |
'Setting a non-existent property should raise a Koha::Exceptions::Object::PropertyNotFound exception' ); |
105 |
}; |
106 |
}; |
107 |
|
84 |
$schema->storage->txn_rollback; |
108 |
$schema->storage->txn_rollback; |
85 |
1; |
109 |
1; |
86 |
- |
|
|