resync with mainline

[p5sagit/p5-mst-13.2.git] / t / pragma / warn / universal

diff --git a/t/pragma/warn/universal b/t/pragma/warn/universal
index f4f8637..6dbb1be 100644 (file)
--- a/t/pragma/warn/universal
+++ b/t/pragma/warn/universal
@@ -1,11 +1,16 @@
-  universal.c TODO
+  universal.c AOK
 
-  Can't locate package %s for @%s::ISA
+  Can't locate package %s for @%s::ISA [S_isa_lookup]
+      
 
 
 __END__
-# universal.c
+# universal.c [S_isa_lookup]
 use warnings 'misc' ;
-
+@ISA = qw(Joe) ;
+my $a = bless [] ;
+UNIVERSAL::isa $a, Jim ;
 EXPECT
-
+Can't locate package Joe for @main::ISA at - line 5.
+Can't locate package Joe for @main::ISA.
+Can't locate package Joe for @main::ISA.