From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 1 Jun 2002 14:58:39 +0000 (+0000)
Subject: VMSifying from Craig Berry.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ccf8054688a30dcefbda5d74b642b3edfc2fa011;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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
--- 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);