Factor out unit test harness TCL, use for trTest and rcxUnitTest

Signed-off-by: Christopher D. Leary <[email protected]>

Author: cdleary

src/drt/test/gc_test.tcl

@@ -1,31 +1,3 @@
 source "helpers.tcl"
 
-set test_dir [pwd]
-set openroad_dir [file dirname [file dirname [file dirname $test_dir]]]
-set test_path [file join $openroad_dir "build" "src" "drt" "trTest"]
-
-set test_status [catch { exec sh -c "BASE_DIR=$test_dir $test_path" } output option]
-
-puts $test_status 
-puts $output 
-if { $test_status != 0 } {
-  set test_err_info [lassign [dict get $option -errorcode] err_type]
-  switch -exact -- $err_type {
-    NONE {
-      #passed
-    }
-    CHILDSTATUS {
-      # non-zero exit status
-      set exit_status [lindex $test_err_info 1]
-      puts "ERROR: test returned exit code $exit_status"
-      exit 1
-
-    }
-    default {
-      puts "ERROR: $option"
-      exit 1
-    }
-  }
-}
-puts "pass"
-exit 0
+run_unit_test_and_exit [list "build" "src" "drt" "trTest"]

src/rcx/test/rcx_unit_test.tcl

@@ -0,0 +1,3 @@
+source "helpers.tcl"
+
+run_unit_test_and_exit [list "build" "src" "rcx" "src" "rcxUnitTest"]

src/rcx/test/regression_tests.tcl

@@ -6,3 +6,6 @@ record_tests {
   45_gcd
   names
 }
+record_pass_fail_tests {
+  rcx_unit_test
+}

test/helpers.tcl

@@ -54,6 +54,38 @@ proc diff_files { file1 file2 } {
   }
 }
 
+proc run_unit_test_and_exit { relative_path } {
+  set test_dir [pwd]
+  set openroad_dir [file dirname [file dirname [file dirname $test_dir]]]
+  set test_path [file join $openroad_dir {*}$relative_path]
+
+  set test_status [catch { exec sh -c "BASE_DIR=$test_dir $test_path" } output option]
+
+  puts $test_status
+  puts $output
+  if { $test_status != 0 } {
+    set test_err_info [lassign [dict get $option -errorcode] err_type]
+    switch -exact -- $err_type {
+      NONE {
+        #passed
+      }
+      CHILDSTATUS {
+        # non-zero exit status
+        set exit_status [lindex $test_err_info 1]
+        puts "ERROR: test returned exit code $exit_status"
+        exit 1
+
+      }
+      default {
+        puts "ERROR: $option"
+        exit 1
+      }
+    }
+  }
+  puts "pass"
+  exit 0
+}
+
 # Output voltage file is specified as ...
 suppress_message PSM 2
 # Output current file specified ...