tests/testthat/test-do.findmain.R

In cbroeckl/RAMClustR: Mass Spectrometry Metabolomics Feature Clustering and Interpretation

test_that("RAMClustR do.findmain", {
  wd <- getwd()
  tmp <- tempdir()
  ramclustObj <- readRDS(file.path("testdata", "rc.qc.rds"))
  expected <- readRDS(file.path("testdata", "do.findmain.rds"))

  setwd(tmp)
  actual <- do.findmain(ramclustObj = ramclustObj)

  expect_equal(actual, expected)
  setwd(wd)
})