diff options
| author | Po Lu | 2023-05-27 09:49:49 +0800 |
|---|---|---|
| committer | Po Lu | 2023-05-27 09:49:49 +0800 |
| commit | cdca0fddcc3352bcd01bec147c264be1b2a04e12 (patch) | |
| tree | 3b15e37936fecc34314883a41a355873c2b9133c /test/src/sqlite-tests.el | |
| parent | 0eb1f4e57125117006f109a5549082008fc9fbb1 (diff) | |
| parent | e77e986a9b7d735c0e39198c8b80a34a29005fc5 (diff) | |
| download | emacs-cdca0fddcc3352bcd01bec147c264be1b2a04e12.tar.gz emacs-cdca0fddcc3352bcd01bec147c264be1b2a04e12.zip | |
Merge remote-tracking branch 'origin/master' into feature/android
Diffstat (limited to 'test/src/sqlite-tests.el')
| -rw-r--r-- | test/src/sqlite-tests.el | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/test/src/sqlite-tests.el b/test/src/sqlite-tests.el index 460651def78..f7144c15887 100644 --- a/test/src/sqlite-tests.el +++ b/test/src/sqlite-tests.el | |||
| @@ -197,10 +197,13 @@ | |||
| 197 | (sqlite-load-extension db "/usr/lib/sqlite3/")) | 197 | (sqlite-load-extension db "/usr/lib/sqlite3/")) |
| 198 | (should-error | 198 | (should-error |
| 199 | (sqlite-load-extension db "/usr/lib/sqlite3")) | 199 | (sqlite-load-extension db "/usr/lib/sqlite3")) |
| 200 | (should | 200 | (if (eq system-type 'windows-nt) |
| 201 | (memq | 201 | (should |
| 202 | (sqlite-load-extension db "/usr/lib/sqlite3/pcre.so") | 202 | (eq (sqlite-load-extension db "/usr/lib/sqlite3/pcre.dll") |
| 203 | '(nil t))) | 203 | (file-readable-p "/usr/lib/sqlite3/pcre.dll"))) |
| 204 | (should | ||
| 205 | (eq (sqlite-load-extension db "/usr/lib/sqlite3/pcre.so") | ||
| 206 | (file-readable-p "/usr/lib/sqlite3/pcre.so")))) | ||
| 204 | 207 | ||
| 205 | (should-error | 208 | (should-error |
| 206 | (sqlite-load-extension | 209 | (sqlite-load-extension |
| @@ -211,11 +214,13 @@ | |||
| 211 | (should-error | 214 | (should-error |
| 212 | (sqlite-load-extension | 215 | (sqlite-load-extension |
| 213 | db "/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable")) | 216 | db "/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable")) |
| 214 | (should | 217 | (if (eq system-type 'windows-nt) |
| 215 | (memq | 218 | (should |
| 216 | (sqlite-load-extension | 219 | (eq (sqlite-load-extension db "/usr/lib/sqlite3/csvtable.dll") |
| 217 | db "/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable.so") | 220 | (file-readable-p "/usr/lib/sqlite3/csvtable.dll"))) |
| 218 | '(nil t))))) | 221 | (should |
| 222 | (eq (sqlite-load-extension db "/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable.so") | ||
| 223 | (file-readable-p "/usr/lib/x86_64-linux-gnu/libsqlite3_mod_csvtable.so")))))) | ||
| 219 | 224 | ||
| 220 | (ert-deftest sqlite-blob () | 225 | (ert-deftest sqlite-blob () |
| 221 | (skip-unless (sqlite-available-p)) | 226 | (skip-unless (sqlite-available-p)) |