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.13;";
   8     plan skip_all => 'This test requires MooseX::AttributeHelpers 0.13+'
   9         if $@;
  10 }
  11
  12 {
  13     package MyClass;
  14
  15     use MooseX::ClassAttribute;
  16     use MooseX::AttributeHelpers;
  17
  18     class_has counter =>
  19         ( metaclass => 'Counter',
  20           is        => 'ro',
  21           provides  => { inc => 'inc_counter',
  22                        },
  23         );
  24 }
  25
  26 is( MyClass->counter(), 0 );
  27
  28 MyClass->inc_counter();
  29 is( MyClass->counter(), 1 );
  30
  31 done_testing();