X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F000-recipes%2F001_point.t;h=1f52f0ff57f53c44a85780aed59bdc647f4b1b21;hp=3a8bd33d8f5387242226455cf276f3411e974ee0;hb=e578d610be7812bb5fc5c861aeee01fe9270aa2f;hpb=eb6f444462e64af1280ee10d00e8b9020c7fa513 diff --git a/t/000-recipes/001_point.t b/t/000-recipes/001_point.t index 3a8bd33..1f52f0f 100644 --- a/t/000-recipes/001_point.t +++ b/t/000-recipes/001_point.t @@ -6,7 +6,7 @@ use warnings; use Test::More; BEGIN { if (eval "require Class::Method::Modifiers; 1") { - plan tests => 57; + plan tests => 59; } else { plan skip_all => "Class::Method::Modifiers required for this test"; @@ -134,7 +134,7 @@ is_deeply( [ 'Mouse::Object' ], '... Point got the automagic base class'); -my @Point_methods = qw(meta new x y clear); +my @Point_methods = qw(meta new x y clear DESTROY); my @Point_attrs = ('x', 'y'); is_deeply( @@ -174,7 +174,7 @@ is_deeply( [ 'Point' ], '... Point3D gets the parent given to it'); -my @Point3D_methods = qw(new meta clear); +my @Point3D_methods = qw(new meta clear DESTROY); my @Point3D_attrs = ('z'); SKIP: {