Sha256: ae4a37ec3c2b75b4a2fb9b9e8e7ed30033061eb93c9d4544e8ee7c05da087d56
Contents?: true
Size: 826 Bytes
Versions: 53
Compression:
Stored size: 826 Bytes
Contents
(ql:quickload "lisp-unit")
(defpackage :rna-transcription-test
(:use #:common-lisp #:lisp-unit))
#-xlisp-test (load "dna")
(in-package #:rna-transcription-test)
(define-test transcribes-cytidine-to-guanosine
(assert-equal "G" (dna:to-rna "C")))
(define-test transcribes-guanosine-to-cytidine
(assert-equal "C" (dna:to-rna "G")))
(define-test transcribes-adenosine-to-uracile
(assert-equal "U" (dna:to-rna "A")))
(define-test it-transcribes-thymidine-to-adenosine
(assert-equal "A" (dna:to-rna "T")))
(define-test it-transcribes-all-nucleotides
(assert-equal "UGCACCAGAAUU" (dna:to-rna "ACGTGGTCTTAA")))
(define-test it-validates-dna-strands
(assert-error 'error (dna:to-rna "XCGFGGTDTTAA")))
#-xlisp-test
(let ((*print-errors* t)
(*print-failures* t))
(run-tests :all :rna-transcription-test))
Version data entries
53 entries across 53 versions & 1 rubygems