tests/testthat/test_09_write_profile.R

In fasterius/seqCAT: High Throughput Sequencing Cell Authentication Toolkit

library("seqCAT")
context("Write SNV profiles")

# Test data
data(test_profile_1)

# Tests
test_that("unsupported format specifications are handled correctly", {
    expect_error(write_profile(test_profile_1,
                               "test.bef"),
                 "Unsupported format specification \"")
    expect_error(write_profiles(list(test_profile_1),
                                directory = "./",
                                format    = "bef"),
                 "Unsupported format specification \"")
})