jro*_*way 10
不确定你在问什么,但大多数人用Test :: More或
Test :: 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)
| 归档时间: |
|
| 查看次数: |
675 次 |
| 最近记录: |