add test of XS loading other XS, using C symbols within

Author: mohawk2

t/lib/MakeMaker/Test/Setup/XS.pm

@@ -179,6 +179,91 @@ $label2files{subdirs} = +{
 };
 virtual_rename('subdirs', 'lib/XS/Test.pm', 'Test.pm');
 
+# to mimic ExtUtils::Depends-facilitated B::Hooks::OP::Check
+$label2files{eud_produce} = +{
+  %{ $label2files{basic} }, # make copy
+  'Makefile.PL' => sprintf(
+    $MAKEFILEPL, 'Other', 'Other.pm', qq{},
+    q{
+      DEFINE => '-DINVAR=input',
+      FUNCLIST => [qw(is_odd)],
+      DL_FUNCS => { 'XS::Other' => [] },
+    },
+  ),
+  'Other.pm' => do {
+    my $t = $PM_OTHER; $t =~ s:bootstrap:sub dl_load_flags { 0x01 }\n$&:g; $t
+  },
+  'Other.xs' => $XS_OTHER,
+  't/is_even.t' => $T_OTHER,
+};
+delete @{ $label2files{eud_produce} }{qw(lib/XS/Test.pm Test.xs)};
+
+# to mimic ExtUtils::Depends-facilitated consuming B::Hooks::OP::Check
+$label2files{eud_consume} = +{
+  %{ $label2files{basic} }, # make copy
+  'Makefile.PL' => <<'EOF' .
+use File::Spec::Functions;
+my $root; BEGIN {$root = catdir(updir, qw(XS-Testeud_produce blib arch));}
+EOF
+    sprintf(
+      $MAKEFILEPL, 'Test', 'Test.pm', qq{},
+      q{
+        DEFINE => '-DINVAR=input',
+        LDFROM => join(' ', '$(OBJECT)', map _quote_if_space($_), find_extra_libs({'XS::Other'=>undef}, [$root])),
+      },
+    ) . <<'EOF',
+use Config;
+use File::Spec::Functions;
+sub _quote_if_space { $_[0] =~ / / ? qq{"$_[0]"} : $_[0] }
+my %exts; BEGIN { %exts = (
+  MSWin32 => [ ".lib", ".$Config{dlext}", $Config{_a} ],
+  cygwin => [ '.dll' ],
+  android => [ ".$Config{dlext}" ],
+); }
+sub find_extra_libs {
+  my ($deps, $search) = @_;
+  return () if !keys %$deps;
+  return () unless my $exts = $exts{$^O};
+  my @found_libs = ();
+  DEP: foreach my $name (keys %$deps) {
+    my @parts = split /::/, $name;
+    my $stem = defined &DynaLoader::mod2fname
+      ? DynaLoader::mod2fname(\@parts) : $parts[-1];
+    my @bases = map $stem.$_, @$exts;
+    for my $dir (grep -d, @$search) { # only extant dirs
+      my ($found) = grep -f, map catfile($dir, 'auto', @parts, $_), @bases;
+      next if !defined $found;
+      push @found_libs, $found;
+      next DEP;
+    }
+  }
+  @found_libs;
+}
+EOF
+  'Test.pm' => do {
+    my $t = $PM_TEST; $t =~ s:is_even:is_odd:g;
+    $t =~ s/bootstrap/
+      use File::Spec::Functions;
+      my \$root; BEGIN {\$root = catdir(updir, qw(XS-Testeud_produce blib));}
+      use lib map catdir(\$root, \$_), qw(lib arch);
+      require XS::Other;\n$&
+    /g;
+    $t
+  },
+  'Test.xs' => do {
+    my $t = $XS_OTHER; $t =~ s:Other:Test:g; $t =~ s:\{.*?\}:;:; $t
+  },
+  't/is_even.t' => <<'END',
+use strict;
+use warnings;
+use Test::More tests => 2;
+use XS::Test;
+ok XS::Test::is_odd(1);
+ok !XS::Test::is_odd(2);
+END
+};
+delete @{ $label2files{eud_consume} }{qw(lib/XS/Test.pm)};
+
 # to mimic behaviour of Unicode-LineBreak version 2015.07.16
 $label2files{subdirscomplex} = +{
   %{ $label2files{'subdirs'} }, # make copy
@@ -435,6 +520,8 @@ sub list_dynamic {
         $^O !~ m!^(VMS|aix)$! ? ([ 'subdirscomplex', '', '' ]) : (),
     ) : (), # DynaLoader different
     [ 'subdirs', '', '' ],
+    [ 'eud_produce', '', '', 1 ],
+    [ 'eud_consume', '', '' ],
     # https://github.com/Perl/perl5/issues/17601
     # https://rt.cpan.org/Ticket/Display.html?id=115321
     $^O ne 'MSWin32' ? (