Add multi-process test

Author: shikokuchuo

.github/workflows/test-coverage.yaml

@@ -2,7 +2,7 @@
 # Need help debugging build failures? Start at https://github.com/r-lib/actions#where-to-find-help
 on:
   push:
-    branches: [main, master]
+    branches: [main, dev]
   pull_request:
 
 name: test-coverage.yaml

R/utils.R

@@ -415,6 +415,11 @@ ip_addr <- function() .Call(rnng_ip_addr)
 #'
 .interrupt <- function(x = TRUE) .Call(rnng_interrupt_switch, x)
 
+.test <- function() {
+  Sys.sleep(0.5)
+  close(stream(dial = "ws://127.0.0.1:5555", textframes = TRUE))
+}
+
 #' Internal Package Function
 #'
 #' Only present for cleaning up after running examples and tests. Do not attempt

tests/tests.R

@@ -653,6 +653,12 @@ if (!interactive() && Sys.getenv("NOT_CRAN") == "true") {
   test_equal(collect_aio(r), 7L)
 }
 
+if (Sys.getenv("NOT_CRAN") == "true") {
+  system2(file.path(R.home("bin"), if (.Platform$OS.type == "unix") "Rscript" else "Rscript.exe"), args = c("-e", shQuote("nanonext:::.test()")), wait = FALSE)
+  test_class("nanoStream", s <- stream(listen = "ws://127.0.0.1:5555", textframes = TRUE))
+  test_zero(close(s))
+}
+
 if (Sys.info()[["sysname"]] == "Linux") {
   rm(list = ls())
   invisible(gc())