X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001_mouse%2F014-build.t;h=c9a16f204e77097f0390a16b410aa8e5a74c9f39;hb=cfdb93c63c45d0e81e858631b62a7d4d7be87842;hp=b1e3293d4766e0828df2f759334a934fc6d5b8f9;hpb=029463f45a8d39f3418b4e5c00243f9ad090fc2e;p=gitmo%2FMouse.git

diff --git a/t/001_mouse/014-build.t b/t/001_mouse/014-build.t
index b1e3293..c9a16f2 100644
--- a/t/001_mouse/014-build.t
+++ b/t/001_mouse/014-build.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 9;
+use Test::More;
 use Test::Mouse;
 
 my @called;
@@ -51,5 +51,9 @@ with_immutable sub {
     $child->BUILDALL({});
 
     is_deeply([splice @called], ["Class::BUILD", "Child::BUILD"], 'BUILDALL');
+
+    $child = Child->meta->new_object();
+    is_deeply([splice @called], ["Class::BUILD", "Child::BUILD"], 'new_object calls BUILDALL');
 }, qw(Class Child);
 
+done_testing;