diff options
| author | sebres <sebres@users.sourceforge.net> | 2019-08-27 12:03:51 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2019-08-27 12:03:51 (GMT) |
| commit | 1149b24a6ef5f229a58fa36cfdbe6a1f345ed71b (patch) | |
| tree | acd62b1688bf0e875f7a445629e28e254e58e483 /generic | |
| parent | 820f8b93db0118a857d692bea2efa8b3b3149692 (diff) | |
| download | tcl-1149b24a6ef5f229a58fa36cfdbe6a1f345ed71b.zip tcl-1149b24a6ef5f229a58fa36cfdbe6a1f345ed71b.tar.gz tcl-1149b24a6ef5f229a58fa36cfdbe6a1f345ed71b.tar.bz2 | |
added tests covering bug [fa6bf38d07]
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclTest.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 473368c..5e807d4 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -220,6 +220,9 @@ static void SpecialFree(char *blockPtr); static int StaticInitProc(Tcl_Interp *interp); static int TestasyncCmd(ClientData dummy, Tcl_Interp *interp, int argc, const char **argv); +static int TestbumpinterpepochObjCmd(ClientData clientData, + Tcl_Interp *interp, int objc, + Tcl_Obj *const objv[]); static int TestpurebytesobjObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); @@ -584,6 +587,8 @@ Tcltest_Init( Tcl_CreateObjCommand(interp, "testgetindexfromobjstruct", TestGetIndexFromObjStructObjCmd, NULL, NULL); Tcl_CreateCommand(interp, "testasync", TestasyncCmd, NULL, NULL); + Tcl_CreateObjCommand(interp, "testbumpinterpepoch", + TestbumpinterpepochObjCmd, NULL, NULL); Tcl_CreateCommand(interp, "testchannel", TestChannelCmd, NULL, NULL); Tcl_CreateCommand(interp, "testchannelevent", TestChannelEventCmd, @@ -1022,6 +1027,22 @@ AsyncThreadProc( } #endif +static int +TestbumpinterpepochObjCmd( + ClientData dummy, /* Not used. */ + Tcl_Interp *interp, /* Current interpreter. */ + int objc, /* Number of arguments. */ + Tcl_Obj *const objv[]) /* Argument objects. */ +{ + Interp *iPtr = (Interp *)interp; + if (objc != 1) { + Tcl_WrongNumArgs(interp, 1, objv, ""); + return TCL_ERROR; + } + iPtr->compileEpoch++; + return TCL_OK; +} + /* *---------------------------------------------------------------------- * |