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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
|
test_that("radius() works", {
withr::local_seed(42)
g <- make_tree(10, 2)
expect_equal(radius(g), 3)
expect_equal(radius(g, mode = "in"), 0)
expect_equal(radius(g, mode = "out"), 0)
})
test_that("radius() works -- weights", {
g <- make_ring(10)
expect_equal(radius(g), 5)
E(g)$weight <- seq_len(ecount(g))
expect_equal(radius(g), 24)
})
test_that("radius() works -- lifecycle", {
withr::local_seed(42)
g <- make_tree(10, 2)
expect_snapshot(radius(g, "out"))
})
test_that("eccentricity() works", {
withr::local_seed(42)
g <- make_tree(10, 2)
expect_equal(eccentricity(g), c(3, 3, 4, 4, 4, 5, 5, 5, 5, 5))
expect_equal(eccentricity(g, mode = "in"), c(0, 1, 1, 2, 2, 2, 2, 3, 3, 3))
expect_equal(eccentricity(g, mode = "out"), c(3, 2, 1, 1, 1, 0, 0, 0, 0, 0))
})
test_that("eccentricity() works -- weights", {
g <- make_ring(10)
expect_equal(eccentricity(g), rep(5, 10))
E(g)$weight <- seq_len(ecount(g))
expect_equal(eccentricity(g), c(27, 27, 25, 25, 26, 25, 24, 27, 26, 25))
})
test_that("eccentricity() works -- lifecycle", {
withr::local_seed(42)
g <- make_tree(10, 2)
expect_snapshot(eccentricity(g, vids = V(g), "out"))
})
test_that("graph_center() works", {
withr::local_seed(42)
g <- make_tree(100, 7)
expect_equal(as.numeric(graph_center(g)), c(1, 2))
expect_equal(as.numeric(graph_center(g, mode = "in")), 1)
expect_equal(as.numeric(graph_center(g, mode = "out")), 16:100)
})
test_that("graph_center() works -- weights", {
g <- make_ring(10)
expect_equal(as.numeric(graph_center(g)), 1:10)
E(g)$weight <- seq_len(ecount(g))
expect_equal(as.numeric(graph_center(g)), 7)
})
test_that("all_simple_paths() passes on cutoff argument", {
g <- make_ring(7)
expect_equal(lengths(all_simple_paths(g, 1, cutoff = 1)), c(2, 2))
expect_equal(lengths(all_simple_paths(g, 1, cutoff = 2)), c(2, 3, 2, 3))
expect_equal(
lengths(all_simple_paths(g, 1)),
c(2, 3, 4, 5, 6, 7, 2, 3, 4, 5, 6, 7)
)
})
|
