my $page = MyHomePage->new();
isa_ok($page, 'MyHomePage');
+can_ok($page, 'inc_counter');
+can_ok($page, 'dec_counter');
+
is($page->counter, 0, '... got the default value');
$page->inc_counter;
$page->dec_counter;
is($page->counter, 1, '... got the decremented value');
+# check the meta ..
+
+my $counter = $page->meta->get_attribute('counter');
+isa_ok($counter, 'MooseX::AttributeHelpers::Counter');
+
+is($counter->helper_type, 'Num', '... got the expected helper type');
+
+is($counter->type_constraint->name, 'Int', '... got the expected type constraint');
+is_deeply($counter->provides, {
+ inc => 'inc_counter',
+ dec => 'dec_counter',
+}, '... got the right provides methods');