tests/testthat/test-manifest.R

In jasenfinch/metaboWorkflows: Workflow Project Templates for Metabolomics Analyses

test_that("manifest works", {
  file_paths <- metaboData::filePaths('FIE-HRMS','BdistachyonEcotypes')
  sample_information <- metaboData::runinfo('FIE-HRMS','BdistachyonEcotypes')
  
  workflow_input <- inputFilePath(file_paths,sample_information)
  
  workflow_definition <- defineWorkflow(workflow_input,
                                        'FIE-HRMS fingerprinting',
                                        'Example project')
  
  workflow_manifest <- manifest(workflow_definition)
  
  expect_s3_class(workflow_manifest,'tbl_df')
})