3 use Test::More tests => 4;
5 BEGIN { use_ok('Shell'); }
7 my $Is_VMS = $^O eq 'VMS';
8 my $Is_MSWin32 = $^O eq 'MSWin32';
9 my $Is_NetWare = $^O eq 'NetWare';
11 $Shell::capture_stderr = 1; #
13 # Now test that that works ..
15 my $tmpfile = 'sht0001';
22 END { -f $tmpfile && unlink $tmpfile };
26 open(SAVERR,">&STDERR") ;
27 open(STDERR, ">$tmpfile");
29 xXx(); # Ok someone could have a program called this :(
31 ok( !(-s $tmpfile) ,'$Shell::capture_stderr');
33 $Shell::capture_stderr = 0; #
35 # someone will have to fill in the blanks for other platforms
39 skip "Please implement VMS test", 2;
45 ok(dir(),'Execute command');
47 my @files = dir('*.*');
49 ok(@files, 'Quoted arguments');
53 ok(ls(),'Execute command');
57 ok(@files,'Quoted arguments');