arsenij.ustjanzew
--- a/tests/testthat/test-add-content.R 0 → 100644
+++ b/tests/testthat/test-add-content.R 0 → 100644
+  expect_equal(base_component("input-data/sample.jpg")@pages$default$components[[1]], "### Test\n\n![input-data/sample.jpg](input-data/sample.jpg)\n")
+
+  # test signature 'i2dashboard,gg'
+  o1 <- ggplot2::ggplot(mtcars,ggplot2::aes(x=wt,y=mpg)) + ggplot2::geom_point()
+
+  expect_equal(length(base_component(o1)@pages$default$components), 1)
+  expect_match(base_component(o1)@pages$default$components[[1]], "### Test")
+
+  # test signature 'i2dashboard,gt_tbl'
+  o2 <- gt::gt(mtcars)
+
+  expect_equal(length(base_component(o2)@pages$default$components), 1)
+  expect_match(base_component(o2)@pages$default$components[[1]], "### Test")
+
+  # test signature 'i2dashboard,knitr_kable'
+  o3 <- kableExtra::kable(mtcars) %>% kableExtra::kable_styling()
--- a/tests/testthat/test-internal-functions.R 0 → 100644
+++ b/tests/testthat/test-internal-functions.R 0 → 100644
+context("Internal functions")
+
+#
+# add_vis_object
+#
+test_that("add_vis_object works correctly",{
+  obj <- plotly::plot_ly(mtcars,x=~wt,y=~mpg)
--- a/tests/testthat/test-internal-functions.R 0 → 100644
+++ b/tests/testthat/test-internal-functions.R 0 → 100644
+# render_text
+#
+test_that("render_text works correctly",{
+  expect_equal(i2dash:::render_text("input-data/sample.txt"), "### \n\nLorem ipsum dolor sit amet\n")
+})
+
+#
+# .add_component
+#
+test_that(".add_component works correctly",{
+  comp <- "### Component\n\nContent\n\n"
+  i2dashboard() %>% i2dash:::.add_component("default", comp) -> dashboard
+
+  expect_equal(length(dashboard@pages$default$components), 1)
+  expect_match(dashboard@pages$default$components[[1]], "### Component\n\nContent\n\n")
+  unlink(dashboard@datadir, recursive=TRUE)