fix broken single-file test application
Hans Dieter Pearcey [Wed, 25 Mar 2009 05:19:47 +0000 (01:19 -0400)]
t/catalyst-action-deserialize.t
t/lib/Test/Catalyst/Action/Deserialize.pm [new file with mode: 0644]
t/lib/Test/Catalyst/Action/Deserialize/Controller/Root.pm [new file with mode: 0644]

index f65b0c7..ca08fa4 100644 (file)
@@ -1,37 +1,3 @@
-package Test::Catalyst::Action::Deserialize;
-
-use FindBin;
-
-use lib ("$FindBin::Bin/../lib", "$FindBin::Bin/lib" );
-
-use strict;
-use warnings;
-
-use Catalyst::Runtime '5.70';
-
-use Catalyst;
-
-__PACKAGE__->config(
-    name => 'Test::Catalyst::Action::Deserialize',
-    serialize => {
-        'stash_key' => 'rest',
-        'map'       => {
-            'text/x-yaml'        => 'YAML',
-            'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
-            'text/broken'        => 'Broken',
-        },
-    }
-);
-
-__PACKAGE__->setup;
-
-sub test :Local :ActionClass('Deserialize') {
-    my ( $self, $c ) = @_;
-    $c->res->output($c->req->data->{'kitty'});
-}
-
-package main;
-
 use strict;
 use warnings;
 use Test::More tests => 5;
diff --git a/t/lib/Test/Catalyst/Action/Deserialize.pm b/t/lib/Test/Catalyst/Action/Deserialize.pm
new file mode 100644 (file)
index 0000000..0d70214
--- /dev/null
@@ -0,0 +1,15 @@
+package Test::Catalyst::Action::Deserialize;
+
+use strict;
+use warnings;
+
+use Catalyst::Runtime '5.70';
+
+use Catalyst;
+
+__PACKAGE__->config(
+    name => 'Test::Catalyst::Action::Deserialize',
+);
+__PACKAGE__->setup;
+
+1;
diff --git a/t/lib/Test/Catalyst/Action/Deserialize/Controller/Root.pm b/t/lib/Test/Catalyst/Action/Deserialize/Controller/Root.pm
new file mode 100644 (file)
index 0000000..e228d4d
--- /dev/null
@@ -0,0 +1,21 @@
+package Test::Catalyst::Action::Deserialize::Controller::Root;
+
+use base 'Catalyst::Controller';
+__PACKAGE__->config->{namespace} = '';
+
+__PACKAGE__->config(
+    'stash_key' => 'rest',
+    'map'       => {
+        'text/x-yaml'        => 'YAML',
+        'text/x-data-dumper' => [ 'Data::Serializer', 'Data::Dumper' ],
+        'text/broken'        => 'Broken',
+    },
+);
+
+
+sub test :Local :ActionClass('Deserialize') {
+    my ( $self, $c ) = @_;
+    $c->res->output($c->req->data->{'kitty'});
+}
+
+1;