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

Question

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

, например

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

, всегда будет проходить проверку при 'require'.
, потому что '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");