test_that("ppp_n() works", {
  expect_no_error(
    withr::with_seed(
      12345,
      df1 <- ppp_n(size = 10, range_t = c(0, 10))
    )
  )
  check_ppp_sample_validity(times = df1, t_min = 0, t_max = 10, size = 10)
  # check rstream
  S1 <- methods::new("rstream.mrg32k3a")
  expect_no_error(df2 <- ppp_n(size = 10, range_t = c(0, 10), rng_stream = S1))
  check_ppp_sample_validity(times = df2, t_min = 0, t_max = 10, size = 10)

  # # check RNGClass
  # expect_no_error(S2 <- readRDS(file.path("example_RNGCLass.rds"))$unpack())
  # expect_no_error(df3 <- ppp_n(size = 10, range_t = c(0, 10), rng_stream = S2))
  # check_ppp_sample_validity(times = df3, t_min = 0, t_max = 10, size = 10)
})