response
[ikiwiki.git] / t / dirname.t
blob197d00d63f5e19e993dfe430a1dc4c8c26216711
1 #!/usr/bin/perl
2 use warnings;
3 use strict;
4 use Test::More tests => 6;
6 BEGIN { use_ok("IkiWiki"); }
8 is(IkiWiki::dirname("/home/joey/foo/bar"), "/home/joey/foo");
9 is(IkiWiki::dirname("./foo"), ".");
10 is(IkiWiki::dirname("baz"), "");
11 is(IkiWiki::dirname("/tmp/"), "/tmp/");
12 is(IkiWiki::dirname("/home/joey/foo/"), "/home/joey/foo/");