tests/testthat/test-Number.R

In InterfaceqPCR: GUI to Analyse qPCR Results after PMA Treatment or not

context("Test numberimported and logical")

test_that("Logical equivalence", {
  x <- TRUE
  expect_that(x, equals(TRUE))
})

test_that("Numerical equivalence", {
  x <- 1
  expect_that(x, equals(1))
})