TEST: UDP port - Oldes/Rebol-issues#1803

src/tests/test-udp-server.r3

@@ -0,0 +1,27 @@
+Rebol [
+	Title: "Test UDP server"
+	File: %test-udp-server.r3
+	Note: https://github.com/rebol/rebol/pull/218
+]
+
+print [as-red "Opening UDP server listening on port" as-yellow 1189]
+
+udp-server: try/except [open udp://:1189][
+	print as-purple "Failed to listen on UDP port 1189!"
+	quit
+]
+
+udp-server/awake: func [event] [
+	print ["UDP event:" as-yellow event/type]
+	true
+]
+
+forever [
+	wait read udp-server
+	str: to string! udp-server/data
+	print ["UDP input:" as-green mold str]
+	if str = "quit" [close udp-server break]
+	clear udp-server/data
+]
+print as-red "SERVER DONE"
+wait 0:0:1

src/tests/test-udp.r3

@@ -0,0 +1,21 @@
+Rebol [
+	Title: "Test UDP client"
+	File: %test-udp.r3
+	Note: https://github.com/rebol/rebol/pull/218
+]
+
+; start test UDP server...
+launch probe to-real-file %test-udp-server.r3
+
+; wait some time for server to boot...
+wait 0:0:0.1
+
+; send some data...
+port: open udp://127.0.0.1:1189 
+; there seems to be a bug in current implementation
+; where message is lost if there is no wait between each write!
+write port "Hello" wait 0:0:0.1
+write port "Rebol" wait 0:0:0.1
+write port "quit"
+print as-red "CLIENT DONE"
+wait 0:0:1