1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
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(g, prints_text("attr:.* name[ ]*[(]g/c[)]"))
expect_that(g, prints_text("1--2"))
V(g)$name <- letters[1:vcount(g)]
expect_that(summary(g), prints_text("name[ ]*[(]v/c[)]"))
expect_that(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(g2, prints_text("1 ->"))
g3 <- sample_gnp(20, p=0.8)
expect_that(g3, prints_text("1 --"))
g4 <- make_star(100)
expect_that(g4, prints_text("2->1"))
g5 <- make_star(100, mode="out")
expect_that(g5, prints_text("1->"))
g6 <- sample_pa(100, m=6, directed=FALSE)
expect_that(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(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")
})
|
