Add test-zzz.R

ropensci · May 23, 2021 · a719d42 · a719d42
1 parent dccc4c5
commit a719d42
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 5 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -17,11 +17,11 @@ Authors@R:
              role = c("aut", "sad"),
              email = "pedrazzo@usp.br",
              comment = c(ORCID = "0000-0002-5257-591X")),
-    person(given = "Jonathan",
-           family = "Keane",
-           role = "rev",
-           email = "jkeane@gmail.com",
-           comment = c(ORCID = "0000-0001-7087-9776")),
+      person(given = "Jonathan",
+             family = "Keane",
+             role = "rev",
+             email = "jkeane@gmail.com",
+             comment = c(ORCID = "0000-0001-7087-9776")),
       person(given = "Interdisciplinary Sleep Research Group (GIPSO)",
              role = c("fnd", "cph")),
       person(given = "University of Sao Paulo (USP)",

diff --git a/tests/testthat/test-zzz.R b/tests/testthat/test-zzz.R
@@ -0,0 +1,12 @@
+test_that(".onAttach() | general test", {
+    # is_interactive <- mctq:::is_interactive
+
+    mock <- function(.parent = parent.frame(), .env = topenv(.parent)) {
+        mockr::with_mock(
+            is_interactive = function(...) TRUE,
+            .onAttach())
+    }
+
+    # mock()
+    expect_null(mock(), NULL)
+})