diff options
author | dgp <dgp@users.sourceforge.net> | 2013-02-25 14:54:14 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-02-25 14:54:14 (GMT) |
commit | 597760fa003d1d510853e15a4c74b3ffd70b3e98 (patch) | |
tree | 8cb62dfef73aa410f137214e343654d9d065d6ca /tests/assocd.test | |
parent | c321250dcd5875ebaf9503f4278e9c1f6a3ca30c (diff) | |
download | tcl-597760fa003d1d510853e15a4c74b3ffd70b3e98.zip tcl-597760fa003d1d510853e15a4c74b3ffd70b3e98.tar.gz tcl-597760fa003d1d510853e15a4c74b3ffd70b3e98.tar.bz2 |
3605719,3605720 Test independence. Thanks Rolf Ade for patches.
Diffstat (limited to 'tests/assocd.test')
-rw-r--r-- | tests/assocd.test | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/tests/assocd.test b/tests/assocd.test index f07d466..46a813a 100644 --- a/tests/assocd.test +++ b/tests/assocd.test @@ -31,15 +31,21 @@ test assocd-1.4 {testing setting assoc data} testsetassocdata { testsetassocdata abc "abc d e f" } "" -test assocd-2.1 {testing getting assoc data} testgetassocdata { - testgetassocdata a -} 2 -test assocd-2.2 {testing getting assoc data} testgetassocdata { - testgetassocdata 123 -} 456 -test assocd-2.3 {testing getting assoc data} testgetassocdata { +test assocd-2.1 {testing getting assoc data} -setup { + testsetassocdata a 2 +} -constraints {testgetassocdata} -body { + testgetassocdata a +} -result 2 +test assocd-2.2 {testing getting assoc data} -setup { + testsetassocdata 123 456 +} -constraints {testgetassocdata} -body { + testgetassocdata 123 +} -result 456 +test assocd-2.3 {testing getting assoc data} -setup { + testsetassocdata abc "abc d e f" +} -constraints {testgetassocdata} -body { testgetassocdata abc -} {abc d e f} +} -result "abc d e f" test assocd-2.4 {testing getting assoc data} testgetassocdata { testgetassocdata xxx } "" |