diff options
| author | Steve Bennett <steveb@workware.net.au> | 2010-10-30 15:21:21 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-11-22 13:27:14 +1000 |
| commit | 192056900583884bc1f07f371df6478d856ada3b (patch) | |
| tree | 540618a3e81d8d9e14261e267edb912f5b73710a /tests/pid.test | |
| parent | d98489727fe31fa217d237b36901211adc35282d (diff) | |
Overhaul unit test framework
Much closer to tcltest now, including constraints.
Try to get all appropriate tests running under both Jim and Tcl.
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests/pid.test')
| -rw-r--r-- | tests/pid.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/pid.test b/tests/pid.test index c539fc4..4ce4d03 100644 --- a/tests/pid.test +++ b/tests/pid.test @@ -13,7 +13,9 @@ # # RCS: @(#) $Id: pid.test,v 1.6 2000/04/10 17:19:03 ericm Exp $ -source testing.tcl +source [file dirname [info script]]/testing.tcl + +needs cmd pid posix file delete test1 @@ -35,7 +37,7 @@ test pid-1.3 {pid command} { close $f set pids } {} -test pid-1.4 {pid command} { +test pid-1.4 {pid command} jim { list [catch {pid a b} msg] $msg } {1 {wrong # args: should be "pid ?chan?"}} test pid-1.5 {pid command} { |