added test

Author: venom1204

inst/tests/tests.Rraw

@@ -21583,16 +21583,17 @@ DT = as.data.table(iris)
 test(2368.1, names(setnames(copy(DT), "Petal.Length", "Sepal.Length")), 
      c("Sepal.Length", "Sepal.Width", "Sepal.Length", "Petal.Width", "Species"), 
      options = list(datatable.unique.names = "off"))
-
 test(2368.2, names(setnames(copy(DT), "Petal.Length", "Sepal.Length")), 
      c("Sepal.Length", "Sepal.Width", "Sepal.Length", "Petal.Width", "Species"), 
      warning = "Duplicate column names created", 
      options = list(datatable.unique.names = "warn"))
-
 test(2368.3, setnames(copy(DT), "Petal.Length", "Sepal.Length"), 
      error = "Duplicate column names created", 
      options = list(datatable.unique.names = "error"))
-
 test(2368.4, names(setnames(copy(DT), "Petal.Length", "Sepal.Length")), 
      c("Sepal.Length", "Sepal.Width", "Sepal.Length.1", "Petal.Width", "Species"), 
      options = list(datatable.unique.names = "rename"))
+test(2368.5, names(setnames(copy(DT), "Petal.Length", "Sepal.Length")), 
+     c("Sepal.Length", "Sepal.Width", "Sepal.Length", "Petal.Width", "Species"), 
+     warning = "Invalid value for 'datatable.unique.names'", 
+     options = list(datatable.unique.names = "invalid_option_name"))