tests/testthat/test-defunct.R

In trevorld/piecepack: Board Game Graphics

test_that("Defunct functions throw errors", {
    skip_on_ci()

    expect_error(checkersGrob(shape = "convex8", col = "purple"),
                 class = "defunctError")
    expect_error(concaveGrobFn(3, 90),
                 class = "defunctError")
    expect_error(convexGrobFn(3, 90),
                 class = "defunctError")
    expect_error(get_shape_grob_fn("rect"),
                 class = "defunctError")
    expect_error(gridlinesGrob(col = "black", shape = "rect"),
                 class = "defunctError")
    expect_error(halmaGrob(),
                 class = "defunctError")
    expect_error(hexlinesGrob(shape = "rect", col = "transparent"),
                 class = "defunctError")
    expect_error(kiteGrob(),
                 class = "defunctError")
    expect_error(matGrob(col = "black", shape = "convex3"),
                 class = "defunctError")
    expect_error(pyramidGrob(),
                 class = "defunctError")
})