Не уверен, что вы спрашиваете, но большинство людей пишут тесты с
Test :: More или
Test :: Class . Ты тогда
Запустите эти тесты с помощью команды prove
, включенной в Perl (на самом деле,
с тестом :: жгут).
Пример теста:
# foo.t
use strict;
use warnings;
use Test::More tests => 1;
ok( 1 == 1, 'is one one?' );
Запуск этого:
$ 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