summaryrefslogtreecommitdiff
path: root/dist/ExtUtils-CBuilder/t/04-base.t
diff options
context:
space:
mode:
authorFlorian Ragwitz <rafl@debian.org>2011-01-22 09:03:20 +0100
committerFlorian Ragwitz <rafl@debian.org>2011-01-22 14:26:04 +0100
commitcbf59d5a089ce312aef2577512b2b2599ffdd6d5 (patch)
tree687738deb4ebff219c72ebd1772189845be49e93 /dist/ExtUtils-CBuilder/t/04-base.t
parentf1495101f8b951dc126f5898777a723f994cc6a4 (diff)
downloadperl-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.t12
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;
}