cco/cl-scopes
3
0
Fork 0
Code Issues 1 Pull requests Releases Wiki Activity Actions

util🍛 fix test

Browse source
This commit is contained in:
Helmut Merz 2025-07-29 07:57:51 +02:00
parent 6498068924
commit ec21964068
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
test/test-core.lisp
View file

@ -72,7 +72,8 @@
(t:show-result)))) (t:show-result))))
(deftest test-util () (deftest test-util ()
(let ((35+ (util:curry #'+ 35))) (let* ((25+ (util:curry #'+ 25))
(35+ (util:curry 25+ 10)))
(== (funcall 35+ 7) 42)) (== (funcall 35+ 7) 42))
(let ((now (get-universal-time))) (let ((now (get-universal-time)))
(== (util:from-unix-time (util:to-unix-time now)) now)) (== (util:from-unix-time (util:to-unix-time now)) now))