Racket megaparsack compile test code

compile-test.rkt

#lang racket

(require megaparsack megaparsack/text)

(module+ main
  (displayln
   (with-handlers ([exn:fail:read:megaparsack? (λ(x) #f)])
     (parse-result!
      (parse-string integer/p "123"))))
  )