diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-16 17:53:16 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-05-16 17:53:16 +0000 |
| commit | 2216f30a5dac149d1cc2bcb601b9e69c1ff374bf (patch) | |
| tree | bb68b2d74e5c4efc0613fabdcfb146b998a23946 /t/op/subst.t | |
| parent | f878fbec0f3fac7e674b5c48a29bb093a47749b9 (diff) | |
| download | perl-2216f30a5dac149d1cc2bcb601b9e69c1ff374bf.tar.gz | |
[win32] add a test to check return value from successful s/// (there was none!)
p4raw-id: //depot/win32/perl@1001
Diffstat (limited to 't/op/subst.t')
| -rwxr-xr-x | t/op/subst.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index 4fd00d5067..248aa71b9d 100755 --- a/t/op/subst.t +++ b/t/op/subst.t @@ -2,7 +2,7 @@ # $RCSfile: s.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:22 $ -print "1..68\n"; +print "1..69\n"; $x = 'foo'; $_ = "x"; @@ -267,3 +267,6 @@ $_="baacbaa"; tr/a/b/s; print $_ eq "bbcbb" ? "ok 68\n" : "not ok 68 # `$_' ne `bbcbb'\n"; +# XXX TODO: Most tests above don't test return values of the ops. They should. +$_ = "ab"; +print (s/a/b/ == 1 ? "ok 69\n" : "not ok 69\n"); |