diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-18 12:57:14 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-07-18 12:57:14 (GMT) |
commit | bd7c6ae5d32910d95953d096689b7b379091f33e (patch) | |
tree | 9ad42fb3f9cb44b4026a2a50b5502b87fb4afd87 /generic/tclInt.decls | |
parent | 41c87a4bf59377b2fcccc1d36a2812032e7a56e3 (diff) | |
parent | 269b0fd3c44a9cbb3afb12f6164598f1e26c229c (diff) | |
download | tcl-bd7c6ae5d32910d95953d096689b7b379091f33e.zip tcl-bd7c6ae5d32910d95953d096689b7b379091f33e.tar.gz tcl-bd7c6ae5d32910d95953d096689b7b379091f33e.tar.bz2 |
Merge tip-625
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 4c05de8..43e0a85 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) +} + ############################################################################## |