tests/testthat/test_getChildData.R

In abossenbroek/GeneralTree: General Tree Data Structure

context("Test child data")

test_that("Verify correct child data is returned", {

  tree <- GeneralTree$new(0, "parent1")
  tree$addNode(0, "a", "child.a")
  tree$addNode(0, "b", "child.b")
  tree$addNode("b", "c", "child.b.c")
  tree$addNode("b", "d", "child.b.d")
  tree$addNode("c", "e", "child.c.e")
  tree$addNode("c", "f", "child.c.f")
  tree$addNode("c", "g", "child.c.g")

  expect_identical(tree$searchNode("b")$getChildData(),
                   list("child.b.c", "child.b.d"))
  expect_identical(tree$searchNode("c")$getChildData(),
                   list("child.c.e", "child.c.f", "child.c.g"))
  expect_identical(tree$searchNode("c")$getChildId(),
                   list("e", "f", "g"))
})