X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsub-defer.t;h=5938dd8cdef55414cfcc1cfdda0e598a81c12e3d;hb=master;hp=ba7f042b879f2aa0fd1ee5297855990a07ccf21f;hpb=ba37527be2770cfb75a53d625c49020ddd824c6e;p=gitmo%2FMoo.git

diff --git a/t/sub-defer.t b/t/sub-defer.t
index ba7f042..5938dd8 100644
--- a/t/sub-defer.t
+++ b/t/sub-defer.t
@@ -1,5 +1,6 @@
 use strictures 1;
 use Test::More;
+use Test::Fatal;
 use Sub::Defer;
 
 my %made;
@@ -29,6 +30,9 @@ is(Foo->one, 'one', 'one (undeferred) runs');
 
 is(my $two_made = undefer_sub($two_defer), $made{'Foo::two'}, 'make two');
 
+is exception { undefer_sub($two_defer) }, undef,
+  "repeated undefer doesn't regenerate";
+
 is($two_made, \&Foo::two, 'two installed');
 
 is($two_defer->(), 'two', 'two (deferred) still runs');