This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Correct the skip count for t/op/switch.t under minitest.
authorNicholas Clark <nick@ccl4.org>
Fri, 25 Feb 2011 14:56:20 +0000 (14:56 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 6 Mar 2011 09:13:49 +0000 (09:13 +0000)
Skip this section unconditionally under miniperl, rather than assuming that
Scalar::Util will fall back to a pure perl version if "installed" in lib/, but
dynamic loading is unavailable.

t/op/switch.t

index a7123cb..bcf77d4 100644 (file)
@@ -784,8 +784,7 @@ sub contains_x {
 }
 
 SKIP: {
-    skip "Scalar/Util.pm not yet available", 20
-       unless -r "$INC[0]/Scalar/Util.pm";
+    skip_if_miniperl("no dynamic loading on miniperl, no Scalar::Util", 14);
     # Test overloading
     { package OverloadTest;