X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=t%2Fmaypole.t;h=19418396367bc8ca3c18360b5192eefeed5e977f;hb=55f97a4ef2080f9fa90d5a85b703f23df76aa815;hp=8686254f2a8d74e3f96c825ee3a48f9412a60890;hpb=01eab49507a01b9b6135ca1fdd085094373cd78f;p=maypole.git diff --git a/t/maypole.t b/t/maypole.t index 8686254..1941839 100755 --- a/t/maypole.t +++ b/t/maypole.t @@ -28,7 +28,8 @@ my @API = qw/ config init_done view_object params query objects model_class content_type table headers_in headers_out is_model_applicable setup init handler handler_guts call_authenticate call_exception additional_data - authenticate exception parse_path get_template_root get_request + authenticate exception parse_path make_path + make_uri get_template_root get_request parse_location send_output /; @@ -371,6 +372,9 @@ my $mock_table = new Test::MockModule($table_class, no_auto => 1); is($r->action, 'index', '... action defaults to index'); } +# make_uri() and make_path() - see pathtools.t + + # get_template_root() { is(Maypole->get_template_root(), '.', '... returns "."');