summaryrefslogtreecommitdiffstats
path: root/t/01-basic.t
diff options
context:
space:
mode:
Diffstat (limited to 't/01-basic.t')
-rw-r--r--t/01-basic.t8
1 files changed, 3 insertions, 5 deletions
diff --git a/t/01-basic.t b/t/01-basic.t
index 95e4059..f353c42 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 => 4;
+ plan tests => 3;
}
test_tcp(
@@ -35,11 +35,9 @@ EOF
my $client = $sock->accept;
my $login;
$client->recv($login, 4096);
- is($login, "hello test tset\n", 'got the correct login info');
+ 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 $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');