diff options
Diffstat (limited to 't/basic.t')
-rw-r--r-- | t/basic.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/t/basic.t b/t/basic.t new file mode 100644 index 0000000..94d9a07 --- /dev/null +++ b/t/basic.t @@ -0,0 +1,20 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +undef $@; +eval "blessed('')"; +like($@, qr/^Undefined subroutine &main::blessed called/); + +{ + use lexically 'Scalar::Util', 'blessed'; + ok(blessed(bless {})); + ok(!blessed([])); +} + +undef $@; +eval "blessed('')"; +like($@, qr/^Undefined subroutine &main::blessed called/); + +done_testing; |