zzkt/i-ching
1
0
Fork 0
Code Issues 3 Pull requests Activity Actions
i-ching/tests.el

103 lines
3.4 KiB
EmacsLisp
Raw Normal View History

䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
;;; tests.el --- tests for i-ching.el -*- coding: utf-8; lexical-binding: t -*-
;; some simple tests...
(require 'i-ching)
䷑ Repair Successful progress is indicated for those who properly repair what has been spoiled.
2021-01-11 12:08:32 +00:00
(ert-deftest i-ching-qrnd ()
(should (numberp (i-ching-q64)))
(should (< 0 (i-ching-q64)))
(should (>= 64 (i-ching-q64))))
䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
䷑ Repair Successful progress is indicated for those who properly repair what has been spoiled.
2021-01-11 12:08:32 +00:00
(ert-deftest i-ching-rrnd ()
(should (numberp (i-ching-r64)))
(should (< 0 (i-ching-r64)))
(should (>= 64 (i-ching-r64))))
(ert-deftest i-ching-random ()
(should (numberp (i-ching-random 'quantum)))
(should (numberp (i-ching-random 'atmospheric)))
(should (numberp (i-ching-random 'pseudo))))
䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
(ert-deftest i-ching-n2h ()
䷑ Repair Successful progress is indicated for those who properly repair what has been spoiled.
2021-01-11 12:08:32 +00:00
(should (string= "䷁" (i-ching-number-to-hexagram 2)))
(should (string= "䷩" (i-ching-number-to-hexagram 42)))
(should (string= nil (i-ching-number-to-hexagram 65))))
䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
(ert-deftest i-ching-h2n ()
䷑ Repair Successful progress is indicated for those who properly repair what has been spoiled.
2021-01-11 12:08:32 +00:00
(should (eql 2 (i-ching-hexagram-to-number "䷁")))
(should (eql 40 (i-ching-hexagram-to-number "䷧")))
(should-not (i-ching-hexagram-to-number "NOT")))
䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
(ert-deftest i-ching-b2h ()
䷑ Repair Successful progress is indicated for those who properly repair what has been spoiled.
2021-01-11 12:08:32 +00:00
(string= "䷧" (i-ching-binary-to-hexagram #b010100)))
(ert-deftest i-ching-names ()
(should-not (i-ching-number-to-name 65))
(should (string= "HEXAGRAM FOR BEFORE COMPLETION"
(i-ching-number-to-unicode-name 64)))
(should (string= "Before Completion"
(i-ching-number-to-name 64))))
(ert-deftest i-ching-descriptions ()
(should (stringp (i-ching-number-to-description 43)))
(should (stringp (i-ching-number-to-judgment 27)))
(should (stringp (i-ching-number-to-image 13)))
(should-not (stringp (i-ching-number-to-description 65)))
(should-not (stringp (i-ching-number-to-judgment 65)))
(should-not (stringp (i-ching-number-to-image 65))))
(ert-deftest i-ching-all-descriptions ()
(dotimes (i 63)
(should-not (seq-empty-p (i-ching-number-to-unicode-name (1+ i))))
(should-not (seq-empty-p (i-ching-number-to-description (1+ i))))
(should-not (seq-empty-p (i-ching-number-to-judgment (1+ i))))
(should-not (seq-empty-p (i-ching-number-to-image (1+ i))))
(should-not (seq-empty-p (i-ching-number-to-name (1+ i))))
(should (stringp (i-ching-number-to-unicode-name (1+ i))))
(should (stringp (i-ching-number-to-description (1+ i))))
(should (stringp (i-ching-number-to-judgment (1+ i))))
(should (stringp (i-ching-number-to-image (1+ i))))
(should (stringp (i-ching-number-to-name (1+ i))))))
(ert-deftest i-ching-interprets ()
(should (stringp (i-ching-interpretation 49)))
(should-not (seq-empty-p (i-ching-interpretation 49))))
䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
䷑ Repair Successful progress is indicated for those who properly repair what has been spoiled.
2021-01-11 12:08:32 +00:00
(ert-deftest i-ching-queries ()
(should (stringp (i-ching-query-string)))
(should (stringp (i-ching-query-string '3-coins))))
䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
(ert-deftest i-ching-castings ()
䷑ Repair Successful progress is indicated for those who properly repair what has been spoiled.
2021-01-11 12:08:32 +00:00
(should (stringp (i-ching-cast 'yarrow-stalks)))
(should (stringp (i-ching-cast '3-coins)))
(should (stringp (i-ching-cast))))
䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
䷰ Metamorphosis Firm correctness abolishes regret and brings successful progress.
2021-01-11 09:30:58 +00:00
;; (i-ching-query '6-bit)
;; (i-ching-query '3-coins)
;; (i-ching-query 'yarrow-stalks)
䷑ Repair Successful progress is indicated for those who properly repair what has been spoiled.
2021-01-11 12:08:32 +00:00
;; interactive testing
(ert-deftest i-ching-query-6bit ()
(should (with-simulated-input
"testing SPC circumstances RET"
(i-ching-query '6-bit))))
(ert-deftest i-ching-query-3coin ()
(should (with-simulated-input
"testing SPC circumstances RET"
(i-ching-query '3-coins))))
(ert-deftest i-ching-query-yarrow ()
(should (with-simulated-input
"testing SPC circumstances RET"
(i-ching-query 'yarrow-stalks))))
;; run them...
䷗ Return (The Turning Point) After a time of decay comes the turning point. The powerful light that has been banished returns. There is movement, but it is not brought about by force. The old is discarded and the new is introduced. Both measures accord with the time; therefore no harm results. The movement is cyclic, and the course completes itself.
2020-12-30 01:03:41 +00:00
(ert t)
;;; tests.el ends here
Reference in a new issue Copy permalink