TIP 488: Remove tcl_precision

2 files changed, 2 insertions, 50 deletions

diff --git a/tests/basic.test b/tests/basic.test
index 7819241..a11ffdf 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -893,10 +893,7 @@ test basic-48.16.$noComp {expansion: testing for leaks} -setup {
 	rename stress {}
 } -result 0
 
-test basic-48.17.$noComp {expansion: object safety} -setup {
-        set old_precision $::tcl_precision
-        set ::tcl_precision 4
-    } -constraints $constraints -body {
+test basic-48.17.$noComp {expansion: object safety} -constraints $constraints -body {
             set third [expr {1.0/3.0}]
             set l [list $third $third]
             set x [run {list $third {*}$l $third}]
@@ -906,8 +903,7 @@ test basic-48.17.$noComp {expansion: object safety} -setup {
             }
             set res
     } -cleanup {
-        set ::tcl_precision $old_precision
-        unset old_precision res t l x third
+        unset res t l x third
 } -result {1.0 1.0 1.0 1.0}
 
 test basic-48.18.$noComp {expansion: list semantics} -constraints $constraints -body {
diff --git a/tests/util.test b/tests/util.test
index 35fc642..5fd2102 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -424,50 +424,6 @@ test util-6.6 {Tcl_PrintDouble - make sure there's a decimal point} {
     concat x[expr 3.0e98]
 } {x3e+98}
 
-test util-7.1 {TclPrecTraceProc - unset callbacks} -setup {
-    set old_precision $::tcl_precision
-} -body {
-    set tcl_precision 7
-    set x $tcl_precision
-    unset tcl_precision
-    list $x $tcl_precision
-} -cleanup {
-    set ::tcl_precision $old_precision
-} -result {7 7}
-test util-7.2 {TclPrecTraceProc - read traces, sharing among interpreters}  -setup {
-    set old_precision $::tcl_precision
-} -body {
-    set tcl_precision 12
-    interp create child
-    set x [child eval set tcl_precision]
-    child eval {set tcl_precision 6}
-    interp delete child
-    list $x $tcl_precision
-} -cleanup {
-    set ::tcl_precision $old_precision
-} -result {12 6}
-test util-7.3 {TclPrecTraceProc - write traces, safe interpreters} -setup {
-    set old_precision $::tcl_precision
-} -body {
-    set tcl_precision 12
-    interp create -safe child
-    set x [child eval {
-	list [catch {set tcl_precision 8} msg] $msg
-    }]
-    interp delete child
-    list $x $tcl_precision
-} -cleanup {
-    set ::tcl_precision $old_precision
-} -result {{1 {can't set "tcl_precision": can't modify precision from a safe interpreter}} 12}
-test util-7.4 {TclPrecTraceProc - write traces, bogus values} -setup {
-    set old_precision $::tcl_precision
-} -body {
-    set tcl_precision 12
-    list [catch {set tcl_precision abc} msg] $msg $tcl_precision
-} -cleanup {
-    set ::tcl_precision $old_precision
-} -result {1 {can't set "tcl_precision": improper value for precision} 12}
-
 # This test always succeeded in the C locale anyway...
 test util-8.1 {TclNeedSpace - correct UTF8 handling} {
     # Bug 411825