adding tests

Author: Mukulyadav2004

inst/tests/tests.Rraw

@@ -21047,7 +21047,7 @@ test(2305, { fread(testDir("issue_6729.txt.bz2")); TRUE })
 # Test for covering classes[col_name] <- "index"
 DT = data.table(A = 1:3, B = 4:6)
 setindex(DT, A)
-test(2306.1, DT, data.table(A = 1:3, B = 4:6, key = "A"))
+test(2306.1, DT, data.table(A = 1:3, B = 4:6))
 # Test for covering if (is.list(cls)) cls <- unlist(cls)
 DT = data.table(A = 1:3, B = list(NULL, NULL, NULL))
 test(2306.2, DT, data.table(A = 1:3, B = list(NULL, NULL, NULL)))