vcs.maemo.org Git - dh-make-perl/blob - dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/BuiltinFunctions/ProhibitSleepViaSelect.run

   1 ## name sleep, as list
   2 ## failures 1
   3 ## cut
   4
   5 select( undef, undef, undef, 0.25 );
   6
   7 #-----------------------------------------------------------------------------
   8
   9 ## name sleep, as list w/var
  10 ## failures 1
  11 ## cut
  12
  13 select( undef, undef, undef, $time );
  14
  15 #-----------------------------------------------------------------------------
  16
  17 ## name sleep, as built-in
  18 ## failures 1
  19 ## cut
  20
  21 select undef, undef, undef, 0.25;
  22
  23 #-----------------------------------------------------------------------------
  24
  25 ## name select on read
  26 ## failures 0
  27 ## cut
  28
  29 select $vec, undef, undef, 0.25;
  30
  31 #-----------------------------------------------------------------------------
  32
  33 ## name select on write
  34 ## failures 0
  35 ## cut
  36
  37 select undef, $vec, undef, 0.25;
  38
  39 #-----------------------------------------------------------------------------
  40
  41 ## name select on error
  42 ## failures 0
  43 ## cut
  44
  45 select undef, undef, $vec, 0.25;
  46
  47 #-----------------------------------------------------------------------------
  48
  49 ## name select as word
  50 ## failures 0
  51 ## cut
  52
  53 $foo{select};
  54
  55 #-----------------------------------------------------------------------------
  56
  57 ##############################################################################
  58 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/BuiltinFunctions/ProhibitSleepViaSelect.run $
  59 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  60 #   $Author: clonezone $
  61 # $Revision: 2187 $
  62 ##############################################################################
  63
  64 # Local Variables:
  65 #   mode: cperl
  66 #   cperl-indent-level: 4
  67 #   fill-column: 78
  68 #   indent-tabs-mode: nil
  69 #   c-indentation-style: bsd
  70 # End:
  71 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :