# #!/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} }