1#!./perl 2 3# $RCSfile: flip.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:52 $ 4 5print "1..8\n"; 6 7@a = (1,2,3,4,5,6,7,8,9,10,11,12); 8 9while ($_ = shift(a)) { 10 if ($x = /4/../8/) { $z = $x; print "ok ", $x + 0, "\n"; } 11 $y .= /1/../2/; 12} 13 14if ($z eq '5E0') {print "ok 6\n";} else {print "not ok 6\n";} 15 16if ($y eq '12E0123E0') {print "ok 7\n";} else {print "not ok 7\n";} 17 18@a = ('a','b','c','d','e','f','g'); 19 20open(of,'../Configure'); 21while (<of>) { 22 (3 .. 5) && ($foo .= $_); 23} 24$x = ($foo =~ y/\n/\n/); 25 26if ($x eq 3) {print "ok 8\n";} else {print "not ok 8 $x:$foo:\n";} 27