Remove unnecessary XS-APItest test boilerplate
authorFlorian Ragwitz <rafl@debian.org>
Sun, 19 Sep 2010 19:03:34 +0000 (21:03 +0200)
committerFlorian Ragwitz <rafl@debian.org>
Sun, 19 Sep 2010 23:17:50 +0000 (01:17 +0200)
If perl was configured without XS/APItest as an extension, make test and make
test_harness won't even run the tests anyway. Also, XS-APItest only lives in the
core, so it's only ever going to be tested there, making conditional tests
depending on $] unnecessary.

13 files changed:
ext/XS-APItest/t/call.t
ext/XS-APItest/t/exception.t
ext/XS-APItest/t/hash.t
ext/XS-APItest/t/my_cxt.t
ext/XS-APItest/t/op.t
ext/XS-APItest/t/printf.t
ext/XS-APItest/t/push.t
ext/XS-APItest/t/svpeek.t
ext/XS-APItest/t/svsetsv.t
ext/XS-APItest/t/temp_lv_sub.t
ext/XS-APItest/t/utf16_to_utf8.t
ext/XS-APItest/t/xs_special_subs.t
ext/XS-APItest/t/xs_special_subs_require.t

index 974bea6..9a84f88 100644 (file)
@@ -3,15 +3,6 @@
 # test the various call-into-perl-from-C functions
 # DAPM Aug 2004
 
-BEGIN {
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-       # Look, I'm using this fully-qualified variable more than once!
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
-}
-
 use warnings;
 use strict;
 
index bc2142d..f7b12db 100644 (file)
@@ -1,11 +1,3 @@
-BEGIN {
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
-}
-
 use Test::More tests => 12;
 
 BEGIN { use_ok('XS::APItest') };
index 6c822ee..5d28c7d 100644 (file)
@@ -1,18 +1,9 @@
 #!perl -w
 
-BEGIN {
-  require Config; import Config;
-  if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-    # Look, I'm using this fully-qualified variable more than once!
-    print "1..0 # Skip: XS::APItest was not built\n";
-    exit 0;
-  }
-}
-
 use strict;
 use utf8;
 use Tie::Hash;
-use Test::More 'no_plan';
+use Test::More;
 
 BEGIN {use_ok('XS::APItest')};
 
@@ -49,12 +40,12 @@ main_tests (\@keys, \@testkeys, ' [utf8 hash]');
   my $result = ($] > 5.009) ? undef : 1;
 
   is (XS::APItest::Hash::store(\%h, chr 258,  1), $result);
-    
+
   ok (!exists $h{$utf8_for_258},
       "hv_store doesn't insert a key with the raw utf8 on a tied hash");
 }
 
-if ($] > 5.009) {
+{
     my $strtab = strtab();
     is (ref $strtab, 'HASH', "The shared string table quacks like a hash");
     my $wibble = "\0";
@@ -94,7 +85,7 @@ foreach my $in ("", "N", "a\0b") {
     is ($got, $in, "test_share_unshare_pvn");
 }
 
-if ($] > 5.009) {
+{
     foreach ([\&XS::APItest::Hash::rot13_hash, \&rot13, "rot 13"],
             [\&XS::APItest::Hash::bitflip_hash, \&bitflip, "bitflip"],
            ) {
@@ -189,6 +180,7 @@ sub test_precomputed_hashes {
     }
 }
 
+done_testing;
 exit;
 
 ################################   The End   ################################
index f2e8722..4f890bc 100644 (file)
@@ -6,11 +6,6 @@
 my $threads;
 BEGIN {
     require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-       # Look, I'm using this fully-qualified variable more than once!
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
     $threads = $Config{'useithreads'};
     # must 'use threads' before 'use Test::More'
     eval 'use threads' if $threads;
index f1c7cca..8a92a24 100644 (file)
@@ -1,18 +1,5 @@
 #!perl -w
 
-BEGIN {
-  require Config; import Config;
-  if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-    # Look, I'm using this fully-qualified variable more than once!
-    print "1..0 # Skip: XS::APItest was not built\n";
-    exit 0;
-  }
-  if ($] < 5.009) {
-    print "1..0 # Skip: hints hash not present before 5.10.0\n";
-    exit 0;
-  }
-}
-
 use strict;
 use utf8;
 use Test::More 'no_plan';
index aca6335..76cc19f 100644 (file)
@@ -1,11 +1,3 @@
-BEGIN {
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
-}
-
 use Test::More tests => 11;
 
 BEGIN { use_ok('XS::APItest') };
index c160638..e8a4c03 100644 (file)
@@ -1,11 +1,3 @@
-BEGIN {
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
-}
-
 use Test::More tests => 9;
 
 BEGIN { use_ok('XS::APItest') };
index c5f8cb5..59851d3 100644 (file)
@@ -1,11 +1,3 @@
-BEGIN {
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
-}
-
 use strict;
 use warnings;
 
@@ -71,12 +63,9 @@ like (DPeek ($1), qr'^PVMG\("',                      ' $1');
   $VAR = "\xa8";
   is (DPeek ($VAR),    'PVIV("\250"\0)',       ' $VAR "\xa8"');
   is (DPeek (\$VAR),   '\PVIV("\250"\0)',      '\$VAR "\xa8"');
-  SKIP: {
-      $] <= 5.008001 and skip "UTF8 tests useless in this ancient perl version", 1;
-      $VAR = "a\x0a\x{20ac}";
-      is (DPeek ($VAR), 'PVIV("a\n\342\202\254"\0) [UTF8 "a\n\x{20ac}"]',
-                                                 ' $VAR "a\x0a\x{20ac}"');
-      }
+  $VAR = "a\x0a\x{20ac}";
+  is (DPeek ($VAR), 'PVIV("a\n\342\202\254"\0) [UTF8 "a\n\x{20ac}"]',
+                                       ' $VAR "a\x0a\x{20ac}"');
   $VAR = sub { "VAR" };
   is (DPeek ($VAR),    '\CV(__ANON__)',        ' $VAR sub { "VAR" }');
   is (DPeek (\$VAR),   '\\\CV(__ANON__)',      '\$VAR sub { "VAR" }');
index ae4e3a6..ea845e0 100644 (file)
@@ -1,11 +1,3 @@
-BEGIN {
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
-}
-
 use strict;
 use warnings;
 
@@ -15,13 +7,8 @@ BEGIN { use_ok('XS::APItest') };
 
 # I can't see a good way to easily get back perl-space diagnostics for these
 # I hope that this isn't a problem.
-if ($] > 5.009) {
-  ok(sv_setsv_cow_hashkey_core,
-     "With PERL_CORE sv_setsv does COW for shared hash key scalars");
-} else {
-  ok(!sv_setsv_cow_hashkey_core,
-     "With PERL_CORE on 5.8.x sv_setsv doesn't COW for shared hash key scalars");
-}
+ok(sv_setsv_cow_hashkey_core,
+   "With PERL_CORE sv_setsv does COW for shared hash key scalars");
 
 ok(!sv_setsv_cow_hashkey_notcore,
    "Without PERL_CORE sv_setsv doesn't COW for shared hash key scalars");
index 6a11452..b45e27b 100644 (file)
@@ -1,14 +1,5 @@
 #!perl -w
 
-BEGIN {
-  require Config; import Config;
-  if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-    # Look, I'm using this fully-qualified variable more than once!
-    print "1..0 # Skip: XS::APItest was not built\n";
-    exit 0;
-  }
-}
-
 use strict;
 use utf8;
 use Test::More tests => 5;
index 40a6288..1829dd5 100644 (file)
@@ -1,7 +1,7 @@
 #!perl -w
 
 use strict;
-use Test::More 'no_plan';
+use Test::More;
 use Encode;
 
 use XS::APItest qw(utf16_to_utf8 utf16_to_utf8_reversed);
@@ -63,3 +63,4 @@ like($@, qr/^Malformed UTF-16 surrogate at/, 'Lone surrogate croaks');
 (ok(!defined $got, 'hence eval returns undef')) or
     diag(join ', ', map {ord $_} split //, $got);
 
+done_testing;
index e058a22..c4c0cbb 100644 (file)
@@ -1,23 +1,13 @@
 #!perl -w
 
 BEGIN {
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
-    # Hush the used only once warning.
     no warnings 'once';
     $XS::APItest::WARNINGS_ON_BOOTSTRAP = 1;
 }
 
 use strict;
 use warnings;
-my $uc;
-BEGIN {
-    $uc = $] > 5.009;
-}
-use Test::More tests => $uc ? 100 : 80;
+use Test::More tests => 100;
 
 # Doing this longhand cut&paste makes it clear
 # BEGIN and INIT are FIFO, CHECK and END are LIFO
@@ -25,10 +15,8 @@ BEGIN {
     print "# First BEGIN\n";
     is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
     is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
-    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called")
-       if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called")
-       if $uc;
+    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
+    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called");
     is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
     is($XS::APItest::INIT_called, undef, "INIT not yet called");
@@ -41,8 +29,8 @@ CHECK {
     print "# First CHECK\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
     is($XS::APItest::CHECK_called, 1, "CHECK called");
     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
     is($XS::APItest::INIT_called, undef, "INIT not yet called");
@@ -55,8 +43,8 @@ INIT {
     print "# First INIT\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
     is($XS::APItest::CHECK_called, 1, "CHECK called");
     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
     is($XS::APItest::INIT_called, undef, "INIT not yet called");
@@ -69,8 +57,8 @@ END {
     print "# First END\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
     is($XS::APItest::CHECK_called, 1, "CHECK called");
     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
     is($XS::APItest::INIT_called, 1, "INIT called");
@@ -82,8 +70,8 @@ END {
 print "# First body\n";
 is($XS::APItest::BEGIN_called, 1, "BEGIN called");
 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
 is($XS::APItest::CHECK_called, 1, "CHECK called");
 is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
 is($XS::APItest::INIT_called, 1, "INIT called");
@@ -96,8 +84,8 @@ use XS::APItest;
 print "# Second body\n";
 is($XS::APItest::BEGIN_called, 1, "BEGIN called");
 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
 is($XS::APItest::CHECK_called, 1, "CHECK called");
 is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
 is($XS::APItest::INIT_called, 1, "INIT called");
@@ -109,8 +97,8 @@ BEGIN {
     print "# Second BEGIN\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
     is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
     is($XS::APItest::INIT_called, undef, "INIT not yet called");
@@ -123,8 +111,8 @@ CHECK {
     print "# Second CHECK\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK yet called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK yet called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK yet called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK yet called");
     is($XS::APItest::CHECK_called, undef, "CHECK not yet called");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not yet called");
     is($XS::APItest::INIT_called, undef, "INIT not yet called");
@@ -137,8 +125,8 @@ INIT {
     print "# Second INIT\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
     is($XS::APItest::CHECK_called, 1, "CHECK called");
     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
     is($XS::APItest::INIT_called, 1, "INIT called");
@@ -151,8 +139,8 @@ END {
     print "# Second END\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
     is($XS::APItest::CHECK_called, 1, "CHECK called");
     is($XS::APItest::CHECK_called_PP, 1, "CHECK called");
     is($XS::APItest::INIT_called, 1, "INIT called");
index c9890ff..49604a5 100644 (file)
@@ -1,10 +1,5 @@
 #!perl -w
 BEGIN {
-    require Config; import Config;
-    if ($Config{'extensions'} !~ /\bXS\/APItest\b/) {
-        print "1..0 # Skip: XS::APItest was not built\n";
-        exit 0;
-    }
     # Hush the used only once warning.
     no warnings 'once';
     $XS::APItest::WARNINGS_ON_BOOTSTRAP = 1;
@@ -12,11 +7,7 @@ BEGIN {
 
 use strict;
 use warnings;
-my $uc;
-BEGIN {
-    $uc = $] > 5.009;
-}
-use Test::More tests => $uc ? 103 : 83;
+use Test::More tests => 103;
 
 # Doing this longhand cut&paste makes it clear
 # BEGIN and INIT are FIFO, CHECK and END are LIFO
@@ -24,10 +15,8 @@ BEGIN {
     print "# First BEGIN\n";
     is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
     is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
-    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called")
-       if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called")
-       if $uc;
+    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
+    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called");
     is($XS::APItest::CHECK_called, undef, "CHECK not called");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not called");
     is($XS::APItest::INIT_called, undef, "INIT not called");
@@ -40,10 +29,8 @@ CHECK {
     print "# First CHECK\n";
     is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
     is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
-    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called")
-       if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called")
-       if $uc;
+    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
+    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called");
     is($XS::APItest::CHECK_called, undef, "CHECK not called (too late)");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not called (too late)");
     is($XS::APItest::INIT_called, undef, "INIT not called");
@@ -56,10 +43,8 @@ INIT {
     print "# First INIT\n";
     is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
     is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
-    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called")
-       if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called")
-       if $uc;
+    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
+    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called");
     is($XS::APItest::CHECK_called, undef, "CHECK not called (too late)");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not called (too late)");
     is($XS::APItest::INIT_called, undef, "INIT not called");
@@ -72,8 +57,8 @@ END {
     print "# First END\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
     is($XS::APItest::CHECK_called, undef, "CHECK not called (too late)");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not called (too late)");
     is($XS::APItest::INIT_called, undef, "INIT not called (too late)");
@@ -85,8 +70,8 @@ END {
 print "# First body\n";
 is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
 is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
-is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called") if $uc;
-is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called") if $uc;
+is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
+is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called");
 is($XS::APItest::CHECK_called, undef, "CHECK not called (too late)");
 is($XS::APItest::CHECK_called_PP, undef, "CHECK not called (too late)");
 is($XS::APItest::INIT_called, undef, "INIT not called (too late)");
@@ -108,8 +93,8 @@ is($XS::APItest::END_called_PP, undef, "END not yet called");
 print "# Second body\n";
 is($XS::APItest::BEGIN_called, 1, "BEGIN called");
 is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");;
+is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
 is($XS::APItest::CHECK_called, undef, "CHECK not called (too late)");
 is($XS::APItest::CHECK_called_PP, undef, "CHECK not called (too late)");
 is($XS::APItest::INIT_called, undef, "INIT not called (too late)");
@@ -121,10 +106,8 @@ BEGIN {
     print "# Second BEGIN\n";
     is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
     is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
-    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called")
-       if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called")
-       if $uc;
+    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
+    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not called");
     is($XS::APItest::CHECK_called, undef, "CHECK not called");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not called");
     is($XS::APItest::INIT_called, undef, "INIT not called");
@@ -137,10 +120,8 @@ CHECK {
     print "# Second CHECK\n";
     is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
     is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
-    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called")
-       if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called")
-       if $uc;
+    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
+    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called");
     is($XS::APItest::CHECK_called, undef, "CHECK not called");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not called");
     is($XS::APItest::INIT_called, undef, "INIT not called");
@@ -153,10 +134,8 @@ INIT {
     print "# Second INIT\n";
     is($XS::APItest::BEGIN_called, undef, "BEGIN not yet called");
     is($XS::APItest::BEGIN_called_PP, undef, "BEGIN not yet called");
-    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called")
-       if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called")
-       if $uc;
+    is($XS::APItest::UNITCHECK_called, undef, "UNITCHECK not yet called");
+    is($XS::APItest::UNITCHECK_called_PP, undef, "UNITCHECK not yet called");
     is($XS::APItest::CHECK_called, undef, "CHECK not called (too late)");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not called (too late)");
     is($XS::APItest::INIT_called, undef, "INIT not called (too late)");
@@ -169,8 +148,8 @@ END {
     print "# Second END\n";
     is($XS::APItest::BEGIN_called, 1, "BEGIN called");
     is($XS::APItest::BEGIN_called_PP, 1, "BEGIN called");
-    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called") if $uc;
-    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called") if $uc;
+    is($XS::APItest::UNITCHECK_called, 1, "UNITCHECK called");
+    is($XS::APItest::UNITCHECK_called_PP, 1, "UNITCHECK called");
     is($XS::APItest::CHECK_called, undef, "CHECK not called (too late)");
     is($XS::APItest::CHECK_called_PP, undef, "CHECK not called (too late)");
     is($XS::APItest::INIT_called, undef, "INIT not called (too late)");