tests/testthat/test-random-walk.R

In tidygraph: A Tidy API for Graph Manipulation

test_that("random_walk_rank returns correct data", {
  set.seed(1)
  node_walk <- create_notable('zachary') |>
    mutate(walk_rank = random_walk_rank(29, 5)) |>
    pull(walk_rank)

  edge_walk <- create_notable('zachary') |>
    activate(edges) |>
    mutate(walk_rank = random_walk_rank(30, 5)) |>
    pull(walk_rank)

  expect_length(node_walk, 34)
  expect_length(edge_walk, 78)
  expect_type(node_walk, 'list')
  expect_type(edge_walk, 'list')
  expect_equal(node_walk[[5]], c(1, 5, 7))
  expect_equal(node_walk[[3]], integer())
  expect_equal(edge_walk[[1]], integer())
  skip_on_cran()
  expect_equal(edge_walk[[4]], c(1, 18))
})