The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl -w
use strict;
use Test::More tests => 5;

use Railsish::Router;

Railsish::Router->draw(
    sub {
	my ($map) = @_;
	$map->resources("blogs", path_prefix => "/admin");
    }
);

my $blog = { id => 1 };

is(Railsish::Router->blogs_path, "/admin/blogs");
is(Railsish::Router->blog_path($blog), "/admin/blogs/1");
is(Railsish::Router->edit_blog_path($blog), "/admin/blogs/1/edit");
is(Railsish::Router->new_blog_path, "/admin/blogs/new");

{
    my $matched = Railsish::Router->match("/admin/blogs", conditions => {method => "get" });
    if ($matched) {
        my $mapping = $matched->mapping;
        is($mapping->{path_prefix}, "/admin");
    }
    else {
        fail "Not matching /admin/blogs";
    }
}