t/001-basic.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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');
    },
);