tests/testthat/test-test_rename.R

In densityarea: Polygons of Bivariate Density Distributions

test_that("columns are renamed", {
  set.seed(10)
  alpha <- rnorm(100)
  beta <- rnorm(100)

  polygon_df <- densityarea::density_polygons(x = alpha,
                                              y = beta,
                                              as_list = FALSE)

  expect_in(
    c("alpha","beta"),
    names(polygon_df)
  )

})

test_that("columns are renamed and repaired", {
  set.seed(10)
  alpha <- rnorm(100)

  polygon_df <- densityarea::density_polygons(x = alpha,
                                              y = alpha,
                                              as_list = FALSE)

  expect_in(
    c("alpha...1","alpha...2"),
    names(polygon_df)
  )

})