should fail
This commit is contained in:
@@ -129,3 +129,4 @@ FN receives (signal) and returns T if consumed, nil to continue."
|
|||||||
(test test-depth-limiting
|
(test test-depth-limiting
|
||||||
(let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
|
(let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
|
||||||
(is (null (process-signal runaway-signal)))))
|
(is (null (process-signal runaway-signal)))))
|
||||||
|
(defun bad-code () (broken
|
||||||
|
|||||||
@@ -249,4 +249,4 @@ Verifies that the perceive gate correctly ingests AST nodes into memory and that
|
|||||||
(test test-depth-limiting
|
(test test-depth-limiting
|
||||||
(let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
|
(let ((runaway-signal (list :type :EVENT :depth 11 :payload (list :sensor :heartbeat))))
|
||||||
(is (null (process-signal runaway-signal)))))
|
(is (null (process-signal runaway-signal)))))
|
||||||
#+end_src
|
#+end_src(defun bad-code () (broken
|
||||||
|
|||||||
Reference in New Issue
Block a user