[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 (executable)
--- 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");