diff options
Diffstat (limited to 't/japh')
-rw-r--r-- | t/japh/abigail.t | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/t/japh/abigail.t b/t/japh/abigail.t index 609294bac8..98a26de960 100644 --- a/t/japh/abigail.t +++ b/t/japh/abigail.t @@ -477,6 +477,7 @@ SKIP: Abuses a fixed bug. ####### Prototype fun 2 print prototype sub "Just another Perl Hacker" {}; +SKIP: Abuses a fixed bug. ####### Prototype fun 3 sub _ "Just another Perl Hacker"; print prototype \&_ @@ -486,18 +487,21 @@ sub _ "Just another Perl Hacker"; print prototype \&_ ${"@_"} = "/"; split // => eval join "+" => 1 .. 7; *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}}; %{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}}; +SKIP: Hashes are now randomized. EXPECT: $JaPH_s ####### Split 2 $" = "/"; split // => eval join "+" => 1 .. 7; *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}}; %_ = (Just => another => Perl => Hacker); &{%_}; +SKIP: Hashes are now randomized. EXPECT: $JaPH_s ####### Split 3 $" = "/"; split $, => eval join "+" => 1 .. 7; *{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}}; %{"@_"} = %_ = (Just => another => Perl => Hacker); &{%{%_}}; +SKIP: Hashes are now randomized. EXPECT: $JaPH_s ####### Here documents 1 |