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 (executable)
--- 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 (file)
--- 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.
+