r53@latte: adam | 2006-12-03 16:00:44 -0800

[catagits/Catalyst-Action-REST.git] / t / data-serializer.t

diff --git a/t/data-serializer.t b/t/data-serializer.t
new file mode 100644 (file)
index 0000000..740a24e
--- /dev/null
+++ b/t/data-serializer.t
@@ -0,0 +1,62 @@
+use strict;
+use warnings;
+use Test::More qw(no_plan);
+use FindBin;
+
+use lib ( "$FindBin::Bin/lib", "$FindBin::Bin/../lib" );
+use Test::Rest;
+
+use_ok 'Catalyst::Test', 'Test::Serialize';
+
+my %ctypes =( 
+            'text/x-data-dumper' =>   'Data::Dumper' ,
+            'text/x-data-denter' =>   'Data::Denter' ,
+            'text/x-data-taxi'   =>   'Data::Taxi'   ,
+            'application/x-storable'    =>   'Storable'     ,
+            'application/x-freezethaw'  =>   'FreezeThaw'   ,
+            'text/x-config-general' =>   'Config::General' ,
+            'text/x-php-serialization' =>   'PHP::Serialization' ,
+        );
+
+my $has_serializer = eval "require Data::Serializer";
+
+foreach my $content_type (keys(%ctypes)) {
+    my $dso;
+    my $skip = 0;
+    my $loadclass = $ctypes{$content_type};
+    $loadclass =~ s/::/\//g;
+    $loadclass .= '.pm';
+    eval {
+       require $loadclass 
+    };
+    if ($@) {
+        $skip = 1;
+    }
+    SKIP: {
+        skip "$ctypes{$content_type} not installed", 4 if $skip;
+        $dso = Data::Serializer->new( serializer => $ctypes{$content_type} );
+        my $t = Test::Rest->new( 'content_type' => $content_type );
+
+        my $monkey_template = { monkey => 'likes chicken!', };
+        my $mres = request( $t->get( url => '/monkey_get' ) );
+        ok( $mres->is_success, "GET $content_type succeeded" );
+        is_deeply( $dso->raw_deserialize( $mres->content ),
+            $monkey_template, "GET $content_type has the right data" );
+
+        my $post_data = { 'sushi' => 'is good for monkey', };
+        my $mres_post = request(
+            $t->post(
+                url  => '/monkey_put',
+                data => $dso->raw_serialize($post_data)
+            )
+        );
+        ok( $mres_post->is_success, "POST $content_type succeeded" );
+        is_deeply(
+            $mres_post->content,
+            "is good for monkey",
+            "POST $content_type data matches"
+        );
+    }
+}
+
+1;