# 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))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.