Allow several arguments to display().

[p5sagit/p5-mst-13.2.git] / lib / Shell.t

diff --git a/lib/Shell.t b/lib/Shell.t
index 5ff0b16..837f6ac 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 )
 {
@@ -57,3 +57,4 @@ else
   ok(@files,'Quoted arguments');
 
 }
+open(STDERR,">&SAVERR") ;