From: François Désarménien <desar@club-internet.fr>
Date: Sun, 19 Jul 1998 12:28:33 +0000 (+0200)
Subject: add tests to check if context propagation works
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3409ec4ce64b7010eb757067ca270d504c3e0146;hp=c84d73f1f9f9cc1f8dd8d87123bb87479c2f2754;p=p5sagit%2Fp5-mst-13.2.git

add tests to check if context propagation works
	Message-ID: <35B1CA51.A606AD27@club-internet.fr>
	Subject: Re: m//g strange behaviour in 5.004

p4raw-id: //depot/perl@1599
---

diff --git a/MANIFEST b/MANIFEST
index 6c82f65..21c2f94 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -882,6 +882,7 @@ t/op/chop.t		See if chop works
 t/op/closure.t		See if closures work
 t/op/cmp.t		See if the various string and numeric compare work
 t/op/cond.t		See if conditional expressions work
+t/op/context.t		See if context propagation works
 t/op/defins.t		See if auto-insert of defined() works
 t/op/delete.t		See if delete works
 t/op/die.t		See if die works
diff --git a/t/op/context.t b/t/op/context.t
new file mode 100755
index 0000000..4625441
--- /dev/null
+++ b/t/op/context.t
@@ -0,0 +1,18 @@
+#!./perl
+
+$n=0;
+
+print "1..3\n";
+
+sub foo {
+    $a='abcd';
+
+    $a=~/(.)/g;
+
+    $1 eq 'a' or print 'not ';
+    print "ok ",++$n,"\n";
+}
+
+$a=foo;
+@a=foo;
+foo;