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

   1 ## name basic failures
   2 ## failures 7
   3 ## cut
   4
   5 #print $fh;           #Punt on this
   6 #print $fh if 1;
   7 print $fh "something" . "something else";
   8 print $fh generate_report();
   9 print $fh "something" if $DEBUG;
  10 print $fh @list;
  11 print $fh $foo, $bar;
  12 print( $fh @list );
  13 print( $fh $foo, $bar );
  14
  15 #-----------------------------------------------------------------------------
  16
  17 ## name more arcane passes
  18 ## failures 0
  19 ## cut
  20 print "something" . "something else";
  21 print "something" . "something else"
  22   or die;
  23 print {FH} "something" . "something else";
  24 print {FH} "something" . "something else"
  25   or die;
  26
  27 print generate_report();
  28 print generate_report()
  29   or die;
  30 print {FH} generate_report();
  31 print {FH} generate_report()
  32   or die;
  33
  34 print rand 10;
  35 print rand 10
  36   or die;
  37
  38 print {FH};
  39 print {FH}
  40   or die;
  41 print {FH} @list;
  42 print {FH} @list
  43   or die;
  44 print {FH} $foo, $bar;
  45 print {FH} $foo, $bar
  46   or die;
  47
  48 print @list;
  49 print @list
  50   or die;
  51 print $foo, $bar;
  52 print $foo, $bar
  53   or die;
  54 print $foo , $bar;
  55 print $foo , $bar
  56   or die;
  57 print foo => 1;
  58 print foo => 1
  59   or die;
  60
  61 print( {FH} @list );
  62 print( {FH} @list )
  63   or die;
  64 print( {FH} $foo, $bar );
  65 print( {FH} $foo, $bar )
  66   or die;
  67
  68 print();
  69 print()
  70   or die;
  71 print( );
  72 print( )
  73   or die;
  74 print( @list );
  75 print( @list )
  76   or die;
  77 print( $foo, $bar );
  78 print( $foo, $bar )
  79   or die;
  80
  81 print if 1;
  82 print or die if 1;
  83
  84 print 1 2; # syntax error, but not a policy violation
  85 $foo{print}; # not a function call
  86 {print}; # no siblings
  87
  88 #-----------------------------------------------------------------------------
  89
  90 ## name more bracing arcana
  91 ## failures 0
  92 ## cut
  93
  94 print {$fh};
  95 print {$fh} @list;
  96 print {$fh} $foo, $bar;
  97 print( {$fh} @list );
  98 print( {$fh} $foo, $bar );