diff options
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/universal.t | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/op/universal.t b/t/op/universal.t index 69067e8646..9817d3fe68 100755 --- a/t/op/universal.t +++ b/t/op/universal.t @@ -10,7 +10,7 @@ BEGIN { require "./test.pl"; } -plan tests => 110; +plan tests => 111; $a = {}; bless $a, "Bob"; @@ -222,4 +222,9 @@ package Bodine; Bodine->isa('Pig'); *isa = \&UNIVERSAL::isa; eval { isa({}, 'HASH') }; -::is($@, '', "*isa correctly found") +::is($@, '', "*isa correctly found"); + +package main; +eval { UNIVERSAL::DOES([], "foo") }; +like( $@, qr/Can't call method "DOES" on unblessed reference/, + 'DOES call error message says DOES, not isa' ); |