Fix tests for MacOS

Author: shikokuchuo

tests/testthat/helper-sync.R

@@ -17,8 +17,7 @@ sync_req <- function(name = "default", .env = parent.frame()) {
     ctx <- nanonext::.context(sock)
     saio <- nanonext::send_aio(ctx, 0L, mode = 2L)
     expr
-    r <- nanonext::recv_aio(ctx, mode = 8L, timeout = timeout)[]
-    nanonext::is_error_value(r) && stop("req sync: ", nanonext::nng_error(r))
+    nanonext::recv_aio(ctx, mode = 8L, timeout = timeout)[]
   }
 
 }
@@ -37,8 +36,7 @@ sync_rep <- function(name = "default", .env = parent.frame()) {
       connected <<- TRUE
     }
     ctx <- nanonext::.context(sock)
-    r <- nanonext::recv_aio(ctx, mode = 8L, timeout = timeout)[]
-    nanonext::is_error_value(r) && stop("resp sync: ", nanonext::nng_error(r))
+    nanonext::recv_aio(ctx, mode = 8L, timeout = timeout)[]
     expr
     nanonext::send(ctx, 0L, mode = 2L, block = TRUE)
   }

tests/testthat/test-resp-stream.R

@@ -98,8 +98,10 @@ test_that("handles line endings of multiple kinds", {
       res$send_chunk("half line/")
       res$send_chunk("other half\n")
     })
-    sync(res$send_chunk("broken crlf\r"))
-    sync(res$send_chunk("\nanother line\n"))
+    sync({
+      res$send_chunk("broken crlf\r")
+      res$send_chunk("\nanother line\n")
+    })
     sync(res$send_chunk("eof without line ending"))
   })