From 4c1dbf2e2eaad543bb200fc08943142401e3232f Mon Sep 17 00:00:00 2001
From: philippe courteix <pco@maa.fr>
Date: Tue, 25 Jan 2022 11:24:11 +0000
Subject: [PATCH] #4 : ajout de tests sur find_name

---
 DESCRIPTION                     | 20 +++++++-------------
 man/thinkr-package.Rd           |  7 +------
 tests/testthat/test-find_name.R |  6 ++++++
 3 files changed, 14 insertions(+), 19 deletions(-)
 create mode 100644 tests/testthat/test-find_name.R

diff --git a/DESCRIPTION b/DESCRIPTION
index 34eec3c..1eeb79e 100644
--- a/DESCRIPTION
+++ b/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 = "vincent@thinkr.fr",
-             comment = c(ORCID = "0000-0003-0671-9270")),
-      person(given = "Sébastien",
-             family = "Rochette",
-             role = "aut",
-             email = "sebastien@thinkr.fr",
-             comment = c(ORCID = "0000-0002-1565-9313")),
-      person(given = "ThinkR",
-             role = "cph"))
+Authors@R: c(
+    person("Vincent", "Guyader", , "vincent@thinkr.fr", role = c("aut", "cre"),
+           comment = c(ORCID = "0000-0003-0671-9270")),
+    person("Sébastien", "Rochette", , "sebastien@thinkr.fr", 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
diff --git a/man/thinkr-package.Rd b/man/thinkr-package.Rd
index 17c84e9..dffaccc 100644
--- a/man/thinkr-package.Rd
+++ b/man/thinkr-package.Rd
@@ -8,12 +8,7 @@
 \description{
 \if{html}{\figure{logo.png}{options: align='right' alt='logo' width='120'}}
 
-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
-    not homogeneous. To be able to use them in R nowadays, we built a set
-    of functions that will avoid the majority of importation problems and
-    keep all the data at best.
+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 not homogeneous. To be able to use them in R nowadays, we built a set of functions that will avoid the majority of importation problems and keep all the data at best.
 }
 \seealso{
 Useful links:
diff --git a/tests/testthat/test-find_name.R b/tests/testthat/test-find_name.R
new file mode 100644
index 0000000..999bafd
--- /dev/null
+++ b/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)
+})