t/pragma/warn/6default

   1 Check default warnings
   2
   3 __END__
   4 # default warnings should be displayed if you don't add anything
   5 # optional shouldn't
   6 my $a = oct "7777777777777777777777777777777777779" ;
   7 EXPECT
   8 Integer overflow in octal number at - line 3.
   9 ########
  10 # no warnings should be displayed
  11 no warnings ;
  12 my $a = oct "7777777777777777777777777777777777778" ;
  13 EXPECT
  14 ########
  15 # all warnings should be displayed
  16 use warnings ;
  17 my $a = oct "7777777777777777777777777777777777778" ;
  18 EXPECT
  19 Integer overflow in octal number at - line 3.
  20 Illegal octal digit '8' ignored at - line 3.
  21 Octal number > 037777777777 non-portable at - line 3.
  22 ########
  23 # check scope
  24 use warnings ;
  25 my $a = oct "7777777777777777777777777777777777778" ;
  26 {
  27     no warnings ;
  28     my $a = oct "7777777777777777777777777777777777778" ;
  29 }
  30 my $c = oct "7777777777777777777777777777777777778" ;
  31 EXPECT
  32 Integer overflow in octal number at - line 3.
  33 Illegal octal digit '8' ignored at - line 3.
  34 Octal number > 037777777777 non-portable at - line 3.
  35 Integer overflow in octal number at - line 8.
  36 Illegal octal digit '8' ignored at - line 8.
  37 Octal number > 037777777777 non-portable at - line 8.
  38 ########
  39 # all warnings should be displayed
  40 use warnings ;
  41 my $a = oct "0xfffffffffffffffffg" ;
  42 EXPECT
  43 Integer overflow in hexadecimal number at - line 3.
  44 Illegal hexadecimal digit 'g' ignored at - line 3.
  45 Hexadecimal number > 0xffffffff non-portable at - line 3.
  46 ########
  47 # all warnings should be displayed
  48 use warnings ;
  49 my $a = oct "0b111111111111111111111111111111111111111111111111111111111111111112";
  50 EXPECT
  51 Integer overflow in binary number at - line 3.
  52 Illegal binary digit '2' ignored at - line 3.
  53 Binary number > 0b11111111111111111111111111111111 non-portable at - line 3.