From 5670e79e93b7e3dabf678de70790ee1454e2bb13 Mon Sep 17 00:00:00 2001
From: mhunter1 <mhunter.ou@gmail.com>
Date: Fri, 8 Sep 2023 00:57:57 -0400
Subject: [PATCH] Add basic tests for pedigree graph theory and path tracing

---
 tests/testthat/test-network.R | 59 +++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100755 tests/testthat/test-network.R

diff --git a/tests/testthat/test-network.R b/tests/testthat/test-network.R
new file mode 100755
index 0000000..d4e697a
--- /dev/null
+++ b/tests/testthat/test-network.R
@@ -0,0 +1,59 @@
+test_that("hazard data loads", {
+  expect_silent(data(hazard))
+})
+
+test_that("inbreeding data loads", {
+  expect_silent(data(inbreeding))
+})
+
+test_that("ped2fam gets the right families for hazard data", {
+  data(hazard)
+  ds <- ped2fam(hazard, famID='newFamID')
+  tab <- table(ds$FamID, ds$newFamID)
+  expect_equal(ds$FamID, ds$newFamID)
+})
+
+test_that("ped2graph produces a graph", {
+  expect_silent(data(inbreeding))
+  g <- ped2graph(inbreeding)
+  expect_true(inherits(g, 'igraph'))
+})
+
+test_that("ped2add produces correct matrix dims, values, and dimnames", {
+  data(hazard)
+  add <- ped2add(hazard)
+  # Check dimension
+  expect_equal(dim(add), c(43, 43))
+  # Check several values
+  expect_true(all(diag(add) == 1))
+  expect_equal(add, t(add))
+  expect_equal(add[2, 1], 0)
+  expect_equal(add[10, 1], .25)
+  expect_equal(add[9, 1], 0)
+  expect_equal(add['5', '6'], .5)
+  # Check that dimnames are correct
+  dn <- dimnames(add)
+  expect_equal(dn[[1]], dn[[2]])
+  expect_equal(dn[[1]], as.character(hazard$ID))
+})
+
+#test_that("ped2mit produces correct matrix dims, values, and dimnames", {
+#  # Check dimension
+#  # Check several values
+#  # Check that dimnames are correct
+#  expect_silent(data(inbreeding))
+#})
+
+#test_that("ped2cn produces correct matrix dims, values, and dimnames", {
+#  # Check dimension
+#  # Check several values
+#  # Check that dimnames are correct
+#  expect_silent(data(inbreeding))
+#})
+
+#test_that("ped2ce produces correct matrix dims, values, and dimnames", {
+#  # Check dimension
+#  # Check several values
+#  # Check that dimnames are correct
+#  expect_silent(data(inbreeding))
+#})