Ticket #2176: 2176_part2.patch

File 2176_part2.patch, 2.7 KB (added by bubaflub, 3 years ago)

fix another file

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

    diff --git t/tools/dev/headerizer/02_methods.t t/tools/dev/headerizer/02_methods.t
    index d253b0b..93d0566 100644
     
    1212use File::Temp qw( tempdir ); 
    1313use Test::More qw(no_plan); # tests => 46; 
    1414use lib qw( lib ); 
     15use Parrot::Config; 
    1516use Parrot::Headerizer::Functions qw( read_file ); 
    1617use Parrot::Headerizer; 
    1718use IO::CaptureOutput qw| capture |; 
     
    142143    my $srcdir    = File::Spec->catpath( $tdir, 'src' ); 
    143144    my $srcopsdir = File::Spec->catpath( $tdir, 'src', 'ops' ); 
    144145    mkpath( $srcopsdir, 0, 0777 ); 
    145     my $srcopso   = File::Spec->catfile( $srcopsdir, 'ops.o' ); 
     146    my $srcopso   = File::Spec->catfile( $srcopsdir, "ops$PConfig{o}" ); 
    146147    touchfile($srcopso); 
    147148    $self = Parrot::Headerizer->new(); 
    148149    isa_ok( $self, 'Parrot::Headerizer' ); 
     
    164165 
    165166    my $srcdir    = File::Spec->catpath( $tdir, 'src' ); 
    166167    mkpath( $srcdir, 0, 0777 ); 
    167     my $srco   = File::Spec->catfile( $srcdir, 'other.o' ); 
     168    my $srco   = File::Spec->catfile( $srcdir, "other$PConfig{o}" ); 
    168169    touchfile($srco); 
    169170    my $srcs   = File::Spec->catfile( $srcdir, 'other.s' ); 
    170171    touchfile($srcs); 
     
    263264    my $stub = 'fixedbooleanarray'; 
    264265    my $srcdir    = File::Spec->catpath( $tdir, 'src', 'pmc' ); 
    265266    mkpath( $srcdir, 0, 0777 ); 
    266     my $srco      = File::Spec->catfile( $srcdir, "$stub.o" ); 
     267    my $srco      = File::Spec->catfile( $srcdir, "$stub$PConfig{o}" ); 
    267268    touchfile($srco); 
    268269    my $srcc      = File::Spec->catfile( $srcdir, "$stub.c" ); 
    269270    copy "$cwd/t/tools/dev/headerizer/testlib/${stub}_pmc.in" => $srcc 
     
    301302    my $stub = 'nci'; 
    302303    my $srcdir    = File::Spec->catpath( $tdir, 'src', 'pmc' ); 
    303304    mkpath( $srcdir, 0, 0777 ); 
    304     my $srco      = File::Spec->catfile( $srcdir, "$stub.o" ); 
     305    my $srco      = File::Spec->catfile( $srcdir, "$stub$PConfig{o}" ); 
    305306    touchfile($srco); 
    306307    my $srcc      = File::Spec->catfile( $srcdir, "$stub.c" ); 
    307308    copy "$cwd/t/tools/dev/headerizer/testlib/${stub}_pmc.in" => $srcc 
     
    699700    my $stub = 'list'; 
    700701    my $srcdir    = File::Spec->catpath( $tdir, 'src' ); 
    701702    mkpath( $srcdir, 0, 0777 ); 
    702     my $srco      = File::Spec->catfile( $srcdir, "$stub.o" ); 
     703    my $srco      = File::Spec->catfile( $srcdir, "$stub$PConfig{o}" ); 
    703704    touchfile($srco); 
    704705    my $srcc      = File::Spec->catfile( $srcdir, "$stub.c" ); 
    705706    copy "$cwd/t/tools/dev/headerizer/testlib/list.in" => $srcc