Rename warning to warnings, from Paul Marquess.

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

diff --git a/t/pragma/warn/util b/t/pragma/warn/util
index 649a292..e9093c4 100644 (file)
--- a/t/pragma/warn/util
+++ b/t/pragma/warn/util
@@ -6,16 +6,30 @@
      Illegal hex digit ignored 
        my $a = hex "0xv9" ;
 
+     Illegal binary digit ignored
+      my $a = oct "0b9" ;
 
 __END__
 # util.c
-use warning 'octal' ;
+use warnings 'digit' ;
+my $a = oct "029" ;
+no warnings 'digit' ;
 my $a = oct "029" ;
 EXPECT
-Illegal octal digit ignored at - line 3.
+Illegal octal digit '9' ignored at - line 3.
 ########
 # util.c
-use warning 'unsafe' ;
+use warnings 'digit' ;
+*a =  hex "0xv9" ;
+no warnings 'digit' ;
 *a =  hex "0xv9" ;
 EXPECT
-Illegal hex digit ignored at - line 3.
+Illegal hexadecimal digit 'v' ignored at - line 3.
+########
+# util.c
+use warnings 'digit' ;
+*a =  oct "0b9" ;
+no warnings 'digit' ;
+*a =  oct "0b9" ;
+EXPECT
+Illegal binary digit '9' ignored at - line 3.