Dear coveralls, please pass

Author: 1beb

tests/testthat/test-tex.R

@@ -0,0 +1,37 @@
+context("underline")
+
+test_that("underline works as expected", {
+  r <- underline("Hello!")
+  expect_equal(r, "\\underline{Hello!}")
+})
+
+context("applyLatexStyle")
+
+test_that("underline or underline2", {
+  item <- "Hello!"
+  item_theme <- list()
+  item_theme$decoration <- "underline"
+  r <- applyLatexStyle(item, item_theme)
+  expect_equal(r, "\\underline{Hello!}")
+})
+
+test_that("Warning on hex color", {
+  item <- "Hello!"
+  item_theme <- list()
+  item_theme$font_color <- "#000000"
+  expect_warning(applyLatexStyle(item, item_theme), "In Latex, colors must be color names not hex codes")
+})
+
+test_that("Color application", {
+  item <- "Hello!"
+  item_theme <- list()
+  item_theme$font_color <- "blue"
+  r <- applyLatexStyle(item, item_theme)
+  expect_equal(r, "\\color{blue}Hello!")
+})
+
+context("validLatexFont")
+
+test_that("Warning on missing font set to helvet", {
+  expect_warning(validLatexFont("notafont"), "It has been set to")
+})

tests/testthat/test-writeCodeBookLatex.R

@@ -22,6 +22,60 @@ with_api_fixture("fixtures-1-2-5", {
     expect_true(sum(tex %in% original)/length(tex) > 0.98)
 
   })
+
+  test_that("Tex result as expected with features", {
+
+    suppressWarnings(
+      writeCodeBookLatex(
+        ds,
+        title = "Hello",
+        subtitle = "Goodbye",
+        sample_desc = "US Voting Adults",
+        logo = "ygblue",
+        pdf = FALSE)
+    )
+
+    tex <- readLines("Example-dataset.tex")
+    original <- readRDS("fixtures/writeCodeBookLatexOne.rds")
+
+    expect_true(length(tex) == length(original))
+    expect_true(sum(tex %in% original)/length(tex) > 0.98)
+
+  })
+
+  test_that("Creates pdf output", {
+
+
+    with_mock(suppressWarnings(
+      writeCodeBookLatex(
+        ds,
+        title = "Hello",
+        subtitle = "Goodbye",
+        sample_desc = "US Voting Adults",
+        logo = "ygblue",
+        pdf = TRUE)
+    ), "crunchtabs::file.open" = function(x) return(TRUE))
+
+    expect_true(file.exists("Example-dataset.pdf"))
+    expect_true(file.remove("Example-dataset.pdf"))
+
+  })
+
+  test_that("Tex result set position as expected", {
+    suppressWarnings(
+      writeCodeBookLatex(
+        ds,
+        title = "Hello",
+        subtitle = "Goodbye",
+        sample_desc = "US Voting Adults",
+        logo = "ygblue",
+        position = "c",
+        pdf = FALSE)
+    )
+
+    tex <- readLines("Example-dataset.tex")
+    expect_true(any(grepl("\\begin{longtable}[c]", tex, fixed = TRUE)))
+  })
 })
 
 with_api_fixture("fixtures-1-2-5", {