From: Peter Prymmer <PPrymmer@factset.com>
Date: Wed, 21 Nov 2001 20:17:25 +0000 (-0500)
Subject: add Shell.t tests for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72c157b023d430ca1a19cb152e889432a114232b;p=p5sagit%2Fp5-mst-13.2.git

add Shell.t tests for VMS
Message-ID: <OF6DA93FFA.A954A0D4-ON85256B0C.0006DDF9@55.25.11>

p4raw-id: //depot/perl@13186
---

diff --git a/lib/Shell.t b/lib/Shell.t
index 5ff0b16..a285896 100644
--- a/lib/Shell.t
+++ b/lib/Shell.t
@@ -36,9 +36,9 @@ $Shell::capture_stderr = 0; #
 
 if ( $Is_VMS )
 {
-   skip "Please implement VMS test", 2;
-   ok(1);
-   ok(1);
+    ok(directory(),'Execute command');
+    my @files = directory('*.*');
+    ok(@files,'Quoted arguments');
 }
 elsif( $Is_MSWin32 )
 {