diff --git a/src/org/ohdsi/rabbitInAHat/ETLTestFrameWorkGenerator.java b/src/org/ohdsi/rabbitInAHat/ETLTestFrameWorkGenerator.java index 690a5880..5f321a44 100644 --- a/src/org/ohdsi/rabbitInAHat/ETLTestFrameWorkGenerator.java +++ b/src/org/ohdsi/rabbitInAHat/ETLTestFrameWorkGenerator.java @@ -50,6 +50,9 @@ private static void createDeclareTestFunction(List r) { r.add("declareTest <- function(id, description) {"); r.add(" assign(\"testId\", id, envir = globalenv()) "); r.add(" assign(\"testDescription\", description, envir = globalenv()) "); + r.add(" sql <- c(\"\", paste0(\"-- \", id, \": \", description))"); + r.add(" assign(\"insertSql\", c(get(\"insertSql\", envir = globalenv()), sql), envir = globalenv())"); + r.add(" assign(\"testSql\", c(get(\"testSql\", envir = globalenv()), sql), envir = globalenv())"); r.add("}"); r.add(""); }