From 8e2b458aa7732280f3f130fa3d6265dac2ed64a4 Mon Sep 17 00:00:00 2001 From: ben Date: Fri, 4 Mar 2016 18:17:00 -0500 Subject: [PATCH] [function] positive tests for curry --- test/function-pass.rkt | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 test/function-pass.rkt diff --git a/test/function-pass.rkt b/test/function-pass.rkt new file mode 100644 index 0000000..75da6bd --- /dev/null +++ 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) +)