76 lines
1.8 KiB
Tcl
76 lines
1.8 KiB
Tcl
# Test utility commands
|
|
puts "--- set_cmd_units -time ns -capacitance pF -resistance kOhm ---"
|
|
set_cmd_units -time ns -capacitance pF -resistance kOhm
|
|
|
|
puts "--- report_units ---"
|
|
report_units
|
|
|
|
puts "--- set_cmd_units -time ps -capacitance fF ---"
|
|
set_cmd_units -time ps -capacitance fF
|
|
|
|
puts "--- report_units after change ---"
|
|
report_units
|
|
|
|
puts "--- set_cmd_units -voltage mV ---"
|
|
set_cmd_units -voltage mV
|
|
|
|
puts "--- set_cmd_units -current uA ---"
|
|
set_cmd_units -current uA
|
|
|
|
puts "--- set_cmd_units -distance um ---"
|
|
set_cmd_units -distance um
|
|
|
|
puts "--- report_units after all changes ---"
|
|
report_units
|
|
|
|
puts "--- elapsed_run_time ---"
|
|
set elapsed [elapsed_run_time]
|
|
if { $elapsed < 0 } {
|
|
puts "FAIL: elapsed_run_time returned negative"
|
|
}
|
|
|
|
puts "--- user_run_time ---"
|
|
set user_time [user_run_time]
|
|
if { $user_time < 0 } {
|
|
puts "FAIL: user_run_time returned negative"
|
|
}
|
|
|
|
puts "--- log_begin / log_end ---"
|
|
set log_file "/tmp/sta_test_log_[pid].txt"
|
|
log_begin $log_file
|
|
puts "test log entry from util_commands"
|
|
log_end
|
|
|
|
# Verify log file was created and has content
|
|
if { [file exists $log_file] } {
|
|
set fh [open $log_file r]
|
|
set log_content [read $fh]
|
|
close $fh
|
|
file delete $log_file
|
|
if { [string length $log_content] <= 0 } {
|
|
puts "INFO: log file was empty"
|
|
}
|
|
} else {
|
|
puts "INFO: log file not found (may be expected)"
|
|
}
|
|
|
|
puts "--- suppress_msg / unsuppress_msg ---"
|
|
suppress_msg 100 200 300
|
|
|
|
unsuppress_msg 100 200 300
|
|
|
|
puts "--- suppress_msg single ---"
|
|
suppress_msg 999
|
|
|
|
unsuppress_msg 999
|
|
|
|
puts "--- with_output_to_variable ---"
|
|
with_output_to_variable result { report_units }
|
|
puts "captured output length: [string length $result]"
|
|
if { [string length $result] <= 0 } {
|
|
puts "FAIL: with_output_to_variable captured empty output"
|
|
}
|
|
|
|
puts "--- with_output_to_variable second call ---"
|
|
with_output_to_variable result2 { puts "hello from with_output_to_variable" }
|