test failures in CI

.github/workflows/ci.yml

@@ -10,7 +10,7 @@ jobs:
     name: ${{matrix.lisp}} on ${{matrix.os}}
     strategy:
       matrix:
-        lisp: [allegro, ccl-bin, sbcl-bin]
+        lisp: [sbcl-bin]        # only one cool lisp
         os: [ubuntu-latest]
       fail-fast: false
     runs-on: ${{matrix.os}}

Makefile

@@ -1,3 +1,5 @@
+# Run unit tests, failing on the first error
+
 .PHONY: test
 test:
 	sbcl --noinform --non-interactive \

coalton-mode.asd

@@ -31,6 +31,7 @@
   :serial t
   :components ((:file "package")
                (:file "mock")
+               (:file "json-tests")
                (:file "lsp-tests")
                (:file "message-tests")
                (:file "protocol-tests")

tests/json-tests.lisp

@@ -4,47 +4,4 @@
 
   (is (equalp (cm::decode-json
                "{\"key\": \"value\"}")
-              '(("key" . "value"))))
-  (is (equalp (cm::decode-json
-               "{\"key\": [\"value\"]}")
-              '(("key" . #("value")))))
-  (is (equalp (cm::decode-json
-               "{\"key\": [{\"key\": \"value\"}]}")
-              '(("key" . ((("key" . "value")))))))
-
-  (is (equalp (cm::decode-json
-               (cm::to-json
-                (cm::make-diagnostic 5 4 5 8
-                                     "'x' is undefined"
-                                     "undefined-export")))
-              '(("range"
-                 ("start"
-                  ("line" . 5)
-                  ("character" . 4))
-                 ("end"
-                  ("line" . 5)
-                  ("character" . 8)))
-                ("severity" . 2)
-                ("code" . "undefined-export")
-                ("source" . "coalton")
-                ("message" . "'x' is undefined"))))
-
-  (is (equalp (cm::decode-json
-               (cm::to-json
-                (mock-publish-diagnostics)))
-              '(("jsonrpc" . "2.0")
-                ("method" . "textDocument/publishDiagnostics")
-                ("params"
-                 ("uri" . "file:///Users/jbouwman/git/coalton-mode/resources/fib.coal")
-                 ("diagnostics"
-                  (("range"
-                    ("start"
-                     ("line" . 5)
-                     ("character" . 4))
-                    ("end"
-                     ("line" . 5)
-                     ("character" . 8)))
-                   ("severity" . 2)
-                   ("code" . "undefined-export")
-                   ("source" . "coalton")
-                   ("message" . "export: 'fiib' is undefined"))))))))
+              '(("key" . "valuezorkxS!")))))