diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 08:53:15 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-15 08:53:15 (GMT) |
| commit | 0c44c5003d77ce4f6d9976ca47aa21dc4769adb5 (patch) | |
| tree | fb70e1d9694bcd7116e3043b09d252f75795e04f /tests/oo.test | |
| parent | 2b9b50b436e7b0d4d9463731cc20e85c17dbfca1 (diff) | |
| download | tcl-0c44c5003d77ce4f6d9976ca47aa21dc4769adb5.zip tcl-0c44c5003d77ce4f6d9976ca47aa21dc4769adb5.tar.gz tcl-0c44c5003d77ce4f6d9976ca47aa21dc4769adb5.tar.bz2 | |
Fix for issue [6cf568a21b]: Tcl_Eval() causes new segfault (TclOO object
creation by qualified name).
Diffstat (limited to 'tests/oo.test')
| -rw-r--r-- | tests/oo.test | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tests/oo.test b/tests/oo.test index 3829763..c8f09c3 100644 --- a/tests/oo.test +++ b/tests/oo.test @@ -128,6 +128,9 @@ test oo-1.3 {basic test of OO functionality: no classes} { test oo-1.4 {basic test of OO functionality} -body { oo::object create {} } -returnCodes 1 -result {object name must not be empty} +test oo-1.4.1 {fully-qualified nested name} -body { + oo::object create ::one::two::three +} -result {::one::two::three} test oo-1.5 {basic test of OO functionality} -body { oo::object doesnotexist } -returnCodes 1 -result {unknown method "doesnotexist": must be create, destroy or new} |