dwww Home | Show directory contents | Find package

context("print.igraph")

test_that("print.igraph works", {

  library(igraph)
  igraph_options(print.full=TRUE)
  options(width=76)

  g <- make_ring(5)
  expect_that(summary(g), prints_text("attr:.* name[ ]*[(]g/c[)]"))
  expect_that(print(g), prints_text("attr:.* name[ ]*[(]g/c[)]"))
  expect_that(print(g), prints_text("1--2"))

  V(g)$name <- letters[1:vcount(g)]
  expect_that(summary(g), prints_text("name[ ]*[(]v/c[)]"))
  expect_that(print(g), prints_text("a--b"))

  set.seed(42)
  E(g)$weight <- sample(ecount(g))
  expect_that(summary(g), prints_text("weight[\n |]*[(]e/n[)]"))

  g$name <- "A ring"
  expect_that(summary(g), prints_text("A ring"))
  expect_that(print(g, v=T), prints_text("vertex attributes"))
  expect_that(print(g, e=T), prints_text("edges [(]vertex names[)] and"))

  set.seed(42)
  g2 <- sample_gnp(13, p=0.6, directed=TRUE)
  expect_that(print(g2), prints_text("1 ->"))

  g3 <- sample_gnp(20, p=0.8)
  expect_that(print(g3), prints_text("1 --"))

  g4 <- make_star(100)
  expect_that(print(g4), prints_text("2->1"))

  g5 <- make_star(100, mode="out")
  expect_that(print(g5), prints_text("1->"))

  g6 <- sample_pa(100, m=6, directed=FALSE)
  expect_that(print(g6), prints_text("     "))

  kite <- make_empty_graph(directed=FALSE) + LETTERS[1:10]
  kite <- kite + edges('A','B','A','C','A','D','A','F',
                       'B','D','B','E','B','G', 'C','D','C','F', 
                       'D','E','D','F','D','G', 'E','G', 
                       'F','G','F','H', 'G','H', 'H','I','I','J')
  expect_that(print(kite), prints_text("A -- "))
              
  igraph_options(print.full=FALSE)
})

test_that("print.igraph.es uses vertex names", {

  g <- make_directed_graph(c("A", "B"))
  expect_output(print(E(g)), "A\\s*->\\s*B")

})

Generated by dwww version 1.15 on Sun Jun 16 13:58:17 CEST 2024.