Testsuite: check dynamic port >= 1024 to avoid permission problems
authorHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Thu, 3 Nov 2016 08:45:17 +0000 (09:45 +0100)
committerHeiko Schlittermann (HS12-RIPE) <hs@schlittermann.de>
Thu, 3 Nov 2016 08:45:17 +0000 (09:45 +0100)
test/t/00-basic.t

index 3d5503a..af7414a 100644 (file)
@@ -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;
 };