tests/testthat/test-transient.R

In lbartnik/repository: Object Repository for R

context("transient")

test_that("extract ancestor id", {
  id <- extract_id(quo(ancestor_of('x')))
  expect_equal(id, 'x')
})

test_that("ancestor_of_impl", {
  r <- london_meters()

  x <- ancestor_of_impl(sample_commit_id(), commit_graph(r$store))
  expect_true(is.character(x))
  expect_length(x, 10)
})

test_that("descendant_of_impl", {
  r <- london_meters()

  x <- descendant_of_impl(sample_artifact_id(), artifact_graph(r$store))
  expect_true(is.character(x))
  expect_length(x, 2)
  expect_true(sample_artifact_id() %nin% x)
})


test_that("no_children_impl", {
  s <- london_meters()$store
  g <- commit_graph(s)

  x <- no_children_impl(g)
  expect_length(x, 1)
})

test_that("no_parents_impl", {
  s <- london_meters()$store
  g <- commit_graph(s)

  x <- no_parents_impl(g)
  expect_length(x, 1)
})

test_that("extract data match", {
  exp <- list(d = storage::compute_id(1), e = storage::compute_id(2),
              f = storage::compute_id(3))

  x <- extract_data_match(quo(data_matches(d = 1)))
  expect_equal(x, exp[1])

  x <- extract_data_match(quo(data_matches(d = 1, e = 2)))
  expect_equal(x, exp[1:2])

  x <- extract_data_match(quo(data_matches(data = list(d = 1, e = 2))))
  expect_equal(x, exp[1:2])

  x <- extract_data_match(quo(data_matches(d = 1, data = list(e = 2, f = 3))))
  expect_equal(x, exp)
})

test_that("data_matches_impl", {
  r <- many_repository()
  m <- list(a = 'a', b = 'b', c = 'c')

  x <- data_matches_impl(m[1], r$store)
  expect_equal(x, as_id('p'))

  x <- data_matches_impl(m[1:2], r$store)
  expect_equal(x, as_id('q'))

  x <- data_matches_impl(m, r$store)
  expect_equal(x, as_id(c('r', 's')))

  x <- data_matches_impl(m[2:3], r$store)
  expect_length(x, 0)
})