check for test commands before running tests.

1 files changed, 4 insertions, 0 deletions

diff --git a/tests/basic.test b/tests/basic.test
index 502e3e5..a3b8c6b 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -259,6 +259,7 @@ test basic-7.6 {TclRenameCommand, check for command shadowing by newly renamed c
          [test_ns_basic::callP]
 } {{p in ::} {} {q in ::test_ns_basic}}
 
+if {[info command testcmdtoken] != {}} {
 test basic-8.1 {Tcl_GetCommandInfo, names for commands created inside namespaces} {
     catch {eval namespace delete [namespace children :: test_ns_*]}
     catch {rename p ""}
@@ -279,6 +280,7 @@ test basic-8.2 {Tcl_GetCommandInfo, names for commands created outside namespace
          [rename test_ns_basic::test_ns_basic2::p q] \
          [testcmdtoken name $x]
 } {{p ::test_ns_basic::test_ns_basic2::p} {} {q ::q}}
+}
 
 test basic-9.1 {Tcl_GetCommandFullName} {
     catch {eval namespace delete [namespace children :: test_ns_*]}
@@ -380,12 +382,14 @@ test basic-11.1 {TclObjInvoke, lookup of "unknown" command} {
          [interp delete test_interp]
 } {newAlias 0 {global unknown} {}}
 
+if {[info command testcmdtrace] != {}} {
 test basic-12.1 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {
     testcmdtrace tracetest {set stuff [info tclversion]}
 } {{info tclversion} {info tclversion} {set stuff [info tclversion]} {set stuff 8.0}}
 test basic-12.2 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {
     testcmdtrace deletetest {set stuff [info tclversion]}
 } 8.0
+}
 
 catch {eval namespace delete [namespace children :: test_ns_*]}
 catch {namespace delete george}