use strict;
use warnings;
use Router::Simple;
use Test::More;

my $r = Router::Simple->new();
$r->connect('/' => {controller => 'Root', action => 'show'});
$r->connect('/p' => {controller => 'Root', action => 'p'});

is_deeply(
    $r->match( +{ PATH_INFO => '/', HTTP_HOST => 'localhost', REQUEST_METHOD => 'GET' } ) || undef,
    {
        controller => 'Root',
        action     => 'show',
    }
);

is_deeply(
    $r->match( +{ PATH_INFO => '/p', HTTP_HOST => 'localhost', REQUEST_METHOD => 'GET' } ) || undef,
    {
        controller => 'Root',
        action     => 'p',
    }
);

done_testing;