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

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');