diff options
author | Jesse Luehrs <doy@tozt.net> | 2011-04-14 00:38:58 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-14 00:38:58 -0500 |
commit | 2a98b4ece0b65405252da1ed51832c9497f4d8ad (patch) | |
tree | ac9496439bdb0dfe68386d15ba86736b88ac2bbb | |
parent | 18bc512e9bf85b9e3d99015247bb143185c635fc (diff) | |
download | app-termcast-2a98b4ece0b65405252da1ed51832c9497f4d8ad.tar.gz app-termcast-2a98b4ece0b65405252da1ed51832c9497f4d8ad.zip |
update the tests to properly send login acknowledgement
-rw-r--r-- | t/01-basic.t | 1 | ||||
-rw-r--r-- | t/02-read-write.t | 1 | ||||
-rw-r--r-- | t/03-write-to-termcast.t | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 7dd9a7e..ea2ae54 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -34,6 +34,7 @@ EOF my $login; $client->recv($login, 4096); is($login, "hello test tset\n", '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'); diff --git a/t/02-read-write.t b/t/02-read-write.t index a03effb..a30fce4 100644 --- a/t/02-read-write.t +++ b/t/02-read-write.t @@ -42,6 +42,7 @@ EOF my $login; $client->recv($login, 4096); is($login, "hello test tset\n", 'got the correct login info'); + $client->send("hello, test\n"); my $output; my $total_out = ''; while (1) { diff --git a/t/03-write-to-termcast.t b/t/03-write-to-termcast.t index 04045cf..db9cfca 100644 --- a/t/03-write-to-termcast.t +++ b/t/03-write-to-termcast.t @@ -30,6 +30,7 @@ test_tcp( my $login; $client->recv($login, 4096); is($login, "hello test tset\n", 'got the correct login info'); + $client->send("hello, test\n"); my $buf; $client->recv($buf, 4096); is($buf, 'foo', 'wrote correctly'); |