diff options
author | Jason May <jason.a.may@gmail.com> | 2011-03-10 12:21:08 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2011-04-14 01:19:03 -0500 |
commit | f571d1e6cb78d873b28248291e80076932ef98fc (patch) | |
tree | f5f155fd2428a28380cb7a070d9f523cf01fb801 /t/01-basic.t | |
parent | a598a9e3e879e0d24e23d9d22a65191706e64f4a (diff) | |
download | app-termcast-f571d1e6cb78d873b28248291e80076932ef98fc.tar.gz app-termcast-f571d1e6cb78d873b28248291e80076932ef98fc.zip |
update tests
Diffstat (limited to 't/01-basic.t')
-rw-r--r-- | t/01-basic.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/01-basic.t b/t/01-basic.t index 73e0c26..95e4059 100644 --- a/t/01-basic.t +++ b/t/01-basic.t @@ -7,7 +7,7 @@ use IO::Pty::Easy; BEGIN { eval "use Test::TCP;"; plan skip_all => "Test::TCP is required for this test" if $@; - plan tests => 3; + plan tests => 4; } test_tcp( @@ -37,6 +37,9 @@ EOF $client->recv($login, 4096); is($login, "hello test tset\n", 'got the correct login info'); $client->send("hello, test\n"); + my $metadata; + $client->recv($metadata, 4096); + ok($metadata, 'metadata successfully sent'); my $output; $client->recv($output, 4096); is($output, "foo", 'sent the right data to the server'); |