From e5900506a58fda182c5bb74dc837a90964a6c365 Mon Sep 17 00:00:00 2001
From: Miguel Sofer <miguel.sofer@gmail.com>
Date: Fri, 12 Oct 2001 21:04:15 +0000
Subject: Small modif to tests/compile.test: better constraint handling for
 tests committed earlier today.

---
 tests/compile.test | 45 +++++++++++++++++++++------------------------
 1 file changed, 21 insertions(+), 24 deletions(-)

diff --git a/tests/compile.test b/tests/compile.test
index ae3bfd4..dfa5770 100644
--- a/tests/compile.test
+++ b/tests/compile.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: compile.test,v 1.12 2001/10/12 16:13:32 msofer Exp $
+# RCS: @(#) $Id: compile.test,v 1.13 2001/10/12 21:04:15 msofer Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -247,34 +247,31 @@ test compile-11.9 {Tcl_Append*: ensure Tcl_ResetResult is used properly} {
 # with TCL_MEM_DEBUG
 #
 # Special test for leak on interp delete [Bug 467523]. 
-test compile-12.1 {testing literal leak on interp delete} {
-    if {[llength [info commands memory]]} {
-	proc getbytes {} {
-	    set lines [split [memory info] "\n"]
-	    lindex [lindex $lines 3] 3
-	}
-	
-	set end [getbytes]
-	for {set i 0} {$i < 5} {incr i} {
-	    interp create foo 
-	    foo eval { 
-		namespace eval bar {}
-	    } 
-	    interp delete foo
-	    set tmp $end
-	    set end [getbytes]
-	}
+set ::tcltest::testConstraints(execCommandExists) [expr {[info commands exec] != ""}]
+set ::tcltest::testConstraints(memDebug) [expr {[info commands memory] != ""}]
 
-	set leak [expr {$end - $tmp}]
-	rename getbytes {}
-    } else {
-	set leak 0
+test compile-12.1 {testing literal leak on interp delete} {memDebug} {
+    proc getbytes {} {
+	set lines [split [memory info] "\n"]
+	lindex [lindex $lines 3] 3
     }
-    set leak
+    
+    set end [getbytes]
+    for {set i 0} {$i < 5} {incr i} {
+	interp create foo 
+	foo eval { 
+	    namespace eval bar {}
+	} 
+	interp delete foo
+	set tmp $end
+	set end [getbytes]
+    }    
+    rename getbytes {}
+    set leak [expr {$end - $tmp}]
 } 0
 # Special test for a memory error in a preliminary fix of [Bug 467523]. 
 # It requires executing a helpfile
-test compile-12.2 {testing error on literal deletion} {
+test compile-12.2 {testing error on literal deletion} {memDebug execCommandExists} {
     makeFile {
 	for {set i 0} {$i < 5} {incr i} {
 	    namespace eval bar {}
-- 
cgit v0.12