diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-03 10:01:01 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-03 10:01:01 +0200 |
| commit | 3da11a8153d3b42af2f2a250008be6cc52e57b09 (patch) | |
| tree | 4da02b541e9f8d35e5f20d63908cd33fe64dc7f8 /t/lib/TestAPI.pm | |
| parent | replace remainging with nothing (diff) | |
| parent | fix attribute declaration (diff) | |
| download | net-http-api-3da11a8153d3b42af2f2a250008be6cc52e57b09.tar.gz | |
merge
Diffstat (limited to 't/lib/TestAPI.pm')
| -rw-r--r-- | t/lib/TestAPI.pm | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/t/lib/TestAPI.pm b/t/lib/TestAPI.pm new file mode 100644 index 0000000..1e8bf97 --- /dev/null +++ b/t/lib/TestAPI.pm @@ -0,0 +1,49 @@ +package TestAPI; +use MooseX::Net::API; + +use HTTP::Response; + +net_api_declare fake_api => ( + api_base_url => 'http://exemple.com', + format => 'json', +); + +net_api_method users => ( + method => 'GET', + path => '/users/', + expected => [qw/200/], +); + +net_api_method user => ( + method => 'GET', + path => '/user/:user_name', + params => [qw/user_name/], + required => [qw/user_name/], + expected => [qw/200/], +); + +net_api_method add_user => ( + method => 'POST', + path => '/user/', + params => [qw/name dob/], + required => [qw/name/], + expected => [qw/201/], +); + +net_api_method update_user => ( + method => 'PUT', + path => '/user/:name', + params => [qw/name dob/], + required => [qw/name/], + expected => [qw/201/], +); + +net_api_method delete_user => ( + method => 'DELETE', + path => '/user/:name', + params => [qw/name/], + required => [qw/name/], + expected => [qw/204/], +); + +1; |
