Changeset 25460

Show
Ignore:
Timestamp:
11/30/08 22:46:51 (4 years ago)
Author:
masaki
Message:

use t::Router

Location:
lang/perl/HTTP-Router/trunk/t
Files:
1 added
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/HTTP-Router/trunk/t/01_match.t

    r25447 r25460  
    1 use Test::Base; 
    2 use HTTP::Router; 
     1use t::Router; 
    32 
    43plan tests => 1 * blocks; 
    54 
    6 my $routes = eval { require 't/routes.pl' }; 
    7 my $router = HTTP::Router->new; 
    8 $router->connect(@$_) for @$routes; 
     5my $router = build_router(); 
    96 
    107filters { 
    … …  
    1512run { 
    1613    my $block = shift; 
    17  
    1814    my $match = $router->match($block->path, $block->conditions); 
    1915    is_deeply $match, $block->expected;