tests/testthat/test_netDir.R

In FilipeamTeixeira/skynet: Generates Networks from BTS Data

library(skynet)

context("Create Directed Network")



test_that("make_net_dir works", {
  # Run simple net test
  test <- make_net_dir(OD_Sample)
  expect_output(str(test), "List of 3")
  expect_output(str(nrow(test$netDir)), "2182")
})

test_that("make_net_dir with disp", {
  # Run simple net test
  test <- make_net_dir(OD_Sample, disp = TRUE)
  expect_output(str(nrow(test$netDir_disp)), "33")
  expect_length(test$gDir_disp, 36)
  expect_length(test$nodes, 13)
  expect_output(str(class(test$netDir_disp)), "data.frame")
  expect_output(str(class(test$nodes)), "data.frame")
  expect_output(str(class(test$gDir_disp)), "igraph")
})

test_that("make_net_dir with cap", {
  # Run simple net test
  test <- make_net_dir(OD_Sample, cap = TRUE)
  expect_output(str(nrow(test$netDir_cap)), "205")
  expect_length(test$gDir_cap, 74)
  expect_length(test$nodes, 13)
  expect_output(str(class(test$netDir_cap)), "data.frame")
  expect_output(str(class(test$nodes)), "data.frame")
  expect_output(str(class(test$gDir_cap)), "igraph")
})

test_that("make_net_dir with metro", {
  # Run simple net test
  test <- make_net_dir(OD_Sample, metro = TRUE)
  expect_output(str(nrow(test$netDir)), "1781")
  expect_length(test$gDir, 229)
  expect_length(test$nodes, 8)
  expect_output(str(class(test$netDir)), "data.frame")
  expect_output(str(class(test$nodes)), "data.frame")
  expect_output(str(class(test$gDir)), "igraph")
})