diff options
author | Florian Ragwitz <rafl@debian.org> | 2011-01-22 09:03:20 +0100 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2011-01-22 14:26:04 +0100 |
commit | cbf59d5a089ce312aef2577512b2b2599ffdd6d5 (patch) | |
tree | 687738deb4ebff219c72ebd1772189845be49e93 /dist/ExtUtils-CBuilder/t/04-base.t | |
parent | f1495101f8b951dc126f5898777a723f994cc6a4 (diff) | |
download | perl-cbf59d5a089ce312aef2577512b2b2599ffdd6d5.tar.gz |
Stop EU::CBuilder's tests from failing in parallel
It used to use the same paths for temporary files in all tests. This blew up
randomly when the tests were run in parallel.
Diffstat (limited to 'dist/ExtUtils-CBuilder/t/04-base.t')
-rw-r--r-- | dist/ExtUtils-CBuilder/t/04-base.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/dist/ExtUtils-CBuilder/t/04-base.t b/dist/ExtUtils-CBuilder/t/04-base.t index 5b235a5313..c3bf6b5ca6 100644 --- a/dist/ExtUtils-CBuilder/t/04-base.t +++ b/dist/ExtUtils-CBuilder/t/04-base.t @@ -129,14 +129,14 @@ $base = ExtUtils::CBuilder::Base->new( quiet => 1 ); ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" ); isa_ok( $base, 'ExtUtils::CBuilder::Base' ); -$source_file = File::Spec->catfile('t', 'compilet.c'); +$source_file = File::Spec->catfile('t', 'baset.c'); create_c_source_file($source_file); ok(-e $source_file, "source file '$source_file' created"); # object filename automatically assigned my $obj_ext = $base->{config}{obj_ext}; is( $base->object_file($source_file), - File::Spec->catfile('t', "compilet$obj_ext"), + File::Spec->catfile('t', "baset$obj_ext"), "object_file(): got expected automatically assigned name for object file" ); @@ -155,7 +155,7 @@ $base = ExtUtils::CBuilder::Base->new( quiet => 1 ); ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" ); isa_ok( $base, 'ExtUtils::CBuilder::Base' ); -$source_file = File::Spec->catfile('t', 'compilet.c'); +$source_file = File::Spec->catfile('t', 'baset.c'); create_c_source_file($source_file); ok(-e $source_file, "source file '$source_file' created"); @@ -337,14 +337,14 @@ for ($source_file, $object_file, $lib_file) { pass("Completed all tests in $0"); if ($^O eq 'VMS') { - 1 while unlink 'COMPILET.LIS'; - 1 while unlink 'COMPILET.OPT'; + 1 while unlink 'BASET.LIS'; + 1 while unlink 'BASET.OPT'; } sub create_c_source_file { my $source_file = shift; open my $FH, '>', $source_file or die "Can't create $source_file: $!"; - print $FH "int boot_compilet(void) { return 1; }\n"; + print $FH "int boot_baset(void) { return 1; }\n"; close $FH; } |