use strict;
use warnings;
-use Test::More tests => 27;
+use Test::More tests => 30;
BEGIN {
use_ok('MooseX::AttributeHelpers');
chomp => 'chomp_string',
clear => 'clear_string',
substr => 'sub_string',
+ length => 'length_string',
},
curries => {
append => {exclaim => [ '!' ]},
isa_ok($page, 'MyHomePage');
is($page->string, '', '... got the default value');
+is($page->length_string, 0, '... length is zero');
$page->string('a');
+is($page->length_string, 1, '... new string has length of one');
-$page->inc_string;
+$page->inc_string;
is($page->string, 'b', '... got the incremented value');
-$page->inc_string;
+$page->inc_string;
is($page->string, 'c', '... got the incremented value (again)');
$page->append_string("foo$/");
$page->replace_string(qr/([ao])/, sub { uc($1) });
is($page->string, 'bArcfo', "substitution");
+is($page->length_string, 6, 'right length');
$page->exclaim;
is($page->string, 'bArcfo!', 'exclaim!');
is($string->type_constraint->name, 'Str', '... got the expected type constraint');
-is_deeply($string->provides, {
+is_deeply($string->provides, {
inc => 'inc_string',
append => 'append_string',
prepend => 'prepend_string',
chomp => 'chomp_string',
clear => 'clear_string',
substr => 'sub_string',
+ length => 'length_string',
}, '... got the right provides methods');