# Generated by roxytest: Do not edit by hand!
# File R/source.R: @tests
test_that("Function add_sour_repo_citation() @ L103", {
expect_snapshot_value(
gedcom(subm("Me")) |>
add_repo(name = "The library") |>
add_sour() |>
add_sour_repo_citation("@R1@") |>
remove_dates_for_tests(), "json2")
})
test_that("Function remove_sour_repo_citation() @ L138", {
expect_equal(gedcom(subm("Me")) |>
add_repo(name = "The library") |>
add_sour() |>
remove_dates_for_tests(),
gedcom(subm("Me")) |>
add_repo(name = "The library") |>
add_sour() |>
add_sour_repo_citation("@R1@") |>
remove_sour_repo_citation("@R1@") |>
remove_dates_for_tests())
})
test_that("Function remove_sour() @ L159", {
expect_equal(gedcom(subm()),
gedcom(subm()) |> add_sour(title = "text") |> remove_sour())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.