Skip tests that require perl-5.10

gisle · Oct 19, 2010 · b141032 · b141032
1 parent 5e9f889
commit b141032
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 2 deletions.
diff --git a/t/quote-unicode.t b/t/quote-unicode.t
@@ -8,7 +8,7 @@ BEGIN {
 }
 
 use strict;
-use Test qw(plan ok);
+use Test qw(plan ok skip);
 
 plan tests => 8;
 
@@ -25,5 +25,6 @@ $a = "";
 $a .= chr($_) for 128 .. 255;
 $a .= "\x{FFF}"; chop($a); # upgrade
 ok(utf8::is_utf8($a));
-ok(dump($a), 'pack("H*","' . join('', map sprintf("%02x", $_), 128..255). '")');
+skip($] < 5.010 ? "perl-5.10 required" : "",
+    dump($a), 'pack("H*","' . join('', map sprintf("%02x", $_), 128..255). '")');
 ok(utf8::is_utf8($a));
diff --git a/t/vstring.t b/t/vstring.t
@@ -1,5 +1,12 @@
 #!perl -w
 
+BEGIN {
+    if ($] < 5.010) {
+	print "1..0 # Skipped: perl-5.10 required\n";
+	exit;
+    }
+}
+
 use strict;
 use Test;
 plan tests => 9;