Test output for redis-client [fail]

Testing time: 0s

/home/mario/local/chicken-4.8.0.3/bin/csi -script run.scm < /dev/null

Error: (socket-connect) cannot initiate connection - Connection refused
#<socket fd:4 af/inet sock/stream>
#<sockaddr "127.0.0.1:6379">

	Call history:

	<syntax>	  [test] (procedure? b)
	<syntax>	  [test] (b a)
	<syntax>	  [test] (if (not (equal? a b)) (if (not (get-environment-variable "SALMONELLA_RUNNING")) (error (sprintf "Fa...
	<syntax>	  [test] (##core#if (not (equal? a b)) (if (not (get-environment-variable "SALMONELLA_RUNNING")) (error (spri......
	<syntax>	  [test] (not (equal? a b))
	<syntax>	  [test] (equal? a b)
	<syntax>	  [test] (if (not (get-environment-variable "SALMONELLA_RUNNING")) (error (sprintf "Failed test: ~S != ~S" a b...
	<syntax>	  [test] (##core#if (not (get-environment-variable "SALMONELLA_RUNNING")) (error (sprintf "Failed test: ~S !=...
	<syntax>	  [test] (not (get-environment-variable "SALMONELLA_RUNNING"))
	<syntax>	  [test] (get-environment-variable "SALMONELLA_RUNNING")
	<syntax>	  [test] (error (sprintf "Failed test: ~S != ~S" a b))
	<syntax>	  [test] (sprintf "Failed test: ~S != ~S" a b)
	<syntax>	  [test] (##core#undefined)
	<syntax>	  [test] (##core#undefined)
	<syntax>	  (redis-connect "127.0.0.1" 6379)
	<eval>	  (redis-connect "127.0.0.1" 6379)	<--