update one test

Author: shikokuchuo

tests/tests.R

@@ -212,7 +212,6 @@ nanotestn(call_aio(recv_aio(ctx, mode = 1L, timeout = 500))[["value"]])
 nanotestaio(saio <- send_aio(ctx, as.raw(1L), mode = 2L, timeout = 500))
 nanotest(identical(req$recv(mode = 8L, block = 500), as.raw(1L)))
 nanotestaio(rek <- request(req$context, c(1+3i, 4+2i), send_mode = 2L, recv_mode = "complex", timeout = 500))
-nanotestaio(set_promise_context(rek, new.env()))
 nanotest(is.integer(reply(ctx, execute = identity, recv_mode = 3L, send_mode = "ra", timeout = 500)))
 nanotest(is.complex(call_aio(rek)[["data"]]))
 nanotestaio(rek <- request(req$context, c(1+3i, 4+2i), send_mode = "next", recv_mode = "serial", timeout = 500))
@@ -518,6 +517,7 @@ nanotestp(unres)
 nanotest(identical(call_aio("a"), "a"))
 nanotest(identical(call_aio_("a"), "a"))
 nanotestn(stop_aio("a"))
+nanotest(is.environment(set_promise_context(new.env(), new.env())))
 
 nanotest(base64enc("test") == "dGVzdA==")
 nanotest(base64dec(base64enc("test")) == "test")