add mising semi-colon & fix return array

nigelbowden · nigelbowden · commit cf3f613f3dfe · 2023-07-23T07:42:03.000+01:00
diff --git a/scripts/v6/ch10-07-bad-script.rsc b/scripts/v6/ch10-07-bad-script.rsc
@@ -3,7 +3,7 @@
 # A simple script to perform a series of tests on a
 # list of web sites.
 
-:global Filename "ch10-07-bad-script.rsc"
+:global Filename "ch10-07-bad-script.rsc";
 
 # function to log error messages
 :global LogMessageFunc do={
@@ -80,7 +80,7 @@
     } on-error={
         $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \
             $SiteName !");
-        :return { "*** test failed ***" }
+        :return { "duration"="*** test failed ***" }
     }
 }
 
diff --git a/scripts/v6/ch10-08-bad-script.rsc b/scripts/v6/ch10-08-bad-script.rsc
@@ -3,7 +3,7 @@
 # A simple script to perform a series of tests on a
 # 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,
 # "false" for normal operation
@@ -91,7 +91,7 @@
         ([:len $SiteName] < 6)) do={
         $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \
             valid string!");
-        :return { "*** test failed ***" };
+        :return { "duration"="*** test failed ***" }
     }
 
     do {
@@ -100,7 +100,7 @@
     } on-error {
         $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \
             $SiteName !");
-        return { "*** test failed ***" };
+        :return { "duration"="*** test failed ***" }
     }
 }
 
diff --git a/scripts/v7/ch10-07-bad-script.rsc b/scripts/v7/ch10-07-bad-script.rsc
@@ -3,7 +3,7 @@
 # A simple script to perform a series of tests on a
 # list of web sites.
 
-:global Filename "ch10-07-bad-script.rsc"
+:global Filename "ch10-07-bad-script.rsc";
 
 # function to log error messages
 :global LogMessageFunc do={
@@ -80,7 +80,7 @@
     } on-error={
         $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \
             $SiteName !");
-        :return { "*** test failed ***" }
+        :return { "duration"="*** test failed ***" }
     }
 }
 
diff --git a/scripts/v7/ch10-08-bad-script.rsc b/scripts/v7/ch10-08-bad-script.rsc
@@ -3,7 +3,7 @@
 # A simple script to perform a series of tests on a
 # 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,
 # "false" for normal operation
@@ -91,7 +91,7 @@
         ([:len $SiteName] < 6)) do={
         $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \
             valid string!");
-        :return { "*** test failed ***" };
+        :return { "duration"="*** test failed ***" }
     }
 
     do {
@@ -100,7 +100,7 @@
     } on-error {
         $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \
             $SiteName !");
-        return { "*** test failed ***" };
+        :return { "duration"="*** test failed ***" }
     }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@`
`3`	`3`	`# A simple script to perform a series of tests on a`
`4`	`4`	`# list of web sites.`
`5`	`5`
`6`		`-:global Filename "ch10-07-bad-script.rsc"`
	`6`	`+:global Filename "ch10-07-bad-script.rsc";`
`7`	`7`
`8`	`8`	`# function to log error messages`
`9`	`9`	`:global LogMessageFunc do={`
`@@ -80,7 +80,7 @@`
`80`	`80`	`} on-error={`
`81`	`81`	`$LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \`
`82`	`82`	`$SiteName !");`
`83`		`- :return { "* test failed *" }`
	`83`	`+ :return { "duration"="* test failed *" }`
`84`	`84`	`}`
`85`	`85`	`}`
`86`	`86`