More tests
- t/wiki-validation.t
- Tests the page name validation rules:
use KitiWiki::Backend::Wiki;
use Test::TableDriven (
validate => {
'foo' => 0,
'FooBar' => 1,
'Foo..' => 0,
'Foo/../../../etc/passwd' => 0,
'' => 0,
'A' => 0,
'Ab' => 1,
},
);
sub validate {
my $in = shift;
return KitiWiki::Backend::Wiki->_validate_page_name($in)
? 1 : 0;
}
runtests;