# 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))
})