tests/testthat/test-silicate-sanity.R

context("test-silicate-sanity")
sc0 <- SC0(minimal_mesh)
sc <- SC(minimal_mesh)
tri <- TRI(minimal_mesh)

test_that("SC0 round trip suite works", {
  expect_silent({
    ## these test had to be removed from silicate, because dep on anglr
    anglr::DEL(SC(sc0))
    plot(anglr::DEL(SC(sc0)))

    anglr::DEL(sc)
    plot(anglr::DEL(sc))
    
    
    anglr::DEL(SC(sc))
    plot(anglr::DEL(SC(sc)))
    
    
    anglr::DEL(SC(tri))
    plot(anglr::DEL(SC(tri)))
    
    DEL(sc0)
    plot(DEL(sc0))
    
    DEL(tri)
    plot(DEL(tri))
  })
})

Try the anglr package in your browser

Any scripts or data that you put into this service are public.

anglr documentation built on July 29, 2020, 9:06 a.m.