Как передать аргументы при вызове require_ok '*.pl' для проверки Test::More

Question

Мне интересно, как проверить каждую подпрограмму в файлах *.pl индивидуально. Но нельзя использовать предложение require, потому что некоторые *.pl требуют аргументов.

например

use Test::More;
require "some.pl"

всегда будет терпеть неудачу Тестировать на "требуется".
потому что "some.pl" требует аргумента и заканчивается

exit(0);

файла.

Я просто хочу протестировать "Func1, использование,... что угодно" каждую подпрограмму в '*.pl' индивидуально.

some.pl такой

my ( $cmd) = @ARGV;  
if (!defined $cmd ) {
    usage();
} else {
    &Func1;
}
exit(0);

sub Func1 {
      print "hello";
    }

sub usage {
     print "Usage:\n",
    }

Как я могу написать тестовый код для "sub Func1" с помощью "Test::More"?

Любые предложения ценю.

Answer 1

Чтобы запустить автономный скрипт, который должен выйти, запустите его с system. Захватите результат и проверьте его в концеsystem вызов.

use Test::More;
my $c = system("$^X some.pl arg1 arg2 > file1 2> file2");
ok($c == 0, 'program exited with successful exit code');
open my $fh, "<", "file1";
my $data1 = do { local $/; <$fh> };
close $fh;
open $fh, "<", "file2";
my $data2 = do { local $/; <$fh> };
close $fh;
ok( $data1 =~ /Funct1 output/, "program called Funct1");
ok( $data2 !~ /This is how you use the program, you moron/,
    "usage message not printed to STDERR" );
unlink("file1","file2");