tests/testthat/test_load_gottcha2_assignments.R

# load GOTTCHA2 assignments
#

# projects
#
data_file <- "../test_data/test_table_gottcha2.txt"

# read em
#
the_list <- load_edge_assignments(data_file, type = 'gottcha2')

# tests
#
expect_that(length(the_list), equals(4))

expect_that(names(the_list[4]), equals("Anterior_nares_male_SRR062284"))

#
# test the failure
#
expect_that(load_edge_assignments("../test_data/nonexistentfile.txt", type = 'gottcha2'), throws_error())
LANL-Bioinformatics/MetaComp documentation built on May 8, 2019, 4:51 p.m.