在 Perl 单元测试期间如何在后台启动 TCP 服务器？

Question

我正在尝试为客户端服务器应用程序编写单元测试。为了测试客户端，在我的单元测试中，我想首先启动我的 tcp 服务器（它本身是另一个 perl 文件）。我尝试通过分叉来启动 TCP 服务器：

if (! fork()) {
    system ("$^X server.pl") == 0 or die "couldn't start server"
}

因此，当我在 perl Makefile.PL 之后调用 make test 时，此测试启动，我可以看到服务器启动，但之后单元测试就挂在那里。所以我想我需要在后台启动这个服务器，我在最后尝试了 & 来强制它在后台启动，然后测试继续。但是，我还是没能成功。我做错了什么？谢谢。

Answer 1

1.尝试 来自类似的 Ether 的建议问：

    use Proc::Daemon;
    # do everything you need to do before forking the child...

    # make into daemon; closes all open fds
    Proc::Daemon::Init();

2。如果您使用 IO::Socket 进行 TCP 连接（或任何其他模块 - CPAN 或您自己的模块），那么您确实应该使用模拟（例如 Test::MockObject ）来模拟实际的套接字通信。这样，您的客户端（或服务器的）测试在测试时将与其他代码段隔离（尽管您仍然需要服务器运行 - 但这次手动就可以了 - 记录初始的待模拟调用IO::Socket 。