httpd-test-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Tatsuhiko Miyagawa <miyag...@edge.co.jp>
Subject t/TEST ./t/foo.t
Date Tue, 13 Nov 2001 18:50:48 GMT
I guess this has once discussed, but my hand is accustomed to:

  perl -Mblib ./t/foo.t

So, what I want is './t/foo.t' instead of 't/foo.t'. Dirty patch:


--- Apache-Test/lib/Apache/TestRun.pm   2001/11/11 21:10:37     1.67
+++ Apache-Test/lib/Apache/TestRun.pm   2001/11/13 18:37:05
@@ -85,7 +85,7 @@
     for (@$argv) {
         my $arg = $_;
         #need the t/ for stat-ing, but dont want to include it in test output
-        $arg =~ s:^t/::;
+        $arg =~ s@^(?:\./)?t/@@;
         my $t_dir = catfile qw(.. t);
         my $file = catfile $t_dir, $arg;


--
Tatsuhiko Miyagawa <miyagawa@bulknews.net>


Mime
View raw message