diff options
| author | drh <drh@noemail.net> | 2001-04-07 15:24:33 +0000 |
|---|---|---|
| committer | drh <drh@noemail.net> | 2001-04-07 15:24:33 +0000 |
| commit | d1bf3512fa7b76d6da2d385c89c4a52f3b4d33c3 (patch) | |
| tree | 033bf39aa70cd904bb405548292d0b7282811eb5 /src/tclsqlite.c | |
| parent | d21afef769dd6318d7963bcd594d00b4e153de60 (diff) | |
| download | sqlite-d1bf3512fa7b76d6da2d385c89c4a52f3b4d33c3.tar.gz sqlite-d1bf3512fa7b76d6da2d385c89c4a52f3b4d33c3.zip | |
Added new tests (CVS 206)
FossilOrigin-Name: 2507ec40610d8034ccf9dcb58a16934065e6f120
Diffstat (limited to 'src/tclsqlite.c')
| -rw-r--r-- | src/tclsqlite.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/tclsqlite.c b/src/tclsqlite.c index 57df83b86..42c8eada5 100644 --- a/src/tclsqlite.c +++ b/src/tclsqlite.c @@ -23,7 +23,7 @@ ************************************************************************* ** A TCL Interface to SQLite ** -** $Id: tclsqlite.c,v 1.16 2001/04/06 16:13:43 drh Exp $ +** $Id: tclsqlite.c,v 1.17 2001/04/07 15:24:33 drh Exp $ */ #ifndef NO_TCL /* Omit this whole file if TCL is unavailable */ @@ -507,6 +507,12 @@ int TCLSH_MAIN(int argc, char **argv){ Tcl_FindExecutable(argv[0]); interp = Tcl_CreateInterp(); Sqlite_Init(interp); +#ifdef SQLITE_TEST1 + { + extern int Sqlitetest1_Init(Tcl_Interp*); + Sqlitetest1_Init(interp); + } +#endif if( argc>=2 ){ int i; Tcl_SetVar(interp,"argv0",argv[1],TCL_GLOBAL_ONLY); |