+ok ! $a->can("export_tags"); # a method in Exporter
+
+ok ! UNIVERSAL::isa("\xff\xff\xff\0", 'HASH');
+
+{
+ package Pickup;
+ use UNIVERSAL qw( isa can VERSION );
+
+ ::ok isa "Pickup", UNIVERSAL;
+ ::cmp_ok can( "Pickup", "can" ), '==', \&UNIVERSAL::can;
+ ::ok VERSION "UNIVERSAL" ;
+}
+
+{
+ # test isa() and can() on magic variables
+ "Human" =~ /(.*)/;
+ ok $1->isa("Human");
+ ok $1->can("eat");
+ package HumanTie;
+ sub TIESCALAR { bless {} }
+ sub FETCH { "Human" }
+ tie my($x), "HumanTie";
+ ::ok $x->isa("Human");
+ ::ok $x->can("eat");
+}
+
+# bugid 3284
+# a second call to isa('UNIVERSAL') when @ISA is null failed due to caching
+
+@X::ISA=();
+my $x = {}; bless $x, 'X';
+ok $x->isa('UNIVERSAL');
+ok $x->isa('UNIVERSAL');
+
+
+# Check that the "historical accident" of UNIVERSAL having an import()
+# method doesn't effect anyone else.
+eval { Some::Package->import("bar") };
+is $@, '';
+
+
+# This segfaulted in a blead.
+fresh_perl_is('package Foo; Foo->VERSION; print "ok"', 'ok');
+
+package Foo;
+
+sub DOES { 1 }
+
+package Bar;
+
+@Bar::ISA = 'Foo';
+
+package Baz;
+
+package main;
+ok( Foo->DOES( 'bar' ), 'DOES() should call DOES() on class' );
+ok( Bar->DOES( 'Bar' ), '... and should fall back to isa()' );
+ok( Bar->DOES( 'Foo' ), '... even when inherited' );
+ok( Baz->DOES( 'Baz' ), '... even without inheriting any other DOES()' );
+ok( ! Baz->DOES( 'Foo' ), '... returning true or false appropriately' );
+
+package Pig;
+package Bodine;
+Bodine->isa('Pig');
+*isa = \&UNIVERSAL::isa;
+eval { isa({}, 'HASH') };
+::is($@, '', "*isa correctly found")