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 | b436f143984f4fa10573ee83e1bc749a78ec4c42 (patch) | |
tree | 9455396a4e9d2cd847e2d897472613c4b1b8f072 /tests/assocd.test | |
parent | e594dd22670d8bb0abd7af63eca59c183e344aeb (diff) | |
parent | cf7969886b99c16a6755f8c9c6ff2e8336705974 (diff) | |
download | tcl-b436f143984f4fa10573ee83e1bc749a78ec4c42.zip tcl-b436f143984f4fa10573ee83e1bc749a78ec4c42.tar.gz tcl-b436f143984f4fa10573ee83e1bc749a78ec4c42.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 } "" |