added singleSample test where no class is specified

aberHRML · Dec 7, 2020 · 159f4b6 · 159f4b6
1 parent 4dda346
commit 159f4b6
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/testthat/test-singleSample.R b/tests/testthat/test-singleSample.R
@@ -8,6 +8,13 @@ test_that('single sample works',{
 	expect_s4_class(bd,'Binalysis')
 })
 
+test_that('single sample works with no class specified',{
+	file <- metaboData::filePaths('FIE-HRMS','BdistachyonEcotypes')[1]
+	bd <- singleSample(file,verbose = TRUE)
+
+	expect_s4_class(bd,'Binalysis')
+})
+
 test_that('single samples errors with > 1 file',{
 	file <- metaboData::filePaths('FIE-HRMS','BdistachyonEcotypes')[1:2]