diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-01 15:03:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-01 15:03:57 +0000 |
| commit | b70f73b7d853093843f0d9077ffc64201e345603 (patch) | |
| tree | a120090f224c7fd6c1c1d93b1b661110c005b07d /lib | |
| parent | ccf8054688a30dcefbda5d74b642b3edfc2fa011 (diff) | |
| download | perl-b70f73b7d853093843f0d9077ffc64201e345603.tar.gz | |
Even more VMSifying (this time more like de-MacOSifying).
p4raw-id: //depot/perl@16959
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Test/Harness/t/test-harness.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Test/Harness/t/test-harness.t b/lib/Test/Harness/t/test-harness.t index 83f6c0b8df..3cb0abbb6b 100644 --- a/lib/Test/Harness/t/test-harness.t +++ b/lib/Test/Harness/t/test-harness.t @@ -453,7 +453,9 @@ while (my($test, $expect) = each %samples) { is_deeply( {map { $_=>$totals->{$_} } keys %{$expect->{total}}}, $expect->{total}, "$test - totals" ); - is_deeply( {map { $_=>$failed->{catfile($SAMPLE_TESTS, $test)}{$_} } + is_deeply( {map { $_=>$failed->{$^O eq 'macos' ? + catfile($SAMPLE_TESTS, $test) : + "$SAMPLE_TESTS/$test"}{$_} } keys %{$expect->{failed}}}, $expect->{failed}, "$test - failed" ); |