branch: elpa/gnosis commit 8920408b2389330c65b40b53c7e1e68db512d2f7 Author: Thanos Apollo <pub...@thanosapollo.org> Commit: Thanos Apollo <pub...@thanosapollo.org>
tests: Update testing db module. --- tests/gnosis-test-db.el | 29 ++++++----------------------- 1 file changed, 6 insertions(+), 23 deletions(-) diff --git a/tests/gnosis-test-db.el b/tests/gnosis-test-db.el index 09d0e21791..f233c6b4d4 100644 --- a/tests/gnosis-test-db.el +++ b/tests/gnosis-test-db.el @@ -24,15 +24,11 @@ ;;; Commentary: -;; Development module for gnosis, make testing of gnosis -;; easier by creating a testing environment with random inputs. +;; Development module for gnosis, creates a testing database env. ;;; Code: -(defvar gnosis-test-tags '("anatomy" "thoracic" "serratus-anterior" - "biochemistry" "informatics" "amino-acids" - "microbiology" "gram-positive" "gram-negative" - "fungi" "parasites")) +(require 'gnosis) (defvar gnosis-test-image "anatomy/typic-vertebra-superior-01.png" "Random image for testing") @@ -49,23 +45,12 @@ (nthcdr (1+ index) shuffled-list))))) selected-items)) -(defun gnosis-test-add-fields (&optional num deck) - "Add random inputs to test. - -NUM: Number of random inputs to add. -DECK: Deck to add the inputs to." - (let ((num (or num (string-to-number (read-string "Number of random inputs: ")))) - (testing-deck (or deck "testing"))) - (unless (gnosis-get 'name 'decks `(= name ,testing-deck)) - (gnosis-add-deck testing-deck)) - num)) - -(defun gnosis-test-start (&optional note-num) +(defun gnosis-test-db () "Begin/End testing env. If ask nil, leave testing env" (interactive) - (let* ((ask (y-or-n-p "Start development env (n for exit)?")) + (let* ((ask (y-or-n-p "Start testing database (n for exit)?")) (testing-dir (expand-file-name "testing" gnosis-dir)) (testing-db (expand-file-name "testing.db" testing-dir))) (if ask @@ -79,13 +64,11 @@ If ask nil, leave testing env" (error (message "No %s table to drop." table)))) (setf gnosis-testing t) (gnosis-db-init) - (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))) (setf gnosis-testing nil) (message "Exited development env.")))) -(provide 'gnosis-test) -;;; gnosis-test.el ends here +(provide 'gnosis-test-db) +;;; gnosis-test-db.el ends here