t/05-with-attribute-helpers-backcompat.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5
   6 BEGIN {
   7     eval "use MooseX::AttributeHelpers 0.23;";
   8     plan skip_all => 'This test requires MooseX::AttributeHelpers 0.23+'
   9         if $@;
  10 }
  11
  12 {
  13     package MyClass;
  14
  15     use Moose;
  16     use MooseX::ClassAttribute;
  17     use MooseX::AttributeHelpers;
  18
  19     class_has counter =>
  20         ( metaclass => 'Counter',
  21           is        => 'ro',
  22           provides  => { inc => 'inc_counter',
  23                        },
  24         );
  25 }
  26
  27 is( MyClass->counter(), 0 );
  28
  29 MyClass->inc_counter();
  30 is( MyClass->counter(), 1 );
  31
  32 done_testing();