X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=t%2Fstart_core.t;h=cb2ed875a91d18366b588262ce5e6d7f40b2c345;hp=b50b9f3642dc5c3f6471392c67dff83d4f1df51c;hb=bc06e92182c47337510900a0077079176200bfc0;hpb=668343cde7e6339cca56c66a41defdd28327f224

diff --git a/t/start_core.t b/t/start_core.t
index b50b9f3..cb2ed87 100644
--- a/t/start_core.t
+++ b/t/start_core.t
@@ -63,13 +63,17 @@ $ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;
 
 my $res;
 
-S1S->start::get_s2->then::get_s3->on_ready(sub { ($res) = $_[0]->get });
+my @keep;
+
+push @keep,
+  S1S->start::get_s2->then::get_s3->on_ready(sub { ($res) = $_[0]->get });
 
 is($res, 'S3', 'Synchronous code ok');
 
 undef($res);
 
-S1F->start::get_s2->then::get_s3->on_ready(sub { ($res) = $_[0]->get });
+push @keep,
+  S1F->start::get_s2->then::get_s3->on_ready(sub { ($res) = $_[0]->get });
 
 ok(!$S2F::C, 'Second future not yet constructed');