tests/testthat/test-utils.R

In dtsonipmph/esquisse: Explore and Visualize Your Data Interactively

context("test-utils")

test_that("badgeType works", {
  
  badges <- badgeType(
    col_name = c("discrete", "time", "continuous", "id"), 
    col_type = c("discrete", "time", "continuous", "id")
  )
  
  expect_length(badges, 4)
  expect_true(grepl(pattern = "label-discrete", x = badges[[1]]))
  expect_true(grepl(pattern = "label-datetime", x = badges[[2]]))
  expect_true(grepl(pattern = "label-continue", x = badges[[3]]))
  expect_true(grepl(pattern = "label-default", x = badges[[4]]))
})




test_that("get_df works", {
  dat1 <- get_df("DONT_EXIST")
  expect_null(dat1)
  
  dat2 <- get_df("mpg")
  expect_is(dat2, "data.frame")
  
  my_data <- data.frame(x = letters, y = 1:26)
  e <- new.env()
  assign("my_data", my_data, envir = e)
  dat3 <- get_df("my_data", env = e)
  expect_is(dat3, "data.frame")
})


test_that("search_obj works", {
  
  e <- new.env()
  
  no_df <- esquisse:::search_obj(env = e)
  expect_null(no_df)
  
  data("economics", package = "ggplot2")
  assign("economics", economics, envir = e)
  one_df <- esquisse:::search_obj(env = e)
  expect_length(one_df, 1)
  
  assign("my_vec", 1:10, envir = e)
  still_one_df <- esquisse:::search_obj(env = e)
  expect_length(still_one_df, 1)
  
})



test_that("col_type works", {
  
  discrete <- esquisse:::col_type(x = letters)
  expect_identical(discrete, "discrete")
  
  id <- esquisse:::col_type(x = as.character(1:100))
  expect_identical(id, "id")
  
  continuous <- esquisse:::col_type(x = rnorm(10))
  expect_identical(continuous, "continuous")
  
})