2008-04-27 23:12:52 -04:00
|
|
|
! Copyright (C) 2008 James Cash
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-04-29 23:10:47 -04:00
|
|
|
USING: lisp lisp.parser tools.test ;
|
2008-04-27 23:12:52 -04:00
|
|
|
|
2008-04-29 23:10:47 -04:00
|
|
|
IN: lisp.test
|
|
|
|
|
|
|
|
|
|
{ [ "aoeu" 2 1 T{ lisp-symbol f "foo" } ] } [
|
|
|
|
|
"(foo 1 2 \"aoeu\")" lisp-string>factor
|
|
|
|
|
] unit-test
|
