factor/extra/lisp/lisp-tests.factor

! Copyright (C) 2008 James Cash
! See http://factorcode.org/license.txt for BSD license.
USING: lisp lisp.parser tools.test sequences math kernel parser ;

IN: lisp.test

init-env

"#f" [ f ] lisp-define 
"#t" [ t ] lisp-define

"+" "math" "+" define-primitve
"-" "math" "-" define-primitve

{ 5 } [
  [ 2 3 ] "+" <lisp-symbol> funcall
] unit-test

{ 8.3 } [
 [ 10.4 2.1 ] "-" <lisp-symbol> funcall
] unit-test

{ 3 } [
  "((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
] unit-test

{ 42 } [
  "((lambda (x y z) (+ x (- y z))) 40 3 1)" lisp-string>factor call
] unit-test

{ 1 } [
  "(if #t 1 2)" lisp-string>factor call
] unit-test

{ "b" } [
  "(cond (#f \"a\") (#t \"b\"))" lisp-string>factor call
] unit-test

{ 5 } [
  "(begin (+ 1 4))" lisp-string>factor call
] unit-test

{ 3 } [
   "((lambda (x) (if x (begin (+ 1 2)) (- 3 5))) #t)" lisp-string>factor call
] unit-test