aboutsummaryrefslogtreecommitdiffstats
path: root/test/src/sqlite-tests.el
diff options
context:
space:
mode:
authorPo Lu2023-05-27 09:49:49 +0800
committerPo Lu2023-05-27 09:49:49 +0800
commitcdca0fddcc3352bcd01bec147c264be1b2a04e12 (patch)
tree3b15e37936fecc34314883a41a355873c2b9133c /test/src/sqlite-tests.el
parent0eb1f4e57125117006f109a5549082008fc9fbb1 (diff)
parente77e986a9b7d735c0e39198c8b80a34a29005fc5 (diff)
downloademacs-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.el23
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))