use strict;
use warnings;
use PocketIO::Pool;
use Test::More tests => 2;
my $pool = PocketIO::Pool->new;
ok($pool);
my $sockets = PocketIO::Sockets->new(pool => $pool);
{
# monkey patch PocketIO::Pool;
no warnings 'redefine';
my $message;
local *PocketIO::Pool::send_raw = sub {
my $self = shift;
my %message = @_;
$message = $message{message};
return $self;
};
my $room = $sockets->in('test');
$room->send({ test => 1 });
is_deeply($message, { test => 1 }, "Room::send doesn't stringify message");
}