From 56a1e4ff0a3afc292b06e190e16acd6f0c1fd97d Mon Sep 17 00:00:00 2001 From: Tyler Date: Sun, 28 Dec 2014 11:08:47 -0500 Subject: [PATCH] added test for set_names --- tests/testthat/test-names.R | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/tests/testthat/test-names.R b/tests/testthat/test-names.R index a8bb280..1c7f1fc 100644 --- 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) +}) \ No newline at end of file