Index: tests/speedtest.xotcl =================================================================== diff -u -r217d826e64107056ae97176552cae3c776991b9e -rf9807b1cea03590c9573b5a521760538d53ee90f --- tests/speedtest.xotcl (.../speedtest.xotcl) (revision 217d826e64107056ae97176552cae3c776991b9e) +++ tests/speedtest.xotcl (.../speedtest.xotcl) (revision f9807b1cea03590c9573b5a521760538d53ee90f) @@ -54,11 +54,17 @@ info exists v } C instproc existsViaExistsMethod {} { - my exists v + [self] exists v } C instproc existsViaMyExistsMethod {} { my exists v } +C instproc existsViaDotExistsMethod {} { + .exists v +} +C instproc existsViaResolver {} { + info exists .v +} C instproc notExistsViaInstvar {} { my instvar xxx info exists xxx @@ -200,6 +206,8 @@ Test new -cmd {c existsViaMyInstvar} Test new -cmd {c existsViaExistsMethod} Test new -cmd {c existsViaMyExistsMethod} +Test new -cmd {c existsViaDotExistsMethod} +Test new -cmd {c existsViaResolver} Test new -cmd {c exists v} Test new -cmd {c notExistsViaInstvar} -expected 0 Test new -cmd {c notExistsViaExistsMethod} -expected 0