more robust netlist_test proc in xschemtest.tcl
This commit is contained in:
parent
cd3f188a30
commit
1a27c2ffc0
|
|
@ -206,10 +206,11 @@ proc netlist_test {} {
|
||||||
} {
|
} {
|
||||||
xschem set netlist_type $t
|
xschem set netlist_type $t
|
||||||
xschem load [abs_sym_path $f]
|
xschem load [abs_sym_path $f]
|
||||||
xschem netlist
|
|
||||||
if {$t eq {verilog}} { set t v}
|
if {$t eq {verilog}} { set t v}
|
||||||
if {$t eq {tedax}} { set t tdx}
|
if {$t eq {tedax}} { set t tdx}
|
||||||
set netlist_file $netlist_dir/[file rootname $f].$t
|
set netlist_file $netlist_dir/[file rootname $f].$t
|
||||||
|
file delete $netlist_file
|
||||||
|
xschem netlist
|
||||||
## check netlist hashes, compare with gold hashes
|
## check netlist hashes, compare with gold hashes
|
||||||
set netlist_hash [xschem hash_file $netlist_file 1]
|
set netlist_hash [xschem hash_file $netlist_file 1]
|
||||||
if { $netlist_hash == $h } {
|
if { $netlist_hash == $h } {
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue