Writer.hs

-- Note: this is an automatically generated file. Do not edit.

-- | Test cases for JSON serialization

module Hydra.Test.Json.Writer where

import qualified Hydra.Json.Model as Model
import qualified Hydra.Testing as Testing
import Prelude hiding  (Enum, Ordering, decodeFloat, encodeFloat, fail, map, pure, sum)
import qualified Data.ByteString as B
import qualified Data.Int as I
import qualified Data.List as L
import qualified Data.Map as M
import qualified Data.Set as S

-- | Test cases for JSON serialization (writer)
allTests :: Testing.TestGroup
allTests = Testing.TestGroup {
  Testing.testGroupName = "JSON serialization",
  Testing.testGroupDescription = Nothing,
  Testing.testGroupSubgroups = [
    Testing.TestGroup {
      Testing.testGroupName = "primitives",
      Testing.testGroupDescription = Nothing,
      Testing.testGroupSubgroups = [],
      Testing.testGroupCases = [
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "null",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = Model.ValueNull,
            Testing.writerTestCaseOutput = "null"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "true",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueBoolean True),
            Testing.writerTestCaseOutput = "true"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "false",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueBoolean False),
            Testing.writerTestCaseOutput = "false"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "zero",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueNumber 0.0),
            Testing.writerTestCaseOutput = "0"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "positive integer",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueNumber 42.0),
            Testing.writerTestCaseOutput = "42"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "negative integer",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueNumber (-17.0)),
            Testing.writerTestCaseOutput = "-17"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "large integer",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueNumber 1000000.0),
            Testing.writerTestCaseOutput = "1000000"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "decimal",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueNumber 3.14),
            Testing.writerTestCaseOutput = "3.14"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "negative decimal",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueNumber (-2.5)),
            Testing.writerTestCaseOutput = "-2.5"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "small decimal",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueNumber 1.0e-3),
            Testing.writerTestCaseOutput = "1.0e-3"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []}]},
    Testing.TestGroup {
      Testing.testGroupName = "strings",
      Testing.testGroupDescription = Nothing,
      Testing.testGroupSubgroups = [],
      Testing.testGroupCases = [
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "empty string",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString ""),
            Testing.writerTestCaseOutput = "\"\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "simple string",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString "hello"),
            Testing.writerTestCaseOutput = "\"hello\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "string with spaces",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString "hello world"),
            Testing.writerTestCaseOutput = "\"hello world\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "string with double quote",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString "say \"hi\""),
            Testing.writerTestCaseOutput = "\"say \\\"hi\\\"\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "string with backslash",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString "path\\to\\file"),
            Testing.writerTestCaseOutput = "\"path\\\\to\\\\file\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "string with newline",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString "line1\nline2"),
            Testing.writerTestCaseOutput = "\"line1\\nline2\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "string with carriage return",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString "line1\rline2"),
            Testing.writerTestCaseOutput = "\"line1\\rline2\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "string with tab",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString "col1\tcol2"),
            Testing.writerTestCaseOutput = "\"col1\\tcol2\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "string with mixed escapes",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueString "a\"b\\c\nd"),
            Testing.writerTestCaseOutput = "\"a\\\"b\\\\c\\nd\""})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []}]},
    Testing.TestGroup {
      Testing.testGroupName = "arrays",
      Testing.testGroupDescription = Nothing,
      Testing.testGroupSubgroups = [],
      Testing.testGroupCases = [
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "empty array",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueArray []),
            Testing.writerTestCaseOutput = "[]"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "single element",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueArray [
              Model.ValueNumber 1.0]),
            Testing.writerTestCaseOutput = "[1]"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "multiple numbers",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueArray [
              Model.ValueNumber 1.0,
              (Model.ValueNumber 2.0),
              (Model.ValueNumber 3.0)]),
            Testing.writerTestCaseOutput = "[1, 2, 3]"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "multiple strings",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueArray [
              Model.ValueString "a",
              (Model.ValueString "b")]),
            Testing.writerTestCaseOutput = "[\"a\", \"b\"]"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "mixed types",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueArray [
              Model.ValueNumber 1.0,
              (Model.ValueString "two"),
              (Model.ValueBoolean True),
              Model.ValueNull]),
            Testing.writerTestCaseOutput = "[1, \"two\", true, null]"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []}]},
    Testing.TestGroup {
      Testing.testGroupName = "objects",
      Testing.testGroupDescription = Nothing,
      Testing.testGroupSubgroups = [],
      Testing.testGroupCases = [
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "empty object",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueObject M.empty),
            Testing.writerTestCaseOutput = "{}"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "single key-value",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueObject (M.fromList [
              ("name", (Model.ValueString "Alice"))])),
            Testing.writerTestCaseOutput = "{\"name\": \"Alice\"}"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "multiple keys",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueObject (M.fromList [
              ("a", (Model.ValueNumber 1.0)),
              ("b", (Model.ValueNumber 2.0))])),
            Testing.writerTestCaseOutput = "{\"a\": 1, \"b\": 2}"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "mixed value types",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueObject (M.fromList [
              ("active", (Model.ValueBoolean True)),
              ("count", (Model.ValueNumber 42.0)),
              ("name", (Model.ValueString "test"))])),
            Testing.writerTestCaseOutput = "{\"active\": true, \"count\": 42, \"name\": \"test\"}"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []}]},
    Testing.TestGroup {
      Testing.testGroupName = "nested structures",
      Testing.testGroupDescription = Nothing,
      Testing.testGroupSubgroups = [],
      Testing.testGroupCases = [
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "nested arrays",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueArray [
              Model.ValueArray [
                Model.ValueNumber 1.0,
                (Model.ValueNumber 2.0)],
              (Model.ValueArray [
                Model.ValueNumber 3.0,
                (Model.ValueNumber 4.0)])]),
            Testing.writerTestCaseOutput = "[[1, 2], [3, 4]]"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "object with array",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueObject (M.fromList [
              ("items", (Model.ValueArray [
                Model.ValueNumber 1.0,
                (Model.ValueNumber 2.0)]))])),
            Testing.writerTestCaseOutput = "{\"items\": [1, 2]}"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "array of objects",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueArray [
              Model.ValueObject (M.fromList [
                ("id", (Model.ValueNumber 1.0))]),
              (Model.ValueObject (M.fromList [
                ("id", (Model.ValueNumber 2.0))]))]),
            Testing.writerTestCaseOutput = "[{\"id\": 1}, {\"id\": 2}]"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []},
        Testing.TestCaseWithMetadata {
          Testing.testCaseWithMetadataName = "nested object",
          Testing.testCaseWithMetadataCase = (Testing.TestCaseJsonWriter (Testing.WriterTestCase {
            Testing.writerTestCaseInput = (Model.ValueObject (M.fromList [
              ("user", (Model.ValueObject (M.fromList [
                ("name", (Model.ValueString "Bob"))])))])),
            Testing.writerTestCaseOutput = "{\"user\": {\"name\": \"Bob\"}}"})),
          Testing.testCaseWithMetadataDescription = Nothing,
          Testing.testCaseWithMetadataTags = []}]}],
  Testing.testGroupCases = []}