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

In jl5000/tidyged: Handle GEDCOM Files Using Tidyverse Principles

# Generated by roxytest: Do not edit by hand!

# File R/family_group.R: @tests

test_that("Function remove_famg() @ L128", {
  expect_equal(gedcom(subm()) |> 
                 add_indi() |> 
                 add_indi() |> 
                 null_active_record(),
               gedcom(subm()) |> 
                 add_indi() |> 
                 add_indi() |> 
                 add_famg(husband = "@I1@", wife = "@I2@") |> 
                 remove_famg())
  expect_equal(gedcom(subm()),
               gedcom(subm()) |> 
                 add_indi() |> 
                 add_indi() |> 
                 add_famg(husband = "@I1@", wife = "@I2@") |> 
                 remove_famg(remove_individuals = TRUE))
})