diff options
| author | Steve Bennett <steveb@workware.net.au> | 2022-04-11 09:29:27 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2022-04-11 09:36:24 +1000 |
| commit | 5c6703fc637f10f1bbba8fb079f5fdd188ff4efb (patch) | |
| tree | a4c4074744f5f5960a696894ded5e1cd2345dfc2 /tests | |
| parent | 758812fd919e7135b3541e66f416a2dd26596f5f (diff) | |
| download | jimtcl-5c6703fc637f10f1bbba8fb079f5fdd188ff4efb.zip jimtcl-5c6703fc637f10f1bbba8fb079f5fdd188ff4efb.tar.gz jimtcl-5c6703fc637f10f1bbba8fb079f5fdd188ff4efb.tar.bz2 | |
getref, setref: reference may be qualified
oo.tcl returns globally qualified names like
::<reference.<tree___>.00000000000000000000>
So allow getref and setref to handle these qualified references
Fixes #218
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ref.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/ref.test b/tests/ref.test index 7a38142..acc2793 100644 --- a/tests/ref.test +++ b/tests/ref.test @@ -21,4 +21,23 @@ test collect-1.1 {ensure globally scoped references are deleted} { set result } {3 0 3 1} +test getref-1.1 {getref basic functionality} { + set r [ref string tag] + getref $r +} string + +test getref-1.2 {getref fully qualified} { + getref ::$r +} string + +test setref-1.1 {setref basic functionality} { + setref $r string2 + getref $r +} string2 + +test setref-1.2 {setref fully qualified} { + setref ::$r string3 + getref ::$r +} string3 + testreport |