#!/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"; } }