From e7e29694ab14aba8e8ee2d5241afa54f66ed00ce Mon Sep 17 00:00:00 2001
From: James Cherry <cherry@parallaxsw.com>
Date: Fri, 8 Mar 2024 10:06:53 -0700
Subject: [PATCH] record_sta_tests

Signed-off-by: James Cherry <cherry@parallaxsw.com>
---
 test/regression_vars.tcl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/test/regression_vars.tcl b/test/regression_vars.tcl
index 99d6f545..8509e04a 100644
--- a/test/regression_vars.tcl
+++ b/test/regression_vars.tcl
@@ -55,7 +55,18 @@ proc record_test { test cmd_dir } {
   return $test
 }
 
-# Record a test in the $STA/examples directory.
+# Record tests in the $STA/test directory.
+proc record_sta_tests { tests } {
+  global test_dir
+  foreach test $tests {
+    # Prune commented tests from the list.
+    if { [string index $test 0] != "#" } {
+      record_test $test $test_dir
+    }
+  }
+}
+
+# Record tests in the $STA/examples directory.
 proc record_example_tests { tests } {
   global test_dir test_groups
   set example_dir [file join $test_dir ".." "examples"]
@@ -110,4 +121,7 @@ record_example_tests {
   power_vcd
 }
 
+record_sta_tests {
+}
+
 define_test_group fast [group_tests all]