Changeset 17317

Timestamp:

08/10/08 10:26:44 (5 years ago)

Author:

tokuhirom

Message:

added new test utility(run_engine).

Location:

lang/perl/HTTP-Engine/trunk/t

Files:

• 010_core/request-cookie.t (modified) (3 diffs)
• Utils.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/trunk/t/010_core/request-cookie.t

@@ -2 +2 @@
 use warnings;
 use Test::More tests => 4;
+use t::Utils;
 use HTTP::Engine;
 use HTTP::Request;
 use CGI::Simple::Cookie;
-
-sub _test {
-    my ($req, $cb) = @_;
-
-    HTTP::Engine->new(
-        interface => {
-            module => 'Test',
-            args => { },
-            request_handler => $cb,
-        },
-    )->run($req);
-}
 
 # exist Cookie header.
@@ -30 +19 @@
 
     # do test
-    _test($req, sub {
+    run_engine($req, sub {
         my $c = shift;
         is $c->req->cookie('Foo')->value, 'Bar';
@@ -47 +36 @@
 
     # do test
-    _test($req, sub {
+    run_engine($req, sub {
         my $c = shift;
         is_deeply $c->req->cookies, {};

lang/perl/HTTP-Engine/trunk/t/Utils.pm

@@ -3 +3 @@
 use strict;
 use warnings;
+use HTTP::Engine;
 
 use IO::Socket::INET;
 
 use Sub::Exporter -setup => {
-    exports => [qw/ empty_port daemonize daemonize_all interfaces /],
+    exports => [qw/ empty_port daemonize daemonize_all interfaces run_engine /],
     groups  => { default => [':all'] }
 };
@@ -71 +72 @@
 }
 
+sub run_engine {
+    my ($req, $cb) = @_;
+
+    HTTP::Engine->new(
+        interface => {
+            module => 'Test',
+            args => { },
+            request_handler => $cb,
+        },
+    )->run($req);
+}
+
 1;