perl如何模拟线程行为

Question

我想用 perl 为子例程编写单元测试。该子例程使用多个线程来完成其任务。因此，它首先创建一些线程，然后等待它们加入。

问题是我们的单元测试在无法运行多线程测试的服务器上运行，因此我需要以某种方式模拟线程行为。基本上我想覆盖线程创建和连接函数，这样它就不再线程化了。任何指示我如何做到这一点并测试代码？

编辑:由于以下原因，服务器无法运行线程代码:

Devel::Cover does not yet work with threads

Answer 1

更新:此答案并未解决已编辑问题中描述的 OP 问题，但它可能对某些人有用。

Perl 线程是一种解释器仿真，而不是操作系统功能。所以，他们应该在任何平台上工作。如果您的测试服务器不支持线程，可能是出于以下原因之一:

1. 您的 Perl 版本非常旧。
2. Perl 是在没有线程支持的情况下编译的。
3. 您的测试框架在创建时并未考虑线程代码。

前两个可以通过更新您的环境轻松纠正。但是，我怀疑你的是第三个问题。

我认为您不应该通过模拟线程行为来解决这个问题。这对原始代码的改动太大，无法成为有效的测试。无论如何，这将是一项大量的工作，那么为什么不将这些努力直接用于使线程测试正常工作呢？

确切的问题取决于您的代码，但问题可能是您的子例程启动一个线程然后返回，线程仍在运行。然后您的测试框架一遍又一遍地运行子程序，累积一大堆并发线程。

在那种情况下，您所需要的只是一个包装子，它调用您正在测试的子，然后阻塞直到线程完成。这应该相当简单。看看threads->list()查看如何检测正在运行的线程。只需要一个循环，等待相关线程在退出包装器子之前不再运行。

这是一个简单的完整示例，演示了一个包装子:

#!usr/bin/perl
use strict;
use warnings;
use threads;

sub sub_to_test {

    threads->create(sub { sleep 5; print("Thread done\n"); threads->detach() });
    return "Sub done\n";
}

sub wrapper {
    #Get a count of the running threads.
    my $original_running_threads = threads->list(threads::running);

    my @results = sub_to_test(@_);

    #block until the number of running threads is the same as when we started.
    sleep 1 while (threads->list(threads::running) > $original_running_threads);

    return @results;
}

print wrapper;