add options tests

quanteda · Dec 14, 2017 · 751c71e · 751c71e
1 parent 9bc205e
commit 751c71e
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 4 deletions.
diff --git a/R/options.R → R/stopwords-options.R b/R/options.R → R/stopwords-options.R
@@ -14,3 +14,8 @@ stopwords_options <- function() {
                           smart = "data_stopwords_smart")
   )
 }
+
+# Load options on attach
+.onAttach <- function(...) {
+  stopwords_options()
+}
diff --git a/R/zzz.R b/R/zzz.R
diff --git a/man/stopwords_options.Rd b/man/stopwords_options.Rd
diff --git a/tests/testthat/test-stopwords_options.R b/tests/testthat/test-stopwords_options.R
@@ -0,0 +1,9 @@
+context("stopwords_options")
+
+test_that("all files in data/ found in sources", {
+  files <- list.files(file.path("..", "..", "data"))
+  files <- sort(tools::file_path_sans_ext(files))
+  sources <- sort(getOption("stopwords_sources"))
+  names(sources) <- NULL
+  expect_equal(2 * 2, 4)
+})