tests/testthat/test_compare_counts.R

In pdiakumis/woofr: Helper R Functions for woof

context("test-comparison")

snv_count <- read_snv_count_file(system.file("extdata", "snv/count_vars.txt", package = "woofr"))
snv_eval <- read_snv_eval_file(system.file("extdata", "snv/eval_stats.tsv", package = "woofr"))
sv_eval <- read_sv_eval_file(system.file("extdata", "sv/eval_metrics.tsv", package = "woofr"))
cnv1 <- read_purple_gene_file(system.file("extdata", "cnv/sample_A.purple.gene.cnv", package = "woofr"))
cnv2 <- read_purple_gene_file(system.file("extdata", "cnv/sample_B.purple.cnv.gene.tsv", package = "woofr"))

test_that("snv count is correct format", {
  expect_equal(nrow(snv_count), 1)
  expect_equal(snv_count$count, 86)
})

test_that("snv eval is correct format", {
  expect_equal(ncol(snv_eval), 21)
})

test_that("sv eval is correct format", {
  expect_equal(ncol(sv_eval), 10)
})

test_that("cnv purple is correct format", {
  expect_equal(ncol(cnv1), 6)
  expect_equal(ncol(cnv2), 6)
})