2d4f3e2ac9
The layer is now redundant, since everything left in "pkgs" is in the "racket-pkgs" category.
17 lines
630 B
Racket
17 lines
630 B
Racket
#lang racket/base
|
|
|
|
(module+ test
|
|
(require file/sha1 rackunit)
|
|
;; The docs say that sha1 must return a 40-character string,
|
|
;; and should include leading zeros.
|
|
(check-equal? (string-length (sha1 (open-input-string ""))) 40)
|
|
(check-equal? (string-length (sha1 (open-input-string " r a c k et"))) 40)
|
|
|
|
(check-equal? (hex-string->bytes "") (bytes))
|
|
(check-equal? (hex-string->bytes "00") (bytes 0))
|
|
(check-equal? (hex-string->bytes "Af") (bytes 175))
|
|
(define s "1234567890abcdef")
|
|
(check-equal? (bytes->hex-string (hex-string->bytes s)) s)
|
|
|
|
(check-exn exn:fail:contract? (lambda () (hex-string->bytes "1"))))
|