6 use Test::Builder::Tester;
10 use_ok('Test::Moose');
17 has 'foo', is => 'bare';
26 has 'bar', is => 'bare';
30 test_out('ok 1 - ... has_attribute_ok(Foo, foo) passes');
32 has_attribute_ok('Foo', 'foo', '... has_attribute_ok(Foo, foo) passes');
34 test_out ('not ok 2 - ... has_attribute_ok(Foo, bar) fails');
37 has_attribute_ok('Foo', 'bar', '... has_attribute_ok(Foo, bar) fails');
39 test_out('ok 3 - ... has_attribute_ok(Bar, foo) passes');
41 has_attribute_ok('Bar', 'foo', '... has_attribute_ok(Bar, foo) passes');
43 test_out('ok 4 - ... has_attribute_ok(Bar, bar) passes');
45 has_attribute_ok('Bar', 'bar', '... has_attribute_ok(Bar, bar) passes');
47 test_test ('has_attribute_ok');