We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
2 parents 9fe6076 + 0d73e97 commit ea9467dCopy full SHA for ea9467d
1 file changed
tests/instances.tcl
@@ -499,7 +499,14 @@ while 1 {
499
continue
500
}
501
if {[file isdirectory $test]} continue
502
- set ::cur_test_file $test
+ # Convert relative path (../tests/...) to project-relative path (tests/<suite>/tests/...)
503
+ set normalized [file normalize $test]
504
+ set project_root [file normalize "../../.."]
505
+ if {[string match "${project_root}/*" $normalized]} {
506
+ set ::cur_test_file [string range $normalized [expr {[string length $project_root] + 1}] end]
507
+ } else {
508
+ set ::cur_test_file $test
509
+ }
510
puts [colorstr yellow "Testing unit: [lindex [file split $test] end]"]
511
if {[catch { source $test } err]} {
512
puts "FAILED: caught an error in the test $err"
0 commit comments