dwww Home | Show directory contents | Find package

context("min_separators")

test_that("min_separators works", {

  library(igraph)

  camp <- graph_from_literal(Harry:Steve:Don:Bert - Harry:Steve:Don:Bert,
                    Pam:Brazey:Carol:Pat - Pam:Brazey:Carol:Pat,
                    Holly   - Carol:Pat:Pam:Jennie:Bill,
                    Bill    - Pauline:Michael:Lee:Holly,
                    Pauline - Bill:Jennie:Ann,
                    Jennie  - Holly:Michael:Lee:Ann:Pauline,
                    Michael - Bill:Jennie:Ann:Lee:John,
                    Ann     - Michael:Jennie:Pauline,
                    Lee     - Michael:Bill:Jennie,
                    Gery    - Pat:Steve:Russ:John,
                    Russ    - Steve:Bert:Gery:John,
                    John    - Gery:Russ:Michael)
  camp <- simplify(camp)
  sep <- min_separators(camp)
  expect_true(all(sapply(sep, is_min_separator, graph=camp)))

})

Generated by dwww version 1.15 on Sun Jun 16 11:00:30 CEST 2024.