Add first testthat testing files

Author: rich-iannone

tests/testthat/test-gt_object.R

@@ -0,0 +1,18 @@
+context("test-gt_object.R")
+
+test_that("an HTML table object contains the correct components", {
+
+  # Create an HTML table object with `gt()`
+  # and the `iris` dataset
+  table_object <-
+    iris %>% gt()
+
+  # Expect that the list object has 5 components
+  expect_equal(
+    length(table_object), 5)
+
+  # Expect certain named components
+  expect_equal(
+    table_object %>% names(),
+    c("source_tbl", "heading", "footnote", "source_note", "html_table"))
+})

tests/testthat/test-quick_table.R

@@ -0,0 +1,16 @@
+context("test-quick_table.R")
+
+test_that("the creation of a quick table works", {
+
+  # Quickly create an html table using the
+  # `quick_table()` with the iris dataset
+  html <- quick_table(iris)
+
+  # Expect that the object returned has the
+  # `knit_asis` class
+  expect_is(html, "knit_asis")
+
+  # Expect that the object returned is the
+  # type of `character`
+  expect_type(html, "character")
+})