vaclavt
/
mlisp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

local time offset changed

This commit is contained in:
VaclavT 2021-11-07 11:04:41 +01:00
parent 865e198a5b
commit cd7456399a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test.lsp
View File

@ -1,5 +1,7 @@
(include "/usr/local/var/mlisp/ut.lsp")
(define local_time_offset 3600)
;; prepare some code to be used in tests
(defun fact (n)
(if (<= n 1)
@ -115,7 +117,7 @@
(ut::define-test "result of (= #t #t)" '(ut::assert-true (= #t #t)))
(ut::define-test "result of (!= #f #t)" '(ut::assert-false (= #f #t)))
(ut::define-test "result of (get-localtime-offset)" '(ut::assert-equal 7200 (get-localtime-offset)))
(ut::define-test "result of (get-localtime-offset)" '(ut::assert-equal local_time_offset (get-localtime-offset)))
(ut::define-test "result of (str-to-date \"01.01.1970\" \"%d.%m.%Y\")" '(ut::assert-equal 0 (str-to-date "01.01.1970" "%d.%m.%Y")))
(ut::define-test "result of (date-add (str-to-date \"01.01.1970\" \"%d.%m.%Y\") 1 \"day\")" '(ut::assert-equal 86400 (date-add (str-to-date "01.01.1970" "%d.%m.%Y") 1 "day")))
(ut::define-test "result of (str-to-date \"2021-10-11 16:57:00\" \"%Y-%m-%d %H:%M:%S\")" '(ut::assert-equal 1633971420 (str-to-date "2021-10-11 16:57:00" "%Y-%m-%d %H:%M:%S")))