tests/testthat/test-ifcb_create_class2use.R

In iRfcb: Tools for Managing Imaging FlowCytobot (IFCB) Data

test_that("ifcb_create_class2use creates .mat file correctly", {
  # Skip if Python is not available
  skip_if_no_scipy()

  # Define test parameters
  classes <- c("unclassified", "Dinobryon_spp", "Helicostomella_spp")
  filename <- tempfile(fileext = ".mat")  # Create a temporary file for the test

  # Call the function
  ifcb_create_class2use(classes, filename, do_compression = TRUE)

  # Check if the file was created
  expect_true(file.exists(filename))

  # Load the .mat file and check its contents
  mat_data <- ifcb_get_mat_variable(filename)

  # Verify that the "class2use" in the .mat file matches the input classes
  expect_equal(as.character(mat_data), classes)

  # Clean up
  unlink(filename)
})