require "./test.pl";
}
-plan tests => 112;
+plan tests => 117;
$a = {};
bless $a, "Bob";
# http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2001-05/msg01710.html
# but never actually tested.
is(UNIVERSAL->can("NoSuchPackage::foo"), undef);
+
+@splatt::ISA = 'zlopp';
+ok (splatt->isa('zlopp'));
+ok (!splatt->isa('plop'));
+
+# This should reset the ->isa lookup cache
+@splatt::ISA = 'plop';
+# And here is the new truth.
+ok (!splatt->isa('zlopp'));
+ok (splatt->isa('plop'));
+
+use warnings "deprecated";
+{
+ my $m;
+ local $SIG{__WARN__} = sub { $m = $_[0] };
+ eval "use UNIVERSAL";
+ like($m, qr/^UNIVERSAL->import is deprecated/,
+ "deprecation warning for UNIVERSAL->import");
+}