diff options
| author | Thanos Apollo <[email protected]> | 2024-06-27 14:19:40 +0300 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-06-27 14:19:52 +0300 |
| commit | cb973737d8ae90c3bfb88cf86f2bbbabad10a743 (patch) | |
| tree | 6abca33f5fcf54a3730a09d2bb471d9b32d8f8d3 | |
| parent | 4dd826c6d874f935a6df2062a24f52141ace9997 (diff) | |
tests: Adjust for syntax overlays
| -rw-r--r-- | gnosis-string-edit.el | 2 | ||||
| -rw-r--r-- | gnosis-test.el | 14 |
2 files changed, 8 insertions, 8 deletions
diff --git a/gnosis-string-edit.el b/gnosis-string-edit.el index e6a90e4..836fddd 100644 --- a/gnosis-string-edit.el +++ b/gnosis-string-edit.el @@ -28,7 +28,7 @@ ;; modified version string-edit.el to make gnosis available to users ;; of Emacs versions < 29. -;; Code: +;;; Code: (require 'cl-lib) diff --git a/gnosis-test.el b/gnosis-test.el index 045506a..24dc4bc 100644 --- a/gnosis-test.el +++ b/gnosis-test.el @@ -62,11 +62,11 @@ DECK: Deck to add the inputs to." (when (y-or-n-p "Add MCQ type?") (dotimes (_ num) (gnosis-add-note--mcq :deck testing-deck - :question "A 37-year-old man is admitted to the -emergency department after a severe car crash. After examining the -patient the emergency medicine physician concludes that the serratus -anterior muscle is damaged. Which of the following nerves innervates -the serratus anterior muscle?" + :question "A *37-year-old* man is admitted to the +emergency department after a severe car crash. /After/ examining the +patient the emergency medicine physician concludes *that* the serratus +anterior muscle is damaged. ~Which~ of the following nerves innervates +the =serratus anterior muscle=?" :choices '("Long thoracic" "Axillary" "Spinal accessory" "Dorsal scapular" "Thoracodorsal") :correct-answer 1 :extra "The long thoracic is the only nerve that @@ -112,7 +112,7 @@ by the thoracodorsal nerve." :images (cons gnosis-test-image gnosis-test-image) :tags (gnosis-test-random-items gnosis-test-tags 2)))))) -(defun gnosis-test-start () +(defun gnosis-test-start (&optional note-num) "Begin/End testing env. If ask nil, leave testing env" @@ -130,7 +130,7 @@ If ask nil, leave testing env" (gnosis--drop-table table) (error (message "No %s table to drop." table)))) (gnosis-db-init) - (gnosis-test-add-fields) + (gnosis-test-add-fields note-num) (message "Adding testing values...") (message "Development env is ready for testing.")) (setf gnosis-db (emacsql-sqlite-open (expand-file-name "gnosis.db" gnosis-dir))) |