|
Lines 50-62
is( $object2->surname(), "Test Patron Surname 3", "Bad Set does not set field" )
Link Here
|
| 50 |
is( $ret, 0, "Set returns 0 when passed a bad property" ); |
50 |
is( $ret, 0, "Set returns 0 when passed a bad property" ); |
| 51 |
|
51 |
|
| 52 |
warning_is { $ret = $object->bork() } |
52 |
warning_is { $ret = $object->bork() } |
| 53 |
"No method bork!", |
53 |
"The method bork is not covered by tests or does not exist!", |
| 54 |
"Expected 'No method bork!' caught for getter."; |
54 |
"Expected 'The method bork is not covered by tests or does not exist!' caught for getter."; |
| 55 |
ok( ! defined $ret, 'Bad getter returns undef' ); |
55 |
ok( ! defined $ret, 'Bad getter returns undef' ); |
| 56 |
|
56 |
|
| 57 |
warning_is { $ret = $object->bork('bork') } |
57 |
warning_is { $ret = $object->bork('bork') } |
| 58 |
"No method bork!", |
58 |
"The method bork is not covered by tests or does not exist!", |
| 59 |
"Expected 'No method bork!' caught for setter."; |
59 |
"Expected 'The method bork is not covered by tests or does not exist!' caught for setter."; |
| 60 |
ok( ! defined $ret, 'Bad setter returns undef' ); |
60 |
ok( ! defined $ret, 'Bad setter returns undef' ); |
| 61 |
|
61 |
|
| 62 |
my $patron = Koha::Patron->new( |
62 |
my $patron = Koha::Patron->new( |
| 63 |
- |
|
|