X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fsignals.impure.lisp;h=716580c387031f4d11cbac16bcb7cf49af402d9b;hb=de3bfc084239fa962ef001eaa68e5b6f4b9bbf81;hp=093bf23cbafb7aa4c3e4933a414c22927069abb3;hpb=2d266da0f5a288eaf571fc7c03621cda71aafb3f;p=sbcl.git

diff --git a/tests/signals.impure.lisp b/tests/signals.impure.lisp
index 093bf23..716580c 100644
--- a/tests/signals.impure.lisp
+++ b/tests/signals.impure.lisp
@@ -38,7 +38,14 @@
 
 (require :sb-posix)
 
-(with-test (:name (:signal :errno))
+(with-test (:name (:signal :errno)
+                  ;; This test asserts that nanosleep behaves correctly
+                  ;; for invalid values and sets EINVAL.  Well, we have
+                  ;; nanosleep on Windows, but it depends on the caller
+                  ;; (namely SLEEP) to produce known-good arguments, and
+                  ;; even if we wanted to check argument validity,
+                  ;; integration with `errno' is not to be expected.
+                  :skipped-on :win32)
   (let* (saved-errno
          (returning nil)
          (timer (make-timer (lambda ()
@@ -57,7 +64,10 @@
     (loop repeat 1000000000)
     (assert (= saved-errno (sb-unix::get-errno)))))
 
-(with-test (:name :handle-interactive-interrupt)
+(with-test (:name :handle-interactive-interrupt
+                  ;; It is desirable to support C-c on Windows, but SIGINT
+                  ;; is not the mechanism to use on this platform.
+                  :skipped-on :win32)
   (assert (eq :condition
               (handler-case
                   (sb-thread::kill-safely