diff options
Diffstat (limited to 'elpa/irony-20220110.849/server/test/elisp/irony-cdb-json.el')
-rw-r--r-- | elpa/irony-20220110.849/server/test/elisp/irony-cdb-json.el | 87 |
1 files changed, 0 insertions, 87 deletions
diff --git a/elpa/irony-20220110.849/server/test/elisp/irony-cdb-json.el b/elpa/irony-20220110.849/server/test/elisp/irony-cdb-json.el deleted file mode 100644 index a810dae..0000000 --- a/elpa/irony-20220110.849/server/test/elisp/irony-cdb-json.el +++ /dev/null @@ -1,87 +0,0 @@ -;; -*-no-byte-compile: t; -*- -(load - (concat (file-name-directory (or load-file-name buffer-file-name)) - "test-config")) - -(require 'irony-cdb-json) -(require 'cl-lib) - -(defconst irony-cdb/compile-command - '((file . "../src/file.cc") - (directory . "/home/user/project/build") - (command . "/usr/bin/clang++ -DSOMEDEF=1 -c -o file.o /home/user/project/src/file.cc"))) - -(ert-deftest cdb/parse/simple/path-is-absolute () - (should - (equal "/home/user/project/src/file.cc" - (nth 0 (irony-cdb-json--transform-compile-command - irony-cdb/compile-command))))) - -(ert-deftest cdb/parse/simple/compile-options () - (should - (equal '("-DSOMEDEF=1") - (nth 1 (irony-cdb-json--transform-compile-command - irony-cdb/compile-command))))) - -(ert-deftest cdb/parse/simple/invocation-directory () - (should - (equal "/home/user/project/build" - (nth 2 (irony-cdb-json--transform-compile-command - irony-cdb/compile-command))))) - -(ert-deftest cdb/choose-closest-path/chooses-closest () - (should - (equal "/tmp/a/cdb" - (irony-cdb--choose-closest-path "/tmp/a/1" - '("/tmp/a/cdb" "/tmp/cdb"))))) - -(ert-deftest cdb/choose-closest-path/chooses-closest2 () - (should - (equal "/tmp/a/cdb" - (irony-cdb--choose-closest-path "/tmp/a/1" - '("/tmp/cdb" "/tmp/a/cdb"))))) - -(ert-deftest cdb/choose-closest-path/prefers-deeper () - (should - (equal "/tmp/a/build/cdb" - (irony-cdb--choose-closest-path "/tmp/a/1" - '("/tmp/a/build/cdb" "/tmp/cdb"))))) - -(ert-deftest cdb/choose-closest-path/prefers-deeper2 () - (should - (equal "/tmp/a/build/cdb" - (irony-cdb--choose-closest-path "/tmp/a/1" - '("/tmp/cdb" "/tmp/a/build/cdb"))))) - -(ert-deftest cdb/choose-closest-path/will-survive-garbage () - (should - (equal nil - (irony-cdb--choose-closest-path "/tmp/a/1" - 'ordures)))) - -; http://endlessparentheses.com/understanding-letf-and-how-it-replaces-flet.html -(ert-deftest cdb/locate-db/choose-among-candidates () - (should - (equal "/foo/build/cdb" - (cl-letf (((symbol-function 'locate-dominating-file) - (lambda (file name) - (cond - ((string= name "./cdb") "/") ; found /cdb - ((string= name "build/cdb") "/foo/") ; found /foo/build/cdb - )))) - (irony-cdb--locate-dominating-file-with-dirs "/foo/bar/qux.cpp" - "cdb" - '("." "build" "out/x86_64")))))) - -(ert-deftest cdb/locate-dominating-file-with-dirs/children-first () - (should - (equal "/tmp/foo/bar/out/x86_64/cdb" - (cl-letf (((symbol-function 'locate-dominating-file) - (lambda (file name) - (cond - ((string= name "./cdb") "/tmp/foo/") ; found /tmp/foo/cdb - ((string= name "out/x86_64/cdb") "/tmp/foo/bar/") ;found /tmp/foo/bar/out/x86_64/cdb - )))) - (irony-cdb--locate-dominating-file-with-dirs "/tmp/foo/bar/qux.cpp" - "cdb" - '("." "out/x86_64" )))))) |