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

(-)a/t/Patron.t (-5 / +4 lines)
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
- 

Return to bug 17226