tests/testthat/test-data_dimmension.R

In gabrielpreda/mesh2D: Load a 2D mesh file and display it in a 2D frame

test_that("data has right dimmensions", {

  dat <- mesh2D::readMeshFileATLAS("../../data/pre_geom2D.atl")
  nNodes = 207
  nElements = 224

  expect_equal(dat$dim[1],nNodes)
  expect_equal(dat$dim[2],nElements)
  expect_equal(length(dat$nodes),nNodes)
  expect_equal(length(dat$elements),nElements)

})