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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 $var = 0;
   6 $var = 0.;
   7 $var = .0;
   8 $var = 10;
   9 $var = 0.0;
  10 $var = 00.0;
  11 $var = 00;
  12 $var = 0.11;
  13 $var = 10.0;
  14 $var = -0;
  15 $var = -0.;
  16 $var = -10;
  17 $var = -0.0;
  18 $var = -10.0
  19 $var = -0.11;
  20 $var = +0;
  21 $var = +0.;
  22 $var = +10;
  23 $var = +0.0;
  24 $var = +10.0;
  25 $var = +0.11;
  26 $var = +.011;
  27 $var = .011;
  28 $var = -.011;
  29
  30 #-----------------------------------------------------------------------------
  31
  32 ## name Basic failure
  33 ## failures 12
  34 ## cut
  35
  36 $var = 01;
  37 $var = 010;
  38 $var = 001;
  39 $var = 0010;
  40 $var = -01;
  41 $var = -010;
  42 $var = -001;
  43 $var = -0010;
  44 $var = +01;
  45 $var = +010;
  46 $var = +001;
  47 $var = +0010;
  48
  49 #-----------------------------------------------------------------------------
  50
  51 ## name chmod
  52 ## failures 0
  53 ## cut
  54
  55 $cnt = chmod 0755, 'foo', 'bar';
  56 chmod 0755, @executables;
  57
  58 $cnt = chmod ( 0755, 'foo', 'bar' );
  59 chmod ( 0755, @executables );
  60
  61 #-----------------------------------------------------------------------------
  62
  63 ## name chmod with strict option
  64 ## failures 4
  65 ## parms { strict => 1 }
  66 ## cut
  67
  68 $cnt = chmod 0755, 'foo', 'bar';
  69 chmod 0755, @executables;
  70
  71 $cnt = chmod ( 0755, 'foo', 'bar' );
  72 chmod ( 0755, @executables );
  73
  74 #-----------------------------------------------------------------------------
  75
  76 ## name dbmopen
  77 ## failures 0
  78 ## cut
  79
  80 dbmopen %database, 'foo.db', 0600;
  81 dbmopen ( %database, 'foo.db', 0600 );
  82
  83 #-----------------------------------------------------------------------------
  84
  85 ## name dbmopen with strict option
  86 ## failures 2
  87 ## parms { strict => 1 }
  88 ## cut
  89
  90 dbmopen %database, 'foo.db', 0600;
  91 dbmopen ( %database, 'foo.db', 0600 );
  92
  93 #-----------------------------------------------------------------------------
  94
  95 ## name mkdir
  96 ## failures 0
  97 ## cut
  98
  99 mkdir $directory, 0755;
 100 mkdir ( $directory, 0755 );
 101
 102 #-----------------------------------------------------------------------------
 103
 104 ## name mkdir with strict option
 105 ## failures 2
 106 ## parms { strict => 1 }
 107 ## cut
 108
 109 mkdir $directory, 0755;
 110 mkdir ( $directory, 0755 );
 111
 112 #-----------------------------------------------------------------------------
 113
 114 ## name sysopen
 115 ## failures 0
 116 ## cut
 117
 118 sysopen $filehandle, $filename, O_RDWR, 0666;
 119 sysopen ( $filehandle, $filename, O_WRONLY | O_CREAT | O_EXCL, 0666 );
 120 sysopen ( $filehandle, $filename, (O_WRONLY | O_CREAT | O_EXCL), 0666 );
 121
 122 #-----------------------------------------------------------------------------
 123
 124 ## name sysopen with strict option
 125 ## failures 3
 126 ## parms { strict => 1 }
 127 ## cut
 128
 129 sysopen $filehandle, $filename, O_RDWR, 0666;
 130 sysopen ( $filehandle, $filename, O_WRONLY | O_CREAT | O_EXCL, 0666 );
 131 sysopen ( $filehandle, $filename, (O_WRONLY | O_CREAT | O_EXCL), 0666 );
 132
 133 #-----------------------------------------------------------------------------
 134
 135 ## name umask
 136 ## failures 0
 137 ## cut
 138
 139 umask 002;
 140 umask ( 002 );
 141
 142 #-----------------------------------------------------------------------------
 143
 144 ## name umask with strict option
 145 ## failures 2
 146 ## parms { strict => 1 }
 147 ## cut
 148
 149 umask 002;
 150 umask ( 002 );
 151
 152 #-----------------------------------------------------------------------------
 153
 154 ##############################################################################
 155 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitLeadingZeros.run $
 156 #     $Date: 2008-06-22 16:23:43 -0700 (Sun, 22 Jun 2008) $
 157 #   $Author: clonezone $
 158 # $Revision: 2475 $
 159 ##############################################################################
 160
 161 # Local Variables:
 162 #   mode: cperl
 163 #   cperl-indent-level: 4
 164 #   fill-column: 78
 165 #   indent-tabs-mode: nil
 166 #   c-indentation-style: bsd
 167 # End:
 168 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :