test/orfs/mock-array: single concern opensta path groups test

Signed-off-by: Øyvind Harboe <[email protected]>

Author: oharboe

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,21 @@
+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"
+group_path -name test_group -from $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

test/orfs/mock-array/power.tcl

@@ -104,22 +104,6 @@ if { abs($total_power_vcd - $total_power_user_activity) > 1e-3 } {
 log_cmd report_parasitic_annotation
 log_cmd report_activity_annotation -report_unannotated
 
-# some drive-by tests for OpenSTA 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"
-group_path -name test_group -from $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