1 files changed, 32 insertions, 0 deletions
diff --git a/exercism/emacs-lisp/rna-transcription/rna-transcription-test.el b/exercism/emacs-lisp/rna-transcription/rna-transcription-test.el
new file mode 100644
index 0000000..b00de89
--- /dev/null
+++ b/exercism/emacs-lisp/rna-transcription/rna-transcription-test.el
@@ -0,0 +1,32 @@
+;;; rna-transcription-test.el --- Tests for RNA Transcription (exercism)
+
+;;; Commentary:
+
+
+;;; Code:
+
+(require 'cl-lib)
+
+(load-file "rna-transcription.el")
+
+(ert-deftest transcribes-cytosine-to-guanine ()
+  (should (string= "G" (to-rna "C"))))
+
+(ert-deftest transcribes-guanine-to-cytosine ()
+  (should (string= "C" (to-rna "G"))))
+
+(ert-deftest transcribes-adenine-to-uracil ()
+  (should (string= "U" (to-rna "A"))))
+
+(ert-deftest transcribes-thymine-to-adenine ()
+  (should (string= "A" (to-rna "T"))))
+
+(ert-deftest it-transcribes-all-nucleotides ()
+  (should (string= "UGCACCAGAAUU"
+                   (to-rna "ACGTGGTCTTAA"))))
+
+(ert-deftest it-validates-dna-strands ()
+  (should-error (to-rna "XCGFGGTDTTAA")))
+
+(provide 'rna-transcription-test)
+;;; rna-transcription-test.el ends here