tests-1.6-opt.scm

(add-tests-with-string-output "let*"
  [(let* ([x 5]) x) => "5\n"]
  [(let* ([x (fx+ 1 2)]) x) => "3\n"]
  [(let* ([x (fx+ 1 2)]
          [y (fx+ 3 4)])
     (fx+ x y))
   => "10\n"]
  [(let* ([x (fx+ 1 2)]
          [y (fx+ 3 4)])
     (fx- y x))
   => "4\n"]
  [(let* ([x (let* ([y (fx+ 1 2)]) (fx* y y))])
     (fx+ x x))
   => "18\n"]
  [(let* ([x (fx+ 1 2)]
          [x (fx+ 3 4)])
     x)
   => "7\n"]
  [(let* ([x (fx+ 1 2)]
          [x (fx+ x 4)])
     x)
   => "7\n"]
  [(let* ([t (let* ([t (let* ([t (let* ([t (fx+ 1 2)]) t)]) t)]) t)]) t)
   => "3\n"]
  [(let* ([x 12]
          [x (fx+ x x)]
          [x (fx+ x x)]
          [x (fx+ x x)])
     (fx+ x x))
   => "192\n"]
)
 
(add-tests-with-string-output "let vs let*"
  [(let ([x 1])
     (let ([x (fx+ x 1)]
            [y (fx+ x 1)])
       y))
   => "2\n"]
  [(let* ([x 1])
     (let* ([x (fx+ x 1)]
           [y (fx+ x 1)])
       y))
   => "3\n"]
)