test_that("can delete multiple pins", {
  board <- board_temp()
  board |> pin_write(1, "x")
  board |> pin_write(2, "y")

  board |> pin_delete(c("x", "y"))
  expect_equal(board |> pin_list(), character())
})