view release on metacpan or  search on metacpan

t/10uri_to_file.t  view on Meta::CPAN

#!/usr/bin/perl

use AxKit2::Test tests => 8;

start_server("t/server1",[qw(uri_to_file serve_file)],['DirectoryIndex index.html']);

content_is('/index.html','This is index.html',        'Basic path translation');
content_is('/','This is index.html',                  'DirectoryIndex');
content_is('/index.html/foobar','This is index.html', 'path_info');
is_redirect('/foo','/foo/',                           'directory redirect');

status_is('/index',404,                               'nonexistant file');
status_is('/..',400,                                  'invalid URL');
status_is('/i..ndex',400,                             'better-safe-than-sorry invalid URL');
status_is('/i.%2Endex',400,                           'hidden invalid URL');