data <- bnlearn::learning.test
scorer <- CreateScorer(data = data)
cache <- BuildCache(scorer)
cached_scorer <- CachedScorer(scorer)

testthat::test_that('CachedScorer returns function', {
  testthat::expect_true(methods::is(cached_scorer, 'function'))
})

testthat::test_that('Cached scorer looks up correct score', {
  testthat::expect_true(cached_scorer('A', c('B', 'C')) < 0.0)
  testthat::expect_true(cached_scorer('A', c()) < 0.0)
  testthat::expect_true(cached_scorer('A', NULL) < 0.0)
  testthat::expect_equal(cached_scorer('A', c('B', 'C')),
                         BNLearnScorer('A', c('B', 'C'), data = data))
  testthat::expect_equal(cached_scorer('A', c()),
                         BNLearnScorer('A', c(), data = data))  
})

# testthat::test_that('GetParentsKey constructs correct key.', {
#   testthat::expect_identical(GetParentsKey(NULL, c('A', 'B', 'C', 'D')), '0000')
#   testthat::expect_identical(GetParentsKey(c(), c('A', 'B', 'C', 'D')), '0000')
#   testthat::expect_identical(GetParentsKey(c('A', 'C'), c('A', 'B', 'C', 'D')), '1010')
#   testthat::expect_identical(GetParentsKey(c('B', 'D'), c('A', 'B', 'C', 'D')), '0101')
# })