diff options
| author | Inaba Hiroto <inaba@st.rim.or.jp> | 1998-01-11 00:53:33 +0900 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-03-02 03:13:32 +0000 |
| commit | f3ea7b5ee70397733e54550d64ca43f4288e744f (patch) | |
| tree | a0e574cfde47c08fdcee740bda0c7e0d76fc6e79 /t/op | |
| parent | ecca16b0cfe0c7f04ba520f2924946a13507530e (diff) | |
| download | perl-f3ea7b5ee70397733e54550d64ca43f4288e744f.tar.gz | |
[win32] still another
Subject: [PERL] tr///s bug
Message-Id: <19980110155333D.inaba@st.rim.or.jp>
p4raw-id: //depot/win32/perl@613
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/subst.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/t/op/subst.t b/t/op/subst.t index c6cfb8c96d..4fd00d5067 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..67\n"; +print "1..68\n"; $x = 'foo'; $_ = "x"; @@ -261,3 +261,9 @@ print $_ eq "foobarfoobbar" ? "ok 66\n" : "not ok 66 # `$_' ne `foobarfoobbar'\n eval 's{foo} # this is a comment, not a delimiter {bar};'; print @? ? "not ok 67\n" : "ok 67\n"; + +# check if squashing works at the end of string +$_="baacbaa"; +tr/a/b/s; +print $_ eq "bbcbb" ? "ok 68\n" : "not ok 68 # `$_' ne `bbcbb'\n"; + |