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/servers/01-basic.pl | 67 ++++++++++++++++++++-----------------------
 1 file changed, 31 insertions(+), 36 deletions(-)

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

diff --git a/t/release/servers/01-basic.pl b/t/release/servers/01-basic.pl
index fe5ea06..086e213 100644
--- a/t/release/servers/01-basic.pl
+++ b/t/release/servers/01-basic.pl
@@ -1,8 +1,13 @@
-# A fairly simple example:
 use strict;
 use warnings;
+use JSON::Meth;
+use 5.020;
 use POE qw(Component::Server::IRC);
 
+$|++;
+
+my ($Port) = @ARGV;
+
 my %config = (
     servername => 'simple.poco.server.irc',
     nicklen    => 15,
@@ -24,44 +29,34 @@ sub _start {
     my ($kernel, $heap) = @_[KERNEL, HEAP];
 
     $heap->{ircd}->yield('register', 'all');
-
-    # Anyone connecting from the loopback gets spoofed hostname
-    # $heap->{ircd}->add_auth(
-    #     mask     => '*@localhost',
-    #     spoof    => 'm33p.com',
-    #     no_tilde => 1,
-    # );
-
-    # We have to add an auth as we have specified one above.
     $heap->{ircd}->add_auth(mask => '*@*');
-
-    # Start a listener on the 'standard' IRC port.
-    $heap->{ircd}->add_listener(port => 5667);
-
-    # Add an operator who can connect from localhost
-    $heap->{ircd}->add_operator(
-        {
-            username => 'moo',
-            password => 'fishdont',
-        }
-    );
+    $heap->{ircd}->add_listener(port => $Port);
+    $heap->{ircd}->add_operator({
+        username => 'moo',
+        password => 'fishdont',
+    });
 }
 
 sub _default {
     my ($event, @args) = @_[ARG0 .. $#_];
-
-    print "$event: ";
-    for my $arg (@args) {
-        if (ref($arg) eq 'ARRAY') {
-            print "[", join ( ", ", @$arg ), "] ";
-        }
-        elsif (ref($arg) eq 'HASH') {
-            print "{", join ( ", ", %$arg ), "} ";
-        }
-        else {
-            print "'$arg' ";
-        }
-    }
-
-    print "\n";
+    say {
+        event => $event,
+        args  => \@args,
+    }->$j;
+
+
+ #    print "$event: ";
+ #    for my $arg (@args) {
+ #        if (ref($arg) eq 'ARRAY') {
+ #            print "[", join ( ", ", @$arg ), "] ";
+ #        }
+ #        elsif (ref($arg) eq 'HASH') {
+ #            print "{", join ( ", ", %$arg ), "} ";
+ #        }
+ #        else {
+ #            print "'$arg' ";
+ #        }
+ #    }
+ #
+ #    print "\n";
  }
-- 
cgit v1.1