tests/testthat/test-obj.R

In piecepackr/piecepackr3d: 3D Board Game Graphics

cfg <- piecepackr::game_systems("dejavu3d")$piecepack
test_that("write_obj works", {
    files <- write_obj("tile_face", cfg = cfg)
    expect_length(files, 3)
})

test_that("save_3d_textures works", {
    dir <- tempfile()
    dir.create(dir)
    save_3d_textures(cfg, dir)
    expect_length(list.files(dir), 56)
    unlink(dir)
})