diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-01 04:05:35 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-01 04:05:35 +0000 |
| commit | d190ce2541704376b663a0a01551e81cad6e08ee (patch) | |
| tree | d9de4cfe6e42219971069db54ed3be701f851850 /lib/Test | |
| parent | 9ef43a2ec0b332ffe04f5273865beefcbd25f6c6 (diff) | |
| download | perl-d190ce2541704376b663a0a01551e81cad6e08ee.tar.gz | |
Make the changes MacOS-specific.
p4raw-id: //depot/perl@16954
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness/t/callback.t | 5 | ||||
| -rw-r--r-- | lib/Test/Harness/t/strap-analyze.t | 4 | ||||
| -rw-r--r-- | lib/Test/Harness/t/test-harness.t | 4 |
3 files changed, 10 insertions, 3 deletions
diff --git a/lib/Test/Harness/t/callback.t b/lib/Test/Harness/t/callback.t index 63aaa22c9c..6a57fd5292 100644 --- a/lib/Test/Harness/t/callback.t +++ b/lib/Test/Harness/t/callback.t @@ -54,7 +54,10 @@ $strap->{callback} = sub { while( my($test, $expect) = each %samples ) { local @out = (); - $strap->analyze_file(catfile($SAMPLE_TESTS, $test)); + + $strap->analyze_file($^O eq 'macos' ? + catfile($SAMPLE_TESTS, $test) : + "$SAMPLE_TESTS/$test"); is_deeply(\@out, $expect, "$test callback"); } diff --git a/lib/Test/Harness/t/strap-analyze.t b/lib/Test/Harness/t/strap-analyze.t index 96b549ab2c..59e4a5c1ac 100644 --- a/lib/Test/Harness/t/strap-analyze.t +++ b/lib/Test/Harness/t/strap-analyze.t @@ -463,7 +463,9 @@ while( my($test, $expect) = each %samples ) { } my $strap = Test::Harness::Straps->new; - my %results = $strap->analyze_file(catfile($SAMPLE_TESTS, $test)); + my %results = $strap->analyze_file($^O eq 'macos' ? + catfile($SAMPLE_TESTS, $test) : + "$SAMPLE_TESTS/$test"); is_deeply($results{details}, $expect->{details}, "$test details" ); diff --git a/lib/Test/Harness/t/test-harness.t b/lib/Test/Harness/t/test-harness.t index f75f37963c..be95a5471a 100644 --- a/lib/Test/Harness/t/test-harness.t +++ b/lib/Test/Harness/t/test-harness.t @@ -431,7 +431,9 @@ while (my($test, $expect) = each %samples) { select NULL; # _run_all_tests() isn't as quiet as it should be. local $SIG{__WARN__} = sub { $warning .= join '', @_; }; ($totals, $failed) = - Test::Harness::_run_all_tests(catfile($SAMPLE_TESTS, $test)); + Test::Harness::_run_all_tests($^O eq 'macos' ? + catfile($SAMPLE_TESTS, $test) : + "$SAMPLE_TESTS/$test"); }; select STDOUT; |