Delete test_framework.R

core/src/endocrine/test_framework.R

@@ -1,115 +0,0 @@
-# --- Minimal Test Framework ---
-# Dependency-free assertion harness for the endocrine / Drive-Box R reference track.
-# No external packages (no testthat) so it runs under a bare r-base-core install.
-#
-# Usage in a test_*.R file:
-#   source("src/endocrine/test_framework.R")
-#   source("src/endocrine/driver_<name>.R")
-#   test_case("does the thing", function() {
-#     expect_equal(f(2), 4)
-#     expect_true(is_alive(state))
-#   })
-#   test_summary()        # prints results and quits with status 0 (all pass) or 1 (any fail)
-#
-# All source() paths are repo-root-relative; run from the repository root
-# (run_tests.sh handles the cd).
-
-.TEST <- new.env()
-.TEST$pass <- 0L
-.TEST$fail <- 0L
-.TEST$failures <- character(0)
-.TEST$current <- "(top level)"
-
-.record_pass <- function() {
-  .TEST$pass <- .TEST$pass + 1L
-}
-
-.record_fail <- function(msg) {
-  .TEST$fail <- .TEST$fail + 1L
-  full <- sprintf("[%s] %s", .TEST$current, msg)
-  .TEST$failures <- c(.TEST$failures, full)
-  cat(sprintf("  FAIL: %s\n", full))
-}
-
-# Assert two values are equal. Numerics compared within tolerance; everything
-# else with identical().
-expect_equal <- function(actual, expected, tol = 1e-9, label = "") {
-  ok <- FALSE
-  if (is.numeric(actual) && is.numeric(expected) &&
-      length(actual) == length(expected)) {
-    ok <- all(abs(actual - expected) <= tol)
-  } else {
-    ok <- identical(actual, expected)
-  }
-  if (isTRUE(ok)) {
-    .record_pass()
-  } else {
-    .record_fail(sprintf("%sexpected %s, got %s",
-                         if (nzchar(label)) paste0(label, ": ") else "",
-                         format(expected), format(actual)))
-  }
-  invisible(ok)
-}
-
-expect_true <- function(cond, label = "") {
-  if (isTRUE(cond)) {
-    .record_pass()
-  } else {
-    .record_fail(sprintf("%sexpected TRUE, got %s",
-                         if (nzchar(label)) paste0(label, ": ") else "",
-                         format(cond)))
-  }
-  invisible(isTRUE(cond))
-}
-
-expect_false <- function(cond, label = "") {
-  if (identical(cond, FALSE)) {
-    .record_pass()
-  } else {
-    .record_fail(sprintf("%sexpected FALSE, got %s",
-                         if (nzchar(label)) paste0(label, ": ") else "",
-                         format(cond)))
-  }
-  invisible(identical(cond, FALSE))
-}
-
-# Assert that evaluating expr raises an R error.
-expect_error <- function(expr, label = "") {
-  raised <- FALSE
-  tryCatch(
-    force(expr),
-    error = function(e) { raised <<- TRUE }
-  )
-  if (raised) {
-    .record_pass()
-  } else {
-    .record_fail(sprintf("%sexpected an error, none raised",
-                         if (nzchar(label)) paste0(label, ": ") else ""))
-  }
-  invisible(raised)
-}
-
-# Group assertions under a description. Errors thrown inside body count as a
-# failure rather than aborting the whole test file.
-test_case <- function(desc, body) {
-  prev <- .TEST$current
-  .TEST$current <- desc
-  cat(sprintf("- %s\n", desc))
-  tryCatch(
-    body(),
-    error = function(e) .record_fail(sprintf("unexpected error: %s", conditionMessage(e)))
-  )
-  .TEST$current <- prev
-  invisible(NULL)
-}
-
-# Print the tally and exit with a CI-friendly status code.
-test_summary <- function() {
-  cat(sprintf("\nRESULT: PASS %d / FAIL %d\n", .TEST$pass, .TEST$fail))
-  if (.TEST$fail > 0L) {
-    cat("Failures:\n")
-    for (f in .TEST$failures) cat(sprintf("  - %s\n", f))
-    quit(save = "no", status = 1L)
-  }
-  quit(save = "no", status = 0L)
-}