X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Farm%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FValuesAndExpressions%2FProhibitLeadingZeros.run;fp=dev%2Farm%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FValuesAndExpressions%2FProhibitLeadingZeros.run;h=b6280a12b3dc1c394b99bf9adb966f39b235e7dd;hp=0000000000000000000000000000000000000000;hb=f477fa73365d491991707e7ed9217b48d6994551;hpb=da95c414033799c3a62606f299c3c00b5c77ca11

diff --git a/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitLeadingZeros.run b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitLeadingZeros.run
new file mode 100644
index 0000000..b6280a1
--- /dev/null
+++ b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/ProhibitLeadingZeros.run
@@ -0,0 +1,168 @@
+## name Basic passing
+## failures 0
+## cut
+
+$var = 0;
+$var = 0.;
+$var = .0;
+$var = 10;
+$var = 0.0;
+$var = 00.0;
+$var = 00;
+$var = 0.11;
+$var = 10.0;
+$var = -0;
+$var = -0.;
+$var = -10;
+$var = -0.0;
+$var = -10.0
+$var = -0.11;
+$var = +0;
+$var = +0.;
+$var = +10;
+$var = +0.0;
+$var = +10.0;
+$var = +0.11;
+$var = +.011;
+$var = .011;
+$var = -.011;
+
+#-----------------------------------------------------------------------------
+
+## name Basic failure
+## failures 12
+## cut
+
+$var = 01;
+$var = 010;
+$var = 001;
+$var = 0010;
+$var = -01;
+$var = -010;
+$var = -001;
+$var = -0010;
+$var = +01;
+$var = +010;
+$var = +001;
+$var = +0010;
+
+#-----------------------------------------------------------------------------
+
+## name chmod
+## failures 0
+## cut
+
+$cnt = chmod 0755, 'foo', 'bar';
+chmod 0755, @executables;
+
+$cnt = chmod ( 0755, 'foo', 'bar' );
+chmod ( 0755, @executables );
+
+#-----------------------------------------------------------------------------
+
+## name chmod with strict option
+## failures 4
+## parms { strict => 1 }
+## cut
+
+$cnt = chmod 0755, 'foo', 'bar';
+chmod 0755, @executables;
+
+$cnt = chmod ( 0755, 'foo', 'bar' );
+chmod ( 0755, @executables );
+
+#-----------------------------------------------------------------------------
+
+## name dbmopen
+## failures 0
+## cut
+
+dbmopen %database, 'foo.db', 0600;
+dbmopen ( %database, 'foo.db', 0600 );
+
+#-----------------------------------------------------------------------------
+
+## name dbmopen with strict option
+## failures 2
+## parms { strict => 1 }
+## cut
+
+dbmopen %database, 'foo.db', 0600;
+dbmopen ( %database, 'foo.db', 0600 );
+
+#-----------------------------------------------------------------------------
+
+## name mkdir
+## failures 0
+## cut
+
+mkdir $directory, 0755;
+mkdir ( $directory, 0755 );
+
+#-----------------------------------------------------------------------------
+
+## name mkdir with strict option
+## failures 2
+## parms { strict => 1 }
+## cut
+
+mkdir $directory, 0755;
+mkdir ( $directory, 0755 );
+
+#-----------------------------------------------------------------------------
+
+## name sysopen
+## failures 0
+## cut
+
+sysopen $filehandle, $filename, O_RDWR, 0666;
+sysopen ( $filehandle, $filename, O_WRONLY | O_CREAT | O_EXCL, 0666 );
+sysopen ( $filehandle, $filename, (O_WRONLY | O_CREAT | O_EXCL), 0666 );
+
+#-----------------------------------------------------------------------------
+
+## name sysopen with strict option
+## failures 3
+## parms { strict => 1 }
+## cut
+
+sysopen $filehandle, $filename, O_RDWR, 0666;
+sysopen ( $filehandle, $filename, O_WRONLY | O_CREAT | O_EXCL, 0666 );
+sysopen ( $filehandle, $filename, (O_WRONLY | O_CREAT | O_EXCL), 0666 );
+
+#-----------------------------------------------------------------------------
+
+## name umask
+## failures 0
+## cut
+
+umask 002;
+umask ( 002 );
+
+#-----------------------------------------------------------------------------
+
+## name umask with strict option
+## failures 2
+## parms { strict => 1 }
+## cut
+
+umask 002;
+umask ( 002 );
+
+#-----------------------------------------------------------------------------
+
+##############################################################################
+#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitLeadingZeros.run $
+#     $Date: 2008-06-22 16:23:43 -0700 (Sun, 22 Jun 2008) $
+#   $Author: clonezone $
+# $Revision: 2475 $
+##############################################################################
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 78
+#   indent-tabs-mode: nil
+#   c-indentation-style: bsd
+# End:
+# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :