X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-HTTP-AnyUA;a=blobdiff_plain;f=t%2F40-middleware-runtime.t;h=594555e7180f2050991735a8a2f821f1e9f02b1c;hp=5597fda9ed1f4ec46425dcd2f223c905d8d9780d;hb=9912305ac09411c49413fbf1364cfe209ac04adc;hpb=e84eddb615dd7c11aad9c3ac58100455c6227cad

diff --git a/t/40-middleware-runtime.t b/t/40-middleware-runtime.t
index 5597fda..594555e 100644
--- a/t/40-middleware-runtime.t
+++ b/t/40-middleware-runtime.t
@@ -5,8 +5,9 @@ use strict;
 
 use lib 't/lib';
 
+use Future;
 use HTTP::AnyUA;
-use Test::More tests => 1;
+use Test::More tests => 2;
 
 HTTP::AnyUA->register_backend(Mock => '+MockBackend');
 
@@ -16,8 +17,23 @@ my $backend = $any_ua->backend;
 $any_ua->apply_middleware('Runtime');
 
 my $url = 'http://acme.tld/';
-
+my $mock_response = {
+    success => 1,
+    status  => 200,
+    reason  => 'OK',
+    content => 'whatever',
+};
+
+$backend->response({%$mock_response});
 my $resp = $any_ua->get($url);
 note explain $resp;
 isnt $resp->{runtime}, undef, 'runtime is defined';
 
+$backend->response(Future->done({%$mock_response}));
+$resp = $any_ua->get($url);
+$resp->on_done(sub {
+    my $resp = shift;
+    note explain $resp;
+    isnt $resp->{runtime}, undef, 'runtime is defined when response is future';
+});
+