Как выполнить тесты Perl, расположенные в нескольких файлах?

Question

Почему следующий код выполняет тесты только из файла check2.t?

#!/usr/bin/perl -w

use strict; 
use warnings; 
use Modern::Perl;

use TAP::Harness::JUnit;

my $harness = TAP::Harness::JUnit->new({
   xmlfile => 'output.xml',
   namemangle => 'hudson',
   merge => 1
});

$harness->runtests(['check1.t', 'check2.t']);

Answer 1

На самом деле, он запускает тесты с check1.t при вызове check2.t. Как указывал Даворг, runtests ожидает список тестов, а не массив ссылок на тесты. Причина, по которой он работает, заключается в том, что runtests также позволяет вводить тестовую запись в форме [ 'filename', 'comment' ], где filename - это имя тестового файла, а comment - строка для отображения. (Это задокументировано в базовом классе, TAP :: Harness .)

Answer 2

Он даже запускает тесты из check2.t? Документация для модуля гласит, что runtests принимает список тестовых файлов, а не ссылку на массив. Попробуйте изменить строку runtests на:

$harness->runtests('check1.t', 'check2.t');