6 use Test::Builder::Tester;
15 has 'foo', is => 'bare';
24 has 'bar', is => 'bare';
28 test_out('ok 1 - ... has_attribute_ok(Foo, foo) passes');
30 has_attribute_ok('Foo', 'foo', '... has_attribute_ok(Foo, foo) passes');
32 test_out ('not ok 2 - ... has_attribute_ok(Foo, bar) fails');
35 has_attribute_ok('Foo', 'bar', '... has_attribute_ok(Foo, bar) fails');
37 test_out('ok 3 - ... has_attribute_ok(Bar, foo) passes');
39 has_attribute_ok('Bar', 'foo', '... has_attribute_ok(Bar, foo) passes');
41 test_out('ok 4 - ... has_attribute_ok(Bar, bar) passes');
43 has_attribute_ok('Bar', 'bar', '... has_attribute_ok(Bar, bar) passes');
45 test_test ('has_attribute_ok');