21 lines
406 B
Factor
21 lines
406 B
Factor
! Copyright (C) 2008 James Cash
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: lisp lisp.parser tools.test ;
|
|
|
|
IN: lisp.test
|
|
|
|
{ [ "aoeu" 2 1 T{ lisp-symbol f "foo" } ] } [
|
|
"(foo 1 2 \"aoeu\")" lisp-string>factor
|
|
] unit-test
|
|
|
|
init-env
|
|
|
|
"+" [ first2 + ] lisp-define
|
|
|
|
{ [ first2 + ] } [
|
|
"+" lisp-get
|
|
] unit-test
|
|
|
|
{ 3 } [
|
|
"((lambda (x y) (+ x y)) 1 2)" lisp-string>factor call
|
|
] unit-test |