feat: allow passing data to subtests

Author: KyleKincer

README.md

@@ -68,7 +68,7 @@ tool4d --project YourProject.4DProject --startup-method "test" --user-param "tag
 
 ## Table-Driven Tests
 
-Use subtests to build table-driven tests. Each call to `t.run` executes the provided function with a fresh testing context. If a subtest fails, the parent test is marked as failed. Subtests run with the same `This` object as the parent test, so helper methods and state remain accessible.
+Use subtests to build table-driven tests. Each call to `t.run` executes the provided function with a fresh testing context. If a subtest fails, the parent test is marked as failed. Subtests run with the same `This` object as the parent test, so helper methods and state remain accessible. Pass optional data as the third argument when the test logic lives in a separate method.
 
 ```4d
 Function test_math($t : cs.Testing)
@@ -77,8 +77,11 @@ Function test_math($t : cs.Testing)
 
     var $case : Object
     For each ($case; $cases)
-        $t.run($case.name; Formula($1.assert.areEqual($1; $case.want; $case.in+1; "math works")))
+        $t.run($case.name; This._checkMathCase; $case)
     End for each
+
+Function _checkMathCase($t : cs.Testing; $case : Object)
+    $t.assert.areEqual($t; $case.want; $case.in+1; "math works")
 ```
 
 ## Output

docs/guide.md

@@ -755,7 +755,7 @@ For each test class, the framework executes lifecycle methods in this order:
 
 ## Table-Driven Tests
 
-Use subtests to implement table-driven tests. The `t.run` method executes a named subtest with a fresh testing context. If a subtest fails, the parent test is marked as failed and the subtest's log messages are prefixed with its name. Subtests share the same `This` object as the parent test, so any instance methods or state remain available.
+Use subtests to implement table-driven tests. The `t.run` method executes a named subtest with a fresh testing context. If a subtest fails, the parent test is marked as failed and the subtest's log messages are prefixed with its name. Subtests share the same `This` object as the parent test, so any instance methods or state remain available. Pass optional data as the third argument when using a helper method for the subtest logic.
 
 ```4d
 Function test_math_operations($t : cs.Testing.Testing)
@@ -764,8 +764,11 @@ Function test_math_operations($t : cs.Testing.Testing)
 
     var $case : Object
     For each ($case; $cases)
-        $t.run($case.name; Formula($1.assert.areEqual($1; $case.want; $case.in+1; "math works")))
+        $t.run($case.name; This._checkMathCase; $case)
     End for each
+
+Function _checkMathCase($t : cs.Testing.Testing; $case : Object)
+    $t.assert.areEqual($t; $case.want; $case.in+1; "math works")
 ```
 
 ## Transaction Management

testing/Project/Sources/Classes/Testing.4dm

@@ -37,7 +37,7 @@ Function resetForNewTest()
 	This:C1470.stats.resetStatistics()
 	This:C1470.failureCallChain:=Null
 
-Function run($name : Text; $subtest : 4D:C1709.Function) : Boolean
+Function run($name : Text; $subtest : 4D:C1709.Function; $data : Variant) : Boolean
         // Execute a named subtest with its own Testing context
         // Returns true if the subtest passed
 
@@ -63,7 +63,13 @@ Function run($name : Text; $subtest : 4D:C1709.Function) : Boolean
         If ($context=Null:C1517)
                 $context:=This:C1470
         End if
-        $subtest.apply($context; [$subT])
+
+        var $args : Collection
+        $args:=[$subT]
+        If (Count parameters>=3)
+                $args.push($data)
+        End if
+        $subtest.apply($context; $args)
 
         // Propagate log messages with subtest name prefix
         var $message : Text

testing/Project/Sources/Classes/_TestingTest.4dm

@@ -151,3 +151,33 @@ Function _setContextChild($t : cs:C1710.Testing)
         $t.log("running")
         This.contextValue:="child"
 
+Function test_run_with_data_argument($t : cs:C1710.Testing)
+
+        var $testing : cs:C1710.Testing
+        $testing:=cs:C1710.Testing.new()
+
+        var $cases : Collection
+        $cases:=[\
+                New object("name"; "ok"; "in"; 1; "want"; 2);\
+                New object("name"; "bad"; "in"; 2; "want"; 4)\
+        ]
+
+        var $case : Object
+        For each ($case; $cases)
+                $testing.run($case.name; This._addOneCase; $case)
+        End for each
+
+        $t.assert.areEqual($t; 2; $testing.logMessages.length; "Should log each case")
+        $t.assert.areEqual($t; "ok: 2"; $testing.logMessages[0]; "Should prefix log with case name")
+        $t.assert.areEqual($t; "bad: 3"; $testing.logMessages[1]; "Should prefix log with case name")
+        $t.assert.isTrue($t; $testing.failed; "Parent should fail if any case fails")
+
+Function _addOneCase($t : cs:C1710.Testing; $case : Object)
+
+        var $got : Integer
+        $got:=$case.in+1
+        $t.log(String($got))
+        If ($got#$case.want)
+                $t.fail()
+        End if
+