VMSifying from Craig Berry.

p4raw-id: //depot/perl@16958

diff --git a/lib/Test/Harness/t/callback.t b/lib/Test/Harness/t/callback.t
index 6a57fd5..eeea1e4 100644 (file)
--- a/lib/Test/Harness/t/callback.t
+++ b/lib/Test/Harness/t/callback.t
@@ -52,6 +52,8 @@ $strap->{callback} = sub {
     push @out, $type;
 };
                             
+$SAMPLE_TESTS = VMS::Filespec::unixify($SAMPLE_TESTS) if $^O eq 'VMS';
+
 while( my($test, $expect) = each %samples ) {
     local @out = ();
 

diff --git a/lib/Test/Harness/t/strap-analyze.t b/lib/Test/Harness/t/strap-analyze.t
index 59e4a5c..30d363d 100644 (file)
--- a/lib/Test/Harness/t/strap-analyze.t
+++ b/lib/Test/Harness/t/strap-analyze.t
@@ -452,6 +452,9 @@ $SIG{__WARN__} = sub {
     warn @_ unless $_[0] =~ /^Enourmous test number/ ||
                    $_[0] =~ /^Can't detailize/
 };
+
+$SAMPLE_TESTS = VMS::Filespec::unixify($SAMPLE_TESTS) if $^O eq 'VMS';
+
 while( my($test, $expect) = each %samples ) {
     for (0..$#{$expect->{details}}) {
         $expect->{details}[$_]{type} = ''

diff --git a/lib/Test/Harness/t/test-harness.t b/lib/Test/Harness/t/test-harness.t
index be95a54..83f6c0b 100644 (file)
--- a/lib/Test/Harness/t/test-harness.t
+++ b/lib/Test/Harness/t/test-harness.t
@@ -423,6 +423,8 @@ use_ok('Test::Harness');
 
 tie *NULL, 'My::Dev::Null' or die $!;
 
+$SAMPLE_TESTS = VMS::Filespec::unixify($SAMPLE_TESTS) if $^O eq 'VMS';
+
 while (my($test, $expect) = each %samples) {
     # _run_all_tests() runs the tests but skips the formatting.
     my($totals, $failed);