tests/testthat/test-cultivar.R

In rapsimng: APSIM Next Generation

suppressPackageStartupMessages(library(testthat))
test_that("cultivar", {
    wheat <- read_apsimx(system.file("Wheat.json", package = "rapsimng"))
    a <- get_cultivar(wheat)
    expect_equal(nrow(a), 30)
    a <- get_cultivar(wheat, alias = FALSE)
    expect_equal(nrow(a), 25)

})