Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Test revDescription matches the argument to save

  • Loading branch information...
commit 3385ab44daa124bf5381da0c39df7131d06001d9 1 parent 6a26c35
@bmillwood bmillwood authored
Showing with 3 additions and 1 deletion.
  1. +3 −1 tests/Tests.lhs
View
4 tests/Tests.lhs
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.