X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F017_attribute_traits_n_meta.t;h=5ffd186ceb6c7bfeba1a4f06a5da720b7742ca07;hb=d8ac424a86a0d9703f3e0502c8935b4851bf29af;hp=253a34513d9149e845485502193395454480b8df;hpb=a72478f2a428185e9e81327e3af7c1fd36c7ce3d;p=gitmo%2FMouse.git diff --git a/t/020_attributes/017_attribute_traits_n_meta.t b/t/020_attributes/017_attribute_traits_n_meta.t old mode 100755 new mode 100644 index 253a345..5ffd186 --- a/t/020_attributes/017_attribute_traits_n_meta.t +++ b/t/020_attributes/017_attribute_traits_n_meta.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 => 7; +use Test::More; use Test::Exception; - -use lib 't/lib'; use Test::Mouse; + + { package My::Meta::Attribute::DefaultReadOnly; use Mouse; @@ -63,6 +66,4 @@ isa_ok($c->meta->get_attribute('bar'), 'My::Meta::Attribute::DefaultReadOnly'); does_ok($c->meta->get_attribute('bar'), 'My::Attribute::Trait'); is($c->meta->get_attribute('bar')->_is_metadata, 'ro', '... got the right metaclass customization'); - - - +done_testing;