X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F020_attributes%2F004_attribute_triggers.t;fp=t%2F020_attributes%2F004_attribute_triggers.t;h=e46e149acab457992ccab67ac1e09b26afd4a283;hp=1d25f5764dc1c125c7235aaaa936737b2a54afd5;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27 diff --git a/t/020_attributes/004_attribute_triggers.t b/t/020_attributes/004_attribute_triggers.t index 1d25f57..e46e149 100644 --- a/t/020_attributes/004_attribute_triggers.t +++ b/t/020_attributes/004_attribute_triggers.t @@ -1,4 +1,7 @@ #!/usr/bin/perl +# This is automatically generated by author/import-moose-test.pl. +# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! +use t::lib::MooseCompat; use strict; use warnings; @@ -6,6 +9,7 @@ use warnings; use Scalar::Util 'isweak'; use Test::More; +$TODO = q{Mouse is not yet completed}; use Test::Exception; @@ -182,9 +186,6 @@ use Test::Exception; $attr->set_value( $foo, 3 ); - note 'skip Moose specific features'; - last; - is_deeply( \@Foo::calls, [ [ $foo, 3, 2 ] ], @@ -203,9 +204,6 @@ use Test::Exception; } { - note 'skip Moose specific features'; - last; - my $foo = Foo->new(foo => 2); is_deeply( \@Foo::calls,