t/lib/croak/toke

   1 __END__
   2 # NAME foo found where operator expected
   3 myfunc 1,2,3
   4 EXPECT
   5 Number found where operator expected at - line 1, near "myfunc 1"
   6         (Do you need to predeclare myfunc?)
   7 syntax error at - line 1, near "myfunc 1"
   8 Execution of - aborted due to compilation errors.
   9 ########
  10 # NAME foo found where operator expected (after strict error, w/fatal warnings)
  11 use warnings FATAL => 'all';
  12 use strict;
  13 $foo;
  14 myfunc 1,2,3
  15 EXPECT
  16 Global symbol "$foo" requires explicit package name (did you forget to declare "my $foo"?) at - line 3.
  17 Number found where operator expected at - line 4, near "myfunc 1"
  18         (Do you need to predeclare myfunc?)
  19 syntax error at - line 4, near "myfunc 1"
  20 Execution of - aborted due to compilation errors.
  21 ########
  22 # NAME (Missing operator before ${?) [perl #123737]
  23 0${
  24 EXPECT
  25 Scalar found where operator expected at - line 1, near "0${"
  26         (Missing operator before ${?)
  27 syntax error at - line 1, near "0$"
  28 Missing right curly or square bracket at - line 1, at end of line
  29 Execution of - aborted due to compilation errors.
  30 ########
  31 # NAME (Missing operator before $#{?) [perl #123737]
  32 0$#{
  33 EXPECT
  34 Array length found where operator expected at - line 1, near "0$#{"
  35         (Missing operator before $#{?)
  36 syntax error at - line 1, near "0$#"
  37 Missing right curly or square bracket at - line 1, at end of line
  38 Execution of - aborted due to compilation errors.
  39 ########
  40 # NAME (Missing operator before @foo) [perl #123737]
  41 0@foo
  42 EXPECT
  43 Array found where operator expected at - line 1, near "0@foo"
  44         (Missing operator before @foo?)
  45 syntax error at - line 1, near "0@foo
  46 "
  47 Execution of - aborted due to compilation errors.
  48 ########
  49 # NAME (Missing operator before @{) [perl #123737]
  50 0@{
  51 EXPECT
  52 Array found where operator expected at - line 1, near "0@{"
  53         (Missing operator before @{?)
  54 syntax error at - line 1, near "0@"
  55 Missing right curly or square bracket at - line 1, at end of line
  56 Execution of - aborted due to compilation errors.
  57 ########
  58 # NAME Unterminated here-doc in string eval
  59 eval "<<foo"; die $@
  60 EXPECT
  61 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
  62 ########
  63 # NAME Unterminated here-doc in s/// string eval
  64 eval "s//<<foo/e"; die $@
  65 EXPECT
  66 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
  67 ########
  68 # NAME Unterminated here-doc in string
  69 "${<<foo"; # Used to give ‘Attempt to free blah blah blah’
  70 EXPECT
  71 Can't find string terminator "foo" anywhere before EOF at - line 1.
  72 ########
  73 # NAME Unterminated qw//
  74 qw/
  75 EXPECT
  76 Can't find string terminator "/" anywhere before EOF at - line 1.
  77 ########
  78 # NAME Unterminated q//
  79 qw/
  80 EXPECT
  81 Can't find string terminator "/" anywhere before EOF at - line 1.
  82 ########
  83 # NAME Unterminated ''
  84 '
  85 EXPECT
  86 Can't find string terminator "'" anywhere before EOF at - line 1.
  87 ########
  88 # NAME /\N{/
  89 /\N{/
  90 EXPECT
  91 Missing right brace on \N{} or unescaped left brace after \N at - line 1, within pattern
  92 Execution of - aborted due to compilation errors.
  93 ########
  94 # NAME map{for our *a...
  95 map{for our *a (1..10) {$_.=$x}}
  96 EXPECT
  97 Missing $ on loop variable at - line 1.
  98 ########
  99 # NAME Missing name in "my sub"
 100 use feature 'lexical_subs'; my sub;
 101 EXPECT
 102 Missing name in "my sub" at - line 1.
 103 ########
 104 # NAME Missing name in "our sub"
 105 use feature 'lexical_subs'; our sub;
 106 EXPECT
 107 Missing name in "our sub" at - line 1.
 108 ########
 109 # NAME Missing name in "state sub"
 110 use 5.01;
 111 state sub;
 112 EXPECT
 113 Missing name in "state sub" at - line 2.
 114 ########
 115 # NAME my sub pack::foo
 116 use feature 'lexical_subs', 'state';
 117 my sub foo::bar;
 118 state sub foo::bear;
 119 EXPECT
 120 "my" subroutine &foo::bar can't be in a package at - line 2, near "my sub foo::bar"
 121 "state" subroutine &foo::bear can't be in a package at - line 3, near "state sub foo::bear"
 122 Execution of - aborted due to compilation errors.
 123 ########
 124 # NAME Integer constant overloading returning undef
 125 use overload;
 126 BEGIN { overload::constant integer => sub {}; undef *^H }
 127 1
 128 EXPECT
 129 Constant(1) unknown at - line 3, at end of line
 130 Execution of - aborted due to compilation errors.
 131 ########
 132 # NAME Float constant overloading returning undef
 133 use overload;
 134 BEGIN { overload::constant float => sub {}; undef *^H }
 135 1.1
 136 EXPECT
 137 Constant(1.1) unknown at - line 3, at end of line
 138 Execution of - aborted due to compilation errors.
 139 ########
 140 # NAME Binary constant overloading returning undef
 141 use overload;
 142 BEGIN { overload::constant binary => sub {}; undef *^H }
 143 0x1
 144 EXPECT
 145 Constant(0x1) unknown at - line 3, at end of line
 146 Execution of - aborted due to compilation errors.
 147 ########
 148 # NAME String constant overloading returning undef
 149 use overload;
 150 BEGIN { overload::constant q => sub {}; undef *^H }
 151 '1', "1$_", tr"a"", s""a"
 152 EXPECT
 153 Constant(q) unknown at - line 3, near "'1'"
 154 Constant(qq) unknown at - line 3, within string
 155 Constant(tr) unknown at - line 3, within string
 156 Constant(s) unknown at - line 3, within string
 157 Execution of - aborted due to compilation errors.
 158 ########
 159 # NAME Regexp constant overloading when *^H is undefined
 160 use overload;
 161 BEGIN { overload::constant qr => sub {}; undef *^H }
 162 /a/, m'a'
 163 EXPECT
 164 Constant(qq) unknown at - line 3, within pattern
 165 Constant(q) unknown at - line 3, within pattern
 166 Execution of - aborted due to compilation errors.
 167 ########
 168 # NAME \N{...} when charnames fails to load but without an error
 169 # SKIP ? exists $ENV{PERL_UNICODE} ? "Unreliable under some PERL_UNICODE settings" : 0
 170 BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
 171 "\N{a}"
 172 EXPECT
 173 Constant(\N{a}) unknown at - line 2, within string
 174 Execution of - aborted due to compilation errors.
 175 ########
 176 # NAME Integer constant overloading returning undef
 177 use overload;
 178 BEGIN { overload::constant integer => sub {} }
 179 1
 180 EXPECT
 181 Constant(1): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
 182 Execution of - aborted due to compilation errors.
 183 ########
 184 # NAME Float constant overloading returning undef
 185 use overload;
 186 BEGIN { overload::constant float => sub {} }
 187 1.1
 188 EXPECT
 189 Constant(1.1): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
 190 Execution of - aborted due to compilation errors.
 191 ########
 192 # NAME Binary constant overloading returning undef
 193 use overload;
 194 BEGIN { overload::constant binary => sub {} }
 195 0x1
 196 EXPECT
 197 Constant(0x1): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
 198 Execution of - aborted due to compilation errors.
 199 ########
 200 # NAME String constant overloading returning undef
 201 use overload;
 202 BEGIN { overload::constant q => sub {} }
 203 '1', "1$_", tr"a"", s""a"
 204 EXPECT
 205 Constant(q): Call to &{$^H{q}} did not return a defined value at - line 3, near "'1'"
 206 Constant(qq): Call to &{$^H{q}} did not return a defined value at - line 3, within string
 207 Constant(tr): Call to &{$^H{q}} did not return a defined value at - line 3, within string
 208 Constant(s): Call to &{$^H{q}} did not return a defined value at - line 3, within string
 209 Execution of - aborted due to compilation errors.
 210 ########
 211 # NAME Regexp constant overloading returning undef
 212 use overload;
 213 BEGIN { overload::constant qr => sub {} }
 214 /a/, m'a'
 215 EXPECT
 216 Constant(qq): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
 217 Constant(q): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
 218 Execution of - aborted due to compilation errors.
 219 ########
 220 # NAME Failed constant overloading should not cause a double free
 221 use overload;
 222 BEGIN { overload::constant q => sub {}; undef *^H }
 223 undef(1,2);
 224 undef(1,2);
 225 undef(1,2);
 226 undef(1,2);
 227 undef(1,2);
 228 undef(1,2);
 229 undef(1,2);
 230 undef(1,2);
 231 undef(1,2);
 232 "a"
 233 EXPECT
 234 Too many arguments for undef operator at - line 3, near "2)"
 235 Too many arguments for undef operator at - line 4, near "2)"
 236 Too many arguments for undef operator at - line 5, near "2)"
 237 Too many arguments for undef operator at - line 6, near "2)"
 238 Too many arguments for undef operator at - line 7, near "2)"
 239 Too many arguments for undef operator at - line 8, near "2)"
 240 Too many arguments for undef operator at - line 9, near "2)"
 241 Too many arguments for undef operator at - line 10, near "2)"
 242 Too many arguments for undef operator at - line 11, near "2)"
 243 Constant(q) unknown at - line 12, near ""a""
 244 - has too many errors.
 245 ########
 246 # NAME Unterminated delimiter for here document
 247 <<"foo
 248 EXPECT
 249 Unterminated delimiter for here document at - line 1.
 250 ########
 251 # NAME my (our $x) errors
 252 my (our $x);
 253 EXPECT
 254 Can't redeclare "our" in "my" at - line 1, at end of line
 255 Execution of - aborted due to compilation errors.
 256 ########
 257 # NAME our (my $x) errors
 258 our (my $x);
 259 EXPECT
 260 Can't redeclare "my" in "our" at - line 1, at end of line
 261 Execution of - aborted due to compilation errors.
 262 ########
 263 # NAME state (my $x) errors
 264 use feature 'state';
 265 state (my $x);
 266 EXPECT
 267 Can't redeclare "my" in "state" at - line 2, at end of line
 268 Execution of - aborted due to compilation errors.
 269 ########
 270 # NAME our (state $x) errors
 271 use feature 'state';
 272 our (state $x);
 273 EXPECT
 274 Can't redeclare "state" in "our" at - line 2, at end of line
 275 Execution of - aborted due to compilation errors.
 276 ########
 277 # NAME my (my $x) errors
 278 my (my $x, $y, $z);
 279 EXPECT
 280 Can't redeclare "my" in "my" at - line 1, at end of line
 281 Execution of - aborted due to compilation errors.
 282 ########
 283 # NAME our (our $x) errors
 284 our ($x, our($y), $z);
 285 EXPECT
 286 Can't redeclare "our" in "our" at - line 1, near ", "
 287 Execution of - aborted due to compilation errors.
 288 ########
 289 # NAME state (state $x) errors
 290 use feature 'state';
 291 state ($x, $y, state $z);
 292 EXPECT
 293 Can't redeclare "state" in "state" at - line 2, near ", "
 294 Execution of - aborted due to compilation errors.
 295 ########
 296 # NAME BEGIN <> [perl #125341]
 297 BEGIN <>
 298 EXPECT
 299 Illegal declaration of subroutine BEGIN at - line 1.