tests/testthat/test-import_events_csv.R

test_that("import events CSV  works", {
  # reset env
  setup_new_env()

  import_events_csv("./csv/import_events_csv/to_import_1.csv",
                    "PERSON",
                    "TIMESTAMP",
                    "TITLE")

  expect_equal(model_state_equal("./csv/import_events_csv/after1"), TRUE)

})

test_that("import events CSV works when import twice", {
  # reset env
  setup_new_env()

  # import twice
  import_events_csv("./csv/import_events_csv/to_import_2.csv",
                    "PERSON",
                    "TIMESTAMP",
                    "TITLE")
  import_events_csv("./csv/import_events_csv/to_import_2.csv",
                    "PERSON",
                    "TIMESTAMP",
                    "TITLE")

  expect_equal(model_state_equal("./csv/import_events_csv/after2"), TRUE)
})
test_that("import events CSV works and fill descriptions", {
  # reset env
  setup_new_env()

  # import
  import_events_csv(
    "./csv/import_events_csv/to_import_3.csv",
    "stat_unit",
    "date",
    "tag",
    c("context", "location"),
    date_format_reg = "ymd-HM"
  )

  expect_equal(model_state_equal("./csv/import_events_csv/after3"), TRUE)
})
test_that("import events CSV works and fill descriptions with ';' separator", {
  # reset env
  setup_new_env()

  # import
  import_events_csv(
    "./csv/import_events_csv/to_import_4.csv",
    "stat_unit",
    "date",
    "tag",
    c("context", "location"),
    date_format_reg = "ymd-HM",
    delim = ";"
  )

  # should be the same as the 3rd
  expect_equal(model_state_equal("./csv/import_events_csv/after3"), TRUE)
})
test_that("import events CSV works when importing different date formats", {

  # expected
  expected <- quiet_read_csv(
      file = "./csv/import_events_csv/date/after.csv",
      col_types = readr::cols("hash" = "i")
  )$result

  # import ymd-HM
  setup_new_env()
  import_events_csv(
    "./csv/import_events_csv/date/before-ymd-HM.csv",
    date_format_reg = "ymd-HM"
  )

  expect_equal(
    dplyr::all_equal(expected,
      analysr_env$events), TRUE)

  # import dmy-HMS
  setup_new_env()
  import_events_csv(
    "./csv/import_events_csv/date/before-dmy-HMS.csv",
    date_format_reg = "dmy-HMS"
  )

  expect_equal(
    dplyr::all_equal(expected,
      analysr_env$events), TRUE)

  # import dmy-HMS, force_date_format = TRUE
  setup_new_env()
  import_events_csv(
    "./csv/import_events_csv/date/before-dmy-HMS.csv",
    date_format_reg = "dmy-HMS",
    force_date_format = TRUE
  )

  expect_equal(
    dplyr::all_equal(expected,
                     analysr_env$events), TRUE)
})
RADS-project/analysr-git-test documentation built on Feb. 13, 2022, 8:13 a.m.