1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
use Test::Roo; # loads Moo and Test::More use lib 't/lib'; # provide the fixture has class => ( is => 'ro', default => sub { "Digest::MD5" }, ); # specify behaviors to test with 'ObjectCreation'; # give our subtests a label sub _build_description { "Testing " . shift->class } # run the tests run_me; run_me( { class => "Digest::SHA1" } ); done_testing; |