Add edit page model tests
This commit is contained in:
parent
29167eca6c
commit
12c46c8204
|
|
@ -454,6 +454,123 @@ let editMyInfoModelTests = test "EditMyInfoModel.FromUser succeeds" {
|
|||
Expect.equal model.NewPasswordConfirm "" "NewPasswordConfirm not filled properly"
|
||||
}
|
||||
|
||||
let editPageModelTests = testList "EditPageModel" [
|
||||
let fullPage =
|
||||
{ Page.Empty with
|
||||
Id = PageId "the-page"
|
||||
Title = "Test Page"
|
||||
Permalink = Permalink "blog/page.html"
|
||||
Template = Some "bork"
|
||||
IsInPageList = true
|
||||
Revisions =
|
||||
[ { AsOf = Noda.epoch + Duration.FromHours 1; Text = Markdown "# Howdy!" }
|
||||
{ AsOf = Noda.epoch; Text = Html "<h1>howdy</h1>" } ]
|
||||
Metadata = [ { Name = "Test"; Value = "me" }; { Name = "Two"; Value = "2" } ] }
|
||||
testList "FromPage" [
|
||||
test "succeeds for empty page" {
|
||||
let model = EditPageModel.FromPage { Page.Empty with Id = PageId "abc" }
|
||||
Expect.equal model.PageId "abc" "PageId not filled properly"
|
||||
Expect.equal model.Title "" "Title not filled properly"
|
||||
Expect.equal model.Permalink "" "Permalink not filled properly"
|
||||
Expect.equal model.Template "" "Template not filled properly"
|
||||
Expect.isFalse model.IsShownInPageList "IsShownInPageList should not have been set"
|
||||
Expect.equal model.Source "HTML" "Source not filled properly"
|
||||
Expect.equal model.Text "" "Text not set properly"
|
||||
Expect.equal model.MetaNames.Length 1 "MetaNames should have one entry"
|
||||
Expect.equal model.MetaNames[0] "" "Meta name not set properly"
|
||||
Expect.equal model.MetaValues.Length 1 "MetaValues should have one entry"
|
||||
Expect.equal model.MetaValues[0] "" "Meta value not set properly"
|
||||
}
|
||||
test "succeeds for filled page" {
|
||||
let model = EditPageModel.FromPage fullPage
|
||||
Expect.equal model.PageId "the-page" "PageId not filled properly"
|
||||
Expect.equal model.Title "Test Page" "Title not filled properly"
|
||||
Expect.equal model.Permalink "blog/page.html" "Permalink not filled properly"
|
||||
Expect.equal model.Template "bork" "Template not filled properly"
|
||||
Expect.isTrue model.IsShownInPageList "IsShownInPageList should have been set"
|
||||
Expect.equal model.Source "Markdown" "Source not filled properly"
|
||||
Expect.equal model.Text "# Howdy!" "Text not filled properly"
|
||||
Expect.equal model.MetaNames.Length 2 "MetaNames should have two entries"
|
||||
Expect.equal model.MetaNames[0] "Test" "Meta name 0 not set properly"
|
||||
Expect.equal model.MetaNames[1] "Two" "Meta name 1 not set properly"
|
||||
Expect.equal model.MetaValues.Length 2 "MetaValues should have two entries"
|
||||
Expect.equal model.MetaValues[0] "me" "Meta value 0 not set properly"
|
||||
Expect.equal model.MetaValues[1] "2" "Meta value 1 not set properly"
|
||||
}
|
||||
]
|
||||
testList "IsNew" [
|
||||
test "succeeds for a new page" {
|
||||
Expect.isTrue
|
||||
(EditPageModel.FromPage { Page.Empty with Id = PageId "new" }).IsNew "IsNew should have been set"
|
||||
}
|
||||
test "succeeds for an existing page" {
|
||||
Expect.isFalse (EditPageModel.FromPage Page.Empty).IsNew "IsNew should not have been set"
|
||||
}
|
||||
]
|
||||
testList "UpdatePage" [
|
||||
test "succeeds with minimal changes" {
|
||||
let model = { EditPageModel.FromPage fullPage with Title = "Updated Page"; IsShownInPageList = false }
|
||||
let page = model.UpdatePage fullPage (Noda.epoch + Duration.FromHours 4)
|
||||
Expect.equal page.Title "Updated Page" "Title not filled properly"
|
||||
Expect.equal page.Permalink (Permalink "blog/page.html") "Permalink not filled properly"
|
||||
Expect.isEmpty page.PriorPermalinks "PriorPermalinks should be empty"
|
||||
Expect.equal page.UpdatedOn (Noda.epoch + Duration.FromHours 4) "UpdatedOn not filled properly"
|
||||
Expect.isFalse page.IsInPageList "IsInPageList should have been unset"
|
||||
Expect.equal page.Template (Some "bork") "Template not filled properly"
|
||||
Expect.equal page.Text "<h1 id=\"howdy\">Howdy!</h1>\n" "Text not filled properly"
|
||||
Expect.equal page.Metadata.Length 2 "There should be 2 metadata items"
|
||||
let item1 = List.item 0 page.Metadata
|
||||
Expect.equal item1.Name "Test" "Meta item 0 name not filled properly"
|
||||
Expect.equal item1.Value "me" "Meta item 0 value not filled properly"
|
||||
let item2 = List.item 1 page.Metadata
|
||||
Expect.equal item2.Name "Two" "Meta item 1 name not filled properly"
|
||||
Expect.equal item2.Value "2" "Meta item 1 value not filled properly"
|
||||
Expect.equal page.Revisions.Length 2 "There should be 2 revisions"
|
||||
let rev1 = List.item 0 page.Revisions
|
||||
Expect.equal rev1.AsOf (Noda.epoch + Duration.FromHours 1) "Revision 0 as-of not filled properly"
|
||||
Expect.equal rev1.Text (Markdown "# Howdy!") "Revision 0 text not filled properly"
|
||||
let rev2 = List.item 1 page.Revisions
|
||||
Expect.equal rev2.AsOf Noda.epoch "Revision 1 as-of not filled properly"
|
||||
Expect.equal rev2.Text (Html "<h1>howdy</h1>") "Revision 1 text not filled properly"
|
||||
}
|
||||
test "succeeds with all changes" {
|
||||
let model =
|
||||
{ PageId = "this-page"
|
||||
Title = "My Updated Page"
|
||||
Permalink = "blog/updated.html"
|
||||
Template = ""
|
||||
IsShownInPageList = false
|
||||
Source = "HTML"
|
||||
Text = "<h1>Howdy, partners!</h1>"
|
||||
MetaNames = [| "banana"; "apple"; "grape" |]
|
||||
MetaValues = [| "monkey"; "zebra"; "ape" |] }
|
||||
let now = Noda.epoch + Duration.FromDays 7
|
||||
let page = model.UpdatePage fullPage now
|
||||
Expect.equal page.Title "My Updated Page" "Title not filled properly"
|
||||
Expect.equal page.Permalink (Permalink "blog/updated.html") "Permalink not filled properly"
|
||||
Expect.equal page.PriorPermalinks [ Permalink "blog/page.html" ] "PriorPermalinks not filled properly"
|
||||
Expect.equal page.UpdatedOn now "UpdatedOn not filled properly"
|
||||
Expect.isFalse page.IsInPageList "IsInPageList should not have been set"
|
||||
Expect.isNone page.Template "Template not filled properly"
|
||||
Expect.equal page.Text "<h1>Howdy, partners!</h1>" "Text not filled properly"
|
||||
Expect.equal page.Metadata.Length 3 "There should be 3 metadata items"
|
||||
let item1 = List.item 0 page.Metadata
|
||||
Expect.equal item1.Name "apple" "Meta item 0 name not filled properly"
|
||||
Expect.equal item1.Value "zebra" "Meta item 0 value not filled properly"
|
||||
let item2 = List.item 1 page.Metadata
|
||||
Expect.equal item2.Name "banana" "Meta item 1 name not filled properly"
|
||||
Expect.equal item2.Value "monkey" "Meta item 1 value not filled properly"
|
||||
let item3 = List.item 2 page.Metadata
|
||||
Expect.equal item3.Name "grape" "Meta item 2 name not filled properly"
|
||||
Expect.equal item3.Value "ape" "Meta item 2 value not filled properly"
|
||||
Expect.equal page.Revisions.Length 3 "There should be 3 revisions"
|
||||
Expect.equal page.Revisions.Head.AsOf now "Head revision as-of not filled properly"
|
||||
Expect.equal
|
||||
page.Revisions.Head.Text (Html "<h1>Howdy, partners!</h1>") "Head revision text not filled properly"
|
||||
}
|
||||
]
|
||||
]
|
||||
|
||||
/// All tests in the Domain.ViewModels file
|
||||
let all = testList "ViewModels" [
|
||||
addBaseToRelativeUrlsTests
|
||||
|
|
@ -466,4 +583,5 @@ let all = testList "ViewModels" [
|
|||
editCategoryModelTests
|
||||
editCustomFeedModelTests
|
||||
editMyInfoModelTests
|
||||
editPageModelTests
|
||||
]
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user