#lang racket (require "../src/crc.rkt" rackunit rackunit/text-ui) (define-test-suite crc-ccitt-16-suite (check-equal? (crc-ccitt-checksum #"123456789") #x29b1) (check-equal? (crc-ccitt-checksum #"ABC") #xf508) (check-equal? (crc-ccitt-checksum (bytes #x24 #x24 #x00 #x11 #x13 #x61 #x23 #x45 #x67 #x8f #xff #x50 #x00)) #x5d8) (check-equal? (crc-ccitt-checksum-bytes #"ABC") (bytes #xf5 #x08)) (check-equal? (crc-ccitt-checksum-bytes (bytes #x24 #x24 #x00 #x11 #x13 #x61 #x23 #x45 #x67 #x8f #xff #x50 #x00)) (bytes #x05 #xd8))) (run-tests crc-ccitt-16-suite)