summaryrefslogtreecommitdiff
path: root/t/file_pruned.t
blob: a05ad548f948cb87844b370cd05801a2a74938b7 (plain)
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use Test::More tests => 27;
  5. BEGIN { use_ok("IkiWiki"); }
  6. %config=IkiWiki::defaultconfig();
  7. ok(IkiWiki::file_pruned("src/.ikiwiki/", "src"));
  8. ok(IkiWiki::file_pruned("src/.ikiwiki/index", "src"));
  9. ok(IkiWiki::file_pruned("src/CVS", "src"));
  10. ok(IkiWiki::file_pruned("src/subdir/CVS", "src"));
  11. ok(IkiWiki::file_pruned("src/subdir/CVS/foo", "src"));
  12. ok(IkiWiki::file_pruned("src/.svn", "src"));
  13. ok(IkiWiki::file_pruned("src/subdir/.svn", "src"));
  14. ok(IkiWiki::file_pruned("src/subdir/.svn/foo", "src"));
  15. ok(IkiWiki::file_pruned("src/.git", "src"));
  16. ok(IkiWiki::file_pruned("src/subdir/.git", "src"));
  17. ok(IkiWiki::file_pruned("src/subdir/.git/foo", "src"));
  18. ok(! IkiWiki::file_pruned("src/svn/fo", "src"));
  19. ok(! IkiWiki::file_pruned("src/git", "src"));
  20. ok(! IkiWiki::file_pruned("src/index.mdwn", "src"));
  21. ok(! IkiWiki::file_pruned("src/index.", "src"));
  22. # these are ok because while the filename starts with ".", the canonpathed
  23. # version does not
  24. ok(! IkiWiki::file_pruned("src/.", "src"));
  25. ok(! IkiWiki::file_pruned("src/./", "src"));
  26. ok(IkiWiki::file_pruned("src/..", "src"));
  27. ok(IkiWiki::file_pruned("src/../", "src"));
  28. ok(IkiWiki::file_pruned("src/../", "src"));
  29. ok(! IkiWiki::file_pruned("src", "src"));
  30. ok(! IkiWiki::file_pruned("/.foo/src", "/.foo/src"));
  31. ok(IkiWiki::file_pruned("/.foo/src/.foo/src", "/.foo/src"));
  32. ok(! IkiWiki::file_pruned("/.foo/src/index.mdwn", "/.foo/src/index.mdwn"));
  33. ok(IkiWiki::file_pruned("x/y/foo.dpkg-tmp", "src"));
  34. ok(IkiWiki::file_pruned("x/y/foo.ikiwiki-new", "src"));