[function] positive tests for curry

2016-03-04 18:17:00 -05:00 · 2016-03-04 18:17:00 -05:00 · 8e2b458aa7
commit 8e2b458aa7
parent 2472e3755a
1 changed files with 15 additions and 0 deletions
--- a/test/function-pass.rkt
+++ b/test/function-pass.rkt
@ -0,0 +1,15 @@
+#lang typed/racket/base
+
+(module+ test
+  (require
+    trivial/function
+    typed/rackunit)
+
+  (check-equal?
+    (((curry: (lambda (x y) x)) 'x) 'y)
+    'x)
+
+  (check-equal?
+    ((((curry: (lambda (x y z) z)) 0) 1) 2)
+    2)
+)