OLD | NEW |
1 /* | 1 /* |
2 ** 2009 January 28 | 2 ** 2009 January 28 |
3 ** | 3 ** |
4 ** The author disclaims copyright to this source code. In place of | 4 ** The author disclaims copyright to this source code. In place of |
5 ** a legal notice, here is a blessing: | 5 ** a legal notice, here is a blessing: |
6 ** | 6 ** |
7 ** May you do good and not evil. | 7 ** May you do good and not evil. |
8 ** May you find forgiveness for yourself and forgive others. | 8 ** May you find forgiveness for yourself and forgive others. |
9 ** May you share freely, never taking more than you give. | 9 ** May you share freely, never taking more than you give. |
10 ** | 10 ** |
11 ************************************************************************* | 11 ************************************************************************* |
12 ** This file contains test logic for the sqlite3_backup() interface. | 12 ** This file contains test logic for the sqlite3_backup() interface. |
13 ** | 13 ** |
14 */ | 14 */ |
15 | 15 |
16 #include "tcl.h" | 16 #include "tcl.h" |
17 #include <sqlite3.h> | 17 #include "sqlite3.h" |
18 #include <assert.h> | 18 #include <assert.h> |
19 | 19 |
20 /* These functions are implemented in main.c. */ | 20 /* These functions are implemented in main.c. */ |
21 extern const char *sqlite3ErrName(int); | 21 extern const char *sqlite3ErrName(int); |
22 | 22 |
23 /* These functions are implemented in test1.c. */ | 23 /* These functions are implemented in test1.c. */ |
24 extern int getDbPointer(Tcl_Interp *, const char *, sqlite3 **); | 24 extern int getDbPointer(Tcl_Interp *, const char *, sqlite3 **); |
25 | 25 |
26 static int backupTestCmd( | 26 static int backupTestCmd( |
27 ClientData clientData, | 27 ClientData clientData, |
(...skipping 113 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
141 | 141 |
142 Tcl_CreateObjCommand(interp, zCmd, backupTestCmd, pBackup, backupTestFinish); | 142 Tcl_CreateObjCommand(interp, zCmd, backupTestCmd, pBackup, backupTestFinish); |
143 Tcl_SetObjResult(interp, objv[1]); | 143 Tcl_SetObjResult(interp, objv[1]); |
144 return TCL_OK; | 144 return TCL_OK; |
145 } | 145 } |
146 | 146 |
147 int Sqlitetestbackup_Init(Tcl_Interp *interp){ | 147 int Sqlitetestbackup_Init(Tcl_Interp *interp){ |
148 Tcl_CreateObjCommand(interp, "sqlite3_backup", backupTestInit, 0, 0); | 148 Tcl_CreateObjCommand(interp, "sqlite3_backup", backupTestInit, 0, 0); |
149 return TCL_OK; | 149 return TCL_OK; |
150 } | 150 } |
OLD | NEW |