From 8d5a1611d372b7e645677f8e7144ea23d407fc15 Mon Sep 17 00:00:00 2001
From: John McMaster <johndmcmaster@gmail.com>
Date: Wed, 3 Oct 2018 16:32:59 -0700
Subject: [PATCH] timfuz: BEL multiple output pin test script

Signed-off-by: John McMaster <johndmcmaster@gmail.com>
---
 .../007-timing/minitest/test_cell_opins.tcl   | 30 +++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 fuzzers/007-timing/minitest/test_cell_opins.tcl

diff --git a/fuzzers/007-timing/minitest/test_cell_opins.tcl b/fuzzers/007-timing/minitest/test_cell_opins.tcl
new file mode 100644
index 00000000..a62fb407
--- /dev/null
+++ b/fuzzers/007-timing/minitest/test_cell_opins.tcl
@@ -0,0 +1,30 @@
+# Demonstrates that cells can have 0 to 2 BEL output pins
+# roi/dout_shr_reg[0]: roi/dout_shr[0]_i_1/O roi/dout_shr_reg[0]
+
+set TIME_start [clock clicks -milliseconds]
+set site_src_nets 0
+set neti 0
+set nets [get_nets -hierarchical]
+set nnets [llength $nets]
+set opins_zero 0
+set opins_multi 0
+foreach net $nets {
+    incr neti
+    puts "Net $neti / $nnets: $net"
+
+    set out_pins [get_pins -filter {DIRECTION == OUT} -of_objects $net]
+    set npins [llength $out_pins]
+    if {$npins == 0} {
+        puts "    $net zero source pins: $src_pin"
+        incr opins_zero
+    }
+    if {$npins > 1} {
+        puts "    $net multi source pins: $src_pin"
+        incr opins_multi
+    }
+}
+set TIME_taken [expr [clock clicks -milliseconds] - $TIME_start]
+puts "Took ms: $TIME_taken"
+puts "Result: $opins_zero / $nnets zero"
+puts "Result: $opins_multi / $nnets multi"
+