From 48466e51f7aa1d659f339be9741fb419a321f18c Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 24 Mar 2011 15:35:29 +0100 Subject: add some tests Signed-off-by: franck cuny --- t/spore-role/basic.t | 46 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 t/spore-role/basic.t (limited to 't/spore-role') diff --git a/t/spore-role/basic.t b/t/spore-role/basic.t new file mode 100644 index 0000000..7b73875 --- /dev/null +++ b/t/spore-role/basic.t @@ -0,0 +1,46 @@ +use strict; +use warnings; + +use Test::More; +use JSON; + +plan tests => 5; + +my $conf = { + 'twitter' => { + spec => 't/specs/api.json', + options => { base_url => 'http://localhost/', }, + middlewares => [ { name => 'Format::JSON' } ], + } +}; + +{ + + package my::app; + use Moose; + with 'Net::HTTP::Spore::Role' => { + spore_clients => [ + { name => 'twitter', config => 'twitter_config' } + ] + }; +} + +my $mock_server = { + '/show' => sub { + my $req = shift; + $req->new_response( + 200, + [ 'Content-Type' => 'application/json' ], + JSON::encode_json({status => 'ok'}) + ); + }, +}; + +ok my $app = my::app->new( twitter_config => $conf->{twitter} ); +is_deeply $app->twitter_config, $conf->{twitter}; + +$app->twitter->enable('Mock', tests => $mock_server); +my $res = $app->twitter->get_info(); +is $res->[0], 200; +is_deeply $res->[2], {status => 'ok'}; +is $res->header('Content-Type'), 'application/json'; -- cgit 1.4.1