git.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ValuesAndExpressions/RequireNumberSeparators.run

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 $var = 12;
   6 $var = 1234;
   7 $var = 1_234;
   8 $var = 1_234.01;
   9 $var = 1_234_567;
  10 $var = 1_234_567.;
  11 $var = 1_234_567.890_123;
  12 $var = -1_234;
  13 $var = -1_234.01;
  14 $var = -1_234_567;
  15 $var = -1_234_567.;
  16 $var = -1_234_567.890_123;
  17 $var = +1_234;
  18 $var = +1_234.01;
  19 $var = +1_234_567;
  20 $var = +1_234_567.;
  21 $var = +1_234_567.890_123;
  22
  23 #-----------------------------------------------------------------------------
  24
  25 ## name Basic failure
  26 ## failures 12
  27 ## cut
  28
  29 $var = 1234_567;
  30 $var = 1234_567.;
  31 $var = 1234_567.890;
  32 $var = -1234_567.8901;
  33 $var = -1234_567;
  34 $var = -1234_567.;
  35 $var = -1234_567.890;
  36 $var = -1234_567.8901;
  37 $var = +1234_567;
  38 $var = +1234_567.;
  39 $var = +1234_567.890;
  40 $var = +1234_567.8901;
  41
  42 is( pcritique($policy, \$code), 12, $policy);
  43
  44 #-----------------------------------------------------------------------------
  45
  46 ## name Below configuration minimum passing
  47 ## failures 0
  48 ## parms {min_value => 1_000_000}
  49 ## cut
  50
  51 $var = 999999;
  52 $var = 123456;
  53 $var = 100000.01;
  54 $var = 10_000.01;
  55 $var = 100_000.01;
  56 $var = -999999;
  57 $var = -123456;
  58 $var = -100000.01;
  59 $var = -10_000.01;
  60 $var = -100_000.01;
  61
  62 #-----------------------------------------------------------------------------
  63
  64 ## name Above configuration minimum failure
  65 ## failures 9
  66 ## parms {min_value => 1_000_000}
  67 ## cut
  68
  69 $var = 1000001;
  70 $var = 1000000.01;
  71 $var = 1000_000.01;
  72 $var = 10000_000.01;
  73 $var = -1000001;
  74 $var = -1234567;
  75 $var = -1000000.01;
  76 $var = -1000_000.01;
  77 $var = -10000_000.01;
  78
  79 #-----------------------------------------------------------------------------
  80
  81 ##############################################################################
  82 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/RequireNumberSeparators.run $
  83 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  84 #   $Author: clonezone $
  85 # $Revision: 2187 $
  86 ##############################################################################
  87
  88 # Local Variables:
  89 #   mode: cperl
  90 #   cperl-indent-level: 4
  91 #   fill-column: 78
  92 #   indent-tabs-mode: nil
  93 #   c-indentation-style: bsd
  94 # End:
  95 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :