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) +)