tests/testthat/test-standard.R

In sfcurve: 2x2, 3x3 and Nxn Space-Filling Curves

library(testthat)

test_that("test standard curves", {
	loc1 = hilbert_curve(2, by = "Cpp")
	loc2 = hilbert_curve(2, by = "R")
	expect_equal(loc1, loc2)

	loc1 = hilbert_curve(3, by = "Cpp")
	loc2 = hilbert_curve(3, by = "R")
	expect_equal(loc1, loc2)

	loc1 = hilbert_curve(4, by = "Cpp")
	loc2 = hilbert_curve(4, by = "R")
	expect_equal(loc1, loc2)

	loc1 = peano_curve(2, by = "Cpp")
	loc2 = peano_curve(2, by = "R")
	expect_equal(loc1, loc2)

	loc1 = peano_curve(3, by = "Cpp")
	loc2 = peano_curve(3, by = "R")
	expect_equal(loc1, loc2)

	loc1 = peano_curve(4, by = "Cpp")
	loc2 = peano_curve(4, by = "R")
	expect_equal(loc1, loc2)
})