tests/testthat/test-dev-tex.R

In hrbrmstr/slackr: Send Messages, Images, R Objects and Files to 'Slack' Channels/Users

test_that("slackr_dev posts", {
  skip_on_cran()
  skip_on_ci()

  hist(rnorm(100))

  post <- slackr_dev()

  expect_true(post$ok)
  expect_equal(post$file$filetype, "png")
})

test_that("slackr_tex posts with no dir specified", {
  skip_on_cran()
  skip_on_ci()

  ## No path specified
  post <- slackr_tex("$$e^{i \\pi} + 1 = 0$$")

  expect_true(post$ok)
  expect_equal(post$file$filetype, "png")
})

test_that("slackr_tex posts with dir specified", {
  skip_on_cran()
  skip_on_ci()

  ## With path specified
  d <- tempdir()
  post <- slackr_tex("$$e^{i \\pi} + 1 = 0$$", path = d)

  unlink(d, recursive = TRUE)
  expect_true(post$ok)
  expect_equal(post$file$filetype, "png")
})