(test-assert "json-object should meet json-object?"
  (json-object? (json-object)))

(test-assert "json-object should meet json-object?"
  (json-object? (json-object '(name . "alice")
			     '(age . 26))))

(test-assert "json-object should not meet json-list?"
  (not (json-list? (json-object '(x . 5)))))

(test-assert "json-list should not meet json-object?"
  (not (json-object? (json-list 1 2 3))))

(test-assert "json-list should meet json-list?"
  (json-list? (json-list)))

(test-assert "json-list should meet json-list?"
  (json-list? (json-list "a" 1 #t)))

(test-assert "json-null should meet json-null?"
  (json-null? json-null))

(test-assert "numbers should meet json-value?"
  (json-value? 5))

(test-assert "strings should meet json-value?"
  (json-value? "hello"))

(test-assert "booleans should meet json-value?"
  (json-value? #t))

(test-assert "json-objects should meet json-value?"
  (json-value? (json-object '(x . 5))))

(test-assert "json-lists should meet json-value?"
  (json-value? (json-list 1 2 3)))

(test-assert "json-object-contains-key? should return true when the object contains the key"
  (json-object-contains-key? (json-object '(x . 5)) 'x))

(test-assert "json-object-contains-key? should return false when the object does not contain the key"
  (not (json-object-contains-key? (json-object '(x . 5)) 'y)))

(test-assert "the null string should meet json-null? when parsed"
  (json-null? (string->json "null")))

(test-equal "numbers should parse to their scheme values"
      5 (string->json "5"))

(test-equal "true should parse to the boolean true"
      #t (string->json "true"))

(test-equal "false should parse to the boolean false"
      #f (string->json "false"))

(test-equal "string->json should properly parse string values"
      "hello" (string->json "\"hello\""))

(test-assert "string->json should return an object with the correct keys"
  (json-object-contains-key? (string->json "{\"x\": 5}") 'x))

(test-assert "string->json should return an object without the incorrect keys"
  (not (json-object-contains-key? (string->json "{\"x\": 5}") 'y)))

(test-assert "json-object-contains-key? should be met when the associated value is false"
  (json-object-contains-key? (json-object '(x . #f)) 'x))

(test-assert "json-object-contains-key? should be met when the associated value is an empty json-list"
  (json-object-contains-key? (json-object `(x . ,(json-list))) 'x))

(test-assert "json-object-contains-key? should be met when the associated value is an empty json-object"
  (json-object-contains-key? (json-object `(x . ,(json-object))) 'x))

(test-assert "json-object-contains-key? should be met when the associated value is json-null"
  (json-object-contains-key? (json-object `(x . ,json-null)) 'x))

;; (json (object))				; => {}

;; (json (list))				; => []

;; (json null)				; => null