# Test verilog writer options
source ../../test/helpers.tcl

read_liberty ../../test/nangate45/Nangate45_typ.lib
read_verilog verilog_test1.v
link_design verilog_test1

puts "--- write_verilog basic ---"
set out1 [make_result_file verilog_write_options_out1.v]
write_verilog $out1
if { [file exists $out1] && [file size $out1] > 0 } {
  puts "PASS: basic write_verilog created non-empty file"
} else {
  puts "FAIL: basic write_verilog file missing or empty"
}

puts "--- write_verilog -include_pwr_gnd ---"
set out2 [make_result_file verilog_write_options_out2.v]
write_verilog -include_pwr_gnd $out2
if { [file exists $out2] && [file size $out2] > 0 } {
  puts "PASS: write_verilog -include_pwr_gnd created non-empty file"
} else {
  puts "FAIL: write_verilog -include_pwr_gnd file missing or empty"
}

puts "--- write_verilog -remove_cells (empty list) ---"
set out3 [make_result_file verilog_write_options_out3.v]
write_verilog -remove_cells {} $out3
if { [file exists $out3] && [file size $out3] > 0 } {
  puts "PASS: write_verilog -remove_cells {} created non-empty file"
} else {
  puts "FAIL: write_verilog -remove_cells {} file missing or empty"
}

puts "--- compare pwr_gnd vs basic output ---"
set sz1 [file size $out1]
set sz2 [file size $out2]
puts "basic size: $sz1, pwr_gnd size: $sz2"
if { $sz2 >= $sz1 } {
  puts "PASS: pwr_gnd output is >= basic output size"
} else {
  puts "INFO: pwr_gnd output is smaller (unexpected but not fatal)"
}

puts "--- compare remove_cells vs basic output ---"
set sz3 [file size $out3]
puts "basic size: $sz1, remove_cells size: $sz3"

puts "--- write_verilog -sort (deprecated, should warn) ---"
set out4 [make_result_file verilog_write_options_out4.v]
catch {write_verilog -sort $out4} msg_sort
puts "write_verilog -sort: $msg_sort"
if { [file exists $out4] && [file size $out4] > 0 } {
  puts "PASS: write_verilog -sort created file (with deprecation warning)"
}

puts "--- read_verilog / write_verilog roundtrip ---"
# Read back the written verilog to exercise reader code paths
set out5 [make_result_file verilog_write_options_out5.v]
write_verilog $out5
puts "PASS: roundtrip write completed"

puts "ALL PASSED"