tests/testthat/test-roxytest-tests-utils.R

In jl5000/tidyged.utils: Utilities to Manage GEDCOM Files Using Tidyverse Principles

# Generated by roxytest: Do not edit by hand!

# File R/utils.R: @tests

test_that("Function identify_unused_records() @ L21", {
  expect_equal(tidyged::gedcom() |> tidyged::add_indi() |> tidyged::add_famg() |> identify_unused_records(),
               c("@I1@","@F1@"))
})


test_that("Function remove_change_dates() @ L76", {
  expect_snapshot_value(tidyged::sample555 |> tidyged::add_indi() |> remove_change_dates(), "json2")
})


test_that("Function split_gedcom() @ L141", {
  expect_snapshot_value(split_gedcom(tidyged::sample555, c("@I1@","@S1@")), "json2")
})