Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix the extension01.test script so that it works on windows. Fix a harmless compiler warning in the fileio extension. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
baf95a190907d05a847ae8b6a3dd6062 |
User & Date: | drh 2014-06-16 12:51:56.200 |
Context
2014-06-16
| ||
15:01 | Add the ".eqp" dot-command to the ".help" output in the command-line shell. This was accidently omitted when the ".eqp" command was originally implemented for SQLite 3.8.4 (check-in [e6ecf7337658624]). (check-in: b0b4c776c3 user: drh tags: trunk) | |
12:51 | Fix the extension01.test script so that it works on windows. Fix a harmless compiler warning in the fileio extension. (check-in: baf95a1909 user: drh tags: trunk) | |
12:44 | Add test cases for the fileio extension. (check-in: 8634333127 user: drh tags: trunk) | |
Changes
Changes to ext/misc/fileio.c.
︙ | ︙ | |||
58 59 60 61 62 63 64 | sqlite3_context *context, int argc, sqlite3_value **argv ){ FILE *out; const char *z; int n; | | | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | sqlite3_context *context, int argc, sqlite3_value **argv ){ FILE *out; const char *z; int n; sqlite3_int64 rc; const char *zFile; zFile = (const char*)sqlite3_value_text(argv[0]); if( zFile==0 ) return; out = fopen(zFile, "wb"); if( out==0 ) return; z = (const char*)sqlite3_value_blob(argv[1]); |
︙ | ︙ |
Changes to test/extension01.test.
︙ | ︙ | |||
56 57 58 59 60 61 62 | } } {0} do_test 1.5 { file size ./file2.txt } {0} do_test 1.6 { | > | > > > > | > > > | 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 | } } {0} do_test 1.5 { file size ./file2.txt } {0} do_test 1.6 { if {$::tcl_platform(platform)=="unix"} { file attributes ./file2.txt -permissions r--r--r-- } else { file attributes ./file2.txt -readonly 1 } db eval { SELECT writefile('./file2.txt', 'Another test'); } } {nil} do_test 1.7 { if {$::tcl_platform(platform)=="unix"} { file attributes ./file2.txt -permissions rw-r--r-- } else { file attributes ./file2.txt -readonly 0 } db eval { SELECT writefile(NULL, 'Another test'); } } {nil} finish_test |