t/lib/warnings/util

   1   util.c AOK
   2
   3      Illegal octal digit ignored
   4         my $a = oct "029" ;
   5
   6      Illegal hex digit ignored
   7         my $a = hex "0xv9" ;
   8
   9      Illegal binary digit ignored
  10       my $a = oct "0b9" ;
  11
  12      Integer overflow in binary number
  13         my $a =  oct "0b111111111111111111111111111111111111111111" ;
  14      Binary number > 0b11111111111111111111111111111111 non-portable
  15         $a =  oct "0b111111111111111111111111111111111" ;
  16      Integer overflow in octal number
  17         my $a =  oct "077777777777777777777777777777" ;
  18      Octal number > 037777777777 non-portable
  19         $a =  oct "0047777777777" ;
  20      Integer overflow in hexadecimal number
  21         my $a =  hex "0xffffffffffffffffffff" ;
  22      Hexadecimal number > 0xffffffff non-portable
  23         $a =  hex "0x1ffffffff" ;
  24
  25 __END__
  26 # util.c
  27 use warnings 'digit' ;
  28 my $a = oct "029" ;
  29 no warnings 'digit' ;
  30 $a = oct "029" ;
  31 EXPECT
  32 Illegal octal digit '9' ignored at - line 3.
  33 ########
  34 # util.c
  35 use warnings 'digit' ;
  36 my $a =  hex "0xv9" ;
  37 no warnings 'digit' ;
  38 $a =  hex "0xv9" ;
  39 EXPECT
  40 Illegal hexadecimal digit 'v' ignored at - line 3.
  41 ########
  42 # util.c
  43 use warnings 'digit' ;
  44 my $a =  oct "0b9" ;
  45 no warnings 'digit' ;
  46 $a =  oct "0b9" ;
  47 EXPECT
  48 Illegal binary digit '9' ignored at - line 3.
  49 ########
  50 # util.c
  51 use warnings 'overflow' ;
  52 my $a =  oct "0b11111111111111111111111111111111111111111111111111111111111111111";
  53 no warnings 'overflow' ;
  54 $a =  oct "0b11111111111111111111111111111111111111111111111111111111111111111";
  55 EXPECT
  56 Integer overflow in binary number at - line 3.
  57 ########
  58 # util.c
  59 use warnings 'overflow' ;
  60 my $a =  hex "0xffffffffffffffffffff" ;
  61 no warnings 'overflow' ;
  62 $a =  hex "0xffffffffffffffffffff" ;
  63 EXPECT
  64 Integer overflow in hexadecimal number at - line 3.
  65 ########
  66 # util.c
  67 use warnings 'overflow' ;
  68 my $a =  oct "077777777777777777777777777777" ;
  69 no warnings 'overflow' ;
  70 $a =  oct "077777777777777777777777777777" ;
  71 EXPECT
  72 Integer overflow in octal number at - line 3.
  73 ########
  74 # util.c
  75 use warnings 'portable' ;
  76 my $a =  oct "0b011111111111111111111111111111110" ;
  77    $a =  oct "0b011111111111111111111111111111111" ;
  78    $a =  oct "0b111111111111111111111111111111111" ;
  79 no warnings 'portable' ;
  80    $a =  oct "0b011111111111111111111111111111110" ;
  81    $a =  oct "0b011111111111111111111111111111111" ;
  82    $a =  oct "0b111111111111111111111111111111111" ;
  83 EXPECT
  84 Binary number > 0b11111111111111111111111111111111 non-portable at - line 5.
  85 ########
  86 # util.c
  87 use warnings 'portable' ;
  88 my $a =  hex "0x0fffffffe" ;
  89    $a =  hex "0x0ffffffff" ;
  90    $a =  hex "0x1ffffffff" ;
  91 no warnings 'portable' ;
  92    $a =  hex "0x0fffffffe" ;
  93    $a =  hex "0x0ffffffff" ;
  94    $a =  hex "0x1ffffffff" ;
  95 EXPECT
  96 Hexadecimal number > 0xffffffff non-portable at - line 5.
  97 ########
  98 # util.c
  99 use warnings 'portable' ;
 100 my $a =  oct "0037777777776" ;
 101    $a =  oct "0037777777777" ;
 102    $a =  oct "0047777777777" ;
 103 no warnings 'portable' ;
 104    $a =  oct "0037777777776" ;
 105    $a =  oct "0037777777777" ;
 106    $a =  oct "0047777777777" ;
 107 EXPECT
 108 Octal number > 037777777777 non-portable at - line 5.
 109 ########
 110 # util.c
 111 use warnings;
 112 $x = 1;
 113 if ($x) {
 114     print $y;
 115 }
 116 EXPECT
 117 Name "main::y" used only once: possible typo at - line 5.
 118 Use of uninitialized value $y in print at - line 5.
 119 ########
 120 # util.c
 121 use warnings;
 122 $x = 1;
 123 if ($x) {
 124     $x++;
 125     print $y;
 126 }
 127 EXPECT
 128 Name "main::y" used only once: possible typo at - line 6.
 129 Use of uninitialized value $y in print at - line 6.
 130 ########
 131 # util.c
 132 use warnings;
 133 $x = 0;
 134 if ($x) {
 135     print "1\n";
 136 } elsif (!$x) {
 137     print $y;
 138 } else {
 139     print "0\n";
 140 }
 141 EXPECT
 142 Name "main::y" used only once: possible typo at - line 7.
 143 Use of uninitialized value $y in print at - line 7.
 144 ########
 145 # util.c
 146 use warnings;
 147 $x = 0;
 148 if ($x) {
 149     print "1\n";
 150 } elsif (!$x) {
 151     $x++;
 152     print $y;
 153 } else {
 154     print "0\n";
 155 }
 156 EXPECT
 157 Name "main::y" used only once: possible typo at - line 8.
 158 Use of uninitialized value $y in print at - line 8.