finalise tests

Author: shikokuchuo

tests/tests.R

@@ -78,15 +78,16 @@ raio <- n1$recv_aio(timeout = 500, keep.raw = TRUE)
 raio
 raio$newfield <- "doesnotwork"
 nanotestn(raio$newfield)
-nanotestnn(raio[["aio"]])
-nanotest(is_aio(call_aio(raio)))
-nanotestn(raio[["aio"]])
-nanotest(identical(unserialize(raio$raw), raio$data))
+nanotest(is_aio(raio))
 saio <- n$send_aio(c(1.1, 2.2), mode = "raw", timeout = 500)
 saio$newfield <- "doesnotwork"
 nanotestn(saio$newfield)
 nanotest(is_aio(saio))
 nanotest(is.logical(unresolved(saio)))
+nanotestnn(raio$raw)
+nanotest(identical(unserialize(call_aio(raio)$raw), raio$data))
+nanotestn(raio[["aio"]])
+
 msg <- n1$recv_aio(mode = "numer", keep.raw = TRUE, timeout = 500)
 nanotestn(stop_aio(msg))
 nanotestn(stop_aio(n))
@@ -236,16 +237,18 @@ nanotestnn(ncurl("http://www.cam.ac.uk/"))
 nanotestnn(ncurl("http://www.cam.ac.uk/", follow = TRUE))
 nanotestnn(ncurl("http://httpbin.org/post", convert = FALSE, method = "POST", headers = c(`Content-Type` = "text/plain"), data = "test", response = "server"))
 nanotestnn(ncurl("http://httpbin.org/post", convert = FALSE, method = "POST", headers = list(`Content-Type` = "text/plain"), response = list("Date", "Server")))
-nanotest(is_error_value(ncurl("http")$raw))
+relo <- ncurl("http://www.cam.ac.uk/", async = TRUE)
+nanotest(is.integer(call_aio(relo)$status))
 put1 <- ncurl("http://httpbin.org/put", async = TRUE, method = "PUT", headers = c(Authorization = "Bearer token"), data = "test", response = c("date", "server"))
 nanotest(is.integer(call_aio(put1)$status))
 nanotestnn(put1$headers)
 nanotestnn(put1$raw)
 nanotestnn(put1$data)
 put2 <- ncurl("http://httpbin.org/put", async = TRUE, method = "PUT", headers = list(Authorization = "Bearer token"), response = list("date", "server"))
 put2
-nanotestnn(put2$status)
+nanotest(is.list(call_aio(put2)$headers))
 nanotest(is.null(stop_aio(put2)))
+nanotest(is_error_value(ncurl("http")$raw))
 nanotest(is_error_value(ncurl("http", async = TRUE)$data))
 haio <- ncurl("https://i.i", async = TRUE)
 nanotest(is_error_value(call_aio(haio)$raw))