From b6b5e2a58ce4a47d98b4ffd9afe761c6410f737f Mon Sep 17 00:00:00 2001 From: Tomas Abad Date: Wed, 31 May 2023 18:26:23 +0200 Subject: [PATCH] Syntax errors These changes have not been verified, but it seems clear that they are error. --- scripts/v6/ch10-04-bad-script.rsc | 4 ++-- scripts/v6/ch10-07-bad-script.rsc | 6 +++--- scripts/v6/ch10-08-bad-script.rsc | 8 ++++---- scripts/v7/ch10-04-bad-script.rsc | 4 ++-- scripts/v7/ch10-07-bad-script.rsc | 6 +++--- scripts/v7/ch10-08-bad-script.rsc | 8 ++++---- 6 files changed, 18 insertions(+), 18 deletions(-) diff --git a/scripts/v6/ch10-04-bad-script.rsc b/scripts/v6/ch10-04-bad-script.rsc index eecd90f..a2bf857 100644 --- a/scripts/v6/ch10-04-bad-script.rsc +++ b/scripts/v6/ch10-04-bad-script.rsc @@ -21,7 +21,7 @@ # check arg type str of correct length passed if (([:typeof $WebSiteName]!="str") or \ - ([:len value=$WebSiteName] < 6)) do={ + ([:len $WebSiteName] < 6)) do={ $LogMessageFunc ("DnsResolveFunc: arg value $WebSiteName not \ a valid string!"); } @@ -50,7 +50,7 @@ # check arg type str of correct length passed if (([:typeof $SiteName] != "str") or \ - ([:len value=$SiteName] < 6)) do={ + ([:len $SiteName] < 6)) do={ $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \ valid string!"); } diff --git a/scripts/v6/ch10-07-bad-script.rsc b/scripts/v6/ch10-07-bad-script.rsc index 35b7902..804f021 100644 --- a/scripts/v6/ch10-07-bad-script.rsc +++ b/scripts/v6/ch10-07-bad-script.rsc @@ -21,7 +21,7 @@ # check arg type str of correct length passed :if (([:typeof $WebSiteName] != "str") or \ - ([:len value=$WebSiteName] < 6)) do={ + ([:len $WebSiteName] < 6)) do={ $LogMessageFunc ("DnsResolveFunc: arg value $WebSiteName not \ a valid string!"); @@ -67,7 +67,7 @@ # check arg type str of correct length passed :if (([:typeof $SiteName] != "str") or \ - ([:len value=$SiteName] < 6)) do={ + ([:len $SiteName] < 6)) do={ $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \ valid string!"); :return "*** test failed ***"; @@ -80,7 +80,7 @@ } on-error={ $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \ $SiteName !"); - :return { "duration"="*** test failed ***" } + :return { "*** test failed ***" } } } diff --git a/scripts/v6/ch10-08-bad-script.rsc b/scripts/v6/ch10-08-bad-script.rsc index 2c33842..850141d 100644 --- a/scripts/v6/ch10-08-bad-script.rsc +++ b/scripts/v6/ch10-08-bad-script.rsc @@ -37,7 +37,7 @@ $DebugFunc "Checking arg data type is correct"; :if (([:typeof $WebSiteName] != "str") or \ - ([:len value=$WebSiteName] < 6)) do={ + ([:len $WebSiteName] < 6)) do={ :local ErrorMsg "DnsResolveFunc: arg value $WebSiteName \ not a valid string!"; $LogMessageFunc $ErrorMsg; @@ -88,10 +88,10 @@ # check arg type str of correct length passed if (([:typeof $SiteName] != "str") or \ - ([:len value=$SiteName] < 6)) do={ + ([:len $SiteName] < 6)) do={ $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \ valid string!"); - :return { "duration"="*** test failed ***" }; + :return { "*** test failed ***" }; } do { @@ -100,7 +100,7 @@ } on-error { $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \ $SiteName !"); - return { "duration"="*** test failed ***" }; + return { "*** test failed ***" }; } } diff --git a/scripts/v7/ch10-04-bad-script.rsc b/scripts/v7/ch10-04-bad-script.rsc index c3e9080..ab39fc7 100644 --- a/scripts/v7/ch10-04-bad-script.rsc +++ b/scripts/v7/ch10-04-bad-script.rsc @@ -21,7 +21,7 @@ # check arg type str of correct length passed if (([:typeof $WebSiteName]!="str") or \ - ([:len value=$WebSiteName] < 6)) do={ + ([:len $WebSiteName] < 6)) do={ $LogMessageFunc ("DnsResolveFunc: arg value $WebSiteName not \ a valid string!"); } @@ -50,7 +50,7 @@ # check arg type str of correct length passed if (([:typeof $SiteName] != "str") or \ - ([:len value=$SiteName] < 6)) do={ + ([:len $SiteName] < 6)) do={ $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \ valid string!"); } diff --git a/scripts/v7/ch10-07-bad-script.rsc b/scripts/v7/ch10-07-bad-script.rsc index 35b7902..804f021 100644 --- a/scripts/v7/ch10-07-bad-script.rsc +++ b/scripts/v7/ch10-07-bad-script.rsc @@ -21,7 +21,7 @@ # check arg type str of correct length passed :if (([:typeof $WebSiteName] != "str") or \ - ([:len value=$WebSiteName] < 6)) do={ + ([:len $WebSiteName] < 6)) do={ $LogMessageFunc ("DnsResolveFunc: arg value $WebSiteName not \ a valid string!"); @@ -67,7 +67,7 @@ # check arg type str of correct length passed :if (([:typeof $SiteName] != "str") or \ - ([:len value=$SiteName] < 6)) do={ + ([:len $SiteName] < 6)) do={ $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \ valid string!"); :return "*** test failed ***"; @@ -80,7 +80,7 @@ } on-error={ $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \ $SiteName !"); - :return { "duration"="*** test failed ***" } + :return { "*** test failed ***" } } } diff --git a/scripts/v7/ch10-08-bad-script.rsc b/scripts/v7/ch10-08-bad-script.rsc index 2c33842..850141d 100644 --- a/scripts/v7/ch10-08-bad-script.rsc +++ b/scripts/v7/ch10-08-bad-script.rsc @@ -37,7 +37,7 @@ $DebugFunc "Checking arg data type is correct"; :if (([:typeof $WebSiteName] != "str") or \ - ([:len value=$WebSiteName] < 6)) do={ + ([:len $WebSiteName] < 6)) do={ :local ErrorMsg "DnsResolveFunc: arg value $WebSiteName \ not a valid string!"; $LogMessageFunc $ErrorMsg; @@ -88,10 +88,10 @@ # check arg type str of correct length passed if (([:typeof $SiteName] != "str") or \ - ([:len value=$SiteName] < 6)) do={ + ([:len $SiteName] < 6)) do={ $LogMessageFunc ("GetWebPageFunc: arg value $SiteName not a \ valid string!"); - :return { "duration"="*** test failed ***" }; + :return { "*** test failed ***" }; } do { @@ -100,7 +100,7 @@ } on-error { $LogMessageFunc ("GetWebPageFunc: unable to retrieve site: \ $SiteName !"); - return { "duration"="*** test failed ***" }; + return { "*** test failed ***" }; } }