Fix running tests with Perl on Windows

Windows-on-ARM-Experiments · Dec 7, 2023 · dfbb4ce · dfbb4ce
1 parent 79997a9
commit dfbb4ce
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/test/run_tests.pl b/test/run_tests.pl
@@ -24,7 +24,7 @@ BEGIN
 use File::Spec::Functions qw/catdir catfile curdir abs2rel rel2abs/;
 use File::Basename;
 use FindBin;
-use lib "$FindBin::Bin/../util/perl";
+use lib "$ENV{SRCTOP}/util/perl";
 use OpenSSL::Glob;
 
 my $srctop = $ENV{SRCTOP} || $ENV{TOP};
@@ -272,9 +272,11 @@ sub find_matching_tests {
             return bless { %args }, $class;
         }
 
-        sub runtests {
+        sub runtests {          
             my $self = shift;
 
+            print $self
+
             # Pre TAP::Harness Test::Harness doesn't support [ filename, name ]
             # elements, so convert such elements to just be the filename
             my @args = map { ref($_) eq 'ARRAY' ? $_->[0] : $_ } @_;