37 lines
549 B
Plaintext
37 lines
549 B
Plaintext
# #!/usr/bin/perl
|
|
|
|
# use test classes
|
|
snippet tuse
|
|
use Test::More;
|
|
use Test::Deep;
|
|
use Test::Exception;
|
|
|
|
# local test lib
|
|
snippet tlib
|
|
use lib qw{ ./t/lib };
|
|
|
|
#test methods
|
|
snippet tmeths
|
|
$ENV{TEST_METHOD} = '${1:regex}';
|
|
|
|
# runtestclass
|
|
snippet trunner
|
|
use ${1:test_class};
|
|
$1->runtests();
|
|
|
|
#testclass
|
|
snippet tsub
|
|
sub t${1:number}_${2:test_case} :Test(${3:num_of_tests}) {
|
|
my $self = shift;
|
|
${4:# body}
|
|
|
|
}
|
|
|
|
|
|
#prep test method
|
|
snippet tprep
|
|
sub prep${1:number}_${2:test_case} :Test(startup) {
|
|
my $self = shift;
|
|
${4:# body}
|
|
}
|