1 use Test::Builder::Tester tests => 1;
29 test_out('ok 1 - does_ok class');
31 does_ok('Bar','Foo','does_ok class');
35 test_out ('not ok 2 - does_ok class fail');
39 does_ok('Baz','Foo','does_ok class fail');
45 test_out ('ok 3 - does_ok object');
47 does_ok ($bar,'Foo','does_ok object');
53 test_out ('not ok 4 - does_ok object fail');
57 does_ok ($baz,'Foo','does_ok object fail');
59 test_test ('does_ok');