tests/testthat/test_bcftools_stats.R

In percyfal/nonmodelr: Utility functions for analysis of non model organism data

context("Test parsing bcftools output, S4")
fn <- system.file("extdata", "medium.call.stats", package="manticore")
S4stats <- readBcftoolsStats(fn)

test_that("new S4 bcftools instance", {
    expect_equal(class(S4stats)[1], "BcftoolsStats")
    expect_equal(S4stats@label, fn)
})


context("Test parsing bcftools output, S3")
S3stats <- read.bcftools.stats(fn)
test_that("new S3 bcftools instance", {
    expect_equal(class(S3stats)[1], "bcftools.stats")
    expect_equal(S3stats$label, fn)
})