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

In jl5000/tidygedcom: Handle GEDCOM Files Using Tidyverse Principles

# Generated by roxytest: Do not edit by hand!

# File R/family_events.R: @tests

test_that("Function add_famg_event() @ L59", {
  expect_snapshot_value(gedcom(subm("Me")) |> 
   add_indi(qn = "Joe Bloggs", sex = "M") |> 
   add_indi(qn = "Jess Bloggs", sex = "F") |> 
   add_indi(qn = "Jessie Bloggs", sex = "F") |> 
   add_famg(husband = "@I1@", wife = "@I2@", children = "@I3@") |> 
   add_famg_event(type = "rel", 
                  date = date_calendar(year = 1969, month = 1, day = 30),
                  event_place = place(name = "Another place")) |> 
   remove_dates_for_tests(), "json2")
})