Tweak test so that it would fail on master

Rdatatable · Jan 2, 2025 · 8d2e958 · 8d2e958
1 parent 87804e5
commit 8d2e958
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inst/tests/S4.Rraw b/inst/tests/S4.Rraw
@@ -116,4 +116,4 @@ DF = new("DataFrame", x=data.frame(a=1))
 setDT(DF@x)
 test(7.1, is.data.table(DF@x))
 setClass("DataTable", slots=c(x="data.table"))
-test(7.2, options=c(datatable.alloccol=0L), new("DataTable", x=data.table(a=1))@x[, b := 2L]$b, 2L)
+test(7.2, options=c(datatable.alloccol=0L), {DT = new("DataTable", x=data.table(a=1)); DT@x[, b := 2L]; DT$b}, 2L) # NB: requires assigning DT to test assignment back to that object