diff --git a/tests/test.lsp b/tests/test.lsp index 52a1aa9..3f48cb2 100644 --- a/tests/test.lsp +++ b/tests/test.lsp @@ -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")))