2021-08-09 15:57:27 +00:00
|
|
|
;; -*- no-byte-compile: t; lexical-binding: t; -*-
|
|
|
|
|
;;; test/sclang-mode-test.el
|
|
|
|
|
|
2021-08-20 01:23:54 +00:00
|
|
|
(ert-deftest sclang-autoloaded-functions ()
|
|
|
|
|
"Some functions should be callable interactively without requiring them"
|
|
|
|
|
(should (commandp 'sclang-start t))
|
|
|
|
|
(should (commandp 'sclang-mode t)))
|
|
|
|
|
|
2021-08-09 15:57:27 +00:00
|
|
|
(ert-deftest sclang-major-mode-init-test ()
|
|
|
|
|
"Loading a file with an scd extension should init sclang-mode"
|
|
|
|
|
(find-file "fixtures/super-boring.scd")
|
|
|
|
|
(should (eq 'sclang-mode major-mode)))
|
