Catalyst Introducing Catalyst #17

More tests

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;
""