git://git.exim.org
/
exim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Testsuite: move dynamic_socket to Exim::Runtest
[exim.git]
/
test
/
t
/
00-basic.t
diff --git
a/test/t/00-basic.t
b/test/t/00-basic.t
index a131b762faf2bfb19c857a78439f73a61c6397db..3d5503a08d2a5761f8c067725cbbb6f8c56a2680 100644
(file)
--- a/
test/t/00-basic.t
+++ b/
test/t/00-basic.t
@@
-2,7
+2,7
@@
use Test::More;
use lib 'lib';
use_ok 'Exim::Runtest' or BAIL_OUT 'Can not load the module';
use lib 'lib';
use_ok 'Exim::Runtest' or BAIL_OUT 'Can not load the module';
-can_ok 'Exim::Runtest', qw(mailgroup);
+can_ok 'Exim::Runtest', qw(mailgroup
dynamic_socket
);
subtest 'mailgroup' => sub {
my $group = getgrgid $(;
subtest 'mailgroup' => sub {
my $group = getgrgid $(;
@@
-16,6
+16,12
@@
subtest 'mailgroup' => sub {
ok getgrnam($group) => 'got an existing group';
};
ok getgrnam($group) => 'got an existing group';
};
+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';
+ $socket->close;
+};
done_testing;
done_testing;