tests/testthat/test-list_return.R

In densityarea: Polygons of Bivariate Density Distributions

test_that("`density_polygons()` returns a list data frame when asked", {
  set.seed(10)
  x <- rnorm(100)
  y <- rnorm(100)
  output <- densityarea::density_polygons(x = x, y = y, as_list = T)
  expect_type(output,"list")
  expect_s3_class(output, NA)
  expect_s3_class(output[[1]], "data.frame")
})


test_that("`density_polygon()` returns data frame by default", {
  set.seed(10)
  x <- rnorm(100)
  y <- rnorm(100)
  output <- densityarea::density_polygons(x = x, y = y)
  expect_s3_class(output,"data.frame")
})


test_that("`density_area()` returns list by when asked", {
  set.seed(10)
  x <- rnorm(100)
  y <- rnorm(100)
  output <-   densityarea::density_area(x = x, y = y, as_list = T)
  expect_type(output,"list")
  expect_s3_class(output, NA)
  expect_s3_class(output[[1]], "data.frame")
})


test_that("`density_area()` returns a data frame by default", {
  set.seed(10)
  x <- rnorm(100)
  y <- rnorm(100)
  output <-   densityarea::density_area(x = x, y = y)
  expect_s3_class(output, "data.frame")
})