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

   1 ## name Basic failures
   2 ## failures 18
   3 ## cut
   4
   5 $string = `date`;
   6 @array = `date`;
   7 @array = ( `date` );
   8 @array = ( $foo, `date`, 'bar' );
   9 $array_ref = [ $foo, `date`, 'bar' ];
  10
  11 print `date`;
  12 print ( `date` );
  13
  14 if ( `date` ) {}
  15
  16 for ( `date` ) {}
  17
  18 $string = qx/date/;
  19 @array = qx/date/;
  20 @array = ( qx/date/ );
  21 @array = ( $foo, qx/date/, 'bar' );
  22 $array_ref = [ $foo, qx/date/, 'bar' ];
  23
  24 print qx/date/;
  25 print ( qx/date/ );
  26
  27 if ( qx/date/ ) {}
  28
  29 for ( qx/date/ ) {}
  30
  31 #-----------------------------------------------------------------------------
  32
  33 ## name Passing with only_in_void_context
  34 ## failures 0
  35 ## parms { only_in_void_context => 1 }
  36 ## cut
  37
  38 $string = `date`;
  39 @array = `date`;
  40 @array = ( `date` );
  41 @array = ( $foo, `date`, 'bar' );
  42 $array_ref = [ $foo, `date`, 'bar' ];
  43
  44 print `date`;
  45 print ( `date` );
  46
  47 if ( `date` ) {}
  48
  49 for ( `date` ) {}
  50
  51 $string = qx/date/;
  52 @array = qx/date/;
  53 @array = ( qx/date/ );
  54 @array = ( $foo, qx/date/, 'bar' );
  55 $array_ref = [ $foo, qx/date/, 'bar' ];
  56
  57 print qx/date/;
  58 print ( qx/date/ );
  59
  60 if ( qx/date/ ) {}
  61
  62 for ( qx/date/ ) {}
  63
  64 #-----------------------------------------------------------------------------
  65
  66 ## name Failure with only_in_void_context
  67 ## failures 4
  68 ## parms { only_in_void_context => 1 }
  69 ## cut
  70
  71 `date`;
  72 qx/date/;
  73
  74 if ( $blah ) { `date` }
  75 if ( $blah ) { qx/date/ }
  76
  77 ##############################################################################
  78 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/InputOutput/ProhibitBacktickOperators.run $
  79 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  80 #   $Author: clonezone $
  81 # $Revision: 2187 $
  82 ##############################################################################
  83
  84 # Local Variables:
  85 #   mode: cperl
  86 #   cperl-indent-level: 4
  87 #   fill-column: 78
  88 #   indent-tabs-mode: nil
  89 #   c-indentation-style: bsd
  90 # End:
  91 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :