# test_that("convert_to_SE", {
#   skip_on_cran()
#   
#   x <- suppressMessages(convert_to_SE(hmp5))
#   
#   expect_s4_class(x, 'SummarizedExperiment')
#   expect_identical(colnames(x), hmp5$samples)
#   expect_identical(rownames(x), hmp5$otus)
#   expect_equal(x$Age, hmp5$metadata$Age)
# })
# 
# 
# test_that("convert_to_TSE", {
#   skip_on_cran()
#   
#   x <- suppressMessages(convert_to_TSE(hmp5))
#   
#   expect_s4_class(x, 'TreeSummarizedExperiment')
#   expect_identical(colnames(x), hmp5$samples)
#   expect_identical(rownames(x), hmp5$otus)
#   expect_equal(x$Age, hmp5$metadata$Age)
#   expect_s3_class(TreeSummarizedExperiment::rowTree(x), 'phylo')
#   expect_s4_class(TreeSummarizedExperiment::referenceSeq(x), 'DNAStringSet')
# })