diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-02 22:05:52 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-02 22:05:52 -0300 |
| commit | f92331a692f604cab5552cd5876609e52e49139b (patch) | |
| tree | cb85d534961e03c588c3debc46320254dd0655ee /test/test-printing.el | |
| parent | 8ff5999ab30a285f223ae63bef748120a8387ca7 (diff) | |
Convert tests from vectors to lists
Diffstat (limited to 'test/test-printing.el')
| -rw-r--r-- | test/test-printing.el | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/test/test-printing.el b/test/test-printing.el index 850edd8..1ce7967 100644 --- a/test/test-printing.el +++ b/test/test-printing.el @@ -127,30 +127,30 @@ after being run through `sx-tag--format'." '((owner . 1) (not-owner . "me")))) (should (equal object '((owner . 1) (not-owner . "me"))))) - (let ((object (list (cons 'comments [something])))) + (let ((object '((comments . (something))))) (should (equal (sx--add-comment-to-object "comment" object) - '((comments . [something "comment"])))) + '((comments . (something "comment"))))) (should - (equal object '((comments . [something "comment"]))))) - (let ((object (list (cons 'not-comments [something])))) + (equal object '((comments . (something "comment")))))) + (let ((object '((not-comments . (something))))) (should (equal (sx--add-comment-to-object "comment" object) - '((comments . ["comment"]) (not-comments . [something])))) + '((comments . ("comment")) (not-comments . (something))))) (should - (equal object '((comments . ["comment"]) (not-comments . [something]))))) - (let ((object (list (cons 'not-answers [something])))) + (equal object '((comments . ("comment")) (not-comments . (something)))))) + (let ((object '((not-answers (something))))) (should (equal (sx--add-answer-to-question-object "answer" object) - '((answers . ["answer"]) (not-answers . [something])))) + '((answers . ("answer")) (not-answers . (something))))) (should - (equal object '((answers . ["answer"]) (not-answers . [something]))))) - (let ((object (list (cons 'answers [something])))) + (equal object '((answers . ("answer")) (not-answers . (something)))))) + (let ((object '((answers (something))))) (should (equal (sx--add-answer-to-question-object "answer" object) - '((answers . [something "answer"])))) + '((answers . (something "answer"))))) (should - (equal object '((answers . [something "answer"])))))) + (equal object '((answers . (something "answer"))))))) ;;; question-mode |