tests/testthat/test-arch.R

test_that("Rope reduction to elliptical arch",
          {
            ROPE <- 50000
            value <- arch(ROPE, digits = 4)
            expect_equal(arch(ROPE, digits = 4), value)
            }
          )
diegoalarc/GeodesiCL documentation built on July 24, 2022, 9:14 p.m.