From 28c3e748550db92a1a901f377fa5b8837b1d4951 Mon Sep 17 00:00:00 2001 From: wainstead Date: Tue, 29 Jan 2002 22:10:24 +0000 Subject: [PATCH] Added a constant for BASEURL, moving this detail out of the test scripts where it should never have been. git-svn-id: svn://svn.code.sf.net/p/phpwiki/code/trunk@1703 96ab9672-09ca-45d6-a79d-3d69d39ca109 --- tests/maketest.pl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tests/maketest.pl b/tests/maketest.pl index e2bf9276a..14c914ed6 100644 --- a/tests/maketest.pl +++ b/tests/maketest.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -# $Id: maketest.pl,v 1.2 2001-09-21 01:04:54 wainstead Exp $ +# $Id: maketest.pl,v 1.3 2002-01-29 22:10:24 wainstead Exp $ # read in a file, generate Java code to run a test. # Steve Wainstead, March 2001. @@ -10,6 +10,7 @@ # files. It was the shortest route to the answer for now, though certainly not # the best one. +use constant BASEURL => 'http://127.0.0.1/~swain/projects/phpwiki-1.3.x/'; die <<"EOLN" unless $ARGV[0]; @@ -110,7 +111,7 @@ EOLN sub starting_page { my $block = shift; $block =~ m/start_url:\s*(http.*?)$/m; - my $start_url = $1; + my $start_url = BASEURL . $1; my $assertions = &get_assertions($block); print OUTFILE <<"EOLN" -- 2.45.0