Author: bernhard Date: Sat May 3 05:49:55 2008 New Revision: 27307 Modified: trunk/languages/eclectus/t/begin.t
Log: [Eclectus] Add test for nested 'begin'. Modified: trunk/languages/eclectus/t/begin.t ============================================================================== --- trunk/languages/eclectus/t/begin.t (original) +++ trunk/languages/eclectus/t/begin.t Sat May 3 05:49:55 2008 @@ -3,9 +3,10 @@ (load "tests-driver.scm") ; this should come first (add-tests-with-string-output "begin" - ((begin) => "\n") - ((begin 42) => "42\n") - ((begin 1 2 3) => "3\n") + ((begin) => "\n") + ((begin 42) => "42\n") + ((begin 1 2 3) => "3\n") + ((begin (begin 1 2 3 4)) => "4\n") ) (load "compiler.scm")
