From 159f4b6bfa2e3a4d0d0132b525c013bb346cdc5b Mon Sep 17 00:00:00 2001 From: jasenfinch Date: Mon, 7 Dec 2020 21:11:40 +0000 Subject: [PATCH] added singleSample test where no class is specified --- tests/testthat/test-singleSample.R | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tests/testthat/test-singleSample.R b/tests/testthat/test-singleSample.R index a4afedc..de5d374 100644 --- 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]