tests/testthat/test-loading-dct-specs-from-files.R

In academy-of-behavior-change/dct: Decentralized Construct Taxonomies

context("loading dct specifications from files and directories")

###-----------------------------------------------------------------------------
###-----------------------------------------------------------------------------
###-----------------------------------------------------------------------------

test_that("a dct specification from a file with a single dct specification is loaded correctly", {

  res <- load_dct_specs(here::here('tests',
                                   'testthat',
                                   'intention.dct'));

  testthat::expect_equal(res$output$completeness_graph$last_node, 1);

});

###-----------------------------------------------------------------------------

test_that("dct specifications from a file with multiple dct specification are loaded correctly", {

  res <- load_dct_specs(here::here('tests',
                                   'testthat',
                                   'attitude.dct'));

  testthat::expect_equal(res$output$completeness_graph$last_node, 3);

});


###-----------------------------------------------------------------------------

test_that("a directory with dct specifications is loaded correctly", {

  res <- load_dct_dir(here::here('tests',
                                 'testthat'));

  testthat::expect_equal(res$output$completeness_graph$last_node, 7);

});