t/cmd/for.t

   1 #!./perl
   2
   3 print "1..13\n";
   4
   5 for ($i = 0; $i <= 10; $i++) {
   6     $x[$i] = $i;
   7 }
   8 $y = $x[10];
   9 print "#1       :$y: eq :10:\n";
  10 $y = join(' ', @x);
  11 print "#1       :$y: eq :0 1 2 3 4 5 6 7 8 9 10:\n";
  12 if (join(' ', @x) eq '0 1 2 3 4 5 6 7 8 9 10') {
  13         print "ok 1\n";
  14 } else {
  15         print "not ok 1\n";
  16 }
  17
  18 $i = $c = 0;
  19 for (;;) {
  20         $c++;
  21         last if $i++ > 10;
  22 }
  23 if ($c == 12) {print "ok 2\n";} else {print "not ok 2\n";}
  24
  25 $foo = 3210;
  26 @ary = (1,2,3,4,5);
  27 foreach $foo (@ary) {
  28         $foo *= 2;
  29 }
  30 if (join('',@ary) eq '246810') {print "ok 3\n";} else {print "not ok 3\n";}
  31
  32 for (@ary) {
  33     s/(.*)/ok $1\n/;
  34 }
  35
  36 print $ary[1];
  37
  38 # test for internal scratch array generation
  39 # this also tests that $foo was restored to 3210 after test 3
  40 for (split(' ','a b c d e')) {
  41         $foo .= $_;
  42 }
  43 if ($foo eq '3210abcde') {print "ok 5\n";} else {print "not ok 5 $foo\n";}
  44
  45 foreach $foo (("ok 6\n","ok 7\n")) {
  46         print $foo;
  47 }
  48
  49 sub foo {
  50     for $i (1..5) {
  51         return $i if $_[0] == $i;
  52     }
  53 }
  54
  55 print foo(1) == 1 ? "ok" : "not ok", " 8\n";
  56 print foo(2) == 2 ? "ok" : "not ok", " 9\n";
  57 print foo(5) == 5 ? "ok" : "not ok", " 10\n";
  58
  59 sub bar {
  60     return (1, 2, 4);
  61 }
  62
  63 $a = 0;
  64 foreach $b (bar()) {
  65     $a += $b;
  66 }
  67 print $a == 7 ? "ok" : "not ok", " 11\n";
  68
  69 $loop_count = 0;
  70 for ("-3" .. "0") {
  71     $loop_count++;
  72 }
  73 print $loop_count == 4 ? "ok" : "not ok", " 12\n";
  74
  75 # modifying arrays in loops is a no-no
  76 @a = (3,4);
  77 eval { @a = () for (1,2,@a) };
  78 print $@ =~ /Use of freed value in iteration/ ? "ok" : "not ok", " 13\n";