diff options
author | Zoffix Znet <zoffixznet@users.noreply.github.com> | 2016-07-26 08:50:02 -0400 |
---|---|---|
committer | GitHub <noreply@github.com> | 2016-07-26 08:50:02 -0400 |
commit | e0478c07e2096d85e20764c08c83a3d16c002e94 (patch) | |
tree | 592510005886adaadb49848d289c5c712279ecee /t/release/Test/IRC/Server.pm6 | |
parent | e997c1b0b5ad796425abfc9f81b91947357172ce (diff) | |
parent | cc19189ff6b74bea5211d521a59dbff0c71a0749 (diff) |
Merge Rewrite 2.0 version into master
Old version should not be used anymore and 2.0 is ready to go, sans some bugs
Diffstat (limited to 't/release/Test/IRC/Server.pm6')
-rw-r--r-- | t/release/Test/IRC/Server.pm6 | 20 |
1 files changed, 20 insertions, 0 deletions
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; } |