force-load Moo::HandleMoose::_TypeMap

[scpubgit/Object-Remote.git] / t / start_core.t

diff --git a/t/start_core.t b/t/start_core.t
index 964a103..cb2ed87 100644 (file)
--- a/t/start_core.t
+++ b/t/start_core.t
@@ -3,7 +3,7 @@ use Test::More;
 use Object::Remote;
 use File::Spec;
 
-require 't/logsetup.pl';
+$ENV{OBJECT_REMOTE_TEST_LOGGER} = 1;
 
 {
   package S1S;
@@ -63,13 +63,17 @@ require 't/logsetup.pl';
 
 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');