"tax_datatable function works fine with data_fungi dataset"
"tax_datatable function works fine with enterotype dataset"
"compare_pairs_pq function works fine with data_fungi dataset"
"tbl_sum_samdata function works fine with data_fungi and enterotype dataset"

tax_datatable function works fine with data_fungi dataset

tax_datatable function works fine with enterotype dataset

length(list.files(testFolder)) (`actual`) not equal to 6 (`expected`).

  `actual`: 12
`expected`:  6

test_that("write_pq function works fine with enterotype dataset", {
unlink(list.files(testFolder, full.names = TRUE), recursive = TRUE)
expect_silent(write_pq(enterotype, path = testFolder, silent = TRUE))
expect_silent(write_pq(enterotype, path = testFolder, silent = TRUE, sam_data_first = TRUE))
expect_silent(write_pq(enterotype, path = testFolder, silent = TRUE, write_sam_data = TRUE))
expect_error(write_pq(enterotype, one_file = TRUE, path = testFolder))
expect_s4_class(read_pq(testFolder, taxa_are_rows = TRUE), "phyloseq")
new_data_entero <- read_pq(testFolder, taxa_are_rows = TRUE)
test_that("write_pq function works fine with data_fungi dataset", {
expect_silent(write_pq(data_fungi, path = testFolder, silent = TRUE))
expect_silent(write_pq(data_fungi, path = testFolder, silent = TRUE, sam_data_first = TRUE))
expect_silent(write_pq(data_fungi, path = testFolder, silent = TRUE, write_sam_data = FALSE))
expect_message(write_pq(data_fungi, path = testFolder, silent = TRUE, sam_data_first = TRUE, one_file = TRUE))
expect_silent(write_pq(data_fungi, path = testFolder, silent = TRUE, write_sam_data = FALSE, one_file = TRUE))
expect_message(write_pq(data_fungi, one_file = TRUE, path = testFolder))
test_that("save_pq function works fine with data_fungi dataset", {
expect_message(save_pq(data_fungi, path = testFolder, silent = TRUE))

"write_pq function works fine with enterotype dataset"
"write_pq function works fine with data_fungi dataset"
"save_pq function works fine with data_fungi dataset"

save_pq function works fine with data_fungi dataset