diff options
| author | Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de> | 2016-11-03 09:37:02 +0100 |
|---|---|---|
| committer | Heiko Schlittermann (HS12-RIPE) <hs@schlittermann.de> | 2016-11-03 09:37:02 +0100 |
| commit | b369d47038a075706f6dfe57ab2e1ebeea0e5bdf (patch) | |
| tree | c2b4912cf1934397b814e4d8fd6ea6f8dd569c10 /test/t/00-basic.t | |
| parent | b16852e23e1c477797bd7ce578a0f96bf341341c (diff) | |
Testsuite: move dynamic_socket to Exim::Runtest
Diffstat (limited to 'test/t/00-basic.t')
| -rw-r--r-- | test/t/00-basic.t | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/test/t/00-basic.t b/test/t/00-basic.t index a131b762f..3d5503a08 100644 --- 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'; -can_ok 'Exim::Runtest', qw(mailgroup); +can_ok 'Exim::Runtest', qw(mailgroup dynamic_socket); subtest 'mailgroup' => sub { my $group = getgrgid $(; @@ -16,6 +16,12 @@ subtest 'mailgroup' => sub { 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; |