summary refs log tree commit diff
path: root/t/spore-middleware
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-11-01 17:05:57 +0100
committerfranck cuny <franck@lumberjaph.net>2010-11-01 17:05:57 +0100
commit489fda6fe372491b88804a85b4f1650cd47a65cd (patch)
tree4307d16b54673c19591b316cc5fa34863f5e70fa /t/spore-middleware
parentrewrite request using moose; not yet finished (diff)
downloadnet-http-spore-489fda6fe372491b88804a85b4f1650cd47a65cd.tar.gz
add some tests
Diffstat (limited to 't/spore-middleware')
-rw-r--r--t/spore-middleware/auth-oauth.t40
1 files changed, 40 insertions, 0 deletions
diff --git a/t/spore-middleware/auth-oauth.t b/t/spore-middleware/auth-oauth.t
new file mode 100644
index 0000000..a704e24
--- /dev/null
+++ b/t/spore-middleware/auth-oauth.t
@@ -0,0 +1,40 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+plan tests => 3;
+
+use NET::HTTP::Spore;
+use JSON;
+
+my $api = {
+    base_url => "http://term.ie/oauth/example",
+    name     => "term.ie",
+    methods  => {
+        echo => {
+            path            => "/echo_api.php",
+            method          => "GET",
+            expected_status => [200],
+            authentication => 1,
+        }
+    },
+};
+
+SKIP: {
+    skip "require RUN_HTTP_TEST", 3 unless $ENV{RUN_HTTP_TEST};
+
+    my $client = Net::HTTP::Spore->new_from_string( JSON::encode_json($api) );
+
+    $client->enable(
+        'Auth::OAuth',
+        consumer_key    => 'key',
+        consumer_secret => 'secret',
+        token           => 'accesskey',
+        token_secret    => 'accesssecret',
+    );
+
+    ok my $r = $client->echo(method => 'foo', bar => 'baz');
+    is $r->status, 200;
+    like $r->body, qr/bar=baz&method=foo/;
+}