tests/testthat/test-findIDpaths.R

In Perc: Using Percolation and Conductance to Find Information Flow Certainty in a Direct Network

# to do 
# testthat if conf is not in the right format, raise an error. -- checked
# testthat if len is of right format -- checked
# testthat if ID is found in matrix  -- checked
# testthat output is of right format -- checked 
# testthat output is correct.        -- checked


context("Testing findIDpaths Function")

# test data generation
RNGversion("3.5.2")
set.seed(1)
edgelist1 <- data.frame(col1 = sample(letters[1:15], 200, replace = TRUE), 
                        col2 = sample(letters[1:15], 200, replace = TRUE), 
                        stringsAsFactors = FALSE)
edgelist1 <- edgelist1[-which(edgelist1$col1 == edgelist1$col2), ]
testMatrix2 <- as.conflictmat(edgelist1)


test_that("return error for incorrect len", {
  
  expect_error(findIDpaths(testMatrix2, "A", len = 1), "len should be no smaller than 2.")
  expect_error(findIDpaths(testMatrix2, "A", len = 7), "len should be no greater than 6.")
  expect_error(findIDpaths(testMatrix2, "A", len = 2.3), "'len' needs to be an integer.")
})


test_that("return error for incorrect ID", {
  
  expect_error(findIDpaths(testMatrix2, "AB", len = 3), "ID not found in the conflict matrix. Making sure the ID and the conflict matrix are correct.")
})

test_that("output is a matrix of len + 1 column, or a message if no paths found starting at ID", {
  
  expect_is(findIDpaths(testMatrix2, "a", len = 2), "matrix")
  expect_equal(dim(findIDpaths(testMatrix2, "a", len = 2))[2], 3)
  expect_equal(dim(findIDpaths(testMatrix2, "a", len = 4))[2], 5)
  testMatrix3 <- testMatrix2
  testMatrix3[1,] <- 0
  # expect_is(findIDpaths(testMatrix3, "a", len = 2), "list")
  expect_message(findIDpaths(testMatrix3, "a", len = 2))
})


test_that("outputs are correct", {
  
  expect_equal_to_reference(findIDpaths(testMatrix2, "a", len = 2), file = "findIDpathsOutput1.rds")
  expect_equal_to_reference(findIDpaths(testMatrix2, "a", len = 3), file = "findIDpathsOutput2.rds")
  expect_equal_to_reference(findIDpaths(testMatrix2, "a", len = 4), file = "findIDpathsOutput3.rds")
})