[PATCH: perl@13169] add Shell.t tests for VMS

[PPrymmer]

Here it is:

diff -ru perl_13169_orig/lib/Shell.t perl_13169/lib/Shell.t
--- perl_13169_orig/lib/Shell.t    Wed Nov 21 20:12:29 2001
+++ perl_13169/lib/Shell.t    Wed Nov 21 20:13:17 2001
@@ -36,9 +36,9 @@

 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 )
 {
End of Patch.

Peter Prymmer

PS: How do I say C<print "1..0\n" if ($^O ne 'VMS');> under Test::More?
My question pertains to another test not to Shell.t (I was just grepping around).
Thanks.