You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by st...@apache.org on 2004/02/24 02:14:15 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestSmoke.pm
stas 2004/02/23 17:14:15
Modified: perl-framework/Apache-Test/lib/Apache TestSmoke.pm
Log:
yet another 'move-out-of-t' fix
Revision Changes Path
1.28 +3 -1 httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm
Index: TestSmoke.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestSmoke.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -u -r1.27 -r1.28
--- TestSmoke.pm 31 Jan 2004 10:19:36 -0000 1.27
+++ TestSmoke.pm 24 Feb 2004 01:14:15 -0000 1.28
@@ -597,7 +597,9 @@
$self->{start_time} = $time;
$time =~ s/\s/_/g;
$time =~ s/:/-/g; # winFU
- my $file = $self->{opts}->{report} || "../smoke-report-$time.txt";
+ my $file = $self->{opts}->{report} ||
+ catfile Apache::Test::vars('top_dir'), "smoke-report-$time.txt";
+ info "Report file: $file";
open my $fh, ">$file" or die "cannot open $file for writing: $!";
$self->{fh} = $fh;