change tests to capture behavior after side-effects

Author: ben-schwen

inst/tests/tests.Rraw

@@ -21360,14 +21360,14 @@ test(2327.05, frev(NULL),             rev(NULL))
 test(2327.06, frev(character(5)),     rev(character(5)))
 test(2327.07, frev(integer(0)),       rev(integer(0)))
 test(2327.08, frev(list(1, "a")),     rev(list(1, "a")))
-test(2327.09, setrev(c(0L, NA)),      c(NA, 0L))
-test(2327.10, setrev(d),              c(-Inf, Inf, NaN, NA))
-test(2327.11, setrev(c(NA, 1, 0+2i)), c(0+2i, 1, NA))
-test(2327.12, setrev(as.raw(0:1)),    as.raw(1:0))
-test(2327.13, setrev(NULL),           NULL)
-test(2327.14, setrev(character(5)),   character(5))
-test(2327.15, setrev(integer(0)),     integer(0))
-test(2327.16, setrev(list(1, "a")),   list("a", 1))
+test(2327.09, {x=c(0L, NA); setrev(x); x},      c(NA, 0L))
+test(2327.10, {x=d; setrev(x); x},              c(-Inf, Inf, NaN, NA))
+test(2327.11, {x=c(NA, 1, 0+2i); setrev(x); x}, c(0+2i, 1, NA))
+test(2327.12, {x=as.raw(0:1); setrev(x); x},    as.raw(1:0))
+test(2327.13, {x=NULL; setrev(x); x},           NULL)
+test(2327.14, {x=character(5); setrev(x); x},   character(5))
+test(2327.15, {x=integer(0); setrev(x); x},     integer(0))
+test(2327.16, {x=list(1, "a"); setrev(x); x},   list("a", 1))
 test(2327.17, frev(1:1e2),            rev(1:1e2))
 # copy arguments
 x = 1:3