fix pagetype test

File had wrong name, and made wrong assumption about what pagetype does for
bare files.

diff --git a/t/pagetype.mdwn b/t/pagetype.t
similarity index 51%
rename from t/pagetype.mdwn
rename to t/pagetype.t
index 76cacd8f7070ac76b1f9b2f786271da0bb9c7e7a..2df59387a6d22752606f6aaf54c74a27f1439820 100755 (executable)
--- a/t/pagetype.mdwn
+++ b/t/pagetype.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use warnings;
 use strict;
 #!/usr/bin/perl
 use warnings;
 use strict;

-use Test::More tests => 5;
+use Test::More tests => 6;

 
 BEGIN { use_ok("IkiWiki"); }
 
 
 BEGIN { use_ok("IkiWiki"); }
 


@@ -10,5 +10,8 @@ $IkiWiki::hooks{htmlize}{mdwn}=1;
 
 is(pagetype("foo.mdwn"), "mdwn");
 is(pagetype("foo/bar.mdwn"), "mdwn");
 
 is(pagetype("foo.mdwn"), "mdwn");
 is(pagetype("foo/bar.mdwn"), "mdwn");

-is(pagename("foo.png"), undef);
-is(pagename("foo"), undef);
+
+# bare files get the full filename as page name
+is(pagename("foo.png"), "foo.png");
+is(pagename("foo/bar.png"), "foo/bar.png");
+is(pagename("foo"), "foo");