tests/testthat/test_checksums.R

In rbedrock: Analysis and Manipulation of Data from Minecraft Bedrock Edition

dbpath <- rbedrock_example_world("example1.mcworld")
db <- bedrockdb(dbpath)

as_raw <- function(...) {
    as.raw(c(...))
}

test_that("Checksums is chunk tag 59", {
    expect_equal(chunk_tag_int("Checksums"), 59L)
    expect_equal(chunk_tag_str(59L), "Checksums")
})

test_that("get_checksums_data returns specific Checksums data", {
    keys <- c("chunk:36:16:0:59", "fake_data", "chunk:37:15:0:59")
    dat <- get_checksums_data(db, keys)
    expect_vector(dat, list(), 2L)
    expect_named(dat, keys[-2])
    for (i in seq_along(dat)) {
        expect_named(dat[[!!i]])
    }
})

test_that("get_checksums_value returns a single record", {
    dat <- get_checksums_value(db, "chunk:36:16:0:59")
    expect_vector(dat, character(), 7L)
    expect_named(dat)

    expect_error(get_checksums_value(db, c(
        "chunk:36:16:0:59",
        "chunk:37:15:0:59"
    )))
})

test_that("update_checksums_data works", {
    keys <- c("chunk:36:16:0:59", "chunk:37:15:0:59")
    original_dat <- get_checksums_data(db, keys)
    delete_values(db, keys)
    expect_equal(has_values(db, keys), setNames(c(FALSE, FALSE), keys))

    update_checksums_data(db, keys)
    dat <- get_checksums_data(db, keys)
    expect_named(dat, keys)
    for (k in keys) {
        expect_mapequal(dat[[!!k]], original_dat[[!!k]])
    }
})

test_that("update_checksums_data() handles missing data", {
    dat <- get_checksums_value(db, -10, -10, 0)
    expect_equal(dat, NULL)
    update_checksums_data(db, -10, -10, 0)
    dat <- get_checksums_value(db, -10, -10, 0)
    expect_equal(dat, character())
})

test_that("update_checksums_data() throws an error if filtering", {
    expect_error(update_checksums_data(db, c(
        "chunk:36:16:0:47:0",
        "chunk:37:15:0:59"
    )))
})

helper_checksum_impl <- function(x) {
    digest::digest(x, algo = "xxhash64", serialize = FALSE, raw = TRUE)
}

helper_checksum_as_raw <- function(x) {
    h <- strsplit(x, character(0L))[[1]]
    h <- paste(h[c(TRUE, FALSE)], h[c(FALSE, TRUE)], sep = "")
    as.raw(as.hexmode(rev(h)))
}

test_that("read_checksums_value decodes correctly", {
    correct_val <- c(
        "45" = helper_checksum_impl(as.raw(0:10)),
        "47:1" = helper_checksum_impl(as.raw(0:255))
    )
    raw_val <- as_raw(
        2, 0, 0, 0,
        45, 0, 0, helper_checksum_as_raw(correct_val[[1]]),
        47, 0, 1, helper_checksum_as_raw(correct_val[[2]])
    )
    res <- read_checksums_value(raw_val)
    expect_equal(res, correct_val)
})

test_that("write_checksums_value encodes correctly", {
    correct_val <- c(
        "45" = helper_checksum_impl(as.raw(0:10)),
        "47:1" = helper_checksum_impl(as.raw(0:255))
    )
    correct_raw <- as_raw(
        2, 0, 0, 0,
        45, 0, 0, helper_checksum_as_raw(correct_val[[1]]),
        47, 0, 1, helper_checksum_as_raw(correct_val[[2]])
    )
    res <- write_checksums_value(correct_val)
    expect_equal(res, correct_raw)
})

# 36:16:0

# clean up
close(db)
fs::dir_delete(dbpath)