typed-racket/typed-racket-test/succeed/parameter-proc.rkt

#lang typed/racket
(require/typed racket
               (current-directory (-> Path)))

(unless (equal? (parameter? current-directory)
                (if (parameter? current-directory) #t #f))
  (error 'unsound!))