tests/bugs/modalg_7/bug30927

   1 puts "============================================================================"
   2 puts "0030927: Modeling Algorithms - UnifySameDom looses the Closed flag for wires"
   3 puts "============================================================================"
   4 puts ""
   5
   6 box b1 10 10 10
   7 box b2 5 0 -5 10 10 20
   8 bfuse s b1 b2
   9 unifysamedom result s
  10
  11 foreach w [explode result w] {
  12   if {![regexp "Closed" [whatis $w]]} {
  13     puts "Error: Wire $w is not closed"
  14   }
  15 }