Ticket #2176: 2176_part2.patch

t/tools/dev/headerizer/02_methods.t

@@ -12 +12 @@
 use File::Temp qw( tempdir );
 use Test::More qw(no_plan); # tests => 46;
 use lib qw( lib );
+use Parrot::Config;
 use Parrot::Headerizer::Functions qw( read_file );
 use Parrot::Headerizer;
 use IO::CaptureOutput qw| capture |;
@@ -142 +143 @@
     my $srcdir    = File::Spec->catpath( $tdir, 'src' );
     my $srcopsdir = File::Spec->catpath( $tdir, 'src', 'ops' );
     mkpath( $srcopsdir, 0, 0777 );
-    my $srcopso   = File::Spec->catfile( $srcopsdir, 'ops.o' );
+    my $srcopso   = File::Spec->catfile( $srcopsdir, "ops$PConfig{o}" );
     touchfile($srcopso);
     $self = Parrot::Headerizer->new();
     isa_ok( $self, 'Parrot::Headerizer' );
@@ -164 +165 @@
 
     my $srcdir    = File::Spec->catpath( $tdir, 'src' );
     mkpath( $srcdir, 0, 0777 );
-    my $srco   = File::Spec->catfile( $srcdir, 'other.o' );
+    my $srco   = File::Spec->catfile( $srcdir, "other$PConfig{o}" );
     touchfile($srco);
     my $srcs   = File::Spec->catfile( $srcdir, 'other.s' );
     touchfile($srcs);
@@ -263 +264 @@
     my $stub = 'fixedbooleanarray';
     my $srcdir    = File::Spec->catpath( $tdir, 'src', 'pmc' );
     mkpath( $srcdir, 0, 0777 );
-    my $srco      = File::Spec->catfile( $srcdir, "$stub.o" );
+    my $srco      = File::Spec->catfile( $srcdir, "$stub$PConfig{o}" );
     touchfile($srco);
     my $srcc      = File::Spec->catfile( $srcdir, "$stub.c" );
     copy "$cwd/t/tools/dev/headerizer/testlib/${stub}_pmc.in" => $srcc
@@ -301 +302 @@
     my $stub = 'nci';
     my $srcdir    = File::Spec->catpath( $tdir, 'src', 'pmc' );
     mkpath( $srcdir, 0, 0777 );
-    my $srco      = File::Spec->catfile( $srcdir, "$stub.o" );
+    my $srco      = File::Spec->catfile( $srcdir, "$stub$PConfig{o}" );
     touchfile($srco);
     my $srcc      = File::Spec->catfile( $srcdir, "$stub.c" );
     copy "$cwd/t/tools/dev/headerizer/testlib/${stub}_pmc.in" => $srcc
@@ -699 +700 @@
     my $stub = 'list';
     my $srcdir    = File::Spec->catpath( $tdir, 'src' );
     mkpath( $srcdir, 0, 0777 );
-    my $srco      = File::Spec->catfile( $srcdir, "$stub.o" );
+    my $srco      = File::Spec->catfile( $srcdir, "$stub$PConfig{o}" );
     touchfile($srco);
     my $srcc      = File::Spec->catfile( $srcdir, "$stub.c" );
     copy "$cwd/t/tools/dev/headerizer/testlib/list.in" => $srcc