X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F04-with-native-traits.t;h=ba8c5ebb17be3d3745152ca1c8434fdec41035a8;hb=1aedc3ea0dd9bce156879912ed03ca5dc861198a;hp=6ec2b8ba15165dbe57fc137194f3c0b151e51937;hpb=3272340d933b46c2b98be10b1923170739ce3c8a;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/t/04-with-native-traits.t b/t/04-with-native-traits.t index 6ec2b8b..ba8c5eb 100644 --- a/t/04-with-native-traits.t +++ b/t/04-with-native-traits.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More tests => 2; +use Test::More; { package MyClass; @@ -12,6 +12,7 @@ use Test::More tests => 2; class_has counter => ( traits => ['Counter'], is => 'ro', + default => 0, handles => { inc_counter => 'inc', }, @@ -23,3 +24,4 @@ is( MyClass->counter(), 0 ); MyClass->inc_counter(); is( MyClass->counter(), 1 ); +done_testing();