git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/ErrorHandling/RequireCheckingReturnValueOfEval.run

   1 ## name Basic failure
   2 ## failures 9
   3 ## cut
   4
   5 eval { foo; };
   6 { eval { baz; } };
   7 [ eval { buz; } ];
   8 ( eval { blrfl; } );
   9
  10 eval 'foo;';
  11 { eval 'baz;' };
  12 [ eval 'buz;' ];
  13 ( eval 'blrfl;' );
  14
  15 eval { something };
  16 if ($@) {
  17     blahblah
  18 }
  19
  20 #-----------------------------------------------------------------------------
  21
  22 ## name Assignment
  23 ## failures 0
  24 ## cut
  25
  26 $result = eval { foo; };
  27 @result = eval { bar; };
  28 $result = { eval { baz; } };
  29 $result = [ eval { buz; } ];
  30 @result = ( 0, eval { blrfl; } );
  31 @result = [ qw< one two >, { thrpt => ( eval { frlbfrnk; } ) } ];
  32
  33 $result = eval 'foo;';
  34 @result = eval 'bar;';
  35 $result = { eval 'baz;' };
  36 $result = [ eval 'buz;' ];
  37 @result = ( 0, eval 'blrfl;' );
  38 @result = [ qw< one two >, { thrpt => ( eval 'frlbfrnk;' ) } ];
  39
  40 #-----------------------------------------------------------------------------
  41
  42 ## name Assignment with comma separated statements.
  43 ## failures 12
  44 ## cut
  45
  46 $result = 1, eval { foo; };
  47 @result = 1, eval { bar; };
  48 $result = 1, { eval { baz; } };
  49 $result = 1, [ eval { buz; } ];
  50 @result = 1, ( eval { blrfl; } );
  51 @result = 1, [ qw< one two >, { thrpt => ( eval { frlbfrnk; } ) } ];
  52
  53 $result = 1, eval 'foo;';
  54 @result = 1, eval 'bar;';
  55 $result = 1, { eval 'baz;' };
  56 $result = 1, [ eval 'buz;' ];
  57 @result = 1, ( eval 'blrfl;' );
  58 @result = 1, [ qw< one two >, { thrpt => ( eval 'frlbfrnk;' ) } ];
  59
  60 #-----------------------------------------------------------------------------
  61
  62 ## name if
  63 ## failures 0
  64 ## cut
  65
  66 if ( eval { bar; } ) {
  67     something
  68 }
  69
  70 if ( ( eval { blrfl; } ) ) {
  71     something
  72 }
  73
  74 if ( 5 == eval { bar; } ) {
  75     something
  76 }
  77
  78 if ( scalar ( eval { blrfl; } ) ) {
  79     something
  80 }
  81
  82 if ( not eval { whatever; } ) {
  83     something
  84 }
  85
  86
  87
  88 if ( eval 'bar;' ) {
  89     something
  90 }
  91
  92 if ( ( eval 'blrfl;' ) ) {
  93     something
  94 }
  95
  96 if ( 5 == eval 'bar;' ) {
  97     something
  98 }
  99
 100 if ( scalar ( eval 'blrfl;' ) ) {
 101     something
 102 }
 103
 104 if ( ! eval 'whatever;' ) {
 105     something
 106 }
 107
 108 #-----------------------------------------------------------------------------
 109
 110 ## name foreach
 111 ## failures 0
 112 ## cut
 113
 114 foreach my $thingy ( eval { bar; } ) {
 115     something
 116 }
 117
 118 foreach my $thingy ( ( eval { blrfl; } ) ) {
 119     something
 120 }
 121
 122 foreach my $thingy ( qw< one two >, eval { bar; } ) {
 123     something
 124 }
 125
 126
 127 foreach my $thingy ( eval 'bar;' ) {
 128     something
 129 }
 130
 131 foreach my $thingy ( ( eval 'blrfl;' ) ) {
 132     something
 133 }
 134
 135 foreach my $thingy ( qw< one two >, eval 'bar;' ) {
 136     something
 137 }
 138
 139 #-----------------------------------------------------------------------------
 140
 141 ## name C-style for with eval in condition or assignment
 142 ## failures 0
 143 ## cut
 144
 145 for (blah; eval { bar; }; blah ) {
 146     something
 147 }
 148
 149 for (blah; ( eval { blrfl; } ); blah ) {
 150     something
 151 }
 152
 153 for (blah; eval { bar; } eq 'bing bang bong'; blah ) {
 154     something
 155 }
 156
 157 for (my $x = eval { thrp; }; $x < 1587; $x = eval { thrp; } ) {
 158     something
 159 }
 160
 161
 162 for (blah; eval 'bar;'; blah ) {
 163     something
 164 }
 165
 166 for (blah; ( eval 'blrfl;' ); blah ) {
 167     something
 168 }
 169
 170 for (blah; eval 'bar;' eq 'bing bang bong'; blah ) {
 171     something
 172 }
 173
 174 for (my $x = eval 'thrp;'; $x < 1587; $x = eval 'thrp;' ) {
 175     something
 176 }
 177
 178 #-----------------------------------------------------------------------------
 179
 180 ## name C-style for with eval in initialization or increment with no assignment
 181 ## failures 4
 182 ## cut
 183
 184 for (eval { bar; }; blah; blah) {
 185     something
 186 }
 187
 188 for ( blah; blah; ( eval { blrfl; } ) ) {
 189     something
 190 }
 191
 192
 193 for (eval 'bar;'; blah; blah) {
 194     something
 195 }
 196
 197 for ( blah; blah; ( eval 'blrfl;' ) ) {
 198     something
 199 }
 200
 201 #-----------------------------------------------------------------------------
 202
 203 ## name while
 204 ## failures 0
 205 ## cut
 206
 207 while ( eval { bar; } ) {
 208     something
 209 }
 210
 211 while ( ( ( eval { blrfl; } ) ) ) {
 212     something
 213 }
 214
 215
 216 while ( eval 'bar;' ) {
 217     something
 218 }
 219
 220 while ( ( ( eval 'blrfl;' ) ) ) {
 221     something
 222 }
 223
 224 #-----------------------------------------------------------------------------
 225
 226 ## name Postfix if
 227 ## failures 0
 228 ## cut
 229
 230 bleah if eval { yadda; };
 231 bleah if ( eval { yadda; } );
 232 bleah if 5 == eval { yadda; };
 233 bleah if eval { yadda; } == 5;
 234
 235 bleah if eval 'yadda;';
 236 bleah if ( eval 'yadda;' );
 237 bleah if 5 == eval 'yadda;';
 238 bleah if eval 'yadda;' == 5;
 239
 240 #-----------------------------------------------------------------------------
 241
 242 ## name Postfix foreach
 243 ## failures 0
 244 ## cut
 245
 246 blargh($_) foreach eval { bar; };
 247 blargh($_) foreach ( eval { blrfl; } );
 248 blargh($_) foreach qw< one two >, eval { bar; };
 249 blargh($_) foreach eval { bar; }, qw< one two >;
 250
 251 blargh($_) foreach eval 'bar;';
 252 blargh($_) foreach ( eval 'blrfl;' );
 253 blargh($_) foreach eval 'bar;', qw< one two >;
 254
 255 #-----------------------------------------------------------------------------
 256
 257 ## name First value in comma-separated list in condition
 258 ## failures 4
 259 ## cut
 260
 261 if ( eval { 1 }, 0 ) {
 262     blah blah blah
 263 }
 264
 265 if ( ( eval { 1 }, 0 ) ) {
 266     blah blah blah
 267 }
 268
 269 if ( eval '1', 0 ) {
 270     blah blah blah
 271 }
 272
 273 if ( ( eval '1', 0 ) ) {
 274     blah blah blah
 275 }
 276
 277 #-----------------------------------------------------------------------------
 278
 279 ## name Last value in comma-separated list in condition
 280 ## failures 0
 281 ## cut
 282
 283 if ( 0, eval { 1 }, ) {
 284     blah blah blah
 285 }
 286
 287 # Comma outside inner parentheses.
 288 if ( ( 0, eval { 1 } ), , ) {
 289     blah blah blah
 290 }
 291
 292 if ( 0, eval '1', ) {
 293     blah blah blah
 294 }
 295
 296 # Comma inside inner parentheses.
 297 if ( ( 0, eval '1', , ) ) {
 298     blah blah blah
 299 }
 300
 301 #-----------------------------------------------------------------------------
 302
 303 ## name Last value in comma-separated list that isn't the last element in another list in condition
 304 ## failures 4
 305 ## cut
 306
 307 if ( ( 0, eval { 1 } ), 0 ) {
 308     blah blah blah
 309 }
 310
 311 if ( ( ( 0, eval { 1 } ) ), 0 ) {
 312     blah blah blah
 313 }
 314
 315 if ( ( 0, eval '1' ), 0 ) {
 316     blah blah blah
 317 }
 318
 319 if ( ( ( 0, eval '1' ) ), 0 ) {
 320     blah blah blah
 321 }
 322
 323 #-----------------------------------------------------------------------------
 324
 325 ## name "Proper" handling of return value
 326 ## failures 0
 327 ## cut
 328
 329 eval {
 330     something
 331 }
 332     or do {
 333         if ($EVAL_ERROR) {
 334             yadda
 335         }
 336         else {
 337             blahdda
 338         };
 339
 340 eval "something_else" or die;
 341
 342 # eval gets the thing following it before || does.
 343 eval {
 344     something
 345 }
 346     || do {
 347         if ($EVAL_ERROR) {
 348             yadda
 349         }
 350         else {
 351             blahdda
 352         }
 353     };
 354
 355 eval "something_else" || die;
 356
 357
 358 eval {
 359     something
 360 }
 361     and do {
 362         yadda
 363     };
 364
 365 eval "something_else" and thingy;
 366
 367 # eval gets the thing following it before && does.
 368 eval {
 369     something
 370 }
 371     && do {
 372         yadda
 373     };
 374
 375 eval "something_else" && die;
 376
 377 #-----------------------------------------------------------------------------
 378
 379 ##############################################################################
 380 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ErrorHandling/RequireCheckingReturnValueOfEval.run $
 381 #     $Date: 2008-06-30 00:37:19 -0500 (Mon, 30 Jun 2008) $
 382 #   $Author: clonezone $
 383 # $Revision: 2484 $
 384 ##############################################################################
 385
 386 # Local Variables:
 387 #   mode: cperl
 388 #   cperl-indent-level: 4
 389 #   fill-column: 78
 390 #   indent-tabs-mode: nil
 391 #   c-indentation-style: bsd
 392 # End:
 393 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :