tests/testthat/test-sliding_density.r

In J-Moravec/sighunt: Tool for horizontal transfer detection

context("Testing sliding density method")

signature = read.table(file=file.path("test_files", "sample_signature.txt"),
                       sep="\t", header=TRUE)
signature = as.matrix(signature)
signature = filter_signature(signature)

test_that("dimension of output is correct", {
    expect_equal(length(sliding_density(signature, bar=FALSE)), nrow(signature))
    expect_equal(names(sliding_density(signature, bar=FALSE)), rownames(signature))
    })