From cb973737d8ae90c3bfb88cf86f2bbbabad10a743 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 27 Jun 2024 14:19:40 +0300 Subject: tests: Adjust for syntax overlays --- gnosis-string-edit.el | 2 +- 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))) -- cgit v1.2.3