add middleware

[chaz/p5-HTTP-AnyUA] / t / 40-middleware-runtime.t

diff --git a/t/40-middleware-runtime.t b/t/40-middleware-runtime.t
new file mode 100644 (file)
index 0000000..5597fda
--- /dev/null
+++ b/t/40-middleware-runtime.t
@@ -0,0 +1,23 @@
+#!perl
+
+use warnings;
+use strict;
+
+use lib 't/lib';
+
+use HTTP::AnyUA;
+use Test::More tests => 1;
+
+HTTP::AnyUA->register_backend(Mock => '+MockBackend');
+
+my $any_ua  = HTTP::AnyUA->new(ua => 'Mock');
+my $backend = $any_ua->backend;
+
+$any_ua->apply_middleware('Runtime');
+
+my $url = 'http://acme.tld/';
+
+my $resp = $any_ua->get($url);
+note explain $resp;
+isnt $resp->{runtime}, undef, 'runtime is defined';
+