aboutsummaryrefslogtreecommitdiff
path: root/test/gleam_json_js_ffi_test.gleam
blob: f746ce2e585b5e08e358f17ab21959d3ba414093 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
if javascript {
  import gleam/json.{DecodeError, UnexpectedByte, UnexpectedEndOfInput}
  import gleeunit/should

  type StandardError {
    StandardError(message: String)
  }

  // === End of input tests === //
  pub fn chromium_end_of_input_test() {
    "Unexpected end of JSON input"
    |> StandardError
    |> get_json_decode_error("")
    |> should.equal(UnexpectedEndOfInput)
  }

  pub fn spidermonkey_end_of_input_test() {
    "JSON.parse: unexpected end of data at line 1 column 1 of the JSON data"
    |> StandardError
    |> get_json_decode_error("")
    |> should.equal(UnexpectedEndOfInput)
  }

  pub fn javascript_core_end_of_input_test() {
    "JSON Parse error: Unexpected EOF"
    |> StandardError
    |> get_json_decode_error("")
    |> should.equal(UnexpectedEndOfInput)
  }

  // === Unexpected byte tests === //
  pub fn chromium_unexpected_byte_test() {
    "Unexpected token a in JSON at position 5"
    |> StandardError
    |> get_json_decode_error("{\"b\":a}")
    |> should.equal(UnexpectedByte(byte: "0x61", position: 5))
  }

  pub fn spidermonkey_unexpected_byte_test() {
    "JSON.parse: expected property name or '}' at line 1 column 6 of the JSON data"
    |> StandardError
    |> get_json_decode_error("{\"b\":a}")
    |> should.equal(UnexpectedByte(byte: "0x61", position: 5))
  }

  pub fn javascript_core_unexpected_byte_test() {
    "JSON Parse error: Unexpected identifier \"a\""
    |> StandardError
    |> get_json_decode_error("{\"b\":a}")
    |> should.equal(UnexpectedByte(byte: "0x61", position: 0))
  }

  pub fn spidermonkey_multiline_unexpected_byte_test() {
    "JSON.parse: expected property name or '}' at line 2 column 6 of the JSON data"
    |> StandardError
    |> get_json_decode_error("{\n\"b\": a\n}")
    |> should.equal(UnexpectedByte(byte: "0x61", position: 7))

    "JSON.parse: expected double-quoted property name at line 3 column 1 of the JSON data"
    |> StandardError
    |> get_json_decode_error("{\n\"b\": \"x\",\na\n}")
    |> should.equal(UnexpectedByte(byte: "0x61", position: 12))
  }

  external fn get_json_decode_error(StandardError, String) -> DecodeError =
    "./gleam_json_ffi.mjs" "getJsonDecodeError"
}