tests/testthat/test_gal2lit.R

In emlab-ucsb/adv_git: What the Package Does (One Line, Title Case)

# test_gal2lit
library(here)
library(testthat)
source(here("R", "gal2lit.R"))

context("gal2lit converts correctly")
test_that("gal2lit", {
  expect_equal(gal2lit(1), 3.78541)
  expect_equal(gal2lit(1/3.78541), 1)
})

context("gal2lit handles input types")
test_that("gal2lit",{
  expect_error(gal2lit(NA))
  expect_error(gal2lit(NULL))
  expect_error(gal2lit("1"))
})