2

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

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

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

Devel::Cover 还不支持线程

4

1 回答 1

5

更新：此答案不能解决已编辑问题中描述的 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;
于 2013-01-16T11:51:03.503 回答