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 } ]