tests/testthat/test-camera.R

In cgvR: Interactive 3D Visualization of Large Cayley Graphs via Vulkan

test_that("cgv_camera sets position", {
  v <- cgv_viewer(320, 240, "test-cam", offscreen = TRUE)
  expect_no_error(
    cgv_camera(v,
               position = c(0, 5, 10),
               target = c(0, 0, 0),
               up = c(0, 1, 0))
  )
  cgv_close(v)
})

test_that("cgv_camera uses defaults", {
  v <- cgv_viewer(320, 240, "test-cam-def", offscreen = TRUE)
  expect_no_error(cgv_camera(v))
  cgv_close(v)
})

test_that("cgv_fly_to warns without graph", {
  v <- cgv_viewer(320, 240, "test-fly", offscreen = TRUE)
  expect_warning(cgv_fly_to(v, node_id = 1L, duration = 0.5),
                 "no positions")
  cgv_close(v)
})

test_that("cgv_camera_mode switches modes", {
  v <- cgv_viewer(320, 240, "test-mode", offscreen = TRUE)
  expect_no_error(cgv_camera_mode(v, "fly"))
  expect_no_error(cgv_camera_mode(v, "orbit"))
  cgv_close(v)
})

test_that("cgv_fly_path accepts waypoints", {
  v <- cgv_viewer(320, 240, "test-path", offscreen = TRUE)
  pts <- matrix(c(0,0,0, 1,1,1, 2,0,0), ncol = 3, byrow = TRUE)
  expect_no_error(cgv_fly_path(v, pts, duration = 2.0, loop = FALSE))
  cgv_close(v)
})

test_that("cgv_fly_path rejects bad input", {
  v <- cgv_viewer(320, 240, "test-path-bad", offscreen = TRUE)
  expect_error(cgv_fly_path(v, matrix(1:4, ncol = 2)))
  expect_warning(cgv_fly_path(v, matrix(c(1,2,3), ncol = 3)))
  cgv_close(v)
})

test_that("cgv_fly_path accepts data.frame coerced to matrix", {
  v <- cgv_viewer(320, 240, "test-path-df", offscreen = TRUE)
  pts <- data.frame(x = c(0, 1, 2), y = c(0, 1, 0), z = c(0, 0, 1))
  expect_no_error(cgv_fly_path(v, pts, duration = 1.0))
  cgv_close(v)
})

test_that("cgv_fly_path supports loop = TRUE", {
  v <- cgv_viewer(320, 240, "test-path-loop", offscreen = TRUE)
  pts <- matrix(c(0,0,0, 1,1,1, 2,0,0, 0,0,0), ncol = 3, byrow = TRUE)
  expect_no_error(cgv_fly_path(v, pts, duration = 2.0, loop = TRUE))
  cgv_close(v)
})

test_that("cgv_fly_to works after cgv_set_graph", {
  v <- cgv_viewer(320, 240, "test-fly-ok", offscreen = TRUE)
  cgv_set_graph(v, nodes = 1:3,
                edges = matrix(c(1L, 2L, 2L, 3L), ncol = 2),
                positions = matrix(c(0,0,0, 1,1,0, 2,0,0), ncol = 3, byrow = TRUE))
  expect_no_error(cgv_fly_to(v, node_id = 2L, duration = 0.5))
  cgv_close(v)
})

test_that("cgv_camera_mode rejects unknown mode (heavy: needs viewer)", {
  v <- cgv_viewer(320, 240, "test-mode-bad", offscreen = TRUE)
  expect_error(cgv_camera_mode(v, "spin"))
  cgv_close(v)
})