X-Git-Url: http://git.vanrenterghem.biz/git.ikiwiki.info.git/blobdiff_plain/9e1c7e7d9aedf0dc4a9ad2bf36c582e56e0d2510..cb2025af4501b4168440bb8583f95ca5836d72ae:/t/bazaar.t?ds=inline diff --git a/t/bazaar.t b/t/bazaar.t index 675a143b5..0bdd883d5 100755 --- a/t/bazaar.t +++ b/t/bazaar.t @@ -12,13 +12,14 @@ BEGIN { } } } -use Test::More tests => 16; +use Test::More tests => 17; BEGIN { use_ok("IkiWiki"); } %config=IkiWiki::defaultconfig(); $config{rcs} = "bzr"; $config{srcdir} = "$dir/repo"; +IkiWiki::loadplugins(); IkiWiki::checkconfig(); system "bzr init $config{srcdir}"; @@ -34,7 +35,7 @@ my @changes; is($#changes, 0); is($changes[0]{message}[0]{"line"}, "Added the first page"); -is($changes[0]{pages}[0]{"page"}, "test1.mdwn"); +is($changes[0]{pages}[0]{"page"}, "test1"); is($changes[0]{user}, "Joe User"); # Manual commit @@ -52,13 +53,16 @@ system "bzr commit --quiet --author \"$user\" -m \"$message\" $config{srcdir}"; is($#changes, 1); is($changes[0]{message}[0]{"line"}, $message); is($changes[0]{user}, $username); -is($changes[0]{pages}[0]{"page"}, "test2.mdwn"); +is($changes[0]{pages}[0]{"page"}, "test2"); -is($changes[1]{pages}[0]{"page"}, "test1.mdwn"); +is($changes[1]{pages}[0]{"page"}, "test1"); my $ctime = IkiWiki::rcs_getctime("test2.mdwn"); ok($ctime >= time() - 20); +my $mtime = IkiWiki::rcs_getmtime("test2.mdwn"); +ok($mtime >= time() - 20); + writefile('test3.mdwn', $config{srcdir}, $test1); IkiWiki::rcs_add("test3.mdwn"); IkiWiki::rcs_rename("test3.mdwn", "test4.mdwn"); @@ -67,7 +71,7 @@ IkiWiki::rcs_commit_staged("Added the 4th page", "moo", "Joe User"); @changes = IkiWiki::rcs_recentchanges(4); is($#changes, 2); -is($changes[0]{pages}[0]{"page"}, "test4.mdwn"); +is($changes[0]{pages}[0]{"page"}, "test4"); ok(mkdir($config{srcdir}."/newdir")); IkiWiki::rcs_rename("test4.mdwn", "newdir/test5.mdwn"); @@ -76,7 +80,7 @@ IkiWiki::rcs_commit_staged("Added the 5th page", "moo", "Joe User"); @changes = IkiWiki::rcs_recentchanges(4); is($#changes, 3); -is($changes[0]{pages}[0]{"page"}, "newdir/test5.mdwn"); +is($changes[0]{pages}[0]{"page"}, "newdir/test5"); IkiWiki::rcs_remove("newdir/test5.mdwn"); IkiWiki::rcs_commit_staged("Remove the 5th page", "moo", "Joe User");