aboutsummaryrefslogtreecommitdiff
path: root/tests/test-prog-c-compile-command.el
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-05-03 20:08:35 -0500
committerCraig Jennings <c@cjennings.net>2026-05-03 20:08:35 -0500
commitf619cbf9f384dfd6976e3bed448b3473146841e1 (patch)
tree3a11e1b4ab89c0e35d5c1f12141bd09f731b3fc8 /tests/test-prog-c-compile-command.el
parentdeff663d480afb23e47f0d0fd834d2c0959d0b00 (diff)
downloaddotemacs-f619cbf9f384dfd6976e3bed448b3473146841e1.tar.gz
dotemacs-f619cbf9f384dfd6976e3bed448b3473146841e1.zip
test: cover C mode hooks and project compile branches
I added 7 new tests across 3 files, filling coverage gaps in `prog-c.el`. Two functions were untested (`cj/c-mode-settings`, `cj/c-mode-keybindings`) and `cj/c-compile-command` only had its single-file fallback covered. `cj/c-compile-command` now has the Makefile and CMake branches tested, plus a Boundary case for a Makefile path with spaces being shell-quoted in the `cd` target. I added these to the existing `test-prog-c-compile-command.el` since the helper and dispatcher already lived there. `cj/c-mode-settings` gets three tests. One covers the buffer-local invariants (`indent-tabs-mode` nil, `c-basic-offset` 4, `tab-width` 4, `fill-column` 80, `comment-auto-fill-only-comments` t). The other two cover the LSP branch: `lsp-deferred` runs when the function is fbound and `executable-find` returns a clangd path, and skips when clangd is missing. `cj/c-mode-keybindings` gets one test asserting S-F5 binds to `cj/disabled` and S-F6 binds to `gdb` in the buffer's local keymap. No realistic Boundary or Error cases for installing two static bindings, so the single Normal case carries it. I stubbed `auto-fill-mode`, `electric-pair-mode`, `lsp-deferred`, `executable-find`, and `locate-dominating-file` at the boundaries via `cl-letf`. Buffer-local state was exercised real in `with-temp-buffer`. 12 prog-c tests pass together: 5 existing plus 7 new.
Diffstat (limited to 'tests/test-prog-c-compile-command.el')
-rw-r--r--tests/test-prog-c-compile-command.el85
1 files changed, 85 insertions, 0 deletions
diff --git a/tests/test-prog-c-compile-command.el b/tests/test-prog-c-compile-command.el
new file mode 100644
index 00000000..59b5f3b6
--- /dev/null
+++ b/tests/test-prog-c-compile-command.el
@@ -0,0 +1,85 @@
+;;; test-prog-c-compile-command.el --- Tests for C compile command setup -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; Verifies single-file C compile commands use file paths rather than buffer
+;; names, and quote paths safely for compile.el's shell command.
+
+;;; Code:
+
+(require 'ert)
+(add-to-list 'load-path (expand-file-name "modules" user-emacs-directory))
+(require 'prog-c)
+
+(ert-deftest test-prog-c-single-file-command-normal-path ()
+ "A simple C file should keep the readable historical command shape."
+ (should (equal
+ (cj/c--single-file-compile-command "/tmp/project/main.c")
+ "gcc -Wall -Wextra -g -o /tmp/project/main /tmp/project/main.c")))
+
+(ert-deftest test-prog-c-single-file-command-quotes-spaces ()
+ "C source and output paths with spaces should be shell-escaped."
+ (should (equal
+ (cj/c--single-file-compile-command "/tmp/my project/hello world.c")
+ "gcc -Wall -Wextra -g -o /tmp/my\\ project/hello\\ world /tmp/my\\ project/hello\\ world.c")))
+
+(ert-deftest test-prog-c-single-file-command-quotes-metacharacters ()
+ "Shell metacharacters in C paths should be escaped."
+ (should (equal
+ (cj/c--single-file-compile-command "/tmp/project/weird;name.c")
+ "gcc -Wall -Wextra -g -o /tmp/project/weird\\;name /tmp/project/weird\\;name.c")))
+
+(ert-deftest test-prog-c-single-file-command-errors-without-file ()
+ "Non-file buffers should fail clearly instead of compiling buffer names."
+ (should-error (cj/c--single-file-compile-command nil)
+ :type 'user-error))
+
+(ert-deftest test-prog-c-compile-command-uses-buffer-file-name ()
+ "The fallback compile command should ignore a renamed buffer's display name."
+ (let ((source (expand-file-name "real source.c" temporary-file-directory)))
+ (with-temp-buffer
+ (setq buffer-file-name source)
+ (rename-buffer "renamed display buffer" t)
+ (cl-letf (((symbol-function 'locate-dominating-file)
+ (lambda (&rest _args) nil)))
+ (cj/c-compile-command))
+ (should (equal
+ compile-command
+ (format "gcc -Wall -Wextra -g -o %s %s"
+ (shell-quote-argument
+ (file-name-sans-extension source))
+ (shell-quote-argument source)))))))
+
+(ert-deftest test-prog-c-compile-command-makefile-uses-make ()
+ "Normal: a Makefile dominating the source dir produces a make compile command."
+ (with-temp-buffer
+ (cl-letf (((symbol-function 'locate-dominating-file)
+ (lambda (_dir name)
+ (when (equal name "Makefile") "/tmp/projectroot/"))))
+ (cj/c-compile-command))
+ (should (equal compile-command
+ (format "cd %s && make -k "
+ (shell-quote-argument "/tmp/projectroot/"))))))
+
+(ert-deftest test-prog-c-compile-command-cmake-uses-cmake-build ()
+ "Normal: a CMakeLists.txt dominating the source dir produces a cmake build command."
+ (with-temp-buffer
+ (cl-letf (((symbol-function 'locate-dominating-file)
+ (lambda (_dir name)
+ (when (equal name "CMakeLists.txt") "/tmp/cmakeroot/"))))
+ (cj/c-compile-command))
+ (should (equal compile-command
+ (format "cd %s && cmake --build build "
+ (shell-quote-argument "/tmp/cmakeroot/"))))))
+
+(ert-deftest test-prog-c-compile-command-makefile-path-with-spaces-is-quoted ()
+ "Boundary: a Makefile in a directory with spaces is shell-quoted in the cd target."
+ (with-temp-buffer
+ (cl-letf (((symbol-function 'locate-dominating-file)
+ (lambda (_dir name)
+ (when (equal name "Makefile") "/tmp/my project/"))))
+ (cj/c-compile-command))
+ (should (equal compile-command
+ "cd /tmp/my\\ project/ && make -k "))))
+
+(provide 'test-prog-c-compile-command)
+;;; test-prog-c-compile-command.el ends here