branch: elpa/gnosis
commit 7a6ca790189476e97c08e18e5660e88d3d06b466
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>

    tests: Update test-db module
    
    + prompt to add test deck.
---
 tests/gnosis-test-db.el | 7 ++++++-
 tests/test.org          | 1 +
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/tests/gnosis-test-db.el b/tests/gnosis-test-db.el
index f233c6b4d4..1a8161e65c 100644
--- a/tests/gnosis-test-db.el
+++ b/tests/gnosis-test-db.el
@@ -33,6 +33,10 @@
 (defvar gnosis-test-image "anatomy/typic-vertebra-superior-01.png"
   "Random image for testing")
 
+(defvar gnosis-test-deck-file
+  (expand-file-name "test.org"
+                   (file-name-directory (or load-file-name buffer-file-name))))
+
 (defun gnosis-test-random-items (list x)
   "Select X random items from LIST."
   (let ((shuffled-list (copy-sequence list))
@@ -64,7 +68,8 @@ If ask nil, leave testing env"
              (error (message "No %s table to drop." table))))
          (setf gnosis-testing t)
          (gnosis-db-init)
-         (message "Development env is ready for testing."))
+         (message "Development env is ready for testing.")
+         (and (y-or-n-p "Add testing deck? ") (gnosis-import-deck 
gnosis-test-deck-file)))
       (setf gnosis-db (emacsql-sqlite-open (expand-file-name "gnosis.db" 
gnosis-dir)))
       (setf gnosis-testing nil)
       (message "Exited development env."))))
diff --git a/tests/test.org b/tests/test.org
index aaa40ff297..dea294d01a 100644
--- a/tests/test.org
+++ b/tests/test.org
@@ -1,4 +1,5 @@
 #+DECK: test
+#+DESCRIPTION: Testing deck for gnosis.
 
 * Thema                                                       :latin:phrases:
 :PROPERTIES:

Reply via email to