543 lines
15 KiB
Tcl
Executable File
543 lines
15 KiB
Tcl
Executable File
# OpenSTA, Static Timing Analyzer
|
|
# Copyright (c) 2021, Parallax Software, Inc.
|
|
#
|
|
# This program is free software: you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
# regression -help | [-threads threads] [-valgrind] [-report_stats] test1 [test2...]
|
|
|
|
proc regression_main {} {
|
|
setup
|
|
parse_args
|
|
run_tests
|
|
show_summary
|
|
exit [found_errors]
|
|
}
|
|
|
|
proc setup {} {
|
|
global result_dir diff_file failure_file errors
|
|
global use_valgrind valgrind_shared_lib_failure
|
|
global report_stats
|
|
|
|
set use_valgrind 0
|
|
set report_stats 0
|
|
|
|
if { !([file exists $result_dir] && [file isdirectory $result_dir]) } {
|
|
file mkdir $result_dir
|
|
}
|
|
file delete $diff_file
|
|
file delete $failure_file
|
|
|
|
set errors(error) 0
|
|
set errors(memory) 0
|
|
set errors(leak) 0
|
|
set errors(fail) 0
|
|
set errors(no_cmd) 0
|
|
set errors(no_ok) 0
|
|
set valgrind_shared_lib_failure 0
|
|
}
|
|
|
|
proc parse_args {} {
|
|
global argv app_options tests test_groups cmd_paths
|
|
global use_valgrind
|
|
global result_dir tests
|
|
global report_stats
|
|
|
|
while { $argv != {} } {
|
|
set arg [lindex $argv 0]
|
|
if { $arg == "help" || $arg == "-help" } {
|
|
puts {Usage: regression [-help] [-threads threads] [-valgrind] [-report_stats] tests...}
|
|
puts " -threads max|integer - number of threads to use"
|
|
puts " -valgrind - run valgrind (linux memory checker)"
|
|
puts " -report_stats - report run time and memory"
|
|
puts " Wildcarding for test names is supported (enclose in \"'s)"
|
|
puts " Tests are: all, fast, med, slow, or a test group or test name"
|
|
puts ""
|
|
puts " If 'limit coredumpsize unlimited' corefiles are saved in $result_dir/test.core"
|
|
exit
|
|
} elseif { $arg == "-threads" } {
|
|
set threads [lindex $argv 1]
|
|
if { !([string is integer $threads] || $threads == "max") } {
|
|
puts "Error: -threads arg $threads is not an integer or max."
|
|
exit 0
|
|
}
|
|
lappend app_options "-threads"
|
|
lappend app_options $threads
|
|
set argv [lrange $argv 2 end]
|
|
} elseif { $arg == "-valgrind" } {
|
|
set use_valgrind 1
|
|
set argv [lrange $argv 1 end]
|
|
} elseif { $arg == "-report_stats" } {
|
|
set report_stats 1
|
|
set argv [lrange $argv 1 end]
|
|
} else {
|
|
break
|
|
}
|
|
}
|
|
if { $argv == {} } {
|
|
# Default is to run fast tests.
|
|
set tests [group_tests fast]
|
|
} else {
|
|
set tests [expand_tests $argv]
|
|
}
|
|
}
|
|
|
|
proc expand_tests { argv } {
|
|
global test_groups
|
|
|
|
set tests {}
|
|
foreach arg $argv {
|
|
if { [info exists test_groups($arg)] } {
|
|
set tests [concat $tests $test_groups($arg)]
|
|
} elseif { [string first "*" $arg] != -1 \
|
|
|| [string first "?" $arg] != -1 } {
|
|
# Find wildcard matches.
|
|
foreach test [group_tests "all"] {
|
|
if [string match $arg $test] {
|
|
lappend tests $test
|
|
}
|
|
}
|
|
} elseif { [lsearch [group_tests "all"] $arg] != -1 } {
|
|
lappend tests $arg
|
|
} else {
|
|
puts "Error: test $arg not found."
|
|
}
|
|
}
|
|
return $tests
|
|
}
|
|
|
|
proc run_tests {} {
|
|
global tests errors app_path
|
|
|
|
foreach test $tests {
|
|
run_test $test
|
|
}
|
|
# Macos debug info generated by valgrind.
|
|
file delete -force "$app_path.dSYM"
|
|
}
|
|
|
|
proc run_test { test } {
|
|
global result_dir diff_file errors diff_options report_stats
|
|
|
|
set cmd_file [test_cmd_file $test]
|
|
if [file exists $cmd_file] {
|
|
set ok_file [test_ok_file $test]
|
|
set log_file [test_log_file $test]
|
|
foreach file [glob -nocomplain [file join $result_dir $test.*]] {
|
|
file delete -force $file
|
|
}
|
|
puts -nonewline $test
|
|
flush stdout
|
|
set test_errors [run_test_app $test $cmd_file $log_file]
|
|
if { [lindex $test_errors 0] == "ERROR" } {
|
|
puts " *ERROR* [lrange $test_errors 1 end]"
|
|
append_failure $test
|
|
incr errors(error)
|
|
|
|
# For some reason seg faults aren't echoed in the log - add them.
|
|
if { [llength $test_errors] > 1 && [file exists $log_file] } {
|
|
set log_ch [open $log_file "a"]
|
|
puts $log_ch $test_errors
|
|
close $log_ch
|
|
}
|
|
|
|
# Report partial log diff anyway.
|
|
if [file exists $ok_file] {
|
|
catch [concat exec diff $diff_options $ok_file $log_file \
|
|
>> $diff_file]
|
|
}
|
|
} else {
|
|
set error_msg ""
|
|
if { [lsearch $test_errors "MEMORY"] != -1 } {
|
|
append error_msg " *MEMORY*"
|
|
append_failure $test
|
|
incr errors(memory)
|
|
}
|
|
if { [lsearch $test_errors "LEAK"] != -1 } {
|
|
append error_msg " *LEAK*"
|
|
append_failure $test
|
|
incr errors(leak)
|
|
}
|
|
if { $report_stats } {
|
|
append error_msg " [test_stats_summary $test]"
|
|
}
|
|
|
|
if [file exists $ok_file] {
|
|
# Filter dos '/r's from log file.
|
|
set tmp_file [file join $result_dir $test.tmp]
|
|
exec tr -d "\r" < $log_file > $tmp_file
|
|
file rename -force $tmp_file $log_file
|
|
if [catch [concat exec diff $diff_options $ok_file $log_file \
|
|
>> $diff_file]] {
|
|
puts " *FAIL*$error_msg"
|
|
append_failure $test
|
|
incr errors(fail)
|
|
} else {
|
|
puts " pass$error_msg"
|
|
}
|
|
} else {
|
|
puts " *NO OK FILE*$error_msg"
|
|
append_failure $test
|
|
incr errors(no_ok)
|
|
}
|
|
}
|
|
} else {
|
|
puts "$test *NO CMD FILE*"
|
|
incr errors(no_cmd)
|
|
}
|
|
}
|
|
|
|
proc test_stats { test } {
|
|
if { ![catch {open [test_stats_file $test] r} stream] } {
|
|
gets $stream line1
|
|
close $stream
|
|
return $line1
|
|
} else {
|
|
return {}
|
|
}
|
|
}
|
|
|
|
proc test_stats_summary { test } {
|
|
set stats [test_stats $test]
|
|
set elapsed_time [lindex $stats 0]
|
|
set user_time [lindex $stats 1]
|
|
set memory [lindex $stats 2]
|
|
if { [string is double $elapsed_time] } {
|
|
set elapsed [format "%.1fe" $elapsed_time]
|
|
} else {
|
|
set elapsed "?"
|
|
}
|
|
if { [string is double $user_time] } {
|
|
set user [format "%.1fu" $user_time]
|
|
} else {
|
|
set user "?"
|
|
}
|
|
if { [string is double $memory] } {
|
|
set mem [format "%.0fmb" [expr $memory * 1e-6]]
|
|
} else {
|
|
set mem "?"
|
|
}
|
|
return "$elapsed $user $mem"
|
|
}
|
|
|
|
proc append_failure { test } {
|
|
global failure_file
|
|
set fail_ch [open $failure_file "a"]
|
|
puts $fail_ch $test
|
|
close $fail_ch
|
|
}
|
|
|
|
# Return error.
|
|
proc run_test_app { test cmd_file log_file } {
|
|
global app_path errorCode use_valgrind
|
|
if { $use_valgrind } {
|
|
return [run_test_valgrind $test $cmd_file $log_file]
|
|
} else {
|
|
return [run_test_plain $test $cmd_file $log_file]
|
|
}
|
|
}
|
|
|
|
proc run_test_plain { test cmd_file log_file } {
|
|
global app_path app_options result_dir errorCode
|
|
global report_stats
|
|
global test_expect_eror
|
|
|
|
if { ![file exists $app_path] } {
|
|
return "ERROR $app_path not found."
|
|
} elseif { ![file executable $app_path] } {
|
|
return "ERROR $app_path is not executable."
|
|
} else {
|
|
set run_file [test_run_file $test]
|
|
set run_stream [open $run_file "w"]
|
|
puts $run_stream "cd [file dirname $cmd_file]"
|
|
puts $run_stream "source [file tail $cmd_file]"
|
|
if { $report_stats } {
|
|
set stat_file [file normalize [test_stats_file $test]]
|
|
puts $run_stream "sta::write_stats $stat_file"
|
|
}
|
|
close $run_stream
|
|
|
|
if { [catch [concat exec $app_path $app_options $run_file >& $log_file]] \
|
|
&& ![info exists test_expect_eror($test)] } {
|
|
set signal [lindex $errorCode 2]
|
|
set error [lindex $errorCode 3]
|
|
# Error strings are not consistent across platforms but signal
|
|
# names are.
|
|
if { $signal == "SIGSEGV" } {
|
|
# Save corefiles to regression results directory.
|
|
set pid [lindex $errorCode 1]
|
|
set sys_corefile [test_sys_core_file $test $pid]
|
|
if { [file exists $sys_corefile] } {
|
|
file copy $sys_corefile [test_core_file $test]
|
|
}
|
|
}
|
|
cleanse_logfile $test $log_file
|
|
return "ERROR $error"
|
|
}
|
|
cleanse_logfile $test $log_file
|
|
return ""
|
|
}
|
|
}
|
|
|
|
proc run_test_valgrind { test cmd_file log_file } {
|
|
global app_path app_options valgrind_options result_dir errorCode
|
|
|
|
set vg_cmd_file [test_valgrind_cmd_file $test]
|
|
set vg_stream [open $vg_cmd_file "w"]
|
|
puts $vg_stream "cd [file dirname $cmd_file]"
|
|
puts $vg_stream "source [file tail $cmd_file]"
|
|
puts $vg_stream "sta::delete_all_memory"
|
|
close $vg_stream
|
|
|
|
set cmd [concat exec valgrind $valgrind_options \
|
|
$app_path $app_options $vg_cmd_file >& $log_file]
|
|
set error_msg ""
|
|
if { [catch $cmd] } {
|
|
set error_msg "ERROR [lindex $errorCode 3]"
|
|
}
|
|
file delete $vg_cmd_file
|
|
cleanse_logfile $test $log_file
|
|
lappend error_msg [cleanse_valgrind_logfile $test $log_file]
|
|
return $error_msg
|
|
}
|
|
|
|
# Error messages can be found in "valgrind/memcheck/mc_errcontext.c".
|
|
#
|
|
# "Conditional jump or move depends on uninitialised value(s)"
|
|
# "%s contains unaddressable byte(s)"
|
|
# "%s contains uninitialised or unaddressable byte(s)"
|
|
# "Use of uninitialised value of size %d"
|
|
# "Invalid read of size %d"
|
|
# "Syscall param %s contains uninitialised or unaddressable byte(s)"
|
|
# "Unaddressable byte(s) found during client check request"
|
|
# "Uninitialised or unaddressable byte(s) found during client check request"
|
|
# "Invalid free() / delete / delete[]"
|
|
# "Mismatched free() / delete / delete []"
|
|
set valgrind_mem_regexp "(depends on uninitialised value)|(contains unaddressable)|(contains uninitialised)|(Use of uninitialised value)|(Invalid read)|(Unaddressable byte)|(Uninitialised or unaddressable)|(Invalid free)|(Mismatched free)"
|
|
|
|
# "%d bytes in %d blocks are definitely lost in loss record %d of %d"
|
|
# "%d bytes in %d blocks are possibly lost in loss record %d of %d"
|
|
#set valgrind_leak_regexp "blocks are (possibly|definitely) lost"
|
|
set valgrind_leak_regexp "blocks are definitely lost"
|
|
|
|
# Valgrind fails on executables using shared libraries.
|
|
set valgrind_shared_lib_failure_regexp "No malloc'd blocks -- no leaks are possible"
|
|
|
|
# Scan the log file to separate valgrind notifications and check for
|
|
# valgrind errors.
|
|
proc cleanse_valgrind_logfile { test log_file } {
|
|
global valgrind_mem_regexp valgrind_leak_regexp
|
|
global valgrind_shared_lib_failure_regexp
|
|
global valgrind_shared_lib_failure
|
|
|
|
set tmp_file [test_tmp_file $test]
|
|
set valgrind_log_file [test_valgrind_file $test]
|
|
file copy -force $log_file $tmp_file
|
|
set tmp [open $tmp_file "r"]
|
|
set log [open $log_file "w"]
|
|
set valgrind [open $valgrind_log_file "w"]
|
|
set leaks 0
|
|
set mem_errors 0
|
|
gets $tmp line
|
|
while { ![eof $tmp] } {
|
|
if {[regexp "^==" $line]} {
|
|
puts $valgrind $line
|
|
if {[regexp $valgrind_leak_regexp $line]} {
|
|
set leaks 1
|
|
}
|
|
if {[regexp $valgrind_mem_regexp $line]} {
|
|
set mem_errors 1
|
|
}
|
|
if {[regexp $valgrind_shared_lib_failure_regexp $line]} {
|
|
set valgrind_shared_lib_failure 1
|
|
}
|
|
} elseif {[regexp {^--[0-9]+} $line]} {
|
|
# Valgrind notification line.
|
|
} else {
|
|
puts $log $line
|
|
}
|
|
gets $tmp line
|
|
}
|
|
close $log
|
|
close $tmp
|
|
close $valgrind
|
|
file delete $tmp_file
|
|
|
|
set errors {}
|
|
if { $mem_errors } {
|
|
lappend errors "MEMORY"
|
|
}
|
|
if { $leaks } {
|
|
lappend errors "LEAK"
|
|
}
|
|
return $errors
|
|
}
|
|
|
|
################################################################
|
|
|
|
proc show_summary {} {
|
|
global errors tests diff_file result_dir valgrind_shared_lib_failure
|
|
global app_path app
|
|
|
|
puts "------------------------------------------------------"
|
|
set test_count [llength $tests]
|
|
if { [found_errors] } {
|
|
if { $errors(error) != 0 } {
|
|
puts "Errored $errors(error)/$test_count"
|
|
}
|
|
if { $errors(fail) != 0 } {
|
|
puts "Failed $errors(fail)/$test_count"
|
|
}
|
|
if { $errors(leak) != 0 } {
|
|
puts "Memory leaks in $errors(leak)/$test_count"
|
|
}
|
|
if { $errors(memory) != 0 } {
|
|
puts "Memory corruption in $errors(memory)/$test_count"
|
|
}
|
|
if { $errors(no_ok) != 0 } {
|
|
puts "No ok file for $errors(no_ok)/$test_count"
|
|
}
|
|
if { $errors(no_cmd) != 0 } {
|
|
puts "No cmd tcl file for $errors(no_cmd)/$test_count"
|
|
}
|
|
if { $errors(fail) != 0 } {
|
|
puts "See $diff_file for differences"
|
|
}
|
|
} else {
|
|
puts "Passed $test_count"
|
|
}
|
|
if { $valgrind_shared_lib_failure } {
|
|
puts "WARNING: valgrind failed because the executable is not statically linked."
|
|
}
|
|
puts "See $result_dir for log files"
|
|
}
|
|
|
|
proc found_errors {} {
|
|
global errors
|
|
|
|
return [expr $errors(error) != 0 || $errors(fail) != 0 \
|
|
|| $errors(no_cmd) != 0 || $errors(no_ok) != 0 \
|
|
|| $errors(memory) != 0 || $errors(leak) != 0]
|
|
}
|
|
|
|
################################################################
|
|
|
|
proc save_ok_main {} {
|
|
global argv
|
|
if { $argv == "help" || $argv == "-help" } {
|
|
puts {Usage: save_ok [failures] test1 [test2]...}
|
|
} elseif { $argv == "failures" } {
|
|
global failure_file
|
|
if [file exists $failure_file] {
|
|
set fail_ch [open $failure_file "r"]
|
|
while { ! [eof $fail_ch] } {
|
|
set test [gets $fail_ch]
|
|
if { $test != "" } {
|
|
save_ok $test
|
|
}
|
|
}
|
|
close $fail_ch
|
|
}
|
|
} else {
|
|
foreach test $argv {
|
|
save_ok $test
|
|
}
|
|
}
|
|
}
|
|
|
|
proc save_ok { test } {
|
|
if { [lsearch [group_tests "all"] $test] == -1 } {
|
|
puts "Error: test $test not found."
|
|
} else {
|
|
set ok_file [test_ok_file $test]
|
|
set log_file [test_log_file $test]
|
|
if { ! [file exists $log_file] } {
|
|
puts "Error: log file $log_file not found."
|
|
} else {
|
|
file copy -force $log_file $ok_file
|
|
}
|
|
}
|
|
}
|
|
|
|
################################################################
|
|
|
|
proc test_cmd_dir { test } {
|
|
global cmd_dirs
|
|
|
|
if {[info exists cmd_dirs($test)]} {
|
|
return $cmd_dirs($test)
|
|
} else {
|
|
return ""
|
|
}
|
|
}
|
|
|
|
proc test_cmd_file { test } {
|
|
return [file join [test_cmd_dir $test] "$test.tcl"]
|
|
}
|
|
|
|
proc test_ok_file { test } {
|
|
global test_dir
|
|
return [file join $test_dir "$test.ok"]
|
|
}
|
|
|
|
proc test_log_file { test } {
|
|
global result_dir
|
|
return [file join $result_dir "$test.log"]
|
|
}
|
|
|
|
proc test_run_file { test } {
|
|
global result_dir
|
|
return [file join $result_dir $test.run]
|
|
}
|
|
|
|
proc test_tmp_file { test } {
|
|
global result_dir
|
|
return [file join $result_dir $test.tmp]
|
|
}
|
|
|
|
proc test_valgrind_cmd_file { test } {
|
|
global result_dir
|
|
return [file join $result_dir $test.vg_cmd]
|
|
}
|
|
|
|
proc test_valgrind_file { test } {
|
|
global result_dir
|
|
return [file join $result_dir $test.valgrind]
|
|
}
|
|
|
|
proc test_stats_file { test } {
|
|
global result_dir
|
|
return [file join $result_dir "$test.stats"]
|
|
}
|
|
|
|
proc test_core_file { test } {
|
|
global result_dir
|
|
return [file join $result_dir $test.core]
|
|
}
|
|
|
|
proc test_sys_core_file { test pid } {
|
|
global cmd_dirs
|
|
|
|
# macos
|
|
# return [file join "/cores" "core.$pid"]
|
|
|
|
# Suse
|
|
return [file join [test_cmd_dir $test] "core"]
|
|
}
|
|
|
|
################################################################
|
|
|
|
# Local Variables:
|
|
# mode:tcl
|
|
# End:
|