Testsuite: check dynamic port >= 1024 to avoid permission problems

diff --git a/test/t/00-basic.t b/test/t/00-basic.t
index 3d5503a08d2a5761f8c067725cbbb6f8c56a2680..af7414aa2d4505cf837b4ac4fea38d19bd50c831 100644 (file)
--- a/test/t/00-basic.t
+++ b/test/t/00-basic.t
@@ -20,6 +20,7 @@ subtest 'dynamic_socket' => sub {
     ok my $socket = Exim::Runtest::dynamic_socket() => 'got a socket';
     diag "got socket on port @{[$socket->sockport]}";
     isa_ok $socket => 'IO::Socket::INET';
+    cmp_ok $socket->sockport(), '>=', 1024 => 'port is >= 1024';
     $socket->close;
 };