TESTS: Allow for close() on connection to fail, e.g. if it's been garabage collected [#142]

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: parallelly
-Version: 1.46.1-9015
+Version: 1.46.1-9016
 Title: Enhancing the 'parallel' Package
 Imports:
     parallel,

inst/testme/test-isConnectionValid.R

@@ -15,7 +15,7 @@ class(con_no_id) <- c("test_connection", class(con_no_id)) ## Inherit from conne
 attr(con_no_id, "conn_id") <- NULL ## Ensure no conn_id
 res <- connectionId(con_no_id)
 stopifnot(is.na(res))
-close(con_no_id)
+try(close(con_no_id))
 
 ## Test with a serialized connection (should return -1L)
 con_ser <- file(tempfile(), open = "w")