skip the defined *+ and *- tests on miniperl
authorTony Cook <tony@develop-help.com>
Mon, 22 Aug 2011 13:44:19 +0000 (23:44 +1000)
committerTony Cook <tony@develop-help.com>
Mon, 22 Aug 2011 13:44:19 +0000 (23:44 +1000)
using either attempts to load Tie::Hash::NamedCapture which may not be
available in miniperl.

t/op/magic.t

index 37a1754..d7c1709 100644 (file)
@@ -14,6 +14,8 @@ BEGIN {
 # $SIG{__WARN__}, to avoid invalidating the tests.  warnings.pm currently
 # does not mention any special variables, but that could easily change.
 BEGIN {
 # $SIG{__WARN__}, to avoid invalidating the tests.  warnings.pm currently
 # does not mention any special variables, but that could easily change.
 BEGIN {
+    # not available in miniperl
+    my %non_mini = map { $_ => 1 } qw(+ -);
     for (qw(
        SIG ^OPEN ^TAINT ^UNICODE ^UTF8LOCALE ^WARNING_BITS 1 2 3 4 5 6 7 8
        9 42 & ` ' : ? ! _ - # [ ^ ~ = % . ( ) < > \ / $ | + ; ] ^A ^C ^D
     for (qw(
        SIG ^OPEN ^TAINT ^UNICODE ^UTF8LOCALE ^WARNING_BITS 1 2 3 4 5 6 7 8
        9 42 & ` ' : ? ! _ - # [ ^ ~ = % . ( ) < > \ / $ | + ; ] ^A ^C ^D
@@ -26,7 +28,12 @@ BEGIN {
                $_ = chr ord() - 64;
            }
        }
                $_ = chr ord() - 64;
            }
        }
-       ok defined *$v, "*$_ appears to be defined at the outset"
+       SKIP:
+       {
+           skip_if_miniperl("the module for *$_ may not be available in "
+                            . "miniperl", 1) if $non_mini{$_};
+           ok defined *$v, "*$_ appears to be defined at the outset";
+       }
     }
 }
 
     }
 }