Permalink
Browse files

Merge pull request #3 from benmachine/master

Test revDescription more thoroughly
  • Loading branch information...
2 parents 6a26c35 + 3385ab4 commit 34d06ac066634b73f1d293bfdad0ce88fbd9ec16 @jgm committed Nov 26, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 tests/Tests.lhs
View
@@ -306,6 +306,8 @@ This program runs tests for the filestore modules.
*** Test history and revision
> historyTest fs = TestCase $ do
+> let testDescription = "history test message"
+> save fs testTitle testAuthor testDescription testContents
Get history for three files
@@ -316,7 +318,7 @@ This program runs tests for the filestore modules.
> assertBool "history contains latest revision" (rev `elem` hist)
> assertEqual "revAuthor" testAuthor (revAuthor rev)
> assertBool "revId non-null" (not (null (revId rev)))
-> assertBool "revDescription non-null" (not (null (revDescription rev)))
+> assertEqual "revDescription" testDescription (revDescription rev)
> assertEqual "revChanges" [Modified testTitle] (revChanges rev)
> let revtime = revDateTime rev
> histNow <- history fs [testTitle] (TimeRange (Just $ addUTCTime (60 * 60 * 24) now) Nothing) Nothing

0 comments on commit 34d06ac

Please sign in to comment.