dwww Home | Show directory contents | Find package

context("Bug 1033045 from Launchpad")

test_that("Minimal s-t separators work", {
  library(igraph)
  g <- graph_from_literal(a -- 1:3 -- 5 -- 2:4 -- b, 1 -- 2, 3 -- 4)
  stsep <- min_st_separators(g)
  ims <- sapply(stsep, is_min_separator, graph=g)
  expect_that(ims, equals(rep(TRUE, 9)))
})

Generated by dwww version 1.15 on Sun Jun 16 10:45:15 CEST 2024.