Amr Gharbeia
86eeaab66e
Some checks failed
Deploy-Agent-V15-Stdin / JOB-V15-STDIN (push) Failing after 3s
- Removed duplicate frame-message from communication.org (was in 2 src blocks) - Fixed communication.org :tangle directive (was wrongly targeting package.lisp) - Added (in-package :opencortex) to engineering-standards.lisp - Retangled package.org, communication.org, engineering-standards.org Tests still not running - investigation in progress.
42 lines
1.7 KiB
Common Lisp
42 lines
1.7 KiB
Common Lisp
(defpackage :opencortex-communication-tests
|
|
(:use :cl :fiveam :opencortex)
|
|
(:export #:communication-protocol-suite))
|
|
|
|
(in-package :opencortex-communication-tests)
|
|
|
|
(def-suite communication-protocol-suite
|
|
:description "Test suite for opencortex Communication Protocol")
|
|
|
|
(in-suite communication-protocol-suite)
|
|
|
|
(test test-framing
|
|
"Verify that messages are correctly prefixed with a 6-character hex length."
|
|
(let* ((msg '(:type :EVENT :payload (:action :handshake)))
|
|
(framed (frame-message msg))
|
|
(len-str (subseq framed 0 6))
|
|
(payload (subseq framed 6)))
|
|
(is (string= "00002C" (string-upcase len-str)))
|
|
(is (equalp msg (read-from-string payload)))))
|
|
|
|
(test test-parse-message
|
|
"Verify that incoming framed strings are parsed into Lisp plists."
|
|
(let ((framed "00002c(:type :EVENT :payload (:action :handshake))"))
|
|
(is (equal '(:type :EVENT :payload (:action :handshake))
|
|
(read-from-string (subseq framed 6))))))
|
|
|
|
(test test-hello-handshake
|
|
"Verify the structure of the HELLO handshake message."
|
|
(let ((hello (make-hello-message "0.1.0")))
|
|
(is (eq :EVENT (getf hello :type)))
|
|
(is (eq :handshake (getf (getf hello :payload) :action)))
|
|
(is (string= "0.1.0" (getf (getf hello :payload) :version)))))
|
|
|
|
(test test-find-missing-id
|
|
"Verify that the daemon can find a headline missing an ID."
|
|
(let* ((ast '(:type :org-data :contents
|
|
((:type :HEADLINE :properties (:TITLE "No ID Here") :contents nil)
|
|
(:type :HEADLINE :properties (:ID "exists" :TITLE "Has ID") :contents nil))))
|
|
(found (find-headline-missing-id ast)))
|
|
(is (not (null found)))
|
|
(is (string= "No ID Here" (getf (getf found :properties) :TITLE)))))
|