X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F023-builder.t;h=6b3e35e2ab54de57657d6246308680a76e1d7976;hb=b20f7ca9c90953009e789c45ff6cff0e9571b8b5;hp=f8a2a2e43f0fa94451619afb9009a38302946c31;hpb=bf6d766ddc05c71b6f4e679d8907f246d3ca4176;p=gitmo%2FMouse.git diff --git a/t/023-builder.t b/t/023-builder.t index f8a2a2e..6b3e35e 100644 --- a/t/023-builder.t +++ b/t/023-builder.t @@ -106,7 +106,7 @@ do { lazy_build => 1, default => 1, ); - } qr/You can not use lazy_build and default for the same attribute error/; + } qr/You can not use lazy_build and default for the same attribute \(error\)/; }; my @calls; @@ -120,7 +120,6 @@ do { builder => 'build_my_customs', predicate => 'has_my_customs', clearer => 'clear_my_customs', - ); sub build_my_customs { @@ -129,7 +128,6 @@ do { } }; - my $cb = Class::CustomBuilder->new; ok(!$cb->has_my_customs, "correct predicate"); is($cb->custom, 'yo'); @@ -160,3 +158,4 @@ is_deeply([splice @calls], ['_build__attr']); ok($cub->_has_attr, "correct predicate"); ok($cub->_clear_attr, "correct clearer"); ok(!$cub->_has_attr, "correct predicate"); +