6 use Test::Builder::Tester;
10 use_ok('Test::Moose');
32 test_out('ok 1 - does_ok class');
34 does_ok('Bar','Foo','does_ok class');
38 test_out ('not ok 2 - does_ok class fail');
41 does_ok('Baz','Foo','does_ok class fail');
47 test_out ('ok 3 - does_ok object');
49 does_ok ($bar,'Foo','does_ok object');
55 test_out ('not ok 4 - does_ok object fail');
58 does_ok ($baz,'Foo','does_ok object fail');
60 test_test ('does_ok');