tests/testthat/test_delete.R

In abossenbroek/GeneralTree: General Tree Data Structure

context("Test delete")

test_that("delete node that is sibling", {
  tree <- GeneralTree$new(0, "parent1")

  expect_identical(tree$have_siblings, FALSE)

  tree$addNode(0, 1, "child.1")
  tree$addNode(0, 2, "child.2")
  tree$addNode(0, 3, "child.3")
  expect_identical(tree$searchNode(3)$data, "child.3")
  tree$deleteId(3)

  expect_identical(tree$searchNode(3), NULL)
})

test_that("delete node that is left child", {
  tree <- GeneralTree$new(0, "parent1")

  expect_identical(tree$have_siblings, FALSE)

  tree$addNode(0, 1, "child.1")
  tree$addNode(0, 2, "child.2")
  tree$addNode(0, 3, "child.3")
  expect_identical(tree$searchNode(1)$data, "child.1")
  tree$deleteId(1)

  expect_identical(tree$searchNode(1), NULL)
  expect_identical(tree$searchNode(3)$data, "child.3")
})

test_that("Delete a child without siblings", {
  tree <- GeneralTree$new(0, "parent1")

  tree$addNode(0, 1, "child.1")
  tree$addNode(0, 2, "child.2")
  tree$addNode(0, 3, "child.3")
  tree$addNode(1, 4, "child.1.4")
  tree$deleteId(4)

  expect_identical(tree$searchNode(4), NULL)
})

test_that("delete node that is three levels deep and sibling", {
  tree <- GeneralTree$new(0, "parent1")

  expect_identical(tree$have_siblings, FALSE)

  tree$addNode(0, 1, "child.1")
  tree$addNode(0, 2, "child.2")
  tree$addNode(0, 3, "child.3")
  tree$addNode(3, 4, "child.3.4")
  tree$addNode(3, 5, "child.3.5")
  tree$addNode(3, 6, "child.3.6")
  tree$addNode(3, 7, "child.3.7")
  tree$addNode(7, 8, "child.7.8")
  tree$addNode(7, 9, "child.7.9")

  expect_identical(tree$searchNode(9)$data, "child.7.9")
  tree$deleteId(9)
  expect_identical(tree$searchNode(9), NULL)
})

test_that("delete node that is three levels deep and left child", {
  tree <- GeneralTree$new(0, "parent1")

  expect_identical(tree$have_siblings, FALSE)

  tree$addNode(0, 1, "child.1")
  tree$addNode(0, 2, "child.2")
  tree$addNode(0, 3, "child.3")
  tree$addNode(3, 4, "child.3.4")
  tree$addNode(3, 5, "child.3.5")
  tree$addNode(3, 6, "child.3.6")
  tree$addNode(3, 7, "child.3.7")
  tree$addNode(7, 8, "child.7.8")
  tree$addNode(7, 9, "child.7.9")
  tree$addNode(7, 10, "child.7.10")

  expect_identical(tree$searchNode(8)$data, "child.7.8")
  tree$deleteId(8)
  expect_identical(tree$searchNode(8), NULL)
  expect_identical(tree$searchNode(9)$data, "child.7.9")
  expect_identical(tree$searchNode(10)$data, "child.7.10")
})

test_that("delete node that has childeren.", {
  tree <- GeneralTree$new(0, "parent1")

  tree$addNode(0, 1, "child.1")
  tree$addNode(0, 2, "child.2")
  tree$addNode(0, 3, "child.3")
  tree$addNode(3, 4, "child.3.4")
  tree$addNode(3, 5, "child.3.5")
  tree$addNode(3, 6, "child.3.6")
  tree$addNode(3, 7, "child.3.7")
  tree$addNode(7, 8, "child.7.8")
  tree$addNode(7, 9, "child.7.9")
  tree$addNode(7, 10, "child.7.10")

  tree$searchNode(7)$delete()
  expect_identical(tree$searchNode(8), NULL)
})