diff options
author | franck cuny <franck@lumberjaph.net> | 2009-12-20 15:52:16 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-12-20 15:52:16 +0100 |
commit | 391ac7cefcabf85918ad29583253b0dd060b9518 (patch) | |
tree | 3f46a139dfc6d01d0e9303f75487ca2804168822 /t/lib | |
parent | update POD (diff) | |
download | moosex-net-api-391ac7cefcabf85918ad29583253b0dd060b9518.tar.gz |
remove and update some tests
Diffstat (limited to 't/lib')
-rw-r--r-- | t/lib/FakeAPI.pm | 70 | ||||
-rw-r--r-- | t/lib/FakeAPIFail.pm | 19 | ||||
-rw-r--r-- | t/lib/FakeAPIFail2.pm | 22 | ||||
-rw-r--r-- | t/lib/Identica.pm | 24 | ||||
-rw-r--r-- | t/lib/TestAPI.pm | 19 | ||||
-rw-r--r-- | t/lib/TestApp.pm | 11 | ||||
-rw-r--r-- | t/lib/TestApp/Controller/Root.pm | 16 | ||||
-rw-r--r-- | t/lib/WoWArmory.pm | 25 |
8 files changed, 48 insertions, 158 deletions
diff --git a/t/lib/FakeAPI.pm b/t/lib/FakeAPI.pm index 0496351..8fa6472 100644 --- a/t/lib/FakeAPI.pm +++ b/t/lib/FakeAPI.pm @@ -2,37 +2,63 @@ package FakeAPI; use Moose; use MooseX::Net::API; -net_api_declare fake_api => ( - base_url => 'http://identi.ca/api', - format => 'json', - format_mode => 'append', - require_authentication => 0, +net_api_declare demorest => ( + base_url => 'http://localhost:3000/rest', + format => 'json', + format_mode => 'content-type', + authentication => 0, + username => 'foo', + password => 'bar', ); -net_api_method foo => ( - description => 'this does foo', +net_api_method users => ( + description => 'get a list of users', method => 'GET', - path => '/foo/', - code => sub { my $self = shift; $self->get_foo }, - params => [qw/bar/], + path => '/users/', + expected => [qw/200/], ); -net_api_method bar => ( - description => 'this does bar', +net_api_method get_user => ( + description => 'fetch information about a specific user', method => 'GET', - path => '/bar/', - params => [qw/bar baz/], - required => [qw/baz/], + path => '/user/$id', + params => [qw/id/], + required => [qw/id/], + expected => [qw/200 404/], ); -net_api_method baz => ( - description => 'this one does baztwo', - method => 'BAZ', - path => '/baz/', - params => [qw/foo bla/], - required => [qw/bla/], +net_api_method create_user => ( + description => 'create a new user', + method => 'POST', + path => '/user/', + params => [qw/user nickname/], + required => [qw/user nickname/], ); -sub get_foo { return 1; } +net_api_method update_user => ( + description => 'update information about a specific user', + method => 'PUT', + path => '/user/$id', + params => [qw/id nickname/], + required => [qw/id nickname/], +); + +net_api_method delete_user => ( + description => 'terminate an user', + method => 'DELETE', + path => '/user/$id', + params => [qw/id/], + required => [qw/id/], +); + +net_api_method auth_get_user => ( + description => 'fetch information about a specific user with authentication', + method => 'GET', + path => '/auth_user/$id', + params => [qw/id/], + required => [qw/id/], + expected => [qw/200 404/], + authentication => 1, +); 1; diff --git a/t/lib/FakeAPIFail.pm b/t/lib/FakeAPIFail.pm deleted file mode 100644 index 87689bc..0000000 --- a/t/lib/FakeAPIFail.pm +++ /dev/null @@ -1,19 +0,0 @@ -package FakeAPI; -use Moose; -use MooseX::Net::API; - -net_api_declare fake_api => ( - base_url => 'http://identi.ca/api', - format => 'json', - format_mode => 'content-type', - require_authentication => 0, -); - -net_api_method foo => ( - description => 'this does foo', - method => 'GET', - path => '/foo/', - required => [qw/bar/], -); - -1; diff --git a/t/lib/FakeAPIFail2.pm b/t/lib/FakeAPIFail2.pm deleted file mode 100644 index 1d1725b..0000000 --- a/t/lib/FakeAPIFail2.pm +++ /dev/null @@ -1,22 +0,0 @@ -package FakeAPI; -use Moose; -use MooseX::Net::API; - -net_api_declare fake_api => ( - base_url => 'http://identi.ca/api', - format => 'json', - format_mode => 'content-type', - require_authentication => 0, -); - -net_api_method baz => ( - description => 'this one does baztwo', - method => 'BAZ', - path => '/baz/', - params => [qw/foo/], - required => [qw/bla/], -); - -sub get_foo { return 1; } - -1; diff --git a/t/lib/Identica.pm b/t/lib/Identica.pm deleted file mode 100644 index 3772d03..0000000 --- a/t/lib/Identica.pm +++ /dev/null @@ -1,24 +0,0 @@ -package Identica; -use Moose; -use MooseX::Net::API; - -has [qw/api_username api_password/] => ( is => 'ro', isa => 'Str' ); - -net_api_declare identica => ( - base_url => 'http://identi.ca/api', - format => 'json', - format_mode => 'append', - authentication => 1, -); -net_api_method public_timeline => ( - path => '/statuses/public_timeline', - method => 'GET', -); - -net_api_method update_status => ( - path => '/statuses/update', - method => 'POST', - params => [qw/status/], - required => [qw/status/], - params_in_url => 1, -); diff --git a/t/lib/TestAPI.pm b/t/lib/TestAPI.pm deleted file mode 100644 index 1f58351..0000000 --- a/t/lib/TestAPI.pm +++ /dev/null @@ -1,19 +0,0 @@ -package TestAPI; -use Moose; -use MooseX::Net::API; - -net_api_declare fake_api => ( - base_url => 'http://localhost/root', - format => 'json', - format_mode => 'content-type', - require_authentication => 0, -); - -net_api_method foo => ( - description => 'this does foo', - method => 'GET', - path => '/foo/', -); - -1; - diff --git a/t/lib/TestApp.pm b/t/lib/TestApp.pm deleted file mode 100644 index 69ec93d..0000000 --- a/t/lib/TestApp.pm +++ /dev/null @@ -1,11 +0,0 @@ -package TestApp; -use strict; -use warnings; - -use Catalyst; - -__PACKAGE__->config( name => 'TestApp', ); - -__PACKAGE__->setup; - -1; diff --git a/t/lib/TestApp/Controller/Root.pm b/t/lib/TestApp/Controller/Root.pm deleted file mode 100644 index 7ea3f25..0000000 --- a/t/lib/TestApp/Controller/Root.pm +++ /dev/null @@ -1,16 +0,0 @@ -package TestApp::Controller::Root; - -use strict; -use warnings; -use base qw/Catalyst::Controller::REST/; - -sub foo : Local : ActionClass('REST') { - my ( $self, $c ) = @_; -} - -sub foo_GET { - my ( $self, $c ) = @_; - $self->status_ok( $c, entity => { status => 1 } ); -} - -1; diff --git a/t/lib/WoWArmory.pm b/t/lib/WoWArmory.pm deleted file mode 100644 index c2715d1..0000000 --- a/t/lib/WoWArmory.pm +++ /dev/null @@ -1,25 +0,0 @@ -package WoWArmory; -use Moose; -use MooseX::Net::API; -use LWP::UserAgent; - -net_api_declare wowarmory => ( - base_url => 'http://eu.wowarmory.com/', - format => 'xml', - format_mode => 'append', - useragent => sub { - my $ua = LWP::UserAgent->new; - $ua->agent( - "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.1) Gecko/20061204 Firefox/2.0.0.1" - ); - return $ua; - }, -); - -net_api_method character => ( - method => 'GET', - path => '/character-sheet', - params => [qw/r n/], - required => [qw/r n/], -); -1; |