shithub: ridefs

Info  •  Files  •  Log  •  Branches

Parameterize server address in tests

--- a/test

+++ b/test

@@ -1,7 +1,13 @@

 #!/bin/rc

-fn fail{ echo $1 >[1=2]; exit $1}

+fn fail{ >[1=2] echo $1 >[1=2]; exit $1 }

+~ $1 '' || addr=$1

+~ $addr '' && {

+	usage

+	fail 'missing server address argument'

+}

+

 ./6.out $* ||

 	fail 'Crashed at startup'

@@ -54,7 +60,7 @@

 <clone {

 	cd `{read}

-	echo 'connect 192.168.11.17' >ctl ||

+	echo 'connect '^$addr >ctl ||

 		fail 'Could not connect to server'

 	<>data >[1=0] {

@@ -76,7 +82,7 @@

 <clone {

 	cd `{read}

-	echo 'connect 192.168.11.17' >ctl

+	echo 'connect '^$addr >ctl

 	<>data >[1=0] {

 		msg='["Execute",{"text":"⍳5\n","trace":0}]'

-- 

⑨