This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
re/regexp_nonull.t: Skip if no APItest built
authorKarl Williamson <khw@cpan.org>
Sat, 23 May 2020 14:12:48 +0000 (08:12 -0600)
committerSawyer X <xsawyerx@cpan.org>
Wed, 27 May 2020 08:09:32 +0000 (11:09 +0300)
This moves the require to the file that actually uses it, and checks
that it succeeded.

t/re/regexp.t
t/re/regexp_nonull.t

index 3081bd5..fee1a48 100644 (file)
@@ -91,6 +91,10 @@ no warnings 'experimental::vlb';
 our ($bang, $ffff, $nulnul); # used by the tests
 our ($qr, $skip_amp, $qr_embed, $qr_embed_thr, $regex_sets, $alpha_assertions, $no_null); # set by our callers
 
+if ($no_null && ! eval { require XS::APItest }) {
+    print("1..0 # Skip XS::APItest not available\n"), exit
+}
+
 my $expanded_text = "expanded name from original test number";
 my $expanded_text_re = qr/$expanded_text/;
 
index 885ef0f..979af25 100644 (file)
@@ -7,7 +7,6 @@ print("1..0 # Skip No XS::APItest under miniperl\n"), exit 0 if
   !defined &DynaLoader::boot_DynaLoader;
 
 $no_null = 1;
-require XS::APItest;
 for $file ('./re/regexp.t', './t/re/regexp.t', ':re:regexp.t') {
   if (-r $file) {
     do $file or die $@;