tests/testthat/test-execute_render.R

In mikemahoney218/mvdf: A Minimum Viable Data Format for 3D Rendering via Blender

test_that("execute_render stops on failure", {
  skip_on_cran()
  skip_on_os("mac")
  skip_on_os("windows")
  trunk <- mvdf_obj(x = 0, y = 0, z = 5)
  expect_error(
    execute_render(
      add_blender_endmatter(
        filepath = "tree.blend",
        add_mesh_primitive(
          create_blender_frontmatter(),
          trunk,
          "this_is_nothing",
          depth = 10
        )
      ),
      flags = "-noaudio",
      addons = "add_curve_sapling"
    )
  )
})