diff options
| author | Nicholas Clark <nick@ccl4.org> | 2011-02-21 16:22:26 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2011-02-21 16:22:26 +0000 |
| commit | e77ae8257b459e28dc9dc5b904c37c9a7ae3f1fb (patch) | |
| tree | 61df98acf97a65c0705a7d261f2632b19b1b6896 /t/op/goto.t | |
| parent | 19d240ff438dd796b16a9279823670e060f1a152 (diff) | |
| download | perl-e77ae8257b459e28dc9dc5b904c37c9a7ae3f1fb.tar.gz | |
Under minitest, skip tests in op/g{oto,v}.t that need PerlIO::scalar.
Diffstat (limited to 't/op/goto.t')
| -rw-r--r-- | t/op/goto.t | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/t/op/goto.t b/t/op/goto.t index 075def609b..5fa3116e0b 100644 --- a/t/op/goto.t +++ b/t/op/goto.t @@ -500,12 +500,15 @@ format CHOLET = wellington . $foo .= "(1)"; -my $cholet; -open(CHOLET, ">", \$cholet); -write CHOLET; -close CHOLET; -$foo .= "(".$cholet.")"; -is($foo, "(0)(1)(wellington\n)", "label before format decl"); +SKIP: { + skip_if_miniperl("no dynamic loading on miniperl, so can't load PerlIO::scalar", 1); + my $cholet; + open(CHOLET, ">", \$cholet); + write CHOLET; + close CHOLET; + $foo .= "(".$cholet.")"; + is($foo, "(0)(1)(wellington\n)", "label before format decl"); +} $foo = "(A)"; if($foo eq $foo) { |