commit - 0b453b63092adb976784e2e908bed7618100dfc3
commit + ee680ff06607507d02b4777f89bd8bf902d751da
blob - c8d3358abbdf58f8e98cefae7edc19ea66e0820c
blob + f6e2f5d5ca165a62141476d73c1d9c8306fdffde
--- regress/super-simple.9ps
+++ regress/super-simple.9ps
@@ -11,5 +11,11 @@ testing "if version works" dir "./root" {
 	send(Tversion, notag, msize, version)
 	m = recv()
 	assert m.type == Rversion
-	print("the response is", m)
+	# print("the response is", m)
 }
+
+testing "fails when sending a R-message" dir "./root" should-fail {
+	send(Rversion, notag, msize, version)
+	# the client should close the connection
+	recv()
+}