tests/testthat/test-legacy_board.R

In pins: Pin, Discover and Share Resources

test_that("good errors when use modern board with legacy api", {
  expect_snapshot(error = TRUE, {
    board <- board_temp()
    pin(mtcars, "mtcars", board = board)
    pin_get("mtcars", board = board)
    pin_find("mtcars", board = board)
    pin_versions("mtcars", board)
    board_browse(board)
  })

  expect_equal(2 * 2, 4)
})