diff options
author | dgp <dgp@users.sourceforge.net> | 2013-02-25 14:55:17 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2013-02-25 14:55:17 (GMT) |
commit | 1f5b1659347a5cb0b2f887b5f3b8c5e9221e3997 (patch) | |
tree | 9455396a4e9d2cd847e2d897472613c4b1b8f072 /tests/assocd.test | |
parent | ca5848b9fa59cb04251c5ab99327e8572cdab06d (diff) | |
parent | 597760fa003d1d510853e15a4c74b3ffd70b3e98 (diff) | |
download | tcl-1f5b1659347a5cb0b2f887b5f3b8c5e9221e3997.zip tcl-1f5b1659347a5cb0b2f887b5f3b8c5e9221e3997.tar.gz tcl-1f5b1659347a5cb0b2f887b5f3b8c5e9221e3997.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 b543c64..edf55c4 100644 --- a/tests/assocd.test +++ b/tests/assocd.test @@ -34,15 +34,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 } "" |