1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(use sqlite3)
;;======================================================================
;; P R O C E S S E S
;;======================================================================
(test "cmd-run-with-stderr->list" '("No such file or directory")
(let ((reslst (cmd-run-with-stderr->list "ls" "/tmp/ihadbetternotexist")))
(string-search (regexp "No such file or directory")(car reslst))))
;;======================================================================
;; T E S T M A T C H I N G
;;======================================================================
;; tests:glob-like-match
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(use sqlite3)
;;======================================================================
;; P R O C E S S E S
;;======================================================================
(test "process:cmd-run-with-stderr->list" '("No such file or directory")
(let ((reslst (process:cmd-run-with-stderr->list "ls" "/tmp/ihadbetternotexist")))
(string-search (regexp "No such file or directory")(car reslst))))
;;======================================================================
;; T E S T M A T C H I N G
;;======================================================================
;; tests:glob-like-match
|