Ticket #2176: 2176.patch

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

patch for windows

  • t/src/atomic.t

    diff --git t/src/atomic.t t/src/atomic.t
    index b34a0d9..cf4381d 100644
     
    2727 
    2828# generic tests 
    2929 
    30 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     30my $parrot_config = "parrot_config" . $PConfig{o}; 
     31 
     32plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    3133 
    3234plan tests => 4; 
    3335 
  • t/src/basic.t

    diff --git t/src/basic.t t/src/basic.t
    index e90cd7f..21a972b 100644
     
    66use lib qw( . lib ../lib ../../lib ); 
    77use Test::More; 
    88use Parrot::Test; 
     9use Parrot::Config; 
    910use File::Spec::Functions; 
    1011 
    11 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     12my $parrot_config = "parrot_config" . $PConfig{o}; 
     13 
     14plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    1215 
    1316plan tests => 2; 
    1417 
  • t/src/embed.t

    diff --git t/src/embed.t t/src/embed.t
    index f6437f6..4248b49 100644
     
    99use Parrot::Config; 
    1010use File::Spec::Functions; 
    1111 
    12 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     12my $parrot_config = "parrot_config" . $PConfig{o}; 
     13 
     14plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    1315 
    1416plan tests => 16; 
    1517 
  • t/src/embed/api.t

    diff --git t/src/embed/api.t t/src/embed/api.t
    index caaa397..abea3a2 100644
     
    66use lib qw( . lib ../lib ../../lib ); 
    77use Test::More; 
    88use Parrot::Test; 
     9use Parrot::Config; 
    910use File::Spec::Functions; 
    1011use Parrot::Test::Util 'create_tempfile'; 
    1112 
    12 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     13my $parrot_config = "parrot_config" . $PConfig{o}; 
     14 
     15plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    1316 
    1417plan tests => 8; 
    1518 
  • t/src/exit.t

    diff --git t/src/exit.t t/src/exit.t
    index 2113399..d3dc0c4 100644
     
    66use lib qw( . lib ../lib ../../lib ); 
    77use Test::More; 
    88use Parrot::Test; 
     9use Parrot::Config; 
    910use File::Spec::Functions; 
    1011 
    11 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     12my $parrot_config = "parrot_config" . $PConfig{o}; 
     13 
     14plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    1215 
    1316plan tests => 1; 
    1417 
  • t/src/extend.t

    diff --git t/src/extend.t t/src/extend.t
    index 48b8467..e7faa4c 100644
     
    1212use Parrot::Config; 
    1313use File::Spec::Functions; 
    1414 
    15 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     15my $parrot_config = "parrot_config" . $PConfig{o}; 
     16 
     17plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    1618 
    1719plan tests => 24; 
    1820 
  • t/src/extend_vtable.t

    diff --git t/src/extend_vtable.t t/src/extend_vtable.t
    index 7142347..5d3f9e0 100644
     
    66use lib qw( . lib ../lib ../../lib ); 
    77use Test::More; 
    88use Parrot::Test; 
     9use Parrot::Config; 
    910use File::Spec::Functions; 
    1011 
    11 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     12my $parrot_config = "parrot_config" . $PConfig{o}; 
     13 
     14plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
     15 
    1216 
    1317plan tests => 139; 
    1418 
  • t/src/misc.t

    diff --git t/src/misc.t t/src/misc.t
    index 583ea04..34b92f9 100644
     
    66use lib qw( . lib ../lib ../../lib ); 
    77use Test::More; 
    88use Parrot::Test; 
     9use Parrot::Config; 
    910use File::Spec::Functions; 
    1011 
    11 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     12my $parrot_config = "parrot_config" . $PConfig{o}; 
     13 
     14plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    1215 
    1316plan tests => 4; 
    1417 
  • t/src/pointer_array.t

    diff --git t/src/pointer_array.t t/src/pointer_array.t
    index 72395b8..0441ef2 100644
     
    1111use Parrot::Config; 
    1212use File::Spec::Functions; 
    1313 
    14 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     14my $parrot_config = "parrot_config" . $PConfig{o}; 
     15 
     16plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    1517 
    1618=head1 NAME 
    1719 
  • t/src/warnings.t

    diff --git t/src/warnings.t t/src/warnings.t
    index 28f797c..dfc4e56 100644
     
    66use lib qw( . lib ../lib ../../lib ); 
    77use Test::More; 
    88use Parrot::Test; 
     9use Parrot::Config; 
    910use File::Spec::Functions; 
    1011 
    11 plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile(qw/src parrot_config.o/); 
     12my $parrot_config = "parrot_config" . $PConfig{o}; 
     13 
     14plan skip_all => 'src/parrot_config.o does not exist' unless -e catfile("src", $parrot_config); 
    1215 
    1316plan tests => 2; 
    1417