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

   1 ## name passes by assigning error variable
   2 ## failures 0
   3 ## cut
   4
   5 my $error = open( $filehandle, $mode, $filename );
   6 my $error = open  $filehandle, $mode, $filename;
   7 my $error = open  OPEN, $open, 'open';
   8 my $error = open  OR, $or, 'or';
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name passes by "or die"
  13 ## failures 0
  14 ## cut
  15
  16 open  $filehandle, $mode, $filename   or die 'could not open';
  17 open( $filehandle, $mode, $filename ) or die 'could not open';
  18 open( $filehandle, $mode, $filename ) or croak 'could not open';
  19
  20 #-----------------------------------------------------------------------------
  21
  22 ## name passes by "|| die"
  23 ## failures 0
  24 ## cut
  25
  26 open  $filehandle, $mode, $filename   or die 'could not open';
  27 open( $filehandle, $mode, $filename ) || die 'could not open';
  28 open( $filehandle, $mode, $filename ) || croak 'could not open';
  29
  30 #-----------------------------------------------------------------------------
  31
  32 ## name passes by "unless"
  33 ## failures 0
  34 ## cut
  35
  36 die unless open( $filehandle, $mode, $filename );
  37 die unless open  $filehandle, $mode, $filename;
  38
  39 croak unless open( $filehandle, $mode, $filename );
  40 croak unless open  $filehandle, $mode, $filename;
  41
  42 #-----------------------------------------------------------------------------
  43
  44 ## name passes by "if not"
  45 ## failures 0
  46 ## cut
  47
  48 die if not open( $filehandle, $mode, $filename );
  49 die if not open  $filehandle, $mode, $filename;
  50
  51 croak if not open( $filehandle, $mode, $filename );
  52 croak if not open  $filehandle, $mode, $filename;
  53
  54 die if !open( $filehandle, $mode, $filename );
  55 die if !open  $filehandle, $mode, $filename;
  56
  57 croak if !open( $filehandle, $mode, $filename );
  58 croak if !open  $filehandle, $mode, $filename;
  59
  60 #-----------------------------------------------------------------------------
  61
  62 ## name passes with "if" statement
  63 ## failures 0
  64 ## cut
  65
  66 if ( open( $filehandle, $mode, $filename ) ) { dosomething(); };
  67
  68 #-----------------------------------------------------------------------------
  69
  70 ## name Basic failure with parens
  71 ## failures 2
  72 ## cut
  73
  74 open( $filehandle, $mode, $filename );
  75 open( $filehandle, $filename );
  76
  77 #-----------------------------------------------------------------------------
  78
  79 ## name Basic failure no parens
  80 ## failures 2
  81 ## cut
  82
  83 open $filehandle, $mode, $filename;
  84 open $filehandle, $filename;
  85
  86 #-----------------------------------------------------------------------------
  87
  88 ## name Fatal.pm on
  89 ## failures 0
  90 ## cut
  91
  92 use Fatal qw(open);
  93 open $filehandle, $filename;
  94
  95 #-----------------------------------------------------------------------------
  96
  97 ## name Fatal.pm on
  98 ## failures 0
  99 ## cut
 100
 101 use Fatal 'open';
 102 open $filehandle, $filename;
 103
 104 #-----------------------------------------------------------------------------
 105
 106 ## name Fatal.pm on
 107 ## failures 0
 108 ## cut
 109
 110 use Fatal ('open');
 111 open $filehandle, $filename;
 112
 113 #-----------------------------------------------------------------------------
 114
 115 ## name Fatal::Exception on
 116 ## failures 0
 117 ## cut
 118
 119 use Fatal::Exception 'Exception' => qw(open);
 120 open $filehandle, $filename;
 121
 122 #-----------------------------------------------------------------------------
 123
 124 ## name Fatal.pm off
 125 ## failures 1
 126 ## cut
 127
 128 use Fatal qw(close);
 129 open $filehandle, $filename;
 130
 131 #-----------------------------------------------------------------------------
 132
 133 ## name passes by assigning error variable
 134 ## failures 0
 135 ## cut
 136
 137 my $error = close( $filehandle );
 138 my $error = close  $filehandle;
 139 my $error = close  CLOSE;
 140 my $error = close  OR;
 141
 142 #-----------------------------------------------------------------------------
 143
 144 ## name passes by "or die"
 145 ## failures 0
 146 ## cut
 147
 148 close  $filehandle  or die 'could not close';
 149 close ($filehandle) or die 'could not close';
 150 close ($filehandle) or croak 'could not close';
 151
 152 #-----------------------------------------------------------------------------
 153
 154 ## name passes by "|| die"
 155 ## failures 0
 156 ## cut
 157
 158 close  $filehandle  || die 'could not close';
 159 close ($filehandle) || die 'could not close';
 160 close ($filehandle) || croak 'could not close';
 161
 162 #-----------------------------------------------------------------------------
 163
 164 ## name passes by "unless"
 165 ## failures 0
 166 ## cut
 167
 168 die unless close ( $filehandle );
 169 die unless close   $filehandle;
 170
 171 croak unless close ( $filehandle );
 172 croak unless close   $filehandle;
 173
 174 #-----------------------------------------------------------------------------
 175
 176 ## name passes by "if not"
 177 ## failures 0
 178 ## cut
 179
 180 die if not close ( $filehandle );
 181 die if not close   $filehandle;
 182
 183 croak if not close ( $filehandle );
 184 croak if not close   $filehandle;
 185
 186 die if !close ( $filehandle );
 187 die if !close   $filehandle;
 188
 189 croak if !close ( $filehandle );
 190 croak if !close   $filehandle;
 191
 192 #-----------------------------------------------------------------------------
 193
 194 ## name passes with "if" statement
 195 ## failures 0
 196 ## cut
 197
 198 if ( close $filehandle ) { dosomething(); };
 199
 200 #-----------------------------------------------------------------------------
 201
 202 ## name Basic failure with parens
 203 ## failures 1
 204 ## cut
 205
 206 close( $filehandle );
 207
 208 #-----------------------------------------------------------------------------
 209
 210 ## name Basic failure no parens
 211 ## failures 1
 212 ## cut
 213
 214 close $filehandle;
 215
 216 #-----------------------------------------------------------------------------
 217
 218 ## name Fatal.pm on
 219 ## failures 0
 220 ## cut
 221
 222 use Fatal qw(close);
 223 close $filehandle;
 224
 225 #-----------------------------------------------------------------------------
 226
 227 ## name Fatal.pm on
 228 ## failures 0
 229 ## cut
 230
 231 use Fatal 'close';
 232 close $filehandle;
 233
 234 #-----------------------------------------------------------------------------
 235
 236 ## name Fatal.pm on
 237 ## failures 0
 238 ## cut
 239
 240 use Fatal ('close');
 241 close $filehandle;
 242
 243 #-----------------------------------------------------------------------------
 244
 245 ## name Fatal::Exception on
 246 ## failures 0
 247 ## cut
 248
 249 use Fatal::Exception 'Exception' => qw(close);
 250 close $filehandle;
 251
 252 #-----------------------------------------------------------------------------
 253
 254 ## name Fatal.pm off
 255 ## failures 1
 256 ## cut
 257
 258 use Fatal qw(open);
 259 close $filehandle;
 260
 261 #-----------------------------------------------------------------------------
 262
 263 ## name config
 264 ## failures 0
 265 ## cut
 266
 267 accept NEWSOCK, SOCKET;
 268
 269 #-----------------------------------------------------------------------------
 270
 271 ## name config
 272 ## parms {functions => 'accept'}
 273 ## failures 1
 274 ## cut
 275
 276 accept NEWSOCK, SOCKET;
 277
 278 #-----------------------------------------------------------------------------
 279
 280 ## name config
 281 ## parms {functions => ':builtins'}
 282 ## failures 1
 283 ## cut
 284
 285 accept NEWSOCK, SOCKET;
 286
 287 #-----------------------------------------------------------------------------
 288
 289 ## name insane config
 290 ## parms {functions => ':all'}
 291 ## failures 2
 292 ## cut
 293
 294 sub foo {
 295   return 1;
 296 }
 297 foo();
 298
 299 #-----------------------------------------------------------------------------
 300
 301
 302 ## name insane config
 303 ## parms {functions => ':all'}
 304 ## failures 0
 305 ## cut
 306
 307 sub foo {
 308   return 1 or die;
 309 }
 310 foo() or die;
 311
 312 #-----------------------------------------------------------------------------
 313
 314 ##############################################################################
 315 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/InputOutput/RequireCheckedSyscalls.run $
 316 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
 317 #   $Author: clonezone $
 318 # $Revision: 2187 $
 319 ##############################################################################
 320
 321 # Local Variables:
 322 #   mode: cperl
 323 #   cperl-indent-level: 4
 324 #   fill-column: 78
 325 #   indent-tabs-mode: nil
 326 #   c-indentation-style: bsd
 327 # End:
 328 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :