tests/testthat/test-mod_app.R

In mergenstudio: 'Mergen' Studio: An 'RStudio' Addin Wrapper for the 'Mergen' Package

test_that("rgb_str_to_hex() works as expected", {
  expect_equal(rgb_str_to_hex("rgb(147, 161, 161)"), "#93A1A1")
  expect_equal(rgb_str_to_hex("rgb(0, 43, 54)"), "#002B36")
  expect_equal(rgb_str_to_hex("rgba(0, 0, 0, 255)"), "#000000")
})


test_that("create_translator() fails when language is not supported", {
  create_translator("latin") %>%
    expect_error()
})


test_that("create_translator() succeeds when language is supported", {
  create_translator("en") %>%
    expect_no_warning()
})