/web-server-test.rkt
Secret
| #lang racket | |
| (require web-server/dispatchers/filesystem-map net/url) | |
| (with-handlers ([exn:fail? (λ _ (printf "Up to date!\n"))]) | |
| ((make-url->path "/a/b/c") | |
| (string->url "http://google.com/..%2f..%2fa%2fpath")) | |
| (printf "Out of date!\n")) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment