diff options
Diffstat (limited to 't/02-read-write.t')
-rw-r--r-- | t/02-read-write.t | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/t/02-read-write.t b/t/02-read-write.t index f5ef179..5fd6baa 100644 --- a/t/02-read-write.t +++ b/t/02-read-write.t @@ -43,12 +43,10 @@ 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"); - # skip over metadata - tested in 01-basic.t - $client->recv(my $metadata, 4096); - my $output; my $total_out = ''; while (1) { |