Sha256: a8bb0545abc7e50357a419f24441717bda61aa570e6a2466eb5dd86399e41fbf
Contents?: true
Size: 951 Bytes
Versions: 396
Compression:
Stored size: 951 Bytes
Contents
#lang racket/base
(require "hamming.rkt")
(module+ test
(require rackunit rackunit/text-ui)
(define suite
(test-suite
"point mutations tests"
(test-eqv? "no difference between empty strands"
(hamming-distance "" "")
0)
(test-eqv? "no difference between identical strands"
(hamming-distance "GATTACA" "GATTACA")
0)
(test-eqv? "complete hamming distance in small strand"
(hamming-distance "ACT" "GGA")
3)
(test-eqv? "small hamming distance in middle somewhere"
(hamming-distance "GGACG" "GGTCG")
1)
(test-eqv? "larger difference"
(hamming-distance "ACCAGGG" "ACTATGG")
2)
(test-exn "String length mismatch." exn:fail?
(lambda ()
(hamming-distance "AGACAACAGCCAGCCGCCGGATT" "AGGCAA")))))
(run-tests suite))
Version data entries
396 entries across 396 versions & 1 rubygems