tests/testthat/test-DependencyReporter-network.R

##### TESTS #####

test_that('DependencyReporter extracts expected network for baseballstats', {

    testObj <- DependencyReporter$new()$set_package('baseballstats')

    # Test nodes
    expect_equivalent(
        object = testObj$nodes
        , expected = data.table::fread(file.path('testdata', 'baseballstats_dependency_nodes.csv'))
        , ignore.col.order = TRUE
        , ignore.row.order = TRUE
    )

    # Test edges
    expect_equivalent(
        object = testObj$edges
        , expected = data.table::fread(file.path('testdata', 'baseballstats_dependency_edges.csv'))
        , ignore.col.order = TRUE
        , ignore.row.order = TRUE
    )
})

test_that('DependencyReporter extracts expected network for milne (with LinkingTo:)', {
  
  testObj <- DependencyReporter$new()$set_package('milne')
  
  # Test nodes
  expect_equivalent(
    object = testObj$nodes
    , expected = data.table::fread(file.path('testdata', 'milne_dependency_nodes.csv'))
    , ignore.col.order = TRUE
    , ignore.row.order = TRUE
  )
  
  # Test edges
  expect_equivalent(
    object = testObj$edges
    , expected = data.table::fread(file.path('testdata', 'milne_dependency_edges.csv'))
    , ignore.col.order = TRUE
    , ignore.row.order = TRUE
  )
})
UptakeOpenSource/pkgnet documentation built on May 20, 2024, 5:23 p.m.