This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Break out the test for #27839 into a new test file.
authorNicholas Clark <nick@ccl4.org>
Mon, 21 Feb 2011 16:38:44 +0000 (16:38 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 21 Feb 2011 16:38:44 +0000 (16:38 +0000)
Skip the new t/op/magic-27839.t under minitest, as it mentions %+, which causes
the parser to attempt to load Tie::Hash::NamedCapture at *compile* time, which
causes miniperl to abort, as it doesn't support dynamic linking.

MANIFEST
t/op/magic-27839.t [new file with mode: 0644]
t/op/magic.t

index 0230231..756dd7c 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -4902,6 +4902,7 @@ t/op/localref.t                   See if local ${deref} works
 t/op/local.t                   See if local works
 t/op/loopctl.t                 See if next/last/redo work
 t/op/lop.t                     See if logical operators work
+t/op/magic-27839.t             Test for #27839, skipped for minitest
 t/op/magic_phase.t             See if ${^GLOBAL_PHASE} works
 t/op/magic.t                   See if magic variables work
 t/op/method.t                  See if method calls work
diff --git a/t/op/magic-27839.t b/t/op/magic-27839.t
new file mode 100644 (file)
index 0000000..3e877a4
--- /dev/null
@@ -0,0 +1,33 @@
+#!./perl -w
+
+BEGIN {
+    $SIG{__WARN__} = sub { die "Dying on warning: ", @_ };
+    require './test.pl';
+    skip_all_if_miniperl("no dynamic loading on miniperl, no Tie::Hash::NamedCapture");
+    plan(tests => 2);
+}
+
+use strict;
+
+# Test for bug [perl #27839]
+{
+    my $x;
+    sub f {
+       "abc" =~ /(.)./;
+       $x = "@+";
+       return @+;
+    };
+    "pqrstuvwxyz" =~ /..(....)../; # prime @+ etc in this scope
+    my @y = f();
+    is $x, "@y", "return a magic array ($x) vs (@y)";
+
+    sub f2 {
+       "abc" =~ /(?<foo>.)./;
+       my @h =  %+;
+       $x = "@h";
+       return %+;
+    };
+    @y = f();
+    is $x, "@y", "return a magic hash ($x) vs (@y)";
+}
+
index 4c7f70c..6951850 100644 (file)
@@ -12,7 +12,7 @@ BEGIN {
 use warnings;
 use Config;
 
-plan (tests => 85);
+plan (tests => 83);
 
 $Is_MSWin32  = $^O eq 'MSWin32';
 $Is_NetWare  = $^O eq 'NetWare';
@@ -480,28 +480,6 @@ is "@+", "10 1 6 10";
     ok $ok;
 }
 
-# Test for bug [perl #27839]
-{
-    my $x;
-    sub f {
-       "abc" =~ /(.)./;
-       $x = "@+";
-       return @+;
-    };
-    "pqrstuvwxyz" =~ /..(....)../; # prime @+ etc in this scope
-    my @y = f();
-    is $x, "@y", "return a magic array ($x) vs (@y)";
-
-    sub f2 {
-       "abc" =~ /(?<foo>.)./;
-       my @h =  %+;
-       $x = "@h";
-       return %+;
-    };
-    @y = f();
-    is $x, "@y", "return a magic hash ($x) vs (@y)";
-}
-
 # Test for bug [perl #36434]
 # Can not do this test on VMS, EPOC, and SYMBIAN according to comments
 # in mg.c/Perl_magic_clear_all_env()