diff options
Diffstat (limited to 't/001-basic.t')
-rw-r--r-- | t/001-basic.t | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/t/001-basic.t b/t/001-basic.t new file mode 100644 index 0000000..a8867a9 --- /dev/null +++ b/t/001-basic.t @@ -0,0 +1,31 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use App::Termcast; +BEGIN { + eval "use Test::TCP;"; + plan skip_all => "Test::TCP is required for this test" if $@; + plan tests => 1; +} + +test_tcp( + client => sub { + my $port = shift; + my $tc = App::Termcast->new(host => '127.0.0.1', port => $port, + user => 'test', password => 'tset', + extra_argv => ["$^X", "-e", "print 'foo'"]); + $tc->run; + }, + server => sub { + my $port = shift; + my $sock = IO::Socket::INET->new(LocalAddr => '127.0.0.1', + LocalPort => $port, + Listen => 1); + $sock->accept; + my $client = $sock->accept; + my $login; + $client->recv($login, 4096); + is($login, "hello test tset\n", 'got the correct login info'); + }, +); |