t/001_basic_counter.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More no_plan => 1;
   7
   8 BEGIN {
   9     use_ok('MooseX::AttributeHelpers');
  10 }
  11
  12 {
  13     package MyHomePage;
  14     use Moose;
  15
  16     has 'counter' => (
  17         metaclass => 'Counter',
  18         is        => 'ro',
  19         isa       => 'Int',
  20         default   => sub { 0 },
  21         provides  => {
  22             inc => 'inc_counter',
  23             dec => 'dec_counter',
  24         }
  25     );
  26 }
  27
  28 my $page = MyHomePage->new();
  29 isa_ok($page, 'MyHomePage');
  30
  31 is($page->counter, 0, '... got the default value');
  32
  33 $page->inc_counter;
  34 is($page->counter, 1, '... got the incremented value');
  35
  36 $page->inc_counter;
  37 is($page->counter, 2, '... got the incremented value (again)');
  38
  39 $page->dec_counter;
  40 is($page->counter, 1, '... got the decremented value');
  41
  42
  43