Expand test

Test assignment from a string as well as from a different factor.

Co-Authored-By: Michael Chirico <[email protected]>

Author: aitap

inst/tests/tests.Rraw

@@ -21114,6 +21114,10 @@ DF = structure(list(a = 1:2), class = c("data.frame", "no.reset"), row.names = c
 test(2310.01, as.data.table(DF), data.table(a=1:2))
 
 # memrecycle() did not consider string encodings for factor levels #6886
-DT = data.table(factor(rep(enc2utf8("\uf8"), 3)))
-DT[1, V1 := iconv(levels(V1), from = "UTF-8", to = "latin1")]
-test(2311, nlevels(DT$V1), 1L)
+DT = data.table(factor(rep("\uf8", 3)))
+# identical() to V1's only level but stored in a different CHARSXP
+samelevel = iconv(levels(DT$V1), from = "UTF-8", to = "latin1")
+DT[1, V1 := samelevel]
+test(2311.1, nlevels(DT$V1), 1L) # used to be 2
+DT[1, V1 := factor("a", levels = c("a", samelevel))]
+test(2311.2, nlevels(DT$V1), 2L) # used to be 3