From 100caaf831eb877adecce830fe7f83c7b3d37080 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 8 Dec 2009 16:13:54 +0100
Subject: update tests to use catalyst, bla

---
 lib/MooseX/Net/API/Role/CatalystTest.pm | 57 +++++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100644 lib/MooseX/Net/API/Role/CatalystTest.pm

(limited to 'lib/MooseX/Net/API/Role')

diff --git a/lib/MooseX/Net/API/Role/CatalystTest.pm b/lib/MooseX/Net/API/Role/CatalystTest.pm
new file mode 100644
index 0000000..d81b956
--- /dev/null
+++ b/lib/MooseX/Net/API/Role/CatalystTest.pm
@@ -0,0 +1,57 @@
+package MooseX::Net::API::Role::CatalystTest;
+
+use lib ('t/lib');
+use Moose::Role; with qw/
+    MooseX::Net::API::Role::Serialize 
+    MooseX::Net::API::Role::Deserialize/;
+
+my $list_content_type = {
+    'json' => 'application/json',
+    'yaml' => 'text/x-yaml',
+    'xml'  => 'text/xml',
+};
+
+after qw/test_api_declare/ => sub {
+    my $caller  = shift;
+    my $name    = shift;
+    my %options = @_;
+
+    if ( $options{catalyst} ) {
+        my $app = $options{catalyst_app_name};
+
+        Class::MOP::load_class("HTTP::Request");
+        Class::MOP::load_class("Catalyst::Test");
+
+        Catalyst::Test->import($app);
+
+        my $res = __PACKAGE__->meta->remove_method('_request');
+        MooseX::Net::API->meta->add_method(
+            '_request' => sub {
+                my ( $class, $format, $options, $uri, $args ) = @_;
+                my $method = $options->{method};
+
+                my $res;
+                if (   $method =~ /^(?:GET|DELETE)$/
+                    || $options->{params_in_url} )
+                {
+                    $uri->query_form(%$args);
+                    my $req = HTTP::Request->new( $method => $uri );
+                    $req->header(
+                        'Content-Type' => $list_content_type->{$format} );
+                    $res = request($req);
+                }
+                else {
+                    my $req = HTTP::Request->new( $method => $uri );
+                    $req->header(
+                        'Content-Type' => $list_content_type->{$format} );
+                    my $content = _do_serialization($class, $args, $format);
+                    $req->content( $content );
+                    $res = request($req);
+                }
+                return $res;
+            }
+        );
+    }
+};
+
+1;
-- 
cgit 1.4.1