branch: externals/realgud
commit 37ba671dd92333c6925ce0470aff26e7eed19c64
Author: rocky <ro...@gnu.org>
Commit: rocky <ro...@gnu.org>
Comment better a track test
---
test/test-track.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/test/test-track.el b/test/test-track.el
index e3befb0..cbc4da0 100644
--- a/test/test-track.el
+++ b/test/test-track.el
@@ -106,7 +106,10 @@ trepan: That's all, folks...
(note "realgud:eval-command-p")
(setq test-command-name-hash (make-hash-table :test 'equal))
(set (make-local-variable 'realgud-command-name-hash) test-command-name-hash)
+
+;; We haven't set "eval" in command-name-hash so this should fail
(assert-nil (realgud:eval-command-p "eval 'cow'\n'cow'\n(pdb)"))
+
(puthash "eval" "eval" test-command-name-hash)
(assert-t (realgud:eval-command-p "eval 'cow'\n'cow'\n(pdb)"))
(assert-nil (realgud:eval-command-p "next 1"))
