X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F017-default-reference.t;h=8d1a3540c0688a270c3182bd74ce0bd294afacf9;hb=b644ef5d28f6076859080482d8b44727c1410e1c;hp=304b55d632f90c62460a342db6afb99551a8be37;hpb=c217840932f794182884a5695d792666b734d51d;p=gitmo%2FMouse.git

diff --git a/t/017-default-reference.t b/t/017-default-reference.t
index 304b55d..8d1a354 100644
--- a/t/017-default-reference.t
+++ b/t/017-default-reference.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 use Test::More tests => 9;
-use Mouse::Util ':test';
+use Test::Exception;
 
 do {
     package Class;
@@ -51,7 +51,10 @@ is_deeply(Class->new->a, [1], "default of sub { reference } works");
 do {
   package Class::Two;
   use Mouse;
-  has foo => (is => 'rw', default => sub { shift->default_foo });
+  has foo => (is => 'rw', default => sub {
+    die unless $_[0]->isa('Class::Two');
+    shift->default_foo;
+  });
   sub default_foo { 1 };
 };