/ Check-in [d99022a5]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix a test script bug causing zipfile.test to fail on systems that do not have the "unzip" program installed.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: d99022a5a8e4469a87a9fab8a976271e5785524da73ac1d2fae47d00d90fc07a
User & Date: dan 2018-03-29 16:39:09
Context
2018-03-29
16:54
Another change to test file zipfile.test to help it run on systems without "unzip". check-in: b6252feb user: dan tags: trunk
16:39
Fix a test script bug causing zipfile.test to fail on systems that do not have the "unzip" program installed. check-in: d99022a5 user: dan tags: trunk
13:47
Modify the sqlite3OsFileControl() interface to detect unopened sqlite3_file objects and return SQLITE_NOTFOUND. check-in: 1fc72b70 user: drh tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to test/zipfile.test.

154
155
156
157
158
159
160

161

162
163
164
165
166
167
168
  uplevel [list do_test $tn.1 [list set {} $r2] $r1]
  uplevel [list do_test $tn.2 [list set {} $r3] $r1]
}
proc strip_slash {in} { regsub {/$} $in {} }

proc do_zip_tests {tn file} {
  uplevel do_zipfile_blob_test $tn.1 $file

  uplevel do_unzip_test $tn.2 $file

}

forcedelete test.zip
do_execsql_test 1.0 {
  CREATE VIRTUAL TABLE temp.zz USING zipfile('test.zip');
  PRAGMA table_info(zz);
} {







>
|
>







154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
  uplevel [list do_test $tn.1 [list set {} $r2] $r1]
  uplevel [list do_test $tn.2 [list set {} $r3] $r1]
}
proc strip_slash {in} { regsub {/$} $in {} }

proc do_zip_tests {tn file} {
  uplevel do_zipfile_blob_test $tn.1 $file
  if {[info exists ::UNZIP]} {
    uplevel do_unzip_test $tn.2 $file
  }
}

forcedelete test.zip
do_execsql_test 1.0 {
  CREATE VIRTUAL TABLE temp.zz USING zipfile('test.zip');
  PRAGMA table_info(zz);
} {