Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

various fixes to tests to make perl 5.8 happy

finish the work started on making Test::Output option
  • Loading branch information...
commit f5176f3373eea89886c9ee796885fa2f511866fb 1 parent af5739b
@scrottie authored
Showing with 12 additions and 5 deletions.
  1. +8 −2 t/pack.t
  2. +0 −1  t/print.t
  3. +0 −1  t/sprintf.t
  4. +4 −1 t/unpack.t
View
10 t/pack.t
@@ -4,5 +4,11 @@ use warnings;
use autobox::Core;
-is 'nN'->pack(42, 4711), pack('nN', 42, 4711);
-is '(sl)<'->pack(-42, 4711), pack('(sl)<', -42, 4711);
+SKIP: {
+ # XXX this and pack.t could use a counterpart that works on 5.8 but this is so utterly non-urgent -- sdw
+ skip "Only for 5.10", 1, if $] < 5.010;
+ is 'nN'->pack(42, 4711), pack('nN', 42, 4711);
+ is '(sl)<'->pack(-42, 4711), pack('(sl)<', -42, 4711);
+};
+
+ok(1);
View
1  t/print.t
@@ -1,5 +1,4 @@
use Test::More qw(no_plan);
-use Test::Output;
use strict;
use warnings;
View
1  t/sprintf.t
@@ -1,5 +1,4 @@
use Test::More qw(no_plan);
-use Test::Output;
use strict;
use warnings;
View
5 t/unpack.t
@@ -4,4 +4,7 @@ use warnings;
use autobox::Core;
-is 'W'->unpack("foo"), unpack('W', "foo");
+SKIP: {
+ skip "Only for 5.10", 1, if $] < 5.010;
+ is 'W'->unpack("foo"), unpack('W', "foo");
+};
Please sign in to comment.
Something went wrong with that request. Please try again.