correct test case

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -21087,17 +21087,20 @@ test(2308.02, fread("date\nNA\n2014-12-05", keepLeadingZeros=FALSE), dt)
 
 # Test that as.data.table.data.table preserves key when explicitly specified but not when omitted
 # data.frame to data.table with key
-DT <- as.data.table(data.frame(t = c(3:1, 4:5), y = 1:5))
-setkey(DT, t)
-test(2309.01, key(DT), "t")
+test(2309.01, {
+  key(as.data.table(data.frame(t = c(3:1, 4:5), y = 1:5), key="t"))
+}, "t")
 # tibble to data.table with key
-DT <- as.data.table(tibble(t = c(3:1, 4:5), y = 1:5))
-setkey(DT, t)
-test(2309.02, key(DT), "t")
+DF <- data.frame(t = c(3:1, 4:5), y = 1:5)
+class(DF) <- c("tbl_df", "tbl", "data.frame")
+test(2309.02, {
+  key(as.data.table(DF, key="t"))
+}, "t")
 # data.table to data.table with key
-DT <- as.data.table(data.table(t = c(3:1, 4:5), y = 1:5))
-setkey(DT, t)
-test(2309.03, key(DT), "t")
+test(2309.03, {
+  key(as.data.table(data.table(t = c(3:1, 4:5), y = 1:5), key="t"))
+}, "t")
 # data.table to data.table without key
-DT <- as.data.table(.table(t = c(3:1, 4:5), key = "t"))
-test(2309.04, key(DT), NULL)
+test(2309.04, {
+  key(as.data.table(.table(t = c(3:1, 4:5), key="t")))
+}, NULL)