diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 10:52:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 10:52:29 (GMT) |
| commit | aa93fba41a6764dce6c1f918388efd0f46136ada (patch) | |
| tree | 7d372bd18e21440cb339aeb273f6d0d605600dec /tests/indexObj.test | |
| parent | 721b319dcb44dc8af3446dbc91de321fd6a5b707 (diff) | |
| parent | 6e51a643257c04e64fcd6684e45d068705d9587f (diff) | |
| download | tcl-aa93fba41a6764dce6c1f918388efd0f46136ada.zip tcl-aa93fba41a6764dce6c1f918388efd0f46136ada.tar.gz tcl-aa93fba41a6764dce6c1f918388efd0f46136ada.tar.bz2 | |
Implement TIP #613: New INDEX_NULL_OK flag for Tcl_GetIndexFromObj*()
Diffstat (limited to 'tests/indexObj.test')
| -rw-r--r-- | tests/indexObj.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/indexObj.test b/tests/indexObj.test index 9fd31b4..c327274 100644 --- a/tests/indexObj.test +++ b/tests/indexObj.test @@ -140,6 +140,10 @@ test indexObj-6.6 {Tcl_GetIndexFromObjStruct with NULL input} -constraints testi set x "" testgetindexfromobjstruct $x 0 } -returnCodes error -result {ambiguous dummy "": must be a, c, or ee} +test indexObj-6.7 {Tcl_GetIndexFromObjStruct} testindexobj { + set x "" + testgetindexfromobjstruct $x -1 4 +} "wrong # args: should be \"testgetindexfromobjstruct {} -1 4\"" test indexObj-7.1 {Tcl_ParseArgsObjv} testparseargs { testparseargs |