# tests/testthat/test-Dist2Mat.R set.seed(4000) x = matrix(rnorm(100), nrow = 10) dx = dist(x) test_that("Dist2Mat gives similar results as as.matrix", { D2M = as.vector(Dist2Mat(dx)) as_matrix = as.vector(as.matrix(Dist2Mat(dx))) expect_equal(D2M, as_matrix) }) test_that("Dist2Mat gives similar results as as.matrix", { D2M = as.vector(Dist2Mat(dx)) as_matrix = as.vector(as.matrix(Dist2Mat(dx))) expect_equal(D2M, as_matrix) }) test_that("invalid dist", { dx1 = dx dx1[1] = NA test_cases = list(dx1, 1:100, as.matrix(c(1:99, NA))) for(i in seq_along(test_cases)){ expect_error(Dist2Mat(test_cases[[i]])) } }) test_that("Dist2Mat retains row names", { set.seed(59) x = matrix(rnorm(100), nrow = 10) rownames(x) = paste0("X", 1:10) dx = fastDist(x) d2m = Dist2Mat(dx) expect_equal(rownames(d2m), rownames(x)) expect_equal(colnames(d2m), rownames(x)) x = matrix(rnorm(100), nrow = 10) dx = fastDist(x) d2m = Dist2Mat(dx) expect_equal(rownames(d2m), as.character(1:10)) expect_equal(colnames(d2m), as.character(1:10)) })