diff options
| -rw-r--r-- | t/perf-nntpd.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/perf-nntpd.t b/t/perf-nntpd.t index e5021532..f7890d1c 100644 --- a/t/perf-nntpd.t +++ b/t/perf-nntpd.t @@ -78,7 +78,7 @@ if (($ENV{NNTP_TEST_URL} || '') =~ m!\Anntp://([^/]+)/([^/]+)\z!) { $s = IO::Socket::INET->new(%opts); $s->autoflush(1); my $buf = $s->getline; -is($buf, "201 server ready - post via email\r\n", 'got greeting'); +like($buf, qr/\A201 .* ready - post via email\r\n/s, 'got greeting'); my $t = timeit(10, sub { ok($s->print("GROUP $group\r\n"), 'changed group'); |