Use test constraints properly instead of looking in tcl_platform

Consistent method of calling test constraints, and (try to) move constraint
setup to the top of the test file


FossilOrigin-Name: 36829d55d6ebcac6be4d3d7d887b06650a5b394a

1 files changed, 6 insertions, 6 deletions

diff --git a/tests/pkgMkIndex.test b/tests/pkgMkIndex.test
index b7bd664..c71f087 100644
--- a/tests/pkgMkIndex.test
+++ b/tests/pkgMkIndex.test
@@ -8,7 +8,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: pkgMkIndex.test,v 1.27 2004/07/28 18:00:11 dgp Exp $
+# RCS: @(#) $Id: pkgMkIndex.test,v 1.28 2006/03/21 11:12:29 dkf Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest 2
@@ -562,17 +562,17 @@ removeFile [file join pkg circ3.tcl]
 set x [file join [file dirname [info nameofexecutable]] dltest \
 	pkga[info sharedlibextension]]
 set dll "[file tail $x]Required"
-::tcltest::testConstraint $dll [file exists $x]
+testConstraint $dll [file exists $x]
 
 if {[testConstraint $dll]} {
-makeFile {
+    makeFile {
 #  This package provides Pkga, which is also provided by a DLL.
 package provide Pkga 1.0
 proc pkga_neq { x } {
     return [expr {! [pkgq_eq $x]}]
 }
 } [file join pkg pkga.tcl]
-file copy -force $x $fullPkgPath
+    file copy -force $x $fullPkgPath
 }
 testConstraint exec [llength [info commands ::exec]]
 
@@ -598,8 +598,8 @@ test pkgMkIndex-10.2 {package in DLL hidden by -load} [list exec $dll] {
 } {0 {}}
 
 if {[testConstraint $dll]} {
-file delete -force [file join $fullPkgPath [file tail $x]]
-removeFile [file join pkg pkga.tcl]
+    file delete -force [file join $fullPkgPath [file tail $x]]
+    removeFile [file join pkg pkga.tcl]
 }
 
 # Tolerate "namespace import" at the global scope