[test] redirect function=fail output, to hide it

test/function-fail.rkt

@@ -1,9 +1,13 @@
 #lang racket/base
-(require trivial/private/test-common)
+(require
+  trivial/private/test-common
+  (only-in racket/port open-output-nowhere))
 
-(module+ test (test-compile-error
+(module+ test
+ (parameterize ([current-error-port (open-output-nowhere)]) ;; TODO
+   (test-compile-error
     #:require trivial/function trivial/format
-  #:exn #rx"Type Checker|lambda:|λ:" ;; TODO, bummer to include lambda:
+    #:exn exn? ;#rx"Type Checker"
     ((curry: (lambda (x y) x)) 0 1)
     (((curry: (lambda (x y z) z)) 'x) 'y 'z)
     (((curry: (lambda ([x : Integer] [y : Integer]) (+ x x y))) 'a) 'b)
@@ -20,4 +24,4 @@
             (format: "~d ~d" x y))
             '("hello")
             '("world"))
-))
+)))