Revert to previous code

StuartWheater · StuartWheater · commit 194324d99c0d · 2025-06-29T13:05:16.000+01:00
diff --git a/tests/testthat/dstest_functions/ds_expect_variables.R b/tests/testthat/dstest_functions/ds_expect_variables.R
@@ -13,5 +13,9 @@
 #
 
 ds_expect_variables <- function(expected.variables) {
-    return (TRUE)
+    studies.current.varables <- ds.ls()
+
+    for (study.current.varables in studies.current.varables) {
+        expect_setequal(study.current.varables$objects.found, expected.variables)
+    }
 }

Original file line number	Diff line number	Diff line change
`@@ -13,5 +13,9 @@`
`13`	`13`	`#`
`14`	`14`
`15`	`15`	`ds_expect_variables <- function(expected.variables) {`
`16`		`- return (TRUE)`
	`16`	`+ studies.current.varables <- ds.ls()`
	`17`	`+`
	`18`	`+ for (study.current.varables in studies.current.varables) {`
	`19`	`+ expect_setequal(study.current.varables$objects.found, expected.variables)`
	`20`	`+ }`
`17`	`21`	`}`