This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
constant: skip E2BIG test on GNU/Hurd
authorDominic Hargreaves <dom@earth.li>
Sat, 4 Jun 2016 13:36:26 +0000 (14:36 +0100)
committerDominic Hargreaves <dom@earth.li>
Sat, 4 Jun 2016 13:36:26 +0000 (14:36 +0100)
Hurd doesn't use 7 for E2BIG, so this string test would fail if the
test itself were more precise.

dist/constant/t/constant.t

index 00eddfb..6bf0da9 100644 (file)
@@ -92,11 +92,14 @@ is ZERO3, '0.0';
 cmp_ok(abs(PI - 3.1416), '<', 0.0001);
 is Other::PI, 3.141;
 
-use constant E2BIG => $! = 7;
-cmp_ok E2BIG, '==', 7;
-# This is something like "Arg list too long", but the actual message
-# text may vary, so we can't test much better than this.
-cmp_ok length(E2BIG), '>', 6;
+SKIP: {
+    skip "GNU/Hurd doesn't use 7 as E2BIG", 2 if $^O eq "gnu";
+    use constant E2BIG => $! = 7;
+    cmp_ok E2BIG, '==', 7;
+    # This is something like "Arg list too long", but the actual message
+    # text may vary, so we can't test much better than this.
+    cmp_ok length(E2BIG), '>', 6;
+}
 
 is @warnings, 0 or diag join "\n- ", "unexpected warning:", @warnings;
 @warnings = ();                # just in case