tests/testthat/test-linearise_cells.R

In dynverse/dynplot: Visualising Single-Cell Trajectories

context("Test linearisation")

dataset <- example_disconnected

test_that(paste0("Linearise cells of ", dataset$id, " works."), {
  linearisation <- linearise_cells(dataset)

  expect_true(all(dataset$cell_ids %in% linearisation$progressions$cell_id))
})

test_that(paste0("Linearise cells of ", dataset$id, " on one edge works."), {
  linearisation <- linearise_cells(dataset, one_edge = TRUE)
  expect_true(all(dataset$cell_ids %in% linearisation$progressions$cell_id))
  expect_true(all(table(linearisation$progressions$cell_id) == 1))
})