From 529b3cdc2b48975e826c99d0a71065395368ec76 Mon Sep 17 00:00:00 2001
From: Asumu Takikawa <asumu@ccs.neu.edu>
Date: Wed, 22 Jun 2011 14:30:01 -0400
Subject: [PATCH] TR test for racket/function

original commit: cee2509476815e57b3e1e689a677713df8077737
---
 collects/tests/typed-scheme/succeed/function.rkt | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 collects/tests/typed-scheme/succeed/function.rkt

diff --git a/collects/tests/typed-scheme/succeed/function.rkt b/collects/tests/typed-scheme/succeed/function.rkt
new file mode 100644
index 00000000..ff4ed53d
--- /dev/null
+++ b/collects/tests/typed-scheme/succeed/function.rkt
@@ -0,0 +1,10 @@
+#lang typed/racket
+
+;; Test imports from racket/function
+
+(identity 5)
+(identity (lambda (x) "test"))
+
+((const 'foo) 1 2 3)
+
+((curry (lambda (x y) (cons x y)) 5) '())