1 files changed, 50 insertions, 0 deletions
diff --git a/t/spore/01_new_from_string.t b/t/spore/01_new_from_string.t
new file mode 100644
index 0000000..34bfedf
--- /dev/null
+++ b/t/spore/01_new_from_string.t
@@ -0,0 +1,50 @@
+use strict;
+use warnings;
+use Test::More;
+use Test::Exception;
+
+plan tests => 14;
+
+use IO::All;
+use Net::HTTP::Spore;
+
+my $couchdb_spec = 't/specs/couchdb.json';
+my %args = ( api_base_url => 'http://localhost:5984', );
+my $content < io($couchdb_spec);
+
+dies_ok { Net::HTTP::Spore->new_from_spec };
+like $@, qr/specification file is missing/;
+
+dies_ok { Net::HTTP::Spore->new_from_spec( "/foo/bar/baz", ) };
+like $@, qr/does not exists/;
+
+dies_ok { Net::HTTP::Spore->new_from_spec( $couchdb_spec, ) };
+like $@, qr/api_base_url is missing/;
+
+ok my $client = Net::HTTP::Spore->new_from_spec( $couchdb_spec, %args );
+ok $client = Net::HTTP::Spore->new_from_string( $content, %args );
+
+SKIP: {
+    skip "require RUN_HTTP_TEST", 1 unless $ENV{RUN_HTTP_TEST};
+    ok $client = Net::HTTP::Spore->new_from_spec(
+        'http://github.com/franckcuny/spore/raw/master/services/github.json',
+        %args );
+}
+
+dies_ok {
+    Net::HTTP::Spore->new_from_string(
+'{"api_base_url" : "http://services.org/restapi/","methods" : { "get_info" : { "method" : "GET" } } }'
+    );
+};
+like $@, qr/Attribute \(path\) is required/;
+
+dies_ok {
+    Net::HTTP::Spore->new_from_string(
+'{"api_base_url" : "http://services.org/restapi/","methods" : { "get_info" : { "method" : "PET", "path":"/info" } } }'
+    );
+};
+like $@, qr/Attribute \(method\) does not pass the type constraint/;
+
+ok $client = Net::HTTP::Spore->new_from_string(
+'{"api_base_url" : "http://services.org/restapi/","methods" : { "get_info" : { "path" : "/show", "method" : "GET" } } }'
+);