added test for set_names

trinker · Dec 28, 2014 · 56a1e4f · 56a1e4f
1 parent cd267b3
commit 56a1e4f
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/tests/testthat/test-names.R b/tests/testthat/test-names.R
@@ -14,3 +14,19 @@ test_that("names are changed by assigment",{
 
     expect_equivalent(names(minimal), x)
 })
+
+
+test_that("names are changed by setting (similar to `setNames`)",{
+
+    minimal <- structure("abc", class = c("regexr", "character"), regex = list(
+            "a", "b", "c"), comments = list(NULL, NULL, NULL))
+
+    out <- set_names(minimal, 1:3)
+
+    out_check <- structure("abc", class = c("regexr", "character"), regex = structure(list(
+            `1` = "a", `2` = "b", `3` = "c"), .Names = c("1", "2", "3"
+        )), comments = structure(list(`1` = NULL, `2` = NULL, `3` = NULL), .Names = c("1", 
+        "2", "3")))
+
+    expect_equivalent(out, out_check)
+})