3 # $Header: chop.t,v 4.0 91/03/20 01:51:42 lwall Locked $
11 if ($c . $_ eq 'cab') {print "ok 1\n";} else {print "not ok 1 $c$_\n";}
17 if ($c . $_ eq 'cab') {print "ok 2\n";} else {print "not ok 2\n";}
23 @foo = ("hi \n","there\n","!\n");
26 print join('',@bar) eq 'hi there!' ? "ok 3\n" : "not ok 3\n";
30 print join('',$foo,@foo) eq 'hi there!' ? "ok 4\n" : "not ok 4\n";