factor out sub quote unrolling code, add isa support

[gitmo/Moo.git] / t / sub-defer.t

diff --git a/t/sub-defer.t b/t/sub-defer.t
index 7675560..a5309b0 100644 (file)
--- a/t/sub-defer.t
+++ b/t/sub-defer.t
@@ -4,12 +4,12 @@ use Sub::Defer;
 
 my %made;
 
-my $one_defer = defer 'Foo::one' => sub {
+my $one_defer = defer_sub 'Foo::one' => sub {
   die "remade - wtf" if $made{'Foo::one'};
   $made{'Foo::one'} = sub { 'one' }
 };
 
-my $two_defer = defer 'Foo::two' => sub {
+my $two_defer = defer_sub 'Foo::two' => sub {
   die "remade - wtf" if $made{'Foo::two'};
   $made{'Foo::two'} = sub { 'two' }
 };
@@ -27,7 +27,7 @@ is($one_defer->(), 'one', 'one (deferred) still runs');
 
 is(Foo->one, 'one', 'one (undeferred) runs');
 
-is(my $two_made = undefer($two_defer), $made{'Foo::two'}, 'make two');
+is(my $two_made = undefer_sub($two_defer), $made{'Foo::two'}, 'make two');
 
 is($two_made, \&Foo::two, 'two installed');
 
@@ -37,6 +37,6 @@ is($two_made->(), 'two', 'two (undeferred) runs');
 
 my $three = sub { 'three' };
 
-is(undefer($three), $three, 'undefer non-deferred is a no-op');
+is(undefer_sub($three), $three, 'undefer non-deferred is a no-op');
 
 done_testing;