diff options
author | franck cuny <franck@lumberjaph.net> | 2009-12-08 10:35:46 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2009-12-08 10:35:46 +0100 |
commit | a2b7ab98ccb7083ad6bdda0839a1e2e6e21ea847 (patch) | |
tree | 309219b95ca9846f53cc078a01baa2577d3399ab /t/lib | |
parent | Checking in changes prior to tagging of version 0.01. Changelog diff is: (diff) | |
parent | small updates to tests (diff) | |
download | moosex-net-api-a2b7ab98ccb7083ad6bdda0839a1e2e6e21ea847.tar.gz |
Merge branch 'topic/create_tests'
* topic/create_tests: small updates to tests add a catalyst app to tests add basic tests remove meta class and method move meta class and method to new file, add meta to handle tests
Diffstat (limited to '')
-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 |
3 files changed, 46 insertions, 0 deletions
diff --git a/t/lib/TestAPI.pm b/t/lib/TestAPI.pm new file mode 100644 index 0000000..1f58351 --- /dev/null +++ b/t/lib/TestAPI.pm @@ -0,0 +1,19 @@ +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 new file mode 100644 index 0000000..69ec93d --- /dev/null +++ b/t/lib/TestApp.pm @@ -0,0 +1,11 @@ +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 new file mode 100644 index 0000000..7ea3f25 --- /dev/null +++ b/t/lib/TestApp/Controller/Root.pm @@ -0,0 +1,16 @@ +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; |