tests/testthat/test_dp_loadsave.r

In diffrprojects: Projects for Text Version Comparison and Analytics in R

context("\ndp_loadsave")

context("dp_loadsave : loaded equals saved")

test_that("loaded equals saved", {
  dp <-
    diffrproject$new()$
    text_add(list("aaa\nbb\ncccc\ndd\nee\nff\ny\n", "bb\ncccd\ndd\nddd\nee\nff\n"))$
    text_link()$
    text_align( maxDist = 1 )$
    alignment_code(1,1:24, "wuppah", 1)$
    alignment_code(1,c(3,8,9,11), "womppah", 1)$
    debug()

  dp$text_code_regex(text=1, x="a", pattern="a", val=TRUE)
  dp$text_code_regex(text=2, x="b", pattern="[^a]", val=TRUE)

  dp$text_data_inherit()

  dp_orig <- dp$clone(deep=TRUE)

  save_file <- tempfile()
  dp$save(file=save_file)

  dp_loaded <- diffrproject$new()
  dp_loaded$load(file=save_file)

  expect_true({
    dp_orig$meta$ts_created == dp_loaded$meta$ts_created
  })
  expect_true({dp_orig$meta$db_path    == dp_loaded$meta$db_path })
  expect_true({dp_orig$meta$file_path  == dp_loaded$meta$file_path })
  expect_true({dp_orig$meta$project_id == dp_loaded$meta$project_id })

  expect_true({
    rtext:::rtext_hash(
      dp_orig$alignment[[1]]
    ) ==
    rtext:::rtext_hash(
      dp_loaded$alignment[[1]]
    )
  })

  expect_true({
    rtext:::rtext_hash(
      dp_orig$alignment_data[[1]]
    ) ==
    rtext:::rtext_hash(
      dp_loaded$alignment_data[[1]]
    )
  })

  expect_true({
    dp_orig$text[[1]]$id == dp_loaded$text[[1]]$id
  })
  expect_true({
    dp_orig$text[[1]]$sourcetype == dp_loaded$text[[1]]$sourcetype
  })
  expect_true({
    dp_orig$text[[1]]$encoding == dp_loaded$text[[1]]$encoding
  })
  expect_true({
    dp_orig$text[[1]]$save_file == dp_loaded$text[[1]]$save_file | is.na(dp_loaded$text[[1]]$save_file)
  })
  expect_true({
    dp_orig$text[[1]]$text_file == dp_loaded$text[[1]]$text_file | is.na(dp_loaded$text[[1]]$text_file)
  })
  expect_true({
    all(
      dp_orig$text[[1]]$get("char") == dp_loaded$text[[1]]$get("char")
    )
  })
  expect_true({
    rtext:::rtext_hash(
      dp_orig$text[[1]]$get("char_data")
    ) ==
      rtext:::rtext_hash(
      dp_loaded$text[[1]]$get("char_data")
    )
  })

})