diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-02 14:13:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-09-02 14:13:33 (GMT) |
| commit | 07e8d24c838bb5f328de852deb361f3780d602fb (patch) | |
| tree | 68d3684fa85c35e6bf5f41617b8b467ffe5b7ef4 | |
| parent | dfb98f070561139ccf2d88b30fb134de3c3fcac4 (diff) | |
| download | tcl-07e8d24c838bb5f328de852deb361f3780d602fb.zip tcl-07e8d24c838bb5f328de852deb361f3780d602fb.tar.gz tcl-07e8d24c838bb5f328de852deb361f3780d602fb.tar.bz2 | |
Fix testing for debug build on UNIX too (on UNIX, ::tcl_platform(debug) is not set ....)
| -rw-r--r-- | tests/compile.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/compile.test b/tests/compile.test index 548454b..3b91a5c 100644 --- a/tests/compile.test +++ b/tests/compile.test @@ -489,7 +489,7 @@ test compile-13.2 {TclCompileScript: testing nested scripts compilation} -setup # with 2000 (1000 in debug) nested scripts (bodies). If you get SO/SF exceptions on some low-stack # boxes or systems, please don't decrease it (either provide a constraint) $i eval {foreach cmd {eval "if 1" try catch} { - set c [gencode [expr {![info exists ::tcl_platform(debug)] ? 2000 : 1000}] $cmd] + set c [gencode [expr {![::tcl::pkgconfig get debug] ? 2000 : 1000}] $cmd] if 1 $c }} $i eval {set result} |