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 87d43e8..e9093c4 100644 (file)
--- a/t/pragma/warn/util
+++ b/t/pragma/warn/util
@@ -3,86 +3,33 @@
      Illegal octal digit ignored 
        my $a = oct "029" ;
 
-     Illegal hexadecimal digit ignored 
+     Illegal hex digit ignored 
        my $a = hex "0xv9" ;
 
      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 warnings 'digit' ;
 my $a = oct "029" ;
-no warning 'octal' ;
-my $b = 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 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 ;
-sub make_bin { "1" x $_[0] }
-$n = make_bin(33);
-{
-  use warning 'unsafe' ;
-  my $a = oct "0b$n" ;
-  no warning 'unsafe' ;
-  my $b = oct "0b$n" ;
-}
-my $c = oct "0b$n" ;
-EXPECT
-Binary number > 0b11111111111111111111111111111111 non-portable at - line 7.
-Binary number > 0b11111111111111111111111111111111 non-portable at - line 11.
-########
-# util.c
-$^W = 1 ;
-sub make_oct { ("","1","3")[$_[0]%3] . "7" x int($_[0]/3) }
-$n = make_oct(33);
-{
-  use warning 'unsafe' ;
-  my $a = oct "$n" ;
-  no warning 'unsafe' ;
-  my $b = oct "$n" ;
-}
-my $c = oct "$n" ;
-EXPECT
-Octal number > 037777777777 non-portable at - line 7.
-Octal number > 037777777777 non-portable at - line 11.
-########
-# util.c
-$^W = 1 ;
-sub make_hex { ("","1","3","7")[$_[0]%4] . "f" x int($_[0]/4) }
-$n = make_hex(33);
-{
-  use warning 'unsafe' ;
-  my $a = hex "$n" ;
-  no warning 'unsafe' ;
-  my $b = hex "$n" ;
-}
-my $c = hex "$n" ;
-EXPECT
-Hexadecimal number > 0xffffffff non-portable at - line 7.
-Hexadecimal number > 0xffffffff non-portable at - line 11.
-