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/02_error.t | |
parent | replace remainging with nothing (diff) | |
parent | fix attribute declaration (diff) | |
download | moosex-net-api-3da11a8153d3b42af2f2a250008be6cc52e57b09.tar.gz |
merge
Diffstat (limited to 't/02_error.t')
-rw-r--r-- | t/02_error.t | 64 |
1 files changed, 7 insertions, 57 deletions
diff --git a/t/02_error.t b/t/02_error.t index 332538a..3ab5dcc 100644 --- a/t/02_error.t +++ b/t/02_error.t @@ -3,65 +3,15 @@ use warnings; use Test::More; use Test::Exception; -BEGIN { - dies_ok { - { +package test::api::missing_api_base_url; +use MooseX::Net::API; - package net_api_fail; - use Moose; - use MooseX::Net::API; - net_api_declare foo => (); - } - } - "... format is missing"; - like $@, qr/format is missing in your api declaration/, - "... format is missing"; - dies_ok { - { +net_api_method user => (method => 'GET', path => '/user/'); - package net_api_fail; - use Moose; - use MooseX::Net::API; - net_api_declare foo => ( format => 'foo' ); - } - } - "... no valid format"; - like $@, qr/format is not recognised/, "... no valid format"; - dies_ok { - { +package main; - package net_api_fail; - use Moose; - use MooseX::Net::API; - net_api_declare foo => ( format => 'json' ); - } - } - "... format mode is not set"; - like $@, qr/format_mode is not set/, "... format mode is not set"; - dies_ok { - { - - package net_api_fail; - use Moose; - use MooseX::Net::API; - net_api_declare foo => ( format => 'json', format_mode => 'bar' ); - } - } - "... format mode is unvalid"; - like $@, qr/must be append or content-type/, "... format mode is unvalid"; - #dies_ok { - #{ - #package net_api_fail; - #use Moose; - #use MooseX::Net::API; - #net_api_declare foo => ( - #format => 'json', - #format_mode => 'content-type' - #); - #} - #} - #"... bad useragent"; - #warn $@; -} +ok my $t = test::api::missing_api_base_url->new; +dies_ok { $t->user } 'die with missing url'; +like $@, qr/'api_base_url' have not been defined/, 'missing api_base_url'; done_testing; |