# test_that("Tests autoFlow report creation", {
#     output_file <- paste0(getwd(),"/report.html")

#     taxa <- metagenomics$new(
#         biomData = "input/metagenomics/biom_with_taxonomy_hdf5.biom",
#         metaData = "input/metagenomics/metadata.tsv",
#         treeData = "input/metagenomics/rooted_tree.newick"
#     )
#     suppressWarnings(taxa$autoFlow(filename = output_file))

#     expect_true(file.exists(output_file))
    
#     file.remove(output_file)
# })