tests/testthat/test-checking_first_value_of_seed_1.R

In audhalbritter/PFTCFunctions: Functions for PFTC Data

context("testing with seed = 1")
library("dplyr")

test_that("multiplication works", {
  expect_equal(
    get_PFTC_envelope_codes(seed = 1) %>% slice(1) %>% pull(hashcode),
    "AAA4667"
  )
})