40 lines
1.1 KiB
Forth
40 lines
1.1 KiB
Forth
module Types
|
|
|
|
type NumIdDocument =
|
|
{ Key: int
|
|
Text: string }
|
|
|
|
type SubDocument =
|
|
{ Foo: string
|
|
Bar: string }
|
|
|
|
type ArrayDocument =
|
|
{ Id: string
|
|
Values: string list }
|
|
with
|
|
/// <summary>
|
|
/// A set of documents used for integration tests
|
|
/// </summary>
|
|
static member TestDocuments =
|
|
[ { Id = "first"; Values = [ "a"; "b"; "c" ] }
|
|
{ Id = "second"; Values = [ "c"; "d"; "e" ] }
|
|
{ Id = "third"; Values = [ "x"; "y"; "z" ] } ]
|
|
|
|
type JsonDocument =
|
|
{ Id: string
|
|
Value: string
|
|
NumValue: int
|
|
Sub: SubDocument option }
|
|
|
|
|
|
/// An empty JsonDocument
|
|
let emptyDoc = { Id = ""; Value = ""; NumValue = 0; Sub = None }
|
|
|
|
/// Documents to use for testing
|
|
let testDocuments =
|
|
[ { Id = "one"; Value = "FIRST!"; NumValue = 0; Sub = None }
|
|
{ Id = "two"; Value = "another"; NumValue = 10; Sub = Some { Foo = "green"; Bar = "blue" } }
|
|
{ Id = "three"; Value = ""; NumValue = 4; Sub = None }
|
|
{ Id = "four"; Value = "purple"; NumValue = 17; Sub = Some { Foo = "green"; Bar = "red" } }
|
|
{ Id = "five"; Value = "purple"; NumValue = 18; Sub = None } ]
|