Don't check interrupts on Windows

lionel- · lionel- · commit f32e0e56027d · 2018-06-02T01:15:26.000+02:00
diff --git a/inst/unitTests/runit.stack.R b/inst/unitTests/runit.stack.R
@@ -42,6 +42,9 @@ if (.runThisTest) {
     }
 
     test.stackUnwindsOnInterrupts <- function() {
+        if (.Platform$OS.type == "windows") {
+            return(NULL)
+        }
         unwound <- FALSE
         expr <- quote({
             repeat testSendInterrupt()

Original file line number	Diff line number	Diff line change
`@@ -42,6 +42,9 @@ if (.runThisTest) {`
`42`	`42`	`}`
`43`	`43`
`44`	`44`	`test.stackUnwindsOnInterrupts <- function() {`
	`45`	`+ if (.Platform$OS.type == "windows") {`
	`46`	`+ return(NULL)`
	`47`	`+ }`
`45`	`48`	`unwound <- FALSE`
`46`	`49`	`expr <- quote({`
`47`	`50`	`repeat testSendInterrupt()`