X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F010_basics%2F005_override_augment_inner_super.t;h=c7ae92aa801950122837c7456c531ba860109d57;hp=ccad403d244461c490e4b94dc979ebcd08209221;hb=HEAD;hpb=fde8e43f95fe996fbc2a778aa259feeb04552171 diff --git a/t/010_basics/005_override_augment_inner_super.t b/t/010_basics/005_override_augment_inner_super.t index ccad403..c7ae92a 100644 --- a/t/010_basics/005_override_augment_inner_super.t +++ b/t/010_basics/005_override_augment_inner_super.t @@ -1,13 +1,10 @@ #!/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; -$TODO = q{Mouse is not yet completed}; +use Test::More tests => 5; + { @@ -68,8 +65,9 @@ Confusing I know, but it is correct :) =cut -is($baz->bar, - 'Bar::bar -> Foo::bar(Baz::bar)', - '... got the right value from mixed augment/override bar'); - -done_testing; +{ + local $TODO = 'mixed augment/override is not supported'; + is($baz->bar, + 'Bar::bar -> Foo::bar(Baz::bar)', + '... got the right value from mixed augment/override bar'); +}