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

   1 ## name Unspectacular die
   2 ## failures 3
   3 ## cut
   4
   5 die 'A horrible death' if $condtion;
   6
   7 if ($condition) {
   8    die 'A horrible death';
   9 }
  10
  11 open my $fh, '<', $path or
  12   die "Can't open file $path";
  13
  14 #-----------------------------------------------------------------------------
  15
  16 ## name Unspectacular warn
  17 ## failures 3
  18 ## cut
  19
  20 warn 'A horrible warning' if $condtion;
  21
  22 if ($condition) {
  23    warn 'A horrible warning';
  24 }
  25
  26 open my $fh, '<', $path or
  27   warn "Can't open file $path";
  28
  29 #-----------------------------------------------------------------------------
  30
  31 ## name Carping
  32 ## failures 0
  33 ## cut
  34
  35 carp 'A horrible death' if $condtion;
  36
  37 if ($condition) {
  38    carp 'A horrible death';
  39 }
  40
  41 open my $fh, '<', $path or
  42   carp "Can't open file $path";
  43
  44 #-----------------------------------------------------------------------------
  45
  46 ## name No croaking
  47 ## failures 1
  48 ## cut
  49
  50 die 'A horrible death';
  51
  52 #-----------------------------------------------------------------------------
  53
  54 ## name Complain about cases without arguments.
  55 ## failures 2
  56 ## cut
  57
  58 die;
  59 die
  60
  61 #-----------------------------------------------------------------------------
  62
  63 ## name Complain about cases with empty list arguments.
  64 ## failures 2
  65 ## cut
  66
  67 die ( );
  68 die ( )
  69
  70 #-----------------------------------------------------------------------------
  71
  72 ## name Complain about cases with non-string arguments.
  73 ## failures 7
  74 ## cut
  75
  76 die $error;
  77 die @errors;
  78 die %errors_by_id;
  79 die $errors[0];
  80 die $errors_by_id{"Cheese fondue overflow"};
  81 die $marvin_gaye->whats_goin_on();
  82 die $george_washington->cross("Delaware River\n");
  83
  84 #-----------------------------------------------------------------------------
  85
  86 ## name Don't complain about obvious uses of references because they're likely being used as exception objects.
  87 ## TODO not yet implemented
  88 ## failures 0
  89 ## cut
  90
  91 die \$frobnication_exception;
  92 die \@accumulated_warnings;
  93 die \%problem_data;
  94
  95 die
  96     [
  97         'process.html: missing standard section separator comments',
  98         'green.css: uses non-standard font "Broken 15"',
  99         'cat.jpg: missing copyright information in Exif metadata',
 100     ];
 101
 102 die
 103     {
 104         message     => 'Found duplicate entries',
 105         file        => $current_file,
 106         parser      => $self,
 107         occurrences => $occurrences,
 108         duplicated  => $entry_content,
 109     };
 110
 111 die Blrfl::Exception->new('Too many croutons', $salad);
 112
 113
 114 #-----------------------------------------------------------------------------
 115
 116 ## name Don't complain if message ends with "\n" in double quotes.
 117 ## failures 0
 118 ## cut
 119
 120 die "A horrible death\n" ;
 121 die "A horrible death\n"    # last statement doesn't need a terminator
 122
 123 #-----------------------------------------------------------------------------
 124
 125 ## name Complain if message ends with "\n" in single quotes.
 126 ## failures 2
 127 ## cut
 128
 129 die 'A horrible death\n' ;
 130 die 'A horrible death\n'    # last statement doesn't need a terminator
 131
 132 #-----------------------------------------------------------------------------
 133
 134 ## name Don't complain if message ends with "\n" in interpolated quotelike operator.
 135 ## failures 0
 136 ## cut
 137
 138 die qq{A horrible death\n} ;
 139 die qq#A horrible death\n# ;
 140 die qq/A horrible death\n/  # last statement doesn't need a terminator
 141
 142 #-----------------------------------------------------------------------------
 143
 144 ## name Complain if message ends with "\n" in non-interpolated quotelike operator.
 145 ## failures 3
 146 ## cut
 147
 148 die q{A horrible death\n} ;
 149 die q#A horrible death\n# ;
 150 die q/A horrible death\n/   # last statement doesn't need a terminator
 151
 152 #-----------------------------------------------------------------------------
 153
 154 ## name Don't complain if message is a list with a last element that ends with "\n"
 155 ## failures 0
 156 ## cut
 157
 158 die q{Don't },  $die, " a horrible death\n"     ;
 159 die qq{Don't }, $die, qq/ a horrible death\n/   ;
 160 die q{Don't },  $die, " a horrible death\n"   , ;
 161 die q{Don't },  $die, " a horrible death\n"   , # last statement doesn't need a terminator
 162
 163 #-----------------------------------------------------------------------------
 164
 165 ## name Don't complain if message is a parenthesised list with a last element that ends with "\n"
 166 ## failures 0
 167 ## cut
 168
 169 die ( q{Don't },  $die, " a horrible death\n"     )   ;
 170 die ( qq{Don't }, $die, qq/ a horrible death\n/   )   ;
 171 die ( qq{Don't }, $die, qq/ a horrible death\n/   ) , ;
 172 die ( q{Don't },  $die, " a horrible death\n"   , ) # last statement doesn't need a terminator
 173
 174 #-----------------------------------------------------------------------------
 175
 176 ## name Don't complain if message is a list with "sub" lists with a last (flattened list) element that ends with "\n"
 177 ## failures 0
 178 ## cut
 179
 180 # all these tests are necessary (different PPI trees)
 181
 182 # one element in a sub list
 183 die q{Don't } , ( $die ) ,   " a horrible death\n"   ;
 184 die q{Don't } ,   $die   , ( " a horrible death\n" ) ;
 185
 186 # sub list and a bare element
 187 die q{Don't } , ( $die   ,   " a horrible death\n" ) ;
 188
 189 # two sub lists
 190 die q{Don't } , ( $die ) , ( " a horrible death\n" ) ;
 191
 192
 193 # sub sub lists
 194 die ( ( q{Don't } ) ,   $die   ,   " a horrible death\n"       ) ;
 195 die (   q{Don't }   ,   $die   , ( " a horrible death\n"     ) ) ;
 196 die (   q{Don't }   , ( $die   , ( " a horrible death\n"   ) ) ) ;
 197 die ( ( q{Don't }   , ( $die   , ( " a horrible death\n" ) ) ) ) ;
 198
 199 # play with extra commas
 200 die ( ( q{Don't } , ( $die , ( " a horrible death\n" , ) , ) , ) , ) , ;
 201 die ( ( q{Don't } , ( $die , ( " a horrible death\n" , ) , ) , ) , ) ,
 202
 203 #-----------------------------------------------------------------------------
 204
 205 ## name Complain if message is a list with "sub" lists with a last (flattened list) element that doesn't end with "\n"
 206 ## failures 10
 207 ## cut
 208
 209 # all these tests are necessary: make sure that the policy knows when to
 210 # stop looking.
 211
 212 # one element in a sub list
 213 die q{Don't }   , ( $die ) ,   @a_horrible_death   ;
 214 die q{Don't }   ,   $die   , ( @a_horrible_death ) ;
 215
 216 # sub list and a bare element
 217 die q{Don't }   , ( $die   ,   @a_horrible_death ) ;
 218
 219 # two sub lists
 220 die q{Don't }   , ( $die ) , ( @a_horrible_death ) ;
 221
 222
 223 # sub sub lists
 224 die ( ( q{Don't } ) ,   $die   ,   @a_horrible_death       ) ;
 225 die (   q{Don't }   ,   $die   , ( @a_horrible_death     ) ) ;
 226 die (   q{Don't }   , ( $die   , ( @a_horrible_death   ) ) ) ;
 227 die ( ( q{Don't }   , ( $die   , ( @a_horrible_death ) ) ) ) ;
 228
 229 # play with extra commas
 230 die ( ( q{Don't } , ( $die , ( @a_horrible_death , ) , ) , ) , ) , ;
 231 die ( ( q{Don't } , ( $die , ( @a_horrible_death , ) , ) , ) , ) ,
 232
 233 #-----------------------------------------------------------------------------
 234
 235 ## name Don't complain if message is a concatenation with a last element that ends with "\n"
 236 ## failures 0
 237 ## cut
 238
 239 die   q{Don't } . $die . " a horrible death\n"   ;
 240 die ( q{Don't } . $die . " a horrible death\n" ) ;
 241
 242 ##-----------------------------------------------------------------------------
 243
 244 ## name Complain if message has a last element that ends with "\n" but has an operation in front
 245 ## failures 2
 246 ## cut
 247
 248 die   q{Don't } . $die . length " a horrible death\n"   ;
 249 die ( q{Don't } . $die . length " a horrible death\n" ) ;
 250
 251 #-----------------------------------------------------------------------------
 252
 253 ## name Don't complain if followed by postfix operator and otherwise valid.
 254 ## failures 0
 255 ## cut
 256
 257 die "A horrible death\n" if $self->is_a_bad_guy();
 258 die "A horrible death\n" unless $self->rescued_from_the_sinking_ship();
 259 die "A horrible death\n" while $deep_sense_of_guilt;
 260 die "A horrible death\n" until $clear_conscience;
 261 die "A horrible death\n" for @your_crimes;
 262 die "A horrible death\n" foreach @{ $songs_sung_off_key };
 263
 264 die 'A horrible ', "death\n" if $self->is_a_bad_guy();
 265 die 'A horrible ', "death\n" unless $self->rescued_from_the_sinking_ship();
 266 die 'A horrible ', "death\n" while $deep_sense_of_guilt;
 267 die 'A horrible ', "death\n" until $clear_conscience;
 268 die 'A horrible ', "death\n" for @your_crimes;
 269 die 'A horrible ', "death\n" foreach @{ $songs_sung_off_key };
 270
 271 die ( 'A horrible ', "death\n" ) if $self->is_a_bad_guy();
 272 die ( 'A horrible ', "death\n" ) unless $self->rescued_from_the_sinking_ship();
 273 die ( 'A horrible ', "death\n" ) while $deep_sense_of_guilt;
 274 die ( 'A horrible ', "death\n" ) until $clear_conscience;
 275 die ( 'A horrible ', "death\n" ) for @your_crimes;
 276 die ( 'A horrible ', "death\n" ) foreach @{ $songs_sung_off_key };
 277
 278 die ( 'A horrible ' . "death\n" ) if $self->is_a_bad_guy();
 279 die ( 'A horrible ' . "death\n" ) unless $self->rescued_from_the_sinking_ship();
 280 die ( 'A horrible ' . "death\n" ) while $deep_sense_of_guilt;
 281 die ( 'A horrible ' . "death\n" ) until $clear_conscience;
 282 die ( 'A horrible ' . "death\n" ) for @your_crimes;
 283 die ( 'A horrible ' . "death\n" ) foreach @{ $songs_sung_off_key };
 284
 285 #-----------------------------------------------------------------------------
 286
 287 ## name Complain if followed by postfix operator with "\n" ending last operand and otherwise invalid.
 288 ## failures 24
 289 ## cut
 290
 291 die "A horrible death" if "Matagami\n";
 292 die "A horrible death" unless "Enniscorthy\n";
 293 die "A horrible death" while "Htargcm\n";
 294 die "A horrible death" until "Akhalataki\n";
 295 die "A horrible death" for "Fleac\n";
 296 die "A horrible death" foreach "Uist\n";
 297
 298 die 'A horrible ', "death" if "Matagami\n";
 299 die 'A horrible ', "death" unless "Enniscorthy\n";
 300 die 'A horrible ', "death" while "Htargcm\n";
 301 die 'A horrible ', "death" until "Akhalataki\n";
 302 die 'A horrible ', "death" for "Fleac\n";
 303 die 'A horrible ', "death" foreach "Uist\n";
 304
 305 die ( 'A horrible ', "death" ) if "Matagami\n";
 306 die ( 'A horrible ', "death" ) unless "Enniscorthy\n";
 307 die ( 'A horrible ', "death" ) while "Htargcm\n";
 308 die ( 'A horrible ', "death" ) until "Akhalataki\n";
 309 die ( 'A horrible ', "death" ) for "Fleac\n";
 310 die ( 'A horrible ', "death" ) foreach "Uist\n";
 311
 312 die ( 'A horrible ' . "death" ) if "Matagami\n";
 313 die ( 'A horrible ' . "death" ) unless "Enniscorthy\n";
 314 die ( 'A horrible ' . "death" ) while "Htargcm\n";
 315 die ( 'A horrible ' . "death" ) until "Akhalataki\n";
 316 die ( 'A horrible ' . "death" ) for "Fleac\n";
 317 die ( 'A horrible ' . "death" ) foreach "Uist\n";
 318
 319 #-----------------------------------------------------------------------------
 320
 321 ## name Complain if config doesn't allow newlines.
 322 ## failures 1
 323 ## parms { allow_messages_ending_with_newlines => 0 }
 324 ## cut
 325
 326 die "A horrible death\n" ;
 327
 328 #-----------------------------------------------------------------------------
 329
 330 ##############################################################################
 331 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ErrorHandling/RequireCarping.run $
 332 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
 333 #   $Author: clonezone $
 334 # $Revision: 2187 $
 335 ##############################################################################
 336
 337 # Local Variables:
 338 #   mode: cperl
 339 #   cperl-indent-level: 4
 340 #   fill-column: 78
 341 #   indent-tabs-mode: nil
 342 #   c-indentation-style: bsd
 343 # End:
 344 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :