add mising semi-colon & fix return array

This commit is contained in:
Wifinigel 2023-07-23 07:42:03 +01:00
parent 3b7f9b30bd
commit cf3f613f3d
4 changed files with 10 additions and 10 deletions

View file

@ -3,7 +3,7 @@
# A simple script to perform a series of tests on a # A simple script to perform a series of tests on a
# list of web sites. # list of web sites.
:global Filename "ch10-07-bad-script.rsc" :global Filename "ch10-07-bad-script.rsc";
# function to log error messages # function to log error messages
:global LogMessageFunc do={ :global LogMessageFunc do={
@ -80,7 +80,7 @@
} on-error={ } on-error={
$LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \ $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \
$SiteName !"); $SiteName !");
:return { "*** test failed ***" } :return { "duration"="*** test failed ***" }
} }
} }

View file

@ -3,7 +3,7 @@
# A simple script to perform a series of tests on a # A simple script to perform a series of tests on a
# list of web sites. # list of web sites.
:global Filename "ch10-08-bad-script.rsc" :global Filename "ch10-08-bad-script.rsc";
# set DEBUG to "true" for script debugging output, # set DEBUG to "true" for script debugging output,
# "false" for normal operation # "false" for normal operation
@ -91,7 +91,7 @@
([:len $SiteName] < 6)) do={ ([:len $SiteName] < 6)) do={
$LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \ $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \
valid string!"); valid string!");
:return { "*** test failed ***" }; :return { "duration"="*** test failed ***" }
} }
do { do {
@ -100,7 +100,7 @@
} on-error { } on-error {
$LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \ $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \
$SiteName !"); $SiteName !");
return { "*** test failed ***" }; :return { "duration"="*** test failed ***" }
} }
} }

View file

@ -3,7 +3,7 @@
# A simple script to perform a series of tests on a # A simple script to perform a series of tests on a
# list of web sites. # list of web sites.
:global Filename "ch10-07-bad-script.rsc" :global Filename "ch10-07-bad-script.rsc";
# function to log error messages # function to log error messages
:global LogMessageFunc do={ :global LogMessageFunc do={
@ -80,7 +80,7 @@
} on-error={ } on-error={
$LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \ $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \
$SiteName !"); $SiteName !");
:return { "*** test failed ***" } :return { "duration"="*** test failed ***" }
} }
} }

View file

@ -3,7 +3,7 @@
# A simple script to perform a series of tests on a # A simple script to perform a series of tests on a
# list of web sites. # list of web sites.
:global Filename "ch10-08-bad-script.rsc" :global Filename "ch10-08-bad-script.rsc";
# set DEBUG to "true" for script debugging output, # set DEBUG to "true" for script debugging output,
# "false" for normal operation # "false" for normal operation
@ -91,7 +91,7 @@
([:len $SiteName] < 6)) do={ ([:len $SiteName] < 6)) do={
$LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \ $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \
valid string!"); valid string!");
:return { "*** test failed ***" }; :return { "duration"="*** test failed ***" }
} }
do { do {
@ -100,7 +100,7 @@
} on-error { } on-error {
$LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \ $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \
$SiteName !"); $SiteName !");
return { "*** test failed ***" }; :return { "duration"="*** test failed ***" }
} }
} }