Guest User

Untitled

a guest
Jul 19th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. use strict;
  2. use warnings FATAL => 'all';
  3.  
  4. {
  5. package t::MyTests;
  6. use Moose;
  7. use Test::MUnit;
  8. use Test::More;
  9.  
  10. test addition => sub {
  11. is 1 + 1, 2;
  12. ok 42;
  13. };
  14.  
  15. test multi => sub {
  16. is 2 * 2, 4;
  17. };
  18.  
  19. before run_test => sub {
  20. my ($self, $test) = @_;
  21. };
  22. }
  23.  
  24. use Test::More;
  25. use Test::MUnit::Driver 'run_namespace', 'run';
  26.  
  27. run_namespace('t');
  28. run('t::MyTests' => 'multi');
  29.  
  30. done_testing;
Add Comment
Please, Sign In to add comment