18 lines
588 B
Plaintext
18 lines
588 B
Plaintext
(do-test "timeall OK"
|
|
(AND (EQL (IL:timeall (car '(1 2))) 1)
|
|
(EQL (IL:timeall (car '(1 2)) 10) 1)
|
|
))
|
|
|
|
|
|
(DO-TEST "time OK"
|
|
(AND (EQL (time (car '(1 2))) 1)
|
|
(EQL (time (car '(1 2)) :repeat 10) 1)
|
|
(multiple-value-bind (a b) (time (values 1 2)) (and (eql a 1) (eql b 2)))
|
|
(multiple-value-bind (a b) (time (values 1 2) :repeat 10)
|
|
(and (eql a 1) (eql b 2)))
|
|
))
|
|
|
|
(do-test "AR 7648 - encode-universal-time"
|
|
(and (= (encode-universal-time 1 0 0 1 1 1900 0) 1)
|
|
(= (encode-universal-time 1 0 0 1 1 1976 0) 2398291201)
|
|
(= (encode-universal-time 0 0 0 1 1 3000 0) 34712668800))) |