diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-01 05:21:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-01 05:21:36 +0000 |
| commit | 21d7e22a656cb024840f2ef05e8a28e500e7c91a (patch) | |
| tree | bbd8149dc499e1ca1907fb3438d96c274bbbefdd /t/japh | |
| parent | 6296ff1653680e59641083484bd40988ce5eb8bb (diff) | |
| download | perl-21d7e22a656cb024840f2ef05e8a28e500e7c91a.tar.gz | |
JAPH patch :-) from Abigail.
p4raw-id: //depot/perl@20407
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 |