ThinkR-open#4 : ajout de tests sur find_name

DESCRIPTION

@@ -1,19 +1,13 @@
 Package: thinkr
 Title: Tools for Cleaning Up Messy Files
 Version: 0.15
-Authors@R: 
-    c(person(given = "Vincent",
-             family = "Guyader",
-             role = c("aut", "cre"),
-             email = "[email protected]",
-             comment = c(ORCID = "0000-0003-0671-9270")),
-      person(given = "Sébastien",
-             family = "Rochette",
-             role = "aut",
-             email = "[email protected]",
-             comment = c(ORCID = "0000-0002-1565-9313")),
-      person(given = "ThinkR",
-             role = "cph"))
+Authors@R: c(
+    person("Vincent", "Guyader", , "[email protected]", role = c("aut", "cre"),
+           comment = c(ORCID = "0000-0003-0671-9270")),
+    person("Sébastien", "Rochette", , "[email protected]", role = "aut",
+           comment = c(ORCID = "0000-0002-1565-9313")),
+    person("ThinkR", role = "cph")
+  )
 Description: Some tools for cleaning up messy 'Excel' files to be suitable
     for R. People who have been working with 'Excel' for years built more
     or less complicated sheets with names, characters, formats that are

tests/testthat/test-find_name.R

@@ -0,0 +1,6 @@
+test_that("find_name works", {
+  # Checking object
+  expect_equal(find_name(iris,"Sepal"),list(rang = 1:2, valeur = c("Sepal.Length", "Sepal.Width")))
+  # Checking object length
+  expect_equal(length(find_name(iris,"Sepal")),2)
+})