test case added

Author: Divendra2006

inst/tests/tests.Rraw

@@ -21077,4 +21077,8 @@ setindex(DT, b)
 test(2307, { capture.output(print(DT, class = TRUE, show.indices = TRUE)); TRUE })
 
 # test for enhancing error message of invalid column #6512
-test(2308, {msg <- tryCatch({ .Call("uniq_diff", as.integer(c(1, 2, -1, 4)), 4, FALSE); NULL }, error = function(e) e$message)print(msg)return(grepl("\\[-1\\]", msg))}, TRUE)
+test(2308, {
+  msg <- tryCatch({ .Call("uniq_diff", as.integer(c(1, 2, -1, 4)), 4, FALSE); NULL }, error = function(e) e$message)
+  print(msg) 
+  return(grepl("\\[-1\\]", msg))
+}, TRUE)