diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-07 14:32:16 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-07 14:32:16 (GMT) |
| commit | 558466820c5e1155087da82f05a9c22a622004f4 (patch) | |
| tree | e4282d741775531443a8298022a782556537dba2 /generic/tclInt.decls | |
| parent | 5ef498d3ecdd93e8a04bfc7101f3e66f52ad1313 (diff) | |
| parent | 4c66b6ec4315475b1a2b49380da00926a9c4fbb6 (diff) | |
| download | tcl-558466820c5e1155087da82f05a9c22a622004f4.zip tcl-558466820c5e1155087da82f05a9c22a622004f4.tar.gz tcl-558466820c5e1155087da82f05a9c22a622004f4.tar.bz2 | |
Merge 9.0
Diffstat (limited to 'generic/tclInt.decls')
| -rw-r--r-- | generic/tclInt.decls | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 8a4a0ca..2c6c0f8 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -583,6 +583,17 @@ declare 258 { Tcl_Obj *basenameObj) } + +# TIP 625: for unit testing - create list objects with span +declare 260 { + Tcl_Obj *TclListTestObj(int length, int leadingSpace, int endSpace) +} + +# TIP 625: for unit testing - check list invariants +declare 261 { + void TclListObjValidate(Tcl_Interp *interp, Tcl_Obj *listObj) +} + ############################################################################## |