X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F315_magic.t;h=2259d6a19be07a05187494a78a067d147a574602;hb=f197afa62adde6f15130d570566f752ee7df5f0b;hp=d17dff02c3761e1c4b731c3194f3ffd9015abc5a;hpb=e59e62224a023428aca89319a6b1d92a115bbbde;p=gitmo%2FClass-MOP.git diff --git a/t/315_magic.t b/t/315_magic.t index d17dff0..2259d6a 100755 --- a/t/315_magic.t +++ b/t/315_magic.t @@ -4,7 +4,7 @@ use strict; use warnings; -use Test::More tests => 9; +use Test::More; use Test::Exception; use Class::MOP; @@ -15,14 +15,14 @@ use Tie::Scalar; package Foo; use metaclass; - Foo->meta->add_attribute('bar' => + Foo->meta->add_attribute('bar' => reader => 'get_bar', writer => 'set_bar', - ); + ); - Foo->meta->add_attribute('baz' => + Foo->meta->add_attribute('baz' => accessor => 'baz', - ); + ); Foo->meta->make_immutable(); } @@ -71,3 +71,5 @@ use Tie::Scalar; is_deeply [Class::MOP::get_code_info($value)], [qw(Class::MOP get_code_info)], 'get_code_info(tied scalar)'; } } + +done_testing;