Commit | Line | Data |
8d063cd8 |
1 | #!./perl |
2 | |
79072805 |
3 | # $RCSfile: chop.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:40 $ |
8d063cd8 |
4 | |
a687059c |
5 | print "1..4\n"; |
8d063cd8 |
6 | |
7 | # optimized |
8 | |
9 | $_ = 'abc'; |
10 | $c = do foo(); |
a687059c |
11 | if ($c . $_ eq 'cab') {print "ok 1\n";} else {print "not ok 1 $c$_\n";} |
8d063cd8 |
12 | |
13 | # unoptimized |
14 | |
15 | $_ = 'abc'; |
16 | $c = chop($_); |
17 | if ($c . $_ eq 'cab') {print "ok 2\n";} else {print "not ok 2\n";} |
18 | |
19 | sub foo { |
20 | chop; |
21 | } |
a687059c |
22 | |
23 | @foo = ("hi \n","there\n","!\n"); |
24 | @bar = @foo; |
25 | chop(@bar); |
26 | print join('',@bar) eq 'hi there!' ? "ok 3\n" : "not ok 3\n"; |
27 | |
28 | $foo = "\n"; |
29 | chop($foo,@foo); |
30 | print join('',$foo,@foo) eq 'hi there!' ? "ok 4\n" : "not ok 4\n"; |