[ADD] Sample test case

KeyWeeUsr · Nov 16, 2023 · e0e44f3 · e0e44f3
1 parent 3114d05
commit e0e44f3
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 0 deletions.
diff --git a/Makefile b/Makefile
@@ -0,0 +1,7 @@
+EMACS := emacs
+
+all:
+	$(EMACS) --batch --quick \
+		--directory . \
+		--load typewriter-roll-mode-tests.el \
+		--funcall ert-run-tests-batch
diff --git a/typewriter-roll-mode-tests.el b/typewriter-roll-mode-tests.el
@@ -0,0 +1,17 @@
+;;; typewriter-roll-mode-tests.el -- tests for typewriter-roll-mode
+
+;;; Code:
+
+(require 'ert)
+(require 'typewriter-roll-mode)
+
+(ert-deftest trm-backspace ()
+  (should (not
+           (let ((this-command "hello"))
+             (typewriter-roll--is-backspace))))
+  (should (let ((this-command 'delete-backward-char))
+            (typewriter-roll--is-backspace))))
+
+(provide 'typewriter-roll-mode-tests)
+
+;;; typewriter-roll-mode-tests.el ends here