develooper Front page | perl.perl5.porters | Postings from September 2001

[PATCH perl@12258] glob test case tweak for VMS

Thread Next
From:
Craig A. Berry
Date:
September 28, 2001 14:24
Subject:
[PATCH perl@12258] glob test case tweak for VMS
Message ID:
a05101000b7da98ceb83c@[172.16.52.1]
Globbing on TES* picks up test.pl on VMS.  This fixes it;

--- ext/File/Glob/t/basic.t;-0  Fri Sep 28 08:38:16 2001
+++ ext/File/Glob/t/basic.t     Fri Sep 28 16:24:40 2001
@@ -110,6 +110,7 @@
 # Working on t/TEST often causes this test to fail because it sees Emacs temp
 # and RCS files.  Filter them out, and .pm files too, and patch temp files.
 @a = grep !/(,v$|~$|\.(pm|ori?g|rej)$)/, @a;
+@a = (grep !/test.pl/, @a) if $^O eq 'VMS';
 
 print "# @a\n";
 
@@ -118,7 +119,7 @@
         and $a[1] eq 'a'
         and $a[2] eq 'b')
 {
-    print "not ok 8 # @a";
+    print "not ok 8 # @a\n";
 } else {
     print "ok 8\n";
 }
[end of patch]

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About