From 140959e4f170d732d990e69b9a0ca129b89e3ac4 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Sun, 5 Jun 2016 21:39:47 -0400
Subject: First working test

---
 t/release/01-basic.t | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 68 insertions(+)
 create mode 100644 t/release/01-basic.t

(limited to 't/release/01-basic.t')

diff --git a/t/release/01-basic.t b/t/release/01-basic.t
new file mode 100644
index 0000000..e6a2cd7
--- /dev/null
+++ b/t/release/01-basic.t
@@ -0,0 +1,68 @@
+use lib <lib t/release>;
+use Test;
+use IRC::Client;
+use Test::IRC::Server;
+
+my $Wait = (%*ENV<IRC_CLIENT_TEST_WAIT>//1) * 5;
+
+my $s = Test::IRC::Server.new;
+# $s.start;
+END { $s.kill };
+
+loop {
+    last if $s.out.elems >= 2;
+    sleep 0.5;
+}
+
+start {
+    my $irc = IRC::Client.new(
+        :debug(%*ENV<IRC_CLIENT_DEBUG>//0)
+        :nick<IRCBot>
+        :channels<#perl6 #perl7>
+        :servers(
+            meow => { :port<5000>  }
+        )
+    ).run;
+}
+
+Promise.in($Wait).then: {$s.kill}
+await $s.promise;
+
+my $out = [
+    {:args($[[Any],]), :event("ircd_registered")},
+    {:args($[[5000, 1, "0.0.0.0"],]), :event("ircd_listener_add")},
+    {
+        :args(
+            $[["IRCBot", 1, 'time', "+i", "~Perl6IRC",
+            "simple.poco.server.irc", "simple.poco.server.irc",
+            "Perl6 IRC Client"],]
+        ),
+        :event("ircd_daemon_nick")},
+    {
+        :args($[["IRCBot!~Perl6IRC\@simple.poco.server.irc", "#perl6"],]), :event("ircd_daemon_join")
+    }
+];
+
+# Fix time signature;
+for $s.out {
+    next unless .<event> eq 'ircd_daemon_nick';
+    .<args>[0][2] = 'time';
+}
+
+is-deeply $s.out, $out, 'Server output looks right';
+
+done-testing;
+
+# sleep 10;
+
+# dd $s.out;
+#
+# [
+#     {:args($[[Any],]),                :event("ircd_registered")  },
+#     {:args($[[5000, 1, "0.0.0.0"],]), :event("ircd_listener_add")}
+# ]
+
+
+# ok 1;
+# done-testing;
+#
-- 
cgit v1.1