blob: e4cd78a65a43f78d7b6e87af3b4ccfc7699b3e4c (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(in-package :panettone.tests)
(declaim (optimize (safety 3)))
(test initialize-issue-status-test
(let ((issue (make-instance 'model:issue :status "open")))
(is (eq :open (model:status issue)))))
(test initialize-issue-created-at-test
(let* ((time (get-universal-time))
(issue (make-instance 'model:issue :created-at time)))
(is (local-time:timestamp=
(local-time:universal-to-timestamp time)
(model:created-at issue)))))
|
