diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-04-14 04:01:07 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-14 04:01:07 -0500 |
commit | e9a81b456202679d408f13910c9a2a0ff5eac973 (patch) | |
tree | 6e16181d18540c10828579f5f543bee9da260664 /t/01-basic.t | |
parent | f0ff57fc713d7b9ae8edc9002d6afa8aa89196ef (diff) | |
download | app-termcast-e9a81b456202679d408f13910c9a2a0ff5eac973.tar.gz app-termcast-e9a81b456202679d408f13910c9a2a0ff5eac973.zip |
make the tests a bit more reliable
there are probably still race conditions here (this is pretty hacky in
general), but it's miles better than "sleep", so we'll go with it for
now.
Diffstat (limited to 't/01-basic.t')
-rw-r--r-- | t/01-basic.t | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 48bea2c..d3ae485 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -7,9 +7,15 @@ use IO::Pty::Easy; use App::Termcast; +pipe(my $cread, my $swrite); +pipe(my $sread, my $cwrite); + test_tcp( client => sub { my $port = shift; + close $swrite; + close $sread; + { sysread($cread, my $buf, 1) } my $inc = join ':', grep { !ref } @INC; my $client_script = <<EOF; BEGIN { \@INC = split /:/, '$inc' } @@ -20,24 +26,30 @@ test_tcp( EOF my $pty = IO::Pty::Easy->new; $pty->spawn("$^X", "-e", $client_script); + syswrite($cwrite, 'a'); + { sysread($cread, my $buf, 1) } is($pty->read, 'foo', 'got the right thing on stdout'); - sleep 1; # because the server gets killed when the client exits }, server => sub { my $port = shift; + close $cwrite; + close $cread; my $sock = IO::Socket::INET->new(LocalAddr => '127.0.0.1', LocalPort => $port, Listen => 1); $sock->accept; # signal to the client that the port is available + syswrite($swrite, 'a'); my $client = $sock->accept; + { sysread($sread, my $buf, 1) } my $login; $client->recv($login, 4096); - my $auth_regexp = qr/^hello test tset\n\e\[H\x00.+?\xff\e\[H\e\[2J/; + my $auth_regexp = qr/^hello test tset\n(?:\e\[H\x00.+?\xff\e\[H\e\[2J)?/; like($login, $auth_regexp, 'got the correct login info'); $client->send("hello, test\n"); my $output; $client->recv($output, 4096); is($output, "foo", 'sent the right data to the server'); + syswrite($swrite, 'a'); }, ); |