diff options
| author | Steve Bennett <steveb@workware.net.au> | 2020-11-08 09:31:26 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2020-11-08 10:17:57 +1000 |
| commit | 4b865fed1ad29c97c1b21757d953886758b22796 (patch) | |
| tree | 809c9f5f10713cc01d42e45f0269c53559948b5b /tests/stacktrace.test | |
| parent | 8e1a22bac49a3acb1ee757ca34ed16b27bb7cd17 (diff) | |
| download | jimtcl-4b865fed1ad29c97c1b21757d953886758b22796.zip jimtcl-4b865fed1ad29c97c1b21757d953886758b22796.tar.gz jimtcl-4b865fed1ad29c97c1b21757d953886758b22796.tar.bz2 | |
build: Fix build and tests for out-of-tree build
Loadable modules and tests
Fixes #179
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/stacktrace.test')
| -rw-r--r-- | tests/stacktrace.test | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tests/stacktrace.test b/tests/stacktrace.test index 847297b..cafbcfc 100644 --- a/tests/stacktrace.test +++ b/tests/stacktrace.test @@ -16,9 +16,9 @@ proc main {} { test err-$id1.$id2 "Stacktrace on error type $type, method $method" { set rc [catch {error_caller $type $method} msg] #puts "\n-----------------\n$type, $method\n[errorInfo $msg]\n\n" - if {$::SHOW_EXPECTED} { puts stderr "\terr-$id1.$id2 {[list $rc $msg [info stacktrace]]}" } + if {$::SHOW_EXPECTED} { puts stderr "\terr-$id1.$id2 {[list $rc $msg [basename-stacektrace [info stacktrace]]]}" } - list $rc $msg [info stacktrace] + list $rc $msg [basename-stacktrace [info stacktrace]] } $exp } } @@ -29,9 +29,9 @@ proc main {} { test err-10.1 "Stacktrace on error from unknown (badcmd, call)" { set rc [catch {error_caller badcmd call} msg] #puts stderr "err-10.1\n[errorInfo $msg]\n" - #puts stderr "\terr-10.1 {[list $rc $msg [info stacktrace]]}" + #puts stderr "\terr-10.1 {[list $rc $msg [basename-stacktrace [info stacktrace]]]}" - list $rc $msg [info stacktrace] + list $rc $msg [basename-stacktrace [info stacktrace]] } {1 {from unknown} {{} stacktrace.test 26 {} errors.tcl 6 error_generator errors.tcl 44 error_caller stacktrace.test 30}} rename unknown "" @@ -51,17 +51,17 @@ proc main {} { set g {four} test source-1.1 "Basic line numbers" { - info source $a + basename-source [info source $a] } {stacktrace.test 39} test source-1.2 "Line numbers after command with escaped newlines" { - info source $c + basename-source [info source $c] } {stacktrace.test 43} test source-1.3 "Line numbers after string with newlines" { - info source $e + basename-source [info source $e] } {stacktrace.test 47} test source-1.4 "Line numbers after string with escaped newlines" { - info source $g + basename-source [info source $g] } {stacktrace.test 51} } |