dougm 01/10/19 22:02:58
Modified: perl-framework/t/modules vhost_alias.t
Log:
change to use Apache::TestUtil::write_shell_script to pass win32
Revision Changes Path
1.8 +6 -6 httpd-test/perl-framework/t/modules/vhost_alias.t
Index: vhost_alias.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/modules/vhost_alias.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- vhost_alias.t 2001/09/10 17:12:37 1.7
+++ vhost_alias.t 2001/10/20 05:02:58 1.8
@@ -6,9 +6,10 @@
use Apache::TestRequest;
my $url = '/index.html';
-my $cgi_name = "test-cgi.sh";
+my $cgi_name = "test-cgi";
my $cgi_string = "test cgi for";
my $root = "htdocs/modules/vhost_alias";
+my $ext;
my @vh = qw(www.vha-test.com big.server.name.from.heck.org ab.com w-t-f.net);
@@ -72,15 +73,14 @@
## write cgi ##
my $cgi_content = <<SCRIPT;
-#!/bin/sh
echo Content-type: text/html
echo
echo $cgi_string $_
SCRIPT
- t_write_file("$d$cgi_name",$cgi_content);
+ $ext = Apache::TestUtil::write_shell_script("$d$cgi_name",
+ $cgi_content);
chmod 0755, "$d$cgi_name";
-
}
## run tests ##
@@ -92,9 +92,9 @@
);
## test VirtualScriptAlias ##
- my $cgi_uri = "/cgi-bin/$cgi_name";
+ my $cgi_uri = "/cgi-bin/$cgi_name.$ext";
my $actual = GET_BODY $cgi_uri, Host => $_;
- chomp $actual;
+ $actual =~ s/[\r\n]+$//;
ok t_cmp("$cgi_string $_",
$actual,
"VirtualScriptAlias test"
