Skip to content

Commit 7083f89

Browse files
committed
Swap expected and result order
1 parent 9293864 commit 7083f89

File tree

1 file changed

+7
-7
lines changed

1 file changed

+7
-7
lines changed

exercises/practice/nucleotide-count/nucleotide-count-test.el

+7-7
Original file line numberDiff line numberDiff line change
@@ -13,23 +13,23 @@
1313

1414

1515
(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 "") #'<))))
1818

1919

2020
(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") #'<))))
2323

2424

2525
(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") #'<))))
2828

2929

3030
(ert-deftest invalid-nucleotide-test ()
3131
(should-error (nucleotide-count "AGGTCCXGA")))
3232

3333

34-
(provide 'nucleotide-count)
34+
(provide 'nucleotide-count-test)
3535
;;; nucleotide-count-test.el ends here

0 commit comments

Comments
 (0)