tests/testthat/test-test.R

context("start up")

test_that("read the data",{
    caa <- read.csv(system.file("extdata","caa_pma.csv",package="frasyr"))
    expect_equal(nrow(caa),4)
})
ichimomo/frasyr documentation built on May 3, 2024, 1:30 a.m.