www

commit a906d121f9ed67944f4a7fd808296c94f151de7e
parent 28cb9b510769bd9d93a65207f38fceb4ddd56ff0
Author: Stephen Chang <stchang@ccs.neu.edu>
Date:   Tue,  5 Aug 2014 15:28:11 -0400

add lambda internal begin test

Diffstat:
M
stlc-tests.rkt
 | 
5
+++--

1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/stlc-tests.rkt b/stlc-tests.rkt
@@ -49,4 +49,5 @@
 (check-type (λ ([x : Int]) (void) (+ x 1)) : (→ Int Int))
 (check-type-error (λ ([x : Int]) 1 1))
 (check-type (λ ([x : Int] [y : Int]) (+ x y)) : (→ Int Int Int))
-(check-type-and-result (λ ([a : Int] [b : Int] [c : Int]) (void) (void) (+ a b c))
-\ No newline at end of file
+(check-type-and-result ((λ ([a : Int] [b : Int] [c : Int]) (void) (void) (+ a b c)) 1 2 3)
+                       : Int => 6)
+\ No newline at end of file