16 lines
463 B
Forth
16 lines
463 B
Forth
module CategoryDataTests
|
|
|
|
open Expecto
|
|
open MyWebLog
|
|
open MyWebLog.Data
|
|
|
|
/// Tests for the Add method
|
|
let addTests (data: IData) = task {
|
|
let category =
|
|
{ Category.Empty with Id = CategoryId "added-cat"; WebLogId = WebLogId "test"; Name = "Added"; Slug = "added" }
|
|
do! data.Category.Add category
|
|
let! stored = data.Category.FindById (CategoryId "added-cat") (WebLogId "test")
|
|
Expect.isSome stored "The category should have been added"
|
|
}
|
|
|