X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F016_attribute_traits_registered.t;h=c34cb4e8a2cdba72e0d0275a0362b789e421f7bc;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=51640f94e031af8107b5d62e68ea4425d25bac9c;hpb=4060c871da12ba3c5e88986ed121a8254f906bd6;p=gitmo%2FMouse.git diff --git a/t/020_attributes/016_attribute_traits_registered.t b/t/020_attributes/016_attribute_traits_registered.t old mode 100755 new mode 100644 index 51640f9..c34cb4e --- a/t/020_attributes/016_attribute_traits_registered.t +++ b/t/020_attributes/016_attribute_traits_registered.t @@ -1,14 +1,17 @@ #!/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; -use Test::More tests => 23; +use Test::More; +$TODO = q{Mouse is not yet completed}; use Test::Exception; use Test::Mouse; - { package My::Attribute::Trait; use Mouse::Role; @@ -115,3 +118,4 @@ ok(!$derived_bar_attr->does('Fictional'), "attr->does returns false for nonexist can_ok($quux, 'additional_method'); is(eval { $quux->additional_method }, 42, '... got the right value for additional_method'); +done_testing;