Changeset 18686

Show
Ignore:
Timestamp:
09/03/08 01:08:40 (5 years ago)
Author:
tokuhirom
Message:

added yet another test.

Location:
lang/perl/HTTP-Engine/trunk
Files:
1 added
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/ServerSimple.pm

    r18269 r18686  
    4949                handler    => sub { 
    5050                    my $base = "http://$setup{localname}:$setup{localport}"; 
     51                    my $uri = URI::WithBase->new( 
     52                        $base . $setup{request_uri}, 
     53                        $base . '/', 
     54                    ); 
    5155                    $self->handle_request( 
    52                         uri => URI::WithBase->new( 
    53                             $base . $setup{request_uri}, 
    54                             $base . '/', 
    55                         ), 
     56                        uri => $uri, 
    5657                        connection_info => { 
    5758                            method      => $setup{method}, 

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

    r18417 r18686  
    101101            $args{poe_kernel_run} = ($interface eq 'POE') if $poe_kernel_run; 
    102102            test_tcp( 
    103                 client => $client_cb, 
     103                client => sub { $client_cb->(@_, $interface) }, 
    104104                server => sub { 
    105105                    my $poe_kernel_run = delete $args{poe_kernel_run};