x.websocket: fix autobahn tests for wss and wss close behavor (#6901)

vlib/x/websocket/tests/autobahn/local_run/README.md

@@ -1,4 +0,0 @@
-# Run tests locally
-
-Todo: document how, also how to use https://github.com/nektos/act
-

vlib/x/websocket/tests/autobahn/local_run/autobahn_client.v

@@ -0,0 +1,38 @@
+// use this test to test the websocket client in the autobahn test
+
+module main
+
+import x.websocket
+
+fn main() {
+	for i in 1 ..304  {
+		println('\ncase: $i')
+		handle_case(i) or {
+			println('error should be ok: $err')
+		}
+	}
+	// update the reports
+	uri := 'ws://localhost:9001/updateReports?agent=v-client'
+	mut ws := websocket.new_client(uri)?
+	ws.connect()?
+	ws.listen()?
+}
+
+fn handle_case(case_nr int) ? {
+	uri := 'ws://localhost:9001/runCase?case=$case_nr&agent=v-client'
+	mut ws := websocket.new_client(uri)?
+	ws.on_message(on_message)
+	ws.connect()?
+	ws.listen()?
+}
+
+fn on_message(mut ws websocket.Client, msg &websocket.Message)?  {
+	// autobahn tests expects to send same message back
+	if msg.opcode == .pong {
+		// We just wanna pass text and binary message back to autobahn
+		return
+	}
+	ws.write(msg.payload, msg.opcode) or {
+		panic(err)
+	}
+}

vlib/x/websocket/tests/autobahn/local_run/autobahn_client_wss.v

@@ -0,0 +1,40 @@
+// use this test to test the websocket client in the autobahn test
+
+module main
+
+import x.websocket
+
+fn main() {
+	for i in 1 ..304  {
+		println('\ncase: $i')
+		handle_case(i) or {
+			println('error should be ok: $err')
+		}
+	}
+	// update the reports
+	// uri := 'wss://localhost:9002/updateReports?agent=v-client'
+	uri := 'wss://autobahn_server_wss:9002/updateReports?agent=v-client'
+	mut ws := websocket.new_client(uri)?
+	ws.connect()?
+	ws.listen()?
+}
+
+fn handle_case(case_nr int) ? {
+	uri := 'wss://autobahn_server_wss:9002/runCase?case=$case_nr&agent=v-client'
+	// uri := 'wss://localhost:9002/runCase?case=$case_nr&agent=v-client'
+	mut ws := websocket.new_client(uri)?
+	ws.on_message(on_message)
+	ws.connect()?
+	ws.listen()?
+}
+
+fn on_message(mut ws websocket.Client, msg &websocket.Message)?  {
+	// autobahn tests expects to send same message back
+	if msg.opcode == .pong {
+		// We just wanna pass text and binary message back to autobahn
+		return
+	}
+	ws.write(msg.payload, msg.opcode) or {
+		panic(err)
+	}
+}