File tree 1 file changed +7
-7
lines changed
exercises/practice/nucleotide-count
1 file changed +7
-7
lines changed Original file line number Diff line number Diff line change 13
13
14
14
15
15
(ert-deftest empty-dna-strand-has-no-nucleotides-test ()
16
- (should (equal (sort-pairs (nucleotide-count " " ) # ' < )
17
- '(( ?A . 0 ) ( ?C . 0 ) ( ?G . 0 ) ( ?T . 0 ) ))))
16
+ (should (equal '(( ?A . 0 ) ( ?C . 0 ) ( ?G . 0 ) ( ?T . 0 ) )
17
+ (sort-pairs (nucleotide-count " " ) # ' < ))))
18
18
19
19
20
20
(ert-deftest repetitive-sequence-has-only-guanine-test ()
21
- (should (equal (sort-pairs (nucleotide-count " GGGGGGGG " ) # ' < )
22
- '(( ?A . 0 ) ( ?C . 0 ) ( ?G . 8 ) ( ?T . 0 ) ))))
21
+ (should (equal '(( ?A . 0 ) ( ?C . 0 ) ( ?G . 8 ) ( ?T . 0 ) )
22
+ (sort-pairs (nucleotide-count " GGGGGGGG " ) # ' < ))))
23
23
24
24
25
25
(ert-deftest count-all-nucleotides-test ()
26
- (should (equal (sort-pairs (nucleotide-count " AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC " ) # ' < )
27
- '(( ?A . 20 ) ( ?C . 12 ) ( ?G . 17 ) ( ?T . 21 ) ))))
26
+ (should (equal '(( ?A . 20 ) ( ?C . 12 ) ( ?G . 17 ) ( ?T . 21 ) )
27
+ (sort-pairs (nucleotide-count " AGCTTTTCATTCTGACTGCAACGGGCAATATGTCTCTGTGTGGATTAAAAAAAGAGTGTCTGATAGCAGC " ) # ' < ))))
28
28
29
29
30
30
(ert-deftest invalid-nucleotide-test ()
31
31
(should-error (nucleotide-count " AGGTCCXGA" )))
32
32
33
33
34
- (provide 'nucleotide-count )
34
+ (provide 'nucleotide-count-test )
35
35
; ;; nucleotide-count-test.el ends here
You can’t perform that action at this time.
0 commit comments