diff options
Diffstat (limited to 't/release/Test/IRC/Server.pm6')
-rw-r--r-- | t/release/Test/IRC/Server.pm6 | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/t/release/Test/IRC/Server.pm6 b/t/release/Test/IRC/Server.pm6 deleted file mode 100644 index fed3d66..0000000 --- a/t/release/Test/IRC/Server.pm6 +++ /dev/null @@ -1,20 +0,0 @@ -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; } |