tests/testthat/test-codeCheck.R

In pik-piam/gmod: Tools package for modular GAMS code

context("interfaceplot test")

test_that("interfaceplot creation works", {
  expected_result <- structure(list(from = c("core", "fancymodule"), 
                                    to = c("fancymodule", "crazymodule"), 
                                    num_items = c(1L, 1L), 
                                    items = c("pm_global","vm_exchange")), 
                               row.names = c(NA, -2L), 
                               class = c("tbl_df","tbl", "data.frame"))
  
  cc <- codeCheck(system.file("dummymodel",package="gmod"))
  ifp <- interfaceplot(cc)
  expect_identical(ifp,expected_result)
})