sync test need to follow 7281878

Author: dannypsnl

tests/sync/test.rkt

@@ -1,8 +1,7 @@
 #lang racket/base
 
 (require "../client.rkt"
-         "../../json-util.rkt"
-         chk)
+         "../../json-util.rkt")
 
 (module+ test
   (require rackunit
@@ -22,17 +21,16 @@
                                              'text "#lang racke"))))
         ;; should report "collection not found" diagnostic error
         (client-send lsp didopen-req)
-        (let ([resp (client-wait-response lsp)])
-          (chk*
-           (chk (jsexpr-has-key? resp '(params diagnostics)))
-           (define diagnostics-msg (jsexpr-ref resp '(params diagnostics)))
-           (check-false (null? diagnostics-msg))
-           (define dm (with-input-from-string
-                          (jsexpr->string (car diagnostics-msg))
-                        (lambda () (read-json))))
-           (define resp-no-message (hash-remove dm 'message))
-           (check-equal? (jsexpr->string resp-no-message)
-                         (jsexpr->string (read-json (open-input-file "diagnostics.json"))))))
+        (let ([resp (client-wait-notification lsp)])
+          (check-true (jsexpr-has-key? resp '(params diagnostics)))
+          (define diagnostics-msg (jsexpr-ref resp '(params diagnostics)))
+          (check-false (null? diagnostics-msg))
+          (define dm (with-input-from-string
+                         (jsexpr->string (car diagnostics-msg))
+                       (lambda () (read-json))))
+          (define resp-no-message (hash-remove dm 'message))
+          (check-equal? (jsexpr->string resp-no-message)
+                        (jsexpr->string (read-json (open-input-file "diagnostics.json")))))
 
 
         (define didchange-req
@@ -44,10 +42,9 @@
                                      (list (hasheq 'text "#lang racket")))))
         ;; should not report any error
         (client-send lsp didchange-req)
-        (let ([resp (client-wait-response lsp)])
-          (chk*
-           (chk (jsexpr-has-key? resp '(params diagnostics)))
-           (chk (null? (jsexpr-ref resp '(params diagnostics))))))
+        (let ([resp (client-wait-notification lsp)])
+          (check-true (jsexpr-has-key? resp '(params diagnostics)))
+          (check-true (null? (jsexpr-ref resp '(params diagnostics)))))
 
 
         ;; no response for didClose request