Unit Tests.R

library(testthat)
library(tidyverse)
library(yaml)

source("common.R")

test_dataset_raw <- data.frame(
  numeric_field = c(10, 20, 30, 40, 50),
  string_field = c("apple", "banana", "cherry", "date", "elderberry"),
  options_field = c("opt1", "opt2", "opt1", "opt3", "opt2"),
  restricted_field = c(15, 25, 20, 20, 20)
)

test_dataset_csv <- read.csv("/Users/abteen/Desktop/sample_data_notvalid.csv")

test_fields_raw <- list(
  list(field = "numeric_field", type = "numeric", required = TRUE, NA_allowed = FALSE),
  list(field = "string_field", type = "string", required = TRUE, NA_allowed = TRUE, format = "uncapitalized"),
  list(field = "options_field", type = "options", required = TRUE, options = c("opt1", "opt2"), NA_allowed = FALSE),
  list(field = "restricted_field", type = "restricted", required = TRUE, lowerlimit = 10, upperlimit = 50, NA_allowed = FALSE)
)

fields_yaml <- yaml::yaml.load_file("data_specifications/samplestudy_sampleformat.yaml")

test_that("ValidateRestricted works correctly", {
  expect_false(validate_dataset_field(test_dataset_csv, fields_yaml))
})

cat("All unit tests completed successfully!\n")