feature freeze for 0.5.0 release

Author: shikokuchuo

src/core.c

@@ -502,7 +502,7 @@ SEXP nano_decode(void *buf, size_t sz, const int mod, const int kpr) {
       SET_STRING_ELT(data, i, onechar);
       if (Rf_xlength(onechar) > 0) m++;
     }
-    SETLENGTH(data, m);
+    data = Rf_xlengthgets(data, m);
     UNPROTECT(1);
   } else {
     size_t size;

tests/tests.R

@@ -69,6 +69,7 @@ nanotest(identical(call_aio(n), n))
 nanotest(is_aio(n) == FALSE)
 sraio <- n$send_aio(as.raw(0L), mode = "r", timeout = 200)
 rraio <- n$recv_aio(mode = "r", timeout = 200)
+nanotestn(call_aio(rraio)$data)
 sraio <- n$send_aio(as.raw(1L), mode = "ra", timeout = 200)
 rraio <- n$recv_aio(mode = "ra", timeout = 200)
 sraio <- n$send_aio(as.raw(2L), mode = "raw", timeout = 200)
@@ -151,9 +152,11 @@ nanotest(close(sock2) == 0L)
 nanotestwn(ncurl("http://www.cam.ac.uk/"))
 nanotestwn(ncurl("http://httpbin.org/post", convert = FALSE, method = "POST", headers = c(`Content-Type` = "text/plain"), data = "test"))
 nanotestwn(ncurl("http://httpbin.org/post", convert = FALSE, method = "POST", headers = list(`Content-Type` = "text/plain")))
-nanotestwn(ncurl("http://httpbin.org/put", async = TRUE, method = "PUT", headers = c(Authorization = "Bearer token"), data = "test"))
-put <- ncurl("http://httpbin.org/put", async = TRUE, method = "PUT", headers = list(Authorization = "Bearer token"))
-nanotest(is.null(stop_aio(put)))
+put1 <- ncurl("http://httpbin.org/put", async = TRUE, method = "PUT", headers = c(Authorization = "Bearer token"), data = "test")
+nanotestn(put1$raw)
+put2 <- ncurl("http://httpbin.org/put", async = TRUE, method = "PUT", headers = list(Authorization = "Bearer token"))
+nanotestn(call_aio(put2)$data)
+nanotest(is.null(stop_aio(put2)))
 nanotestwn(stream(dial = "tcp://127.0.0.1:5555"))
 
 nanotest(is.character(ver <- nng_version()) && length(ver) == 2L)