tests/testthat/test_pc_controls.R

In MilesMcBain/r2vr: Compose and Serve WebVR Scenes

context("test PC Controls Class")

test_that("PC controlled camera can render correctly", {

  my_cam <- a_pc_control_camera(position = c(0,0,-2))

  expect_equal({
    my_cam$render()
  },
  {
    "<a-entity id=\"rig\" movement-controls=\"fly: true; easingY: 15; acceleration: 100;\" position=\"0 0 -2\">\n  <a-entity camera position=\"0 1.6 0\" look-controls=\"pointerLockEnabled: true;\"></a-entity>\n</a-entity>\n"
  })
  })