From 3fb82b11673234448407be2d8b43bcb3d7bae9ef Mon Sep 17 00:00:00 2001 From: franck cuny Date: Mon, 11 Jul 2011 15:34:57 +0200 Subject: add a simple test for trace Signed-off-by: franck cuny --- t/spore-response/debug.t | 39 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 39 insertions(+) create mode 100644 t/spore-response/debug.t (limited to 't/spore-response') diff --git a/t/spore-response/debug.t b/t/spore-response/debug.t new file mode 100644 index 0000000..261d5b0 --- /dev/null +++ b/t/spore-response/debug.t @@ -0,0 +1,39 @@ +use strict; +use warnings; +use Test::More; +use Net::HTTP::Spore; +use File::Temp qw/ :seekable /; +use Try::Tiny; + +my $mock_server = { + '/show' => sub { + my $req = shift; + $req->new_response( 200, [ 'Content-Type' => 'text/plan' ], 'ok'); + } +}; + +my $fh = File::Temp->new(); +my $filename = $fh->filename; + +ok my $client = Net::HTTP::Spore->new_from_spec( + 't/specs/api.json', + base_url => 'http://localhost', + trace => "1=$filename" + ), + "client created"; + +$client->enable( 'Mock', tests => $mock_server ); + +my $res = $client->get_info(); + +ok -f $filename; + +close $fh; + +open $fh, '<', $filename; +my $out = <$fh>; +close $fh; + +like $out, qr/enabling middleware Net::HTTP::Spore::Middleware::Mock/; + +done_testing; -- cgit 1.4.1