Change 11784 by sky@sky-lab on 2001/08/29 08:06:12
Subject: Re: The hitlist of untested modules.
From: Jonathan Stowe <[EMAIL PROTECTED]>
Date: Wed, 29 Aug 2001 09:25:49 +0100 (BST)
Message-ID: <[EMAIL PROTECTED]>
Start of tests for Shell.pm (make Schwern poorer!)
Affected files ...
... //depot/perl/MANIFEST#526 edit
... //depot/perl/lib/Shell.t#1 add
Differences ...
==== //depot/perl/MANIFEST#526 (text) ====
Index: perl/MANIFEST
--- perl/MANIFEST.~1~ Wed Aug 29 02:15:05 2001
+++ perl/MANIFEST Wed Aug 29 02:15:05 2001
@@ -1084,6 +1084,7 @@
lib/SelfLoader.pm Load functions only on demand
lib/SelfLoader.t See if SelfLoader works
lib/Shell.pm Make AUTOLOADed system() calls
+lib/Shell.t Tests for above
lib/shellwords.pl Perl library to split into words with shell quoting
lib/sigtrap.pm For trapping an abort and giving traceback
lib/stat.pl Perl library supporting stat function
==== //depot/perl/lib/Shell.t#1 (text) ====
Index: perl/lib/Shell.t
--- perl/lib/Shell.t.~1~ Wed Aug 29 02:15:05 2001
+++ perl/lib/Shell.t Wed Aug 29 02:15:05 2001
@@ -0,0 +1,59 @@
+#!./perl
+
+use Test::More tests => 4;
+
+BEGIN { use_ok('Shell'); }
+
+my $Is_VMS = $^O eq 'VMS';
+my $Is_MSWin32 = $^O eq 'MSWin32';
+my $Is_NetWare = $^O eq 'NetWare';
+
+$Shell::capture_stderr = 1; #
+
+# Now test that that works ..
+
+my $tmpfile = 'sht0001';
+
+while ( -f $tmpfile )
+{
+ $tmpfile++;
+}
+
+END { -f $tmpfile && unlink $tmpfile };
+
+
+
+open(SAVERR,">&STDERR") ;
+open(STDERR, ">$tmpfile");
+
+xXx(); # Ok someone could have a program called this :(
+
+ok( !(-s $tmpfile) ,'$Shell::capture_stderr');
+
+$Shell::capture_stderr = 0; #
+
+# someone will have to fill in the blanks for other platforms
+
+if ( $Is_VMS )
+{
+ skip "Please implement VMS test", 2;
+ ok(1);
+ ok(1);
+}
+elsif( $Is_MSWin32 )
+{
+ ok(dir(),'Execute command');
+
+ my @files = dir('*.*');
+
+ ok(@files, 'Quoted arguments');
+}
+else
+{
+ ok(ls(),'Execute command');
+
+ my @files = ls('*');
+
+ ok(@files,'Quoted arguments');
+
+}
End of Patch.
