morgand 01/08/23 13:00:35 Modified: latka/doc processWatchdogJSP.pl Log: updated to new DTD Revision Changes Path 1.4 +5 -5 jakarta-commons/latka/doc/processWatchdogJSP.pl Index: processWatchdogJSP.pl =================================================================== RCS file: /home/cvs/jakarta-commons/latka/doc/processWatchdogJSP.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- processWatchdogJSP.pl 2001/08/20 17:08:36 1.3 +++ processWatchdogJSP.pl 2001/08/23 20:00:35 1.4 @@ -4,7 +4,7 @@ print qq'<?xml version="1.0" standalone="no"?>\n'; print qq'<!DOCTYPE suite SYSTEM "../conf/suite.dtd">\n'; -print qq'<suite default_host="localhost" default_port="8080" label="Watchdog JSP tests">'; +print qq'<suite defaultHost="localhost" defaultPort="8080" label="Watchdog JSP tests">'; # remove junk $doc =~ s#<property .*?/>##sg; @@ -21,10 +21,10 @@ # make every gtest into a request $doc =~ s#<gtest request="GET (.*?) HTTP/1.0"(.*?)assertion="(.*?)"\s*?testStrategy="(.*?)"\s*?/>#<request path="$1" label="$3">\n<validate>\n<TEMPLABLE>$4</TEMPLABLE>\n$2</validate>\n</request>#sg; -$doc =~ s#returncode="200"#<status_code/>#sgi; -$doc =~ s#returncode="HTTP/1.0 200 OK"#<status_code/>#sgi; -$doc =~ s#returncode="500"#<status_code code="500"/>#sgi; -$doc =~ s#goldenFile="(.*?)"#<golden_file file_name="$1" ignore_whitespace="true"/>#sg; +$doc =~ s#returncode="200"#<statusCode/>#sgi; +$doc =~ s#returncode="HTTP/1.0 200 OK"#<statusCode/>#sgi; +$doc =~ s#returncode="500"#<statusCode code="500"/>#sgi; +$doc =~ s#goldenFile="(.*?)"#<goldenFile fileName="$1" ignoreWhitespace="true"/>#sg; $doc =~ s#responseMatch="(.*?)"#<regexp pattern="$1"/>#sg; # apply the label to the first test
