tests/testthat/test-run_getXcovar.R

In rqtl/qtl2cl: Command-Line Interface for R/qtl2

context("run_getXcovar")

test_that("run_getXcovar works", {

    infile <- system.file("extdata", "iron.zip", package="qtl2")
    rdsfile <- paste0(tempfile(), ".rds")
    cross2rds(infile, rdsfile)

    cross <- readRDS(rdsfile)

    xcovar_file <- paste0(tempfile(), ".rds")
    run_getXcovar(rdsfile, xcovar_file)

    expect_equal(readRDS(xcovar_file), qtl2::get_x_covar(cross))

    unlink(rdsfile)
    unlink(xcovar_file)

})