32 lines
1 KiB
EmacsLisp
32 lines
1 KiB
EmacsLisp
;; Copyright (c) 2014 Microsoft Corporation. All rights reserved.
|
|
;; Released under Apache 2.0 license as described in the file LICENSE.
|
|
;;
|
|
;; Author: Soonho Kong
|
|
;;
|
|
|
|
(require 'ert)
|
|
(require 'lean-variable)
|
|
(require 'lean-settings)
|
|
(require 'lean-option)
|
|
|
|
(ert-deftest lean-test-update-string-alist ()
|
|
(lean-update-option-alist "pp.implicit" 'true)
|
|
(should
|
|
(equal (assoc-string "pp.implicit" lean-global-option-alist)
|
|
'("pp.implicit" . true)))
|
|
(lean-update-option-alist "pp.implicit" 'false)
|
|
(should
|
|
(equal (assoc-string "pp.implicit" lean-global-option-alist)
|
|
'("pp.implicit" . false))))
|
|
|
|
(ert-deftest lean-test-update-string-alist-default ()
|
|
(setq lean-global-option-alist nil)
|
|
(should (string= (lean-option-string)
|
|
(format "-D%s=%d"
|
|
"pp.width"
|
|
lean-default-pp-width)))
|
|
(lean-update-option-alist "pp.width" 80)
|
|
(should (string= (lean-option-string)
|
|
(format "-D%s=%d"
|
|
"pp.width"
|
|
80))))
|