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/Test/IRC/Server.pm6 | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 t/release/Test/IRC/Server.pm6

(limited to 't/release/Test/IRC/Server.pm6')

diff --git a/t/release/Test/IRC/Server.pm6 b/t/release/Test/IRC/Server.pm6
new file mode 100644
index 0000000..fed3d66
--- /dev/null
+++ b/t/release/Test/IRC/Server.pm6
@@ -0,0 +1,20 @@
+unit class Test::IRC::Server;
+
+use JSON::Fast;
+
+has $!port;
+has $!proc;
+has Promise $.promise;
+has @.out;
+
+submethod BUILD (:$!port = 5000, :$server = 't/release/servers/01-basic.pl') {
+    $!proc = Proc::Async.new: 'perl', $server, $!port;
+    $!proc.stdout.tap: {
+        %*ENV<IRC_CLIENT_DEBUG> and dd .lines;
+        @!out.append: |.lines».&from-json
+    };
+    $!proc.stderr.tap: { warn $_                         };
+    $!promise = $!proc.start;
+}
+
+method kill { $!proc.kill; }
-- 
cgit v1.1