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 bd29f7b..e9093c4 100644 (file)
--- a/t/pragma/warn/util
+++ b/t/pragma/warn/util
@@ -9,74 +9,27 @@
      Illegal binary digit ignored
       my $a = oct "0b9" ;
 
-     
-     Mandatory Warnings
-     ------------------
-     Integer overflow in binary number
-     Integer overflow in octal number
-     Integer overflow in hex number
-
 __END__
 # util.c
-use warning 'octal' ;
+use warnings 'digit' ;
 my $a = oct "029" ;
-no warning 'octal' ;
+no warnings 'digit' ;
 my $a = oct "029" ;
 EXPECT
 Illegal octal digit '9' ignored at - line 3.
 ########
 # util.c
-use warning 'unsafe' ;
+use warnings 'digit' ;
 *a =  hex "0xv9" ;
-no warning 'unsafe' ;
+no warnings 'digit' ;
 *a =  hex "0xv9" ;
 EXPECT
-Illegal hex digit 'v' ignored at - line 3.
+Illegal hexadecimal digit 'v' ignored at - line 3.
 ########
 # util.c
-use warning 'unsafe' ;
+use warnings 'digit' ;
 *a =  oct "0b9" ;
-no warning 'unsafe' ;
+no warnings 'digit' ;
 *a =  oct "0b9" ;
 EXPECT
 Illegal binary digit '9' ignored at - line 3.
-########
-# util.c
-$^W =1 ;
-{
-  use warning 'unsafe' ;
-  my $a = oct "0b111111111111111111111111111111111" ;
-  no warning 'unsafe' ;
-  $a = oct "0b111111111111111111111111111111111" ;
-}
-my $a = oct "0b111111111111111111111111111111111" ;
-EXPECT
-Integer overflow in binary number at - line 5.
-Integer overflow in binary number at - line 9.
-########
-# util.c
-$^W =1 ;
-{
-  use warning 'unsafe' ;
-  my $a = oct "777777777777777777777777777777777777" ;
-  no warning 'unsafe' ;
-  $a = oct "777777777777777777777777777777777777" ;
-}
-my $a = oct "777777777777777777777777777777777777" ;
-EXPECT
-Integer overflow in octal number at - line 5.
-Integer overflow in octal number at - line 9.
-########
-# util.c
-$^W =1 ;
-{
-  use warning 'unsafe' ;
-  my $a = hex "ffffffffffffffffffffffffffffffff" ;
-  no warning 'unsafe' ;
-  $a = hex "ffffffffffffffffffffffffffffffff" ;
-}
-my $a = hex "ffffffffffffffffffffffffffffffff" ;
-EXPECT
-Integer overflow in hex number at - line 5.
-Integer overflow in hex number at - line 9.
-