diff options
author | franck cuny <franck@lumberjaph.net> | 2010-07-16 16:12:32 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-07-16 16:12:32 +0200 |
commit | 5fdee9e79b5b6a72522bee59e4bd7c62506a43c7 (patch) | |
tree | 9e9f16e674310d95f7c39cea92e87aaa57d67746 /t/05_authentication.t | |
parent | another fix for path (diff) | |
download | moosex-net-api-5fdee9e79b5b6a72522bee59e4bd7c62506a43c7.tar.gz |
remove tests and old lib; use base net::http::api; DEPRECATED
Diffstat (limited to '')
-rw-r--r-- | t/05_authentication.t | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/t/05_authentication.t b/t/05_authentication.t deleted file mode 100644 index e769a53..0000000 --- a/t/05_authentication.t +++ /dev/null @@ -1,67 +0,0 @@ -use strict; -use warnings; -use Test::More; - -package test::auth; -use MooseX::Net::API; - -net_api_declare fake_auth => ( - api_base_url => 'http://localhost', - format => 'json', - authentication => 1, - authentication_method => 'my_auth', -); - -net_api_method user => ( - method => 'GET', - path => '/user/', -); - -sub my_auth { - my ($self, $request, $ua, $h) = @_; - $request->header('Authentication' => 1); -} - -package test::auth::simple; -use MooseX::Net::API; - -net_api_declare fake_auth => ( - api_base_url => 'http://localhost', - format => 'json', - authentication => 1, -); - -net_api_method user => ( - method => 'GET', - path => '/user/', -); - -package main; - -ok my $api = test::auth->new, 'object api created'; -$api->api_useragent->add_handler( - request_send => sub { - my $request = shift; - is $request->header('Authentication'), 1, 'authentication header is set'; - my $res = HTTP::Response->new(200); - $res->content('[{"name":"eris"}]'); - $res; - } -); -ok $api->user, 'method user success'; - -ok $api = - test::auth::simple->new(api_username => 'foo', api_password => 'bar'), - 'object api simple created'; -$api->api_useragent->add_handler( - request_send => sub { - my $request = shift; - ok $request->header('authorization'), 'authentication header is set'; - my $res = HTTP::Response->new(200); - $res->content('[{"name":"eris"}]'); - $res; - } -); -ok $api->user, 'method user success'; - -done_testing; |