extract translate controller tests

diff --git a/t/01app.t b/t/01app.t
index 296618f..94eccd2 100644 (file)
--- a/t/01app.t
+++ b/t/01app.t
@@ -1,7 +1,6 @@
  use strict;
  use warnings;
-#  use Test::More qw/no_plan/;
-use Test::More tests => 13;
+use Test::More qw/no_plan/;
 
 
  BEGIN { use_ok 'Catalyst::Test', 'LolCatalyst::Lite' }
@@ -17,20 +16,6 @@ use Test::More tests => 13;
  is( $response->content_type, 'text/html', 'Response Content-Type' );
  like( $response->content, qr/Translate/, "contains translated string");
 
- # test request to translate
-
- $request = POST(
-         'http://localhost/translate',
-         'Content-Type' => 'form-data',
-         'Content'      => [
-             'lol' => 'Can i have a cheese burger?',
-         ]);
-
- ok( $response = request($request), 'Request');
- ok( $response->is_success, 'Response Successful 2xx' );
- is( $response->content_type, 'text/html', 'Response Content-Type' );
- like( $response->content, qr/CHEEZ/, "contains translated string");
-
  # test request to translate_service
 
  $request = POST(

diff --git a/t/controller_Translate.t b/t/controller_Translate.t
new file mode 100644 (file)
index 0000000..1733716
--- /dev/null
+++ b/t/controller_Translate.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+use Test::More qw/no_plan/;
+
+BEGIN { use_ok 'Catalyst::Test', 'LolCatalyst::Lite' }
+
+use HTTP::Request::Common;
+
+my ($request, $response);
+
+$request = POST(
+        'http://localhost/translate',
+        'Content-Type' => 'form-data',
+        'Content'      => [
+            'lol' => 'Can i have a cheese burger?',
+        ]);
+
+ok( $response = request($request), 'Request');
+ok( $response->is_success, 'Response Successful 2xx' );
+is( $response->content_type, 'text/html', 'Response Content-Type' );
+like( $response->content, qr/CHEEZ/, "contains translated string");
+