Nothing
dbpath <- rbedrock_example_world("example1.mcworld")
db <- bedrockdb(dbpath)
as_raw <- function(...) {
as.raw(c(...))
}
test_that("Data2D is chunk tag 45", {
expect_equal(chunk_tag_int("Data2D"), 45L)
expect_equal(chunk_tag_str(45L), "Data2D")
})
test_that("write_data2d_value() accepts 1 parameter.", {
res <- as_raw(rep(c(63, 0), 256), rep(10, 256))
expect_equal(
write_data2d_value(
list(
height_map = rep(63, 256),
biome_map = rep(10, 256)
)
),
res
)
expect_equal(write_data2d_value(NULL), NULL)
expect_error(write_data2d_value(list()))
})
test_that("write_data2d_value() accepts 2 parameters.", {
res <- as_raw(rep(c(63, 0), 256), rep(10, 256))
expect_equal(
write_data2d_value(
rep(63, 256), rep(10, 256)
),
res
)
expect_equal(write_data2d_value(NULL, NULL), NULL)
})
test_that("write_data2d_value() recycles parameters.", {
res <- as_raw(rep(c(63, 0), 256), rep(10, 256))
expect_equal(
write_data2d_value(
list(height_map = 63, biome_map = 10)
),
res
)
expect_equal(write_data2d_value(63, 10), res)
expect_error(write_data2d_value(c(63, 4), 10))
expect_error(write_data2d_value(63, c(9, 10)))
})
close(db)
fs::dir_delete(dbpath)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.