perl如何模拟线程行为

Question

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

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

编辑:服务器无法运行线程代码,原因如下:

Devel :: Cover还没有使用线程

Answer 1

更新:此答案无法解决编辑问题中描述的OP问题,但它可能对某人有用.

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

1. 你的Perl版本很老了.
2. 编译Perl时没有线程支持.
3. 您的测试框架并未考虑到线程代码.

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

我不认为你应该通过模拟线程行为来解决这个问题.这会将原始代码更改为有效测试.无论如何,这将是一项重要的工作,那么为什么不直接努力使线程测试工作呢？

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

在这种情况下,您需要的只是一个包装子,它调用您正在测试的子,然后阻塞直到线程完成.这应该很简单.看看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;