From 2216f30a5dac149d1cc2bcb601b9e69c1ff374bf Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sat, 16 May 1998 17:53:16 +0000
Subject: [PATCH] [win32] add a test to check return value from successful s///
 (there was none!)

p4raw-id: //depot/win32/perl@1001
---
 t/op/subst.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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");
-- 
2.7.4