Index: /lang/perl/HTTP-Engine-Compat/trunk/t/Utils.pm
===================================================================
--- /lang/perl/HTTP-Engine-Compat/trunk/t/Utils.pm (revision 17549)
+++ /lang/perl/HTTP-Engine-Compat/trunk/t/Utils.pm (revision 18364)
@@ -5,70 +5,8 @@
 use HTTP::Engine;
 
-use IO::Socket::INET;
-
 use Sub::Exporter -setup => {
-    exports => [qw/ empty_port daemonize daemonize_all interfaces run_engine ok_response check_port wait_port /],
+    exports => [qw/ run_engine /],
     groups  => { default => [':all'] }
 };
-
-sub empty_port {
-    my $port = shift || 10000;
-    $port = 19000 unless $port =~ /^[0-9]+$/ && $port < 19000;
-
-    while ($port++ < 20000) {
-        my $sock = IO::Socket::INET->new(
-            Listen    => 5,
-            LocalAddr => 'localhost',
-            LocalPort => $port,
-            Proto     => 'tcp'
-        );
-        return $port if $sock;
-    }
-    die "empty port not found";
-}
-
-sub daemonize (&@) { goto _daemonize }
-sub _daemonize {
-    my($client, %args) = @_;
-
-    if (my $pid = fork()) {
-        # parent.
-        sleep 1; # wait startup child process
-
-        $client->();
-
-        kill TERM => $pid;
-        waitpid($pid, 0);
-    } elsif ($pid == 0) {
-        # child
-        my $poe_kernel_run = delete $args{poe_kernel_run};
-        HTTP::Engine->new(%args)->run;
-        POE::Kernel->run() if $poe_kernel_run;
-    } else {
-        die "cannot fork";
-    }
-}
-
-my @interfaces; # memoize.
-sub interfaces() {
-    unless (@interfaces) {
-        push @interfaces, 'Standalone';
-        push @interfaces, 'ServerSimple' if eval "use HTTP::Server::Simple; 1;";
-        push @interfaces, 'POE'          if eval "use POE; 1;";
-    }
-    return @interfaces;
-}
-
-sub daemonize_all (&@) {
-    my($client, %args) = @_;
-
-    my $poe_kernel_run = delete $args{poe_kernel_run};
-
-    for my $interface (interfaces) {
-        $args{interface}->{module} = $interface;
-        $args{poe_kernel_run} = ($interface eq 'POE') if $poe_kernel_run;
-        _daemonize $client => %args;
-    }
-}
 
 sub run_engine (&@) {
@@ -84,38 +22,3 @@
 }
 
-sub ok_response {
-    HTTP::Engine::Response->new(
-        status => 200,
-        body => 'ok',
-    );
-}
-
-sub check_port {
-    my ( $port ) = @_;
-
-    my $remote = IO::Socket::INET->new(
-        Proto    => "tcp",
-        PeerAddr => '127.0.0.1',
-        PeerPort => $port
-    );
-    if ($remote) {
-        close $remote;
-        return 1;
-    }
-    else {
-        return 0;
-    }
-}
-
-sub wait_port {
-    my $port = shift;
-
-    my $retry = 10;
-    while ($retry--) {
-        return if check_port($port);
-        sleep 1;
-    }
-    die "cannot open port: $port";
-}
-
 1;