branch: elpa/gnosis
commit 2402df04b7b51a73a007c45ee593eb117647e0bc
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
Rewrite test modules.
+ Separate algorithm ert tests with the db module into their own
directory.
---
gnosis-test.el => tests/gnosis-test-auto.el | 73 +++--------------------
tests/gnosis-test-db.el | 91 +++++++++++++++++++++++++++++
2 files changed, 100 insertions(+), 64 deletions(-)
diff --git a/gnosis-test.el b/tests/gnosis-test-auto.el
similarity index 85%
rename from gnosis-test.el
rename to tests/gnosis-test-auto.el
index 6fe6ce5200..098ce7d0d5 100644
--- a/gnosis-test.el
+++ b/tests/gnosis-test-auto.el
@@ -1,4 +1,4 @@
-;;; gnosis-algorithm.el --- Gnosis testing module -*- lexical-binding: t; -*-
+;;; gnosis-test-auto.el --- Gnosis Auto tests -*- lexical-binding: t; -*-
;; Copyright (C) 2023 Thanos Apollo
@@ -24,71 +24,19 @@
;;; Commentary:
-;; Development module for gnosis, make testing of gnosis
-;; easier by creating a testing environment with random inputs.
-
-;;; Code:
-(add-to-list 'load-path ".")
+;; Testing module for gnosis.
+;; Before making any push on master we should be passing the following
+;; tests.
+;;; Code:
(require 'ert)
(require 'gnosis)
-(defvar gnosis-test-tags '("anatomy" "thoracic" "serratus-anterior"
- "biochemistry" "informatics" "amino-acids"
- "microbiology" "gram-positive" "gram-negative"
- "fungi" "parasites"))
-
-(defvar gnosis-test-image "anatomy/typic-vertebra-superior-01.png"
- "Random image for testing")
-
-(defun gnosis-test-random-items (list x)
- "Select X random items from LIST."
- (let ((shuffled-list (copy-sequence list))
- selected-items)
- (dotimes (_ x)
- (let* ((index (random (length shuffled-list)))
- (item (nth index shuffled-list)))
- (setq selected-items (cons item selected-items))
- (setq shuffled-list (append (butlast shuffled-list index) (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)
- "Begin/End testing env.
-
-If ask nil, leave testing env"
- (interactive)
- (let* ((ask (y-or-n-p "Start development env (n for exit)?"))
- (testing-dir (expand-file-name "testing" gnosis-dir))
- (testing-db (expand-file-name "testing.db" testing-dir)))
- (if ask
- (progn
- (unless (file-exists-p testing-dir)
- (make-directory testing-dir))
- (setf gnosis-db (emacsql-sqlite-open testing-db))
- (dolist (table '(decks notes review review-log extras activity-log
tags links))
- (condition-case nil
- (gnosis--drop-table table)
- (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."))))
+(let ((parent-dir (file-name-directory
+ (directory-file-name
+ (file-name-directory (or load-file-name
default-directory))))))
+ (add-to-list 'load-path parent-dir))
(ert-deftest gnosis-test-algorithm-next-interval-proto ()
"Test next interval for proto values."
@@ -455,6 +403,3 @@ If ask nil, leave testing env"
(ert-run-tests-batch-and-exit)
-
-(provide 'gnosis-test)
-;;; gnosis-test.el ends here
diff --git a/tests/gnosis-test-db.el b/tests/gnosis-test-db.el
new file mode 100644
index 0000000000..09d0e21791
--- /dev/null
+++ b/tests/gnosis-test-db.el
@@ -0,0 +1,91 @@
+;;; gnosis-test-db.el --- Gnosis testing module -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023 Thanos Apollo
+
+;; Author: Thanos Apollo <pub...@thanosapollo.org>
+;; Keywords: extensions
+;; URL: https://git.thanosapollo.org/gnosis
+;; Version: 0.0.1
+
+;; Package-Requires: ((emacs "27.2") (compat "29.1.4.2"))
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Development module for gnosis, make testing of gnosis
+;; easier by creating a testing environment with random inputs.
+
+;;; Code:
+
+(defvar gnosis-test-tags '("anatomy" "thoracic" "serratus-anterior"
+ "biochemistry" "informatics" "amino-acids"
+ "microbiology" "gram-positive" "gram-negative"
+ "fungi" "parasites"))
+
+(defvar gnosis-test-image "anatomy/typic-vertebra-superior-01.png"
+ "Random image for testing")
+
+(defun gnosis-test-random-items (list x)
+ "Select X random items from LIST."
+ (let ((shuffled-list (copy-sequence list))
+ selected-items)
+ (dotimes (_ x)
+ (let* ((index (random (length shuffled-list)))
+ (item (nth index shuffled-list)))
+ (setq selected-items (cons item selected-items))
+ (setq shuffled-list (append (butlast shuffled-list index)
+ (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)
+ "Begin/End testing env.
+
+If ask nil, leave testing env"
+ (interactive)
+ (let* ((ask (y-or-n-p "Start development env (n for exit)?"))
+ (testing-dir (expand-file-name "testing" gnosis-dir))
+ (testing-db (expand-file-name "testing.db" testing-dir)))
+ (if ask
+ (progn
+ (unless (file-exists-p testing-dir)
+ (make-directory testing-dir))
+ (setf gnosis-db (emacsql-sqlite-open testing-db))
+ (dolist (table '(decks notes review review-log extras activity-log
tags links))
+ (condition-case nil
+ (gnosis--drop-table table)
+ (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
