diff --git a/tests/main.lisp b/tests/main.lisp index 9fd3aa1..f89874c 100644 --- a/tests/main.lisp +++ b/tests/main.lisp @@ -239,3 +239,17 @@ ;; data (manually most likely) which should result in this failing ;; because Ratify will return the parsed timestamp and not `NIL'. (is (equal (ratify:datetime-p (cdaddr data)) nil)))) ; time value. + +(fiveam:test all-device-status-data + :description "Validates the status data produced when all status + data for all devices is requested in the same API call." + (let ((data (ritherdon-rest:parse-request "/status/latest"))) + (is (= 6 (length data))) + (is-true (consp data)) + (is (equal ':|DEVICE 1| (car (first data)))) + (is (equal ':|DEVICE 2| (car (second data)))) + (is (equal ':|DEVICE 3| (car (third data)))) + (is (equal ':|DEVICE 4| (car (fourth data)))) + (is (equal ':|DEVICE 5| (car (fifth data)))) + ;; if 6 not last a big change has occurred. + (is (equal ':|DEVICE 6| (caar (last data))))))