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

   1 ## name standard failures
   2 ## failures 4
   3 ## cut
   4 format STDOUT =
   5 @<<<<<<   @||||||   @>>>>>>
   6 "left",   "middle", "right"
   7 .
   8
   9 format =
  10 @<<<<<<   @||||||   @>>>>>>
  11 "foo",   "bar",     "baz"
  12 .
  13
  14 format REPORT_TOP =
  15                                 Passwd File
  16 Name                Login    Office   Uid   Gid Home
  17 ------------------------------------------------------------------
  18 .
  19 format REPORT =
  20 @<<<<<<<<<<<<<<<<<< @||||||| @<<<<<<@>>>> @>>>> @<<<<<<<<<<<<<<<<<
  21 $name,              $login,  $office,$uid,$gid, $home
  22 .
  23
  24 #-----------------------------------------------------------------------------
  25
  26 ## name basic passes
  27 ## failures 0
  28 ## cut
  29 $hash{format} = 'foo';
  30 %hash = ( format => 'baz' );
  31 $object->format();