Added tests folder and travis config

CoEDL · Feb 12, 2018 · 6633103 · 6633103
1 parent 5925cdb
commit 6633103
Show file tree

Hide file tree

Showing 14 changed files with 118 additions and 26 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -5,3 +5,5 @@
 ^README\.Rmd$
 ^README-.*\.png$
 ^docs$
+^_pkgdown\.yml$
+^\.travis\.yml$
diff --git a/.travis.yml b/.travis.yml
@@ -0,0 +1,5 @@
+# R for travis: see documentation at https://docs.travis-ci.com/user/languages/r
+
+language: R
+sudo: false
+cache: packages
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -19,6 +19,10 @@ Imports:
     tidyr,
     zoo
 RoxygenNote: 6.0.1
-Suggests: knitr,
-    rmarkdown
+URL: https://github.com/coedl/tidylex
+BugReports: https://github.com/coedl/tidylex/issues
+Suggests:
+    knitr,
+    rmarkdown,
+    testthat
 VignetteBuilder: knitr
diff --git a/_pkgdown.yml b/_pkgdown.yml
@@ -0,0 +1,9 @@
+url: https://coedl.github.io/tidylex
+
+authors:
+  Nay San:
+    href: https://resunay.com
+
+template:
+  params:
+    bootswatch: cerulean
diff --git a/docs/articles/index.html b/docs/articles/index.html
diff --git a/docs/articles/tidylex.html b/docs/articles/tidylex.html
diff --git a/docs/authors.html b/docs/authors.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -0,0 +1,6 @@
+urls:
+  reference: https://coedl.github.io/tidylex/reference
+  article: https://coedl.github.io/tidylex/articles
+articles:
+  tidylex: tidylex.html
+
diff --git a/docs/reference/index.html b/docs/reference/index.html
diff --git a/docs/reference/read_lexicon.html b/docs/reference/read_lexicon.html
diff --git a/tests/testthat.R b/tests/testthat.R
@@ -0,0 +1,4 @@
+library(testthat)
+library(tidylex)
+
+test_check("tidylex")
diff --git a/tests/testthat/test-read_lexicon.R b/tests/testthat/test-read_lexicon.R
@@ -0,0 +1,15 @@
+context("read_lexicon")
+
+test_that("can read mini French lexicon", {
+    check_df  <- tibble(
+        line = 1:5,
+        data = c("\\lx bonjour", "\\de hello", "", "\\lx au revoir", "\\de goodbye")
+    )
+
+    test_file <- system.file("extdata", "mini-french.txt", package = "tidylex")
+
+    expect_identical(
+        read_lexicon(file = test_file),
+        check_df
+    )
+})