From f92976bd47ad9ef1c54de83876db7dcc9843aafd Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Wed, 2 Jun 2010 11:37:19 +0200
Subject: tests

---
 t/02_error.t | 64 +++++++-----------------------------------------------------
 1 file changed, 7 insertions(+), 57 deletions(-)

(limited to 't/02_error.t')

diff --git a/t/02_error.t b/t/02_error.t
index 332538a..a97158e 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 is missing/, 'missing api_base_url';
 
 done_testing;
-- 
cgit 1.4.1