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")
)
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.