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 (file)
--- 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 )
 {