about summary refs log blame commit diff
path: root/web/panettone/test/model_test.lisp
blob: e4cd78a65a43f78d7b6e87af3b4ccfc7699b3e4c (plain) (tree)
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)))))