FIX: improved UDP scheme server/client test scripts

related to: Oldes/Rebol-issues#1803

Author: Oldes

src/tests/test-udp-client.r3

@@ -35,6 +35,8 @@ wait 1 ;= pretending some work here...
 write-udp "I'm done!"
 write-udp "quit"
 
-either system/options/script [
-	  ask as-red "CLIENT DONE"
-][	print as-red "CLIENT DONE" wait 0.5]
+print as-red "CLIENT DONE"
+wait 0.5
+if system/options/script [
+	ask "ENTER to quit"
+]

src/tests/test-udp-server.r3

@@ -12,21 +12,28 @@ udp-server: try/except [open udp://:1189][
 ]
 stdout: system/ports/output
 
-udp-server/awake: func [event] [
+udp-server/awake: func [event /local port str] [
+	port: event/port
 	print ["[UDP Server] event:" event/type]
+	switch event/type [
+		read [
+			str: to string! port/data
+			clear port/data
+			print ["[UDP Server] received:" as-green mold str]
+			if str = "quit" [port/state: 'quit]
+		]
+	]
 	;; console output is buffered and so messages could come out of order;
 	;; to prevent it, just use the `flush`! 
-	flush stdout
+	flush stdout 
 	true
 ]
-
 forever [
 	wait read udp-server
-	str: to string! udp-server/data
-	print ["[UDP Server] received:" as-green mold str]
-	flush stdout ;= flush console buffer!
-	if str = "quit" [close udp-server break]
-	clear udp-server/data
+	if udp-server/state  = 'quit [
+		close udp-server
+		break
+	]
 ]
 
 print as-red "SERVER DONE"