X-Git-Url: http://git.maemo.org/git/?p=dh-make-perl;a=blobdiff_plain;f=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FMiscellanea%2FProhibitFormats.run;fp=dev%2Fi386%2Flibperl-critic-perl%2Flibperl-critic-perl-1.088%2Ft%2FMiscellanea%2FProhibitFormats.run;h=052e8d21f598a25af73a7adbbe2ec5e7e989526f;hp=0000000000000000000000000000000000000000;hb=da95c414033799c3a62606f299c3c00b5c77ca11;hpb=2d38e14bacbb15b98e539843a40b3c52a225f493

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Miscellanea/ProhibitFormats.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Miscellanea/ProhibitFormats.run
new file mode 100644
index 0000000..052e8d2
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Miscellanea/ProhibitFormats.run
@@ -0,0 +1,31 @@
+## name standard failures
+## failures 4
+## cut
+format STDOUT =
+@<<<<<<   @||||||   @>>>>>>
+"left",   "middle", "right"
+.
+
+format =
+@<<<<<<   @||||||   @>>>>>>
+"foo",   "bar",     "baz"
+.
+
+format REPORT_TOP =
+                                Passwd File
+Name                Login    Office   Uid   Gid Home
+------------------------------------------------------------------
+.
+format REPORT =
+@<<<<<<<<<<<<<<<<<< @||||||| @<<<<<<@>>>> @>>>> @<<<<<<<<<<<<<<<<<
+$name,              $login,  $office,$uid,$gid, $home
+.
+
+#-----------------------------------------------------------------------------
+
+## name basic passes
+## failures 0
+## cut
+$hash{format} = 'foo';
+%hash = ( format => 'baz' );
+$object->format();