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

define renamed to def, defun renamed to defn

Browse Source
This commit is contained in:
vaclavt
2022-01-25 19:50:59 +01:00
parent 62015c2ff8
commit e6f61c9d9f
14 changed files with 189 additions and 189 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
tests/test.lsp
View File

@@ -1,30 +1,30 @@
(include "/usr/local/var/mlisp/ut.lsp")
(define local_time_offset 3600)
(def local_time_offset 3600)
;; prepare some code to be used in tests
(defun fact (n)
(defn fact (n)
(if (<= n 1)
1
(* n (fact (- n 1)))
))
; for scitej 4000 stack must be 16MB, otherwise 1000 is ok
(defun scitej (n)
(defn scitej (n)
(if (<= n 1)
1
(+ n (scitej (- n 1)))
))
(write-file "/tmp/f.txt" "line 1\nline 2\nline3")
(define counter (lambda (ln) (do (set! ii (+ ii 1)) )))
(define ii 0)
(def counter (lambda (ln) (do (set! ii (+ ii 1)) )))
(def ii 0)
(define a 20)
(define b 30)
(def a 20)
(def b 30)
(define json_list (parse-json "{\"k1\":\"v1\", \"k2\":42, \"k3\":[\"a\",123,true,false,null]}"))
(define fvil_list '(("a" ("av" "avv")) ("b" "bv") (31 32 33) (41 42 43)))
(def json_list (parse-json "{\"k1\":\"v1\", \"k2\":42, \"k3\":[\"a\",123,true,false,null]}"))
(def fvil_list '(("a" ("av" "avv")) ("b" "bv") (31 32 33) (41 42 43)))
(thread-create (tcp-server 7778 (lambda (str) (list #t (+ "(print \"" (string-upcase str) "\")")))))
@@ -38,14 +38,14 @@
(ut::define-test "result of (not 1)" '(ut::assert-false (not 1)))
(ut::define-test "result of (not nil)" '(ut::assert-true (not nil)))
(ut::define-test "result of (if '() \"true\" \"empty list/nil\")" '(ut::assert-equal "\"empty list/nil\"" (if '() "true" "empty list/nil")))
(ut::define-test "result of (if '() \"true\" \"empty list/nil\")" '(ut::assert-equal "empty list/nil" (if '() "true" "empty list/nil")))
(ut::define-test "result of (define a 20) (cond ((> a 30)" '(ut::assert-equal "a <= 20" (cond ((> a 30) "a > 30") ((> a 20) "a > 20")(#t "a <= 20"))))
(ut::define-test "result of (define b 30) (cond ((> b 30)" '(ut::assert-equal "b > 20" (cond ((> b 30) "b > 30") ((> b 20) "b > 20")(#t "b <= 20"))))
(ut::define-test "result of (def a 20) (cond ((> a 30)" '(ut::assert-equal "a <= 20" (cond ((> a 30) "a > 30") ((> a 20) "a > 20")(#t "a <= 20"))))
(ut::define-test "result of (def b 30) (cond ((> b 30)" '(ut::assert-equal "b > 20" (cond ((> b 30) "b > 30") ((> b 20) "b > 20")(#t "b <= 20"))))
(ut::define-test "result of (member '(1 2 3) 1" '(ut::assert-true (member '(1 2 3) 1)))
(ut::define-test "result of (member '(1 2 3) 3" '(ut::assert-true (member '(1 2 3) 3)))
(ut::define-test "result of (member '(1 2 3) 4" '(ut::assert-false (take '(1 2 3) 4)))
(ut::define-test "result of (member '(1 2 3) 4" '(ut::assert-false (member '(1 2 3) 4)))
(ut::define-test "result of (take '(1 2 3 4) 3" '(ut::assert-equal '(1 2 3) (take '(1 2 3 4) 3)))