blob: 59b5f3b6569d71b78824f39b36ffecb6a2136bb7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
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
|
