racket/pkgs/racket-test/tests/openssl/https.rkt
Matthew Flatt 2d4f3e2ac9 remove the "racket-pkgs" directory layer
The layer is now redundant, since everything left in "pkgs" is in the
"racket-pkgs" category.
2014-12-08 05:22:59 -07:00

8 lines
197 B
Racket

#lang racket/base
(require net/url)
;; try a basic HTTPS connection:
(unless (input-port? (get-pure-port (string->url "https://api.github.com/")))
(error "failed for https://api.github.com/"))