Show
Ignore:
Timestamp:
08/28/08 08:08:56 (4 months ago)
Author:
tokuhirom
Message:

rewrote

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Engine-Compat/trunk/t/010_core/context.t

    r17787 r18361  
    33use HTTP::Engine::Compat; 
    44use Scalar::Util qw/refaddr/; 
    5 use Test::More tests => 3; 
     5use Test::More tests => 5; 
    66 
    7 my $c = HTTP::Engine::Compat::Context->new( 
    8     req => HTTP::Engine::Request->new( 
    9         _connection => { 
    10             input_handle  => \*STDIN, 
    11             output_handle => \*STDIN, 
    12             env           => \%ENV, 
     7HTTP::Engine->new( 
     8    interface => { 
     9        module => 'Test', 
     10        args => { }, 
     11        request_handler => sub { 
     12            my $c = shift; 
     13            isa_ok $c, 'HTTP::Engine::Compat::Context'; 
     14            is $c->req->path, '/foo'; 
     15            is refaddr( $c->req ), refaddr( $c->request ),  'alias'; 
     16            is refaddr( $c->res ), refaddr( $c->response ), 'alias'; 
     17            is refaddr( $c->req->context ), refaddr($c), 'trigger'; 
    1318        }, 
    14         request_builder => HTTP::Engine::RequestBuilder->new, 
    15     ) 
    16 ); 
    17 is refaddr( $c->req ), refaddr( $c->request ),  'alias'; 
    18 is refaddr( $c->res ), refaddr( $c->response ), 'alias'; 
    19 is refaddr( $c->req->context ), refaddr($c), 'trigger'; 
     19    }, 
     20)->run(HTTP::Request->new('GET', '/foo')); 
     21