Merge pull request #8741 from Pinata-Consulting/mock-array-opensta-testing

mock-array: more OpenSTA testing

Author: maliberty

test/orfs/mock-array/mock-array.bzl

@@ -221,6 +221,7 @@ MACROS = [
 POWER_TESTS = [
     "power",
     "power_instances",
+    "path_groups",
 ]
 
 def mock_array(name, config):

test/orfs/mock-array/path_groups.tcl

@@ -0,0 +1,25 @@
+source $::env(LOAD_POWER_TCL)
+
+# Various checks on path groups
+set first_path [lindex [find_timing_paths] 0]
+set from [get_property [get_property $first_path startpoint] full_name]
+set to [get_property [get_property $first_path endpoint] full_name]
+puts "Checking if we can find timing paths from $from to $to"
+if { [llength [find_timing_paths -from $from -to $to]] == 0 } {
+  puts "Error: find_timing_paths -from $from -to $to failed"
+  exit 1
+}
+puts "Checking if we can create a group_path from $from to $to"
+
+# There is no guarantee that the first node in the
+# tcl path structure is an exception start point, so use -through
+# to ensure we capture a valid path for our testing purposes.
+group_path -name test_group -through $from -to $to
+if { [llength [find_timing_paths -path_group test_group]] == 0 } {
+  puts "Error: find_timing_paths -path_group test_group failed"
+  exit 1
+}
+
+set f [open $::env(OUTPUT) w]
+puts $f OK
+close $f