server/tests.at: Quote messages being echoed.
authorMark Wooding <mdw@distorted.org.uk>
Mon, 20 Sep 2021 22:56:45 +0000 (23:56 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Mon, 20 Sep 2021 23:35:03 +0000 (00:35 +0100)
For consistency, and to make the literals stand out in my editor.

server/tests.at

index 5f8377a..ef2039a 100644 (file)
@@ -112,7 +112,7 @@ $3
 ## End of the test, now run the server.
 ) && :; } | {
   cd $1
-  echo TRIPE $2 >&2
+  echo "TRIPE $2" >&2
   WITH_STRACE([tripe], [TRIPE $2 >server-output.full 2>server-errors.full])
   stat=$?
   echo $stat >server-status
@@ -242,7 +242,7 @@ m4_define([AWAIT_KXDONE], [
 
   ## Watch for the key-exchange completion announcement in the background.
   COPROCESSES([wait-$1], [
-    echo WATCH +n
+    echo "WATCH +n"
     while read line; do
       set x $line; shift
       echo >&2 ">>> $line"
@@ -320,7 +320,7 @@ m4_define([TRIPECTL_COMMAND], [
 
 AT_SETUP([server basics])
 SETUPDIR([alpha])
-AT_CHECK([echo port | TRIPE -p54321],, [INFO 54321[]nl[]OK[]nl])
+AT_CHECK([echo "port" | TRIPE -p54321],, [INFO 54321[]nl[]OK[]nl])
 AT_CLEANUP
 
 ###--------------------------------------------------------------------------
@@ -338,7 +338,7 @@ WITH_TRIPE(, [
   ## server chose the same key is negligible.)
   AT_CHECK([TRIPECTL checkchal AAAAAHyoOL+HMaE0Y9B3ivuszt0], [1],,
           [tripectl: invalid-challenge[]nl])
-  echo WARN CHAL incorrect-tag >>expected-server-output
+  echo "WARN CHAL incorrect-tag" >>expected-server-output
 
   ## A duplicated challenge.
   AT_CHECK([
@@ -346,7 +346,7 @@ WITH_TRIPE(, [
     TRIPECTL CHECKCHAL $chal
     TRIPECTL CHECKCHAL $chal
   ], [1],, [tripectl: invalid-challenge[]nl])
-  echo WARN CHAL replay duplicated-sequence >>expected-server-output
+  echo "WARN CHAL replay duplicated-sequence" >>expected-server-output
 
   ## Out-of-order reception.  There should be a window of 32 challenges; we
   ## make 33 and check them in a strange order.
@@ -672,7 +672,7 @@ WITH_TRIPE(, [
   ## Run a simple service.
   rm -f svc-test-running tripectl-status
   COPROCESSES([svc], [
-    echo SVCCLAIM test 1.0.0
+    echo "SVCCLAIM test 1.0.0"
     read line
     case "$line" in
       OK)
@@ -682,19 +682,19 @@ WITH_TRIPE(, [
        exit 1
        ;;
     esac
-    echo ok >svc-test-running
+    echo "ok" >svc-test-running
     while read line; do
       set -- $line
       case "$[]1,$[]3,$[]4" in
        SVCJOB,test,HELP)
-         echo SVCINFO try not to use this service for anything useful
-         echo SVCOK $[]2
+         echo "SVCINFO try not to use this service for anything useful"
+         echo "SVCOK $[]2"
          ;;
        SVCJOB,test,GOOD)
-         echo SVCOK $[]2
+         echo "SVCOK $[]2"
          ;;
        SVCJOB,test,BAD)
-         echo SVCFAIL $[]2 this-command-always-fails
+         echo "SVCFAIL $[]2 this-command-always-fails"
          ;;
        SVCJOB,test,UGLY)
          tag=$2
@@ -713,11 +713,11 @@ WITH_TRIPE(, [
          firsttag=$[]2
          ;;
        SVCJOB,test,SECOND)
-         echo SVCOK $firsttag
-         echo SVCOK $[]2
+         echo "SVCOK $firsttag"
+         echo "SVCOK $[]2"
          ;;
        SVCJOB,*)
-         echo SVCFAIL $[]2 unknown-svc-command $[]4
+         echo "SVCFAIL $[]2 unknown-svc-command $[]4"
          ;;
        SVCCLAIM,*)
          break