Change 13529: [PATCH t/run/switches.t] Declaring mostly TODO

[Jarkko Hietaniemi]

Change 13529 by jhi@alpha on 2001/12/07 23:48:58

        Subject: [PATCH t/run/switches.t] Declaring mostly TODO
        From: Michael G Schwern <[EMAIL PROTECTED]>       
        Date: Fri, 7 Dec 2001 19:41:31 -0500
        Message-ID: <20011208004131.GC642@blackrider>

Affected files ...

.... //depot/perl/t/run/switches.t#3 edit
.... //depot/perl/t/test.pl#22 edit

Differences ...

==== //depot/perl/t/run/switches.t#3 (text) ====
Index: perl/t/run/switches.t
--- perl/t/run/switches.t.~1~   Fri Dec  7 17:00:05 2001
+++ perl/t/run/switches.t       Fri Dec  7 17:00:05 2001
@@ -11,6 +11,10 @@
 
 plan(tests => 14);
 
+# due to a bug in VMS's piping which makes it impossible for runperl()
+# to emulate echo -n, these tests almost totally fail.
+$TODO = "runperl() unable to emulate echo -n due to pipe bug" if $^O eq 'VMS';
+
 my $r;
 my @tmpfiles = ();
 END { unlink @tmpfiles }
@@ -63,6 +67,8 @@
 
 my $filename = 'swctest.tmp';
 SKIP: {
+    local $TODO = '';   # this one works on VMS
+
     open my $f, ">$filename" or skip( "Can't write temp file $filename: $!" );
     print $f <<'SWTEST';
 BEGIN { print "block 1\n"; }
@@ -122,7 +128,7 @@
        progfile    => $filename,
        args        => [ '-x=foo' ],
     );
-    is( $r, 'foo', '-s on the #! line' );
+    is( $r, 'foo', '-s on the shebang line' );
     push @tmpfiles, $filename;
 }
 
@@ -151,7 +157,11 @@
        switches    => [ '-mswtest' ],
        prog        => '1',
     );
-    is( $r, '', '-m' );
+
+    {
+        local $TODO = '';  # this one works on VMS
+        is( $r, '', '-m' );
+    }
     $r = runperl(
        switches    => [ '-mswtest=foo,bar' ],
        prog        => '1',

==== //depot/perl/t/test.pl#22 (text) ====
Index: perl/t/test.pl
--- perl/t/test.pl.~1~  Fri Dec  7 17:00:05 2001
+++ perl/t/test.pl      Fri Dec  7 17:00:05 2001
@@ -41,6 +41,8 @@
     # VMS will avenge.
     my $out;
     if ($name) {
+        # escape out '#' or it will interfere with '# skip' and such
+        $name =~ s/#/\\#/g;
        $out = $pass ? "ok $test - $name" : "not ok $test - $name";
     } else {
        $out = $pass ? "ok $test" : "not ok $test";
End of Patch.