perl - 调用 require_ok '*.pl' 以通过 Test::More 进行测试时如何传递参数

Question

我想知道如何单独测试 *.pl 文件中的每个子路由。但不能使用 'require' 子句，因为某些 *.pl 需要参数。

例如

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

将始终在“要求”处测试失败。
因为“some.pl”需要一个参数并以

exit(0);

的文件。

我只想单独测试“*.pl”中的每个子路由“Func1,usage,...whatever”。

some.pl 就是这样

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

sub Func1 {
      print "hello";
    }

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

如何通过“Test::More”为“sub Func1”编写测试代码？

任何建议表示赞赏。

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");