chris/emacs-rpgdm
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Writing some unit tests for some of the functions.

Browse source
This commit is contained in:
Howard Abrams 2022-02-05 21:35:16 -08:00
parent 5f68af3913
commit bdbc57448a
1 changed files with 32 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

41
rpgdm-tables.el
View file

@ -25,10 +25,11 @@
;; ;;
;;; Code: ;;; Code:
(defvar rpgdm-base ".") (require 'ert)
(require 'rpgdm-dice (expand-file-name "rpgdm-dice.el" rpgdm-base) t)
(require 'rpgdm-tables-freq (expand-file-name "rpgdm-tables-freq.el" rpgdm-base) t) (require 'rpgdm-dice)
(require 'rpgdm-tables-dice (expand-file-name "rpgdm-tables-dice.el" rpgdm-base) t) (require 'rpgdm-tables-freq)
(require 'rpgdm-tables-dice)
(defvar rpgdm-tables-directory (defvar rpgdm-tables-directory
@ -41,7 +42,11 @@
(defun rpgdm-tables-clear () (defun rpgdm-tables-clear ()
"Clear previously loaded tables." "Clear previously loaded tables."
(interactive) (interactive)
(setq rpgdm-tables (make-hash-table :test 'equal))) (clrhash rpgdm-tables))
(defun rpgdm-tables-empty-p ()
"Return non-nil if no tables have been loaded."
(= (hash-table-count rpgdm-tables) 0))
(defun rpgdm-tables-load (&optional filepath) (defun rpgdm-tables-load (&optional filepath)
"Read and parse table files located in FILEPATH directory. "Read and parse table files located in FILEPATH directory.
@ -118,12 +123,30 @@ dice table (see `rpgdm-tables--choose-dice-table')."
For instance, the string: 'You found a [chair/box/statue]' For instance, the string: 'You found a [chair/box/statue]'
would be converted randomly to something like: 'You found a box.'" would be converted randomly to something like: 'You found a box.'"
(let ((regexp (rx "[" (+? any) "/" (+? any) "]")) (let ((regexp (rx "[" (+? any) "/" (+? any) "]"))
(subbed (lambda (str) (--> str (subbed (lambda (str) (--> str
(substring it 1 -1) (substring it 1 -1)
(s-split (rx (*? space) "/" (*? space)) it) (s-split (rx "/") it)
(seq-random-elt it))))) (seq-random-elt it)
(s-trim it)))))
(replace-regexp-in-string regexp subbed str))) (replace-regexp-in-string regexp subbed str)))
(ert-deftest rpgdm-tables--choose-string-list ()
(let ((empty-string "")
(no-op-string "This is just a phrase.")
(two-choices "We can have [this/that]")
(two-choices1 "We can have this")
(two-choices2 "We can have that")
(tri-choices "We can have [this / that / the other].")
(tri-choices1 "We can have this.")
(tri-choices2 "We can have that.")
(tri-choices3 "We can have the other."))
(should (equal (rpgdm-tables--choose-string-list empty-string) empty-string))
(should (equal (rpgdm-tables--choose-string-list no-op-string) no-op-string))
(let ((chosen (rpgdm-tables--choose-string-list two-choices)))
(should (or (equal chosen two-choices1) (equal chosen two-choices2))))
(let ((chosen (rpgdm-tables--choose-string-list tri-choices)))
(should (or (equal chosen tri-choices1) (equal chosen tri-choices2) (equal chosen tri-choices3))))))
;; I originally thought that I could have a single regular expression that ;; I originally thought that I could have a single regular expression that
;; matched all possible tables, but that is a bit too complicated. The following ;; matched all possible tables, but that is a bit too complicated. The following