summaryrefslogtreecommitdiffstats
path: root/t/03-write-to-termcast.t
diff options
context:
space:
mode:
Diffstat (limited to 't/03-write-to-termcast.t')
-rw-r--r--t/03-write-to-termcast.t6
1 files changed, 2 insertions, 4 deletions
diff --git a/t/03-write-to-termcast.t b/t/03-write-to-termcast.t
index 852c5f4..1e505f2 100644
--- a/t/03-write-to-termcast.t
+++ b/t/03-write-to-termcast.t
@@ -29,12 +29,10 @@ test_tcp(
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 $buf;
$client->recv($buf, 4096);
is($buf, 'foo', 'wrote correctly');