diff options
| author | hershey <hershey> | 1998-12-04 04:18:20 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1998-12-04 04:18:20 (GMT) |
| commit | cbff5b9a590af5d06e6e9158c3119017db2aee7e (patch) | |
| tree | 1f00677cc4256f6d3c13aa8ecbe319787807f0ba /tests/fCmd.test | |
| parent | efa97152396ac579cbc0552206bf7f705e338957 (diff) | |
| download | tcl-cbff5b9a590af5d06e6e9158c3119017db2aee7e.zip tcl-cbff5b9a590af5d06e6e9158c3119017db2aee7e.tar.gz tcl-cbff5b9a590af5d06e6e9158c3119017db2aee7e.tar.bz2 | |
Updated all and defs to work more smoothly with nightly tests.
Check for existence of "testgetplatform" command before calling
it in fCmd.test file--this command is only in tcltest interps.
Diffstat (limited to 'tests/fCmd.test')
| -rw-r--r-- | tests/fCmd.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index 0166643..2af1989 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -9,11 +9,17 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: fCmd.test,v 1.2 1998/09/14 18:40:09 stanton Exp $ +# RCS: @(#) $Id: fCmd.test,v 1.3 1998/12/04 04:18:20 hershey Exp $ # if {[string compare test [info procs test]] == 1} then {source defs} +if {[string compare testgetplatform [info commands testgetplatform]] != 0} { + puts "This application hasn't been compiled with the \"testgetplatform\"" + puts "command, therefore I am skipping all of these tests." + return +} + set platform [testgetplatform] if {$user == "root"} { |