; * test/lisp/jsonrpc-tests.el: Skip all tests on MS-Windows.

(cherry picked from commit 4e8e877c377e41d72705235922f97b69d81d0267)

diff --git a/test/lisp/jsonrpc-tests.el b/test/lisp/jsonrpc-tests.el
index cfbea7378e2a07b572b0f247d9efa545b02534a9..c2afe6e3738130930bc8ccec16fd6295a0d251c3 100644 (file)
--- a/test/lisp/jsonrpc-tests.el
+++ b/test/lisp/jsonrpc-tests.el
@@ -108,11 +108,13 @@
 
 (ert-deftest returns-3 ()
   "A basic test for adding two numbers in our test RPC."
+  (skip-when (eq system-type 'windows-nt))
   (jsonrpc--with-emacsrpc-fixture (conn)
     (should (= 3 (jsonrpc-request conn '+ [1 2])))))
 
 (ert-deftest errors-with--32601 ()
   "Errors with -32601"
+  (skip-when (eq system-type 'windows-nt))
   (jsonrpc--with-emacsrpc-fixture (conn)
     (condition-case err
         (progn
@@ -123,6 +125,7 @@
 
 (ert-deftest signals-an--32603-JSONRPC-error ()
   "Signals an -32603 JSONRPC error."
+  (skip-when (eq system-type 'windows-nt))
   (jsonrpc--with-emacsrpc-fixture (conn)
     (condition-case err
         (let ((jsonrpc-inhibit-debug-on-error t))
@@ -133,6 +136,7 @@
 
 (ert-deftest times-out ()
   "Request for 3-sec sit-for with 1-sec timeout times out."
+  (skip-when (eq system-type 'windows-nt))
   (jsonrpc--with-emacsrpc-fixture (conn)
     (should-error
      (jsonrpc-request conn 'sit-for [3] :timeout 1))))
@@ -140,11 +144,13 @@
 (ert-deftest doesnt-time-out ()
   :tags '(:expensive-test)
   "Request for 1-sec sit-for with 2-sec timeout succeeds."
+  (skip-when (eq system-type 'windows-nt))
   (jsonrpc--with-emacsrpc-fixture (conn)
     (jsonrpc-request conn 'sit-for [1] :timeout 2)))
 
 (ert-deftest stretching-it-but-works ()
   "Vector of numbers or vector of vector of numbers are serialized."
+  (skip-when (eq system-type 'windows-nt))
   (jsonrpc--with-emacsrpc-fixture (conn)
     ;; (vconcat [1 2 3] [3 4 5]) => [1 2 3 3 4 5] which can be
     ;; serialized.
@@ -161,6 +167,7 @@
 (ert-deftest deferred-action-toolate ()
   :tags '(:expensive-test)
   "Deferred request fails because no one clears the flag."
+  (skip-when (eq system-type 'windows-nt))
   (jsonrpc--with-emacsrpc-fixture (conn)
     (should-error
      (jsonrpc-request conn '+ [1 2]
@@ -173,6 +180,7 @@
 (ert-deftest deferred-action-intime ()
   :tags '(:expensive-test)
   "Deferred request barely makes it after event clears a flag."
+  (skip-when (eq system-type 'windows-nt))
   ;; Send an async request, which returns immediately. However the
   ;; success fun which sets the flag only runs after some time.
   (jsonrpc--with-emacsrpc-fixture (conn)
@@ -191,6 +199,7 @@
 (ert-deftest deferred-action-complex-tests ()
   :tags '(:expensive-test)
   "Test a more complex situation with deferred requests."
+  (skip-when (eq system-type 'windows-nt))
   (jsonrpc--with-emacsrpc-fixture (conn)
     (let (n-deferred-1
           n-deferred-2