Basic tests for UDP sockets.

S32-io/IO-Socket-Async-UDP.t

@@ -0,0 +1,36 @@
+use v6;
+use Test;
+
+plan 2;
+
+my $hostname = 'localhost';
+my $port = 5001;
+
+# Promise used to check listener received data, and to make
+my $rec-prom;
+
+# Listener
+{
+    my $sock = IO::Socket::Async.bind-udp($hostname, $port);
+    my $tap = $sock.Supply.tap: -> $chars {
+        $rec-prom.keep($chars);
+    }
+}
+
+# Client print-to
+{
+    $rec-prom = Promise.new;
+    my $sock = IO::Socket::Async.udp();
+    $sock.print-to($hostname, $port, "Unusually Dubious Protocol");
+    is $rec-prom.result, "Unusually Dubious Protocol", "Sent/received data with UDP (print)";
+    $sock.close;
+}
+
+# Client write-to
+{
+    $rec-prom = Promise.new;
+    my $sock = IO::Socket::Async.udp();
+    $sock.write-to($hostname, $port, "Unhelpful Dataloss Protocl".encode('ascii'));
+    is $rec-prom.result, "Unhelpful Dataloss Protocl", "Sent/received data with UDP (write)";
+    $sock.close;
+}