From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 16 May 1998 17:53:16 +0000 (+0000)
Subject: [win32] add a test to check return value from successful s/// (there was none!)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2216f30a5dac149d1cc2bcb601b9e69c1ff374bf;p=p5sagit%2Fp5-mst-13.2.git

[win32] add a test to check return value from successful s/// (there was none!)

p4raw-id: //depot/win32/perl@1001
---

diff --git a/t/op/subst.t b/t/op/subst.t
index 4fd00d5..248aa71 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");