Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use warnings FATAL => 'all';
- {
- package t::MyTests;
- use Moose;
- use Test::MUnit;
- use Test::More;
- test addition => sub {
- is 1 + 1, 2;
- ok 42;
- };
- test multi => sub {
- is 2 * 2, 4;
- };
- before run_test => sub {
- my ($self, $test) = @_;
- };
- }
- use Test::More;
- use Test::MUnit::Driver 'run_namespace', 'run';
- run_namespace('t');
- run('t::MyTests' => 'multi');
- done_testing;
Add Comment
Please, Sign In to add comment