blob: e8966d7bf29fa4e57bc804cb155d71223963da59 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
;;; test-system-defaults-vc-follow-symlinks.el --- Tests for VC symlink default -*- lexical-binding: t; -*-
;;; Commentary:
;; system-defaults.el has startup side effects, so load it with unrelated
;; external interactions stubbed and assert the setting this file owns.
;;; Code:
(require 'ert)
(add-to-list 'load-path (expand-file-name "tests" user-emacs-directory))
(require 'testutil-system-defaults)
(ert-deftest test-system-defaults-vc-follow-symlinks-normal-sets-t ()
"Normal: system-defaults follows version-controlled symlinks without asking."
(test-system-defaults--with-load-environment
(let ((vc-follow-symlinks nil))
(test-system-defaults--load)
(should (eq vc-follow-symlinks t)))))
(provide 'test-system-defaults-vc-follow-symlinks)
;;; test-system-defaults-vc-follow-symlinks.el ends here
|
