tests/testthat/test-x11_hex.R

In DiagrammeR: Graph/Network Visualization

context("Getting a table of X11 color names and hexadecimal values")

test_that("a data frame X11 color names and hexadecimal values can be made", {

  # Get a data frame object containing X11 color names and hex values
  x11_hex_df <- x11_hex()

  # Expect an object of class "data.frame"
  expect_is(x11_hex_df, "data.frame")

  # Expect that the "x11_hex_df" data frame has 2 columns
  expect_true(ncol(x11_hex_df) == 2L)

  # Expect that the "x11_hex_df" data frame has 655 rows
  expect_true(nrow(x11_hex_df) == 655L)

  # Expect specific column names
  expect_true(all(colnames(x11_hex_df) == c("x11_name", "hex")))

  # Expect that both columns are of the "character" class
  expect_is(x11_hex_df[,1], "character")
  expect_is(x11_hex_df[,2], "character")

  # Expect that the color names are lowercased with no spaces
  expect_match(x11_hex_df[,1], "[a-z1-4]")

  # Expect that the hexadecimal color values are well-formed
  expect_match(x11_hex_df[,2], "^#[a-f0-9]{6}$")
})