jro*_*way 10

不确定你在问什么,但大多数人用Test :: MoreTest :: Class编写测试 .然后prove使用Perl 附带的命令运行这些测试(实际上,使用Test :: Harness).

示例测试:

# foo.t
use strict;
use warnings;
use Test::More tests => 1;

ok( 1 == 1, 'is one one?' );
Run Code Online (Sandbox Code Playgroud)

运行这个:

$ prove foo.t

foo....ok
All tests successful.
Files=1, Tests=1,  0 wallclock secs ( 0.01 usr  0.01 sys +  0.03 cusr  0.00 csys =  0.05 CPU)
Result: PASS
Run Code Online (Sandbox Code Playgroud)