tests/testthat/test-update_selection.R

In starschemar: Obtaining Stars from Flat Tables

context("test update_selection")

test_that("update_selection works", {
  where <- st_mrs_age_test |>
    get_dimension("where")

  updates <- record_update_set() |>
    update_selection(dimension = where,
                     columns = c("region", "state", "city"),
                     old_values = c("1", "CT", "Bridgepor"),
                     new_values = c("1", "CT", "Bridgeport")) |>
    update_selection(dimension = where,
                     columns = c("region", "state", "city"),
                     old_values = c("1", "CT", "Bridgepor"),
                     new_values = c("1", "CT", "Bridgeport"))

  res <-
    structure(list(
      dimension = "where",
      old = c(
        region = "1",
        state = "CT",
        city = "Bridgepor"
      ),
      new = c(
        region = "1",
        state = "CT",
        city = "Bridgeport"
      )
    ), class = "record_update")

  expect_equal(updates[[1]], res)
  expect_equal(updates[[2]], res)
})