tests/testthat/test-graph.R

In ims-fhs/badhacker: Retrive dependencies between functions. Results can be display with graphs

context("graphs")
test_that("test graphs", {

  my_structure <- create_list_of_functional_structure(filename, path)
  my_graph <- create_graphNEL_object(my_structure)
  # Rgraphviz::plot(my_graph)
  connected_components <- graph::connComp(my_graph)

  testthat::expect_equal(class(connected_components), "list")
  testthat::expect_equal(length(connected_components), 3)
  testthat::expect_equal(connected_components[[1]], "# cool_fun")
  testthat::expect_equal(connected_components[[2]], c("mysum", "mydot", "myfun"))
  testthat::expect_equal(connected_components[[3]], "stupid_fun")

  df <- visualize_functional_structure(my_structure)
  testthat::expect_equal(df$x$nodes$label,
                         c("# cool_fun", "mysum", "mydot", "myfun", "stupid_fun"))
  testthat::expect_equal(names(df),
                         c("x", "width", "height", "sizingPolicy", "dependencies",
                           "elementId", "preRenderHook", "jsHooks"))
  testthat::expect_equal(df$x$edges$from, c(4, 4))
  testthat::expect_equal(df$x$edges$to, c(2, 3))
})

context("Handling of cycles")
test_that("test with cycles", {

  my_structure <- create_list_of_functional_structure(filename2, path)
  my_graph <- create_graphNEL_object(my_structure)
  # Rgraphviz::plot(my_graph)
  connected_components <- graph::connComp(my_graph)

  testthat::expect_equal(class(connected_components), "list")
  testthat::expect_equal(length(connected_components), 1)
  testthat::expect_equal(connected_components[[1]],
                         c("fun_circle1", "fun_circle2", "fun_circle3", "fun_circle4"))

  df <- visualize_functional_structure(my_structure)
  testthat::expect_equal(df$x$nodes$label,
                         c("fun_circle1", "fun_circle2", "fun_circle3", "fun_circle4"))
  testthat::expect_equal(df$x$edges$from, c(1:4))
  testthat::expect_equal(df$x$edges$to, c(2:4, 1))
})

context("Handling of recursion")
test_that("test with recursion", {

  # browser()
  my_structure <- create_list_of_functional_structure(filename3, path)
  my_graph <- create_graphNEL_object(my_structure)
  # Rgraphviz::plot(my_graph)
  connected_components <- graph::connComp(my_graph)

  testthat::expect_equal(class(connected_components), "list")
  testthat::expect_equal(length(connected_components), 1)
  testthat::expect_equal(connected_components[[1]],
                         c("helper_fun", "helper_fun2", "my_faculty"))

  df <- visualize_functional_structure(my_structure)
  testthat::expect_equal(df$x$nodes$label,
                         c("helper_fun", "helper_fun2", "my_faculty"))
  testthat::expect_equal(df$x$edges$from, rep(3,3))
  testthat::expect_equal(df$x$edges$to, c(1:3))
})

context("Handling several files")
test_that("test with several files", {

  my_filename <- c(filename2, filename3)
  my_path <- c(path, path)
  my_structure <- create_list_of_functional_structure(my_filename, my_path)
  my_graph <- create_graphNEL_object(my_structure)
  # Rgraphviz::plot(my_graph)
  connected_components <- graph::connComp(my_graph)

  testthat::expect_equal(class(connected_components), "list")
  testthat::expect_equal(length(connected_components), 2)
  testthat::expect_equal(connected_components[[1]],
                         c("fun_circle1", "fun_circle2", "fun_circle3", "fun_circle4"))
  testthat::expect_equal(connected_components[[2]],
                         c("helper_fun", "helper_fun2", "my_faculty"))

  df <- visualize_functional_structure(my_structure)
  testthat::expect_equal(df$x$nodes$label,
                         c("fun_circle1", "fun_circle2", "fun_circle3", "fun_circle4",
                           "helper_fun", "helper_fun2", "my_faculty"))
  testthat::expect_equal(df$x$edges$from, c(1:4, 7, 7, 7))
  testthat::expect_equal(df$x$edges$to, c(2, 3, 4, 1, 5, 6, 7))
})