Add tests for editing flsconfig

test/settings.fnl

@@ -1,5 +1,6 @@
 (local faith (require :faith))
 (local {: create-client} (require :test.utils))
+(local fennel (require :fennel))
 
 (fn test-path []
   (let [{: client : uri : cursor :locations [location]}
@@ -60,7 +61,18 @@
     (faith.not= [] bad)
     (faith.= [] good)))
 
+(fn test-editing-settings []
+  (let [{: client : uri} (create-client {:main.fnl ""
+                                         :flsproject.fnl "{}"})
+        uri (uri:gsub "main" "flsproject")]
+    (client:pretend-this-file-exists! uri "{:extra-globals \"my-new-global\"}")
+    (client:did-save uri)
+    (faith.= "my-new-global" client.server.configuration.extra-globals)
+    (local _ nil))
+  nil)
+
 {: test-path
  : test-extra-globals
  : test-lints
- : test-native-libaries}
+ : test-native-libaries
+ : test-editing-settings}

test/utils/client.fnl

@@ -63,6 +63,12 @@
       :textDocument {:uri file}
       :context {:diagnostics []}})))
 
+(fn did-save [self file]
+  (dispatch.handle* self.server
+    (message.create-notification :textDocument/didSave
+     {:textDocument {:uri file}})))
+
+
 (local client-mt
   {:__index {: open-file!
              : pretend-this-file-exists!
@@ -71,7 +77,8 @@
              : hover
              : references
              : rename
-             : code-action}})
+             : code-action
+             : did-save}})
 
 {: client-mt
  : default-encoding