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 23 14:14:48 CEST 2024.