database/sqlite
1
0
Fork 0
mirror of https://github.com/sqlite/sqlite.git synced 2025-08-07 02:42:48 +03:00
Code Activity

Added new tests (CVS 206)

Browse Source 
FossilOrigin-Name: 2507ec40610d8034ccf9dcb58a16934065e6f120
This commit is contained in:
drh
2001-04-07 15:24:33 +00:00
parent d21afef769
commit d1bf3512fa
11 changed files with 469 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/tclsqlite.c
View File

@@ -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);