tests/testthat/test-utils.R

In OpenRepGrid: Tools to Analyze Repertory Grid Data

test_that("stop_if_not_in_element_range", {
  expect_no_error({
    stop_if_not_in_element_range(boeker, 1)
    stop_if_not_in_element_range(boeker, "self")
  })

  expect_error(stop_if_not_in_element_range(boeker, -1))
  expect_error(stop_if_not_in_element_range(boeker, 16))
  expect_error(stop_if_not_in_element_range(boeker, NA))
  expect_error(stop_if_not_in_element_range(boeker, "xxx"))
  expect_error(stop_if_not_in_element_range(boeker, 1.1))
})


test_that("fortify_element_*", {
  x <- boeker
  nr <- nrow(x)
  ee <- elements(x)
  for (i in seq_len(nr)) {
    e <- ee[i]
    expect_equal(fortify_element_id(x, i), i)
    expect_equal(fortify_element_id(x, e), i)
    expect_equal(fortify_element_name(x, i), e)
    expect_equal(fortify_element_name(x, e), e)
  }

  expect_error(fortify_element_id(x, -1))
  expect_error(fortify_element_name(x, "xxx"))
})


test_that("get_names_na*", {
  l1 <- as.list(1:3)
  expect_equal(get_names_na(l1), rep(NA_character_, 3))

  l2 <- list(a = 1, b = 2, 3)
  expect_equal(get_names_na(l2), c("a", "b", NA))

  l3 <- setNames(list(1, 2, 3), c("x", "", "z"))
  expect_equal(get_names_na(l3), c("x", NA, "z"))
})