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 |
- |
|
|