From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 10 May 2002 03:26:11 +0000 (+0000)
Subject: Move the noisy tie core dump test to fresh_perl from op/tie.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=810d9308ad3234b6d649cdfae5bbe4bf70e41ce7;p=p5sagit%2Fp5-mst-13.2.git

Move the noisy tie core dump test to fresh_perl from op/tie.

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

diff --git a/t/op/tie.t b/t/op/tie.t
index 4eb0371..8b8eb64 100755
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -229,18 +229,6 @@ vec($b,1,1)=0;
 die unless $a eq $b;
 EXPECT
 ########
-# An attempt at lvalueable barewords broke this
-
-tie FH, 'main';
-EXPECT
-
-########
-# TODO An attempt at lvalueable barewords broke this
-
-tie FH, 'main';
-EXPECT
-
-########
 # correct unlocalisation of tied hashes (patch #16431)
 use Tie::Hash ;
 tie %tied, Tie::StdHash;
diff --git a/t/run/fresh_perl.t b/t/run/fresh_perl.t
index ad0f363..d49cddc 100644
--- a/t/run/fresh_perl.t
+++ b/t/run/fresh_perl.t
@@ -811,3 +811,10 @@ $人++; # a child is born
 print $人, "\n";
 EXPECT
 3
+########
+# TODO An attempt at lvalueable barewords broke this
+tie FH, 'main';
+EXPECT
+Can't modify constant item in tie at - line 2, near "'main';"
+Execution of - aborted due to compilation errors.
+