tests/testthat/test-test_of_column_names_in_data.R

In vonshick/Tidyverse-Data-Pipeline: What the Package Does (One Line, Title Case)

test_that("Check if required columns are present in class dataset", {
  data_sets_list <- get_raw_data_sets()

  expect_true(
    all(
      c("id", "name", "teaching_hours") %in% colnames(data_sets_list$class)
    )
  )
})

test_that("Check if required columns are present in test_level dataset", {
  data_sets_list <- get_raw_data_sets()

  expect_true(
    all(
      c("id", "displayName", "created_at") %in% colnames(data_sets_list$test_level)
    )
  )
})

test_that("Check if required columns are present in test dataset", {
  data_sets_list <- get_raw_data_sets()

  expect_true(
    all(
      c("id", "created_at", "authorized_at", "test_level_id", "overall_score") %in% colnames(data_sets_list$test)
    )
  )
})