[test] more function/curry tests

.travis.yml

@@ -12,7 +12,7 @@ before_install:
   - cat ../travis-racket/install-racket.sh | bash
   - export PATH="${RACKET_DIR}/bin:${PATH}"
 
-install: raco pkg install --deps search-auto $TRAVIS_BUILD_DIR
+install: raco pkg install --deps search-auto $TRAVIS_BUILD_DIR/trivial
 
 before_script:
   - psql -c 'create database travis_ci_test;' -U postgres

test/define-fail.rkt

@@ -15,7 +15,7 @@
 )
 (test-compile-error
   #:require trivial/define trivial/function trivial/format
-  #:exn exn:fail? ;;#rx"Type Checker"
+  #:exn #rx"Type Checker|lambda:" ;; TODO
 
   (let: ([f (lambda ([x : String] [y : Integer])
   ;; Error here -- swapped y and x

test/function-pass.rkt

@@ -19,7 +19,15 @@
     2)
 
   (check-true
-    (begin (curry: (lambda ([x : Integer]) x)) #t))
+    (begin
+      (curry: (lambda ([x : Integer]) x))
+      (curry: (lambda ([x : String]) x))
+      (curry: (lambda ([x : Any]) x))
+      ((curry: (lambda (x) x)) 1)
+      ((curry: (lambda ([x : (Listof Any)]) x)) '())
+      (curry: (lambda ([x : (Listof Boolean)]) x))
+      (curry: (lambda ([x : (Vectorof (Listof Boolean))]) x))
+      #t))
 
   (check-equal?
     ((curry: (lambda ([x : Integer]) x)) 3)