diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-02 23:29:15 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-03-02 23:29:15 -0300 |
| commit | 3aa5fe99b6f6d7e84a682243e7b8be7b7147c1e5 (patch) | |
| tree | 7f0cedccae80564fc1aa25276bfdf9749e9281b9 | |
| parent | c00ed8c6bbd8e948a3142c71b3bbb3ab86c04959 (diff) | |
Fix tests
| -rw-r--r-- | test/test-printing.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/test-printing.el b/test/test-printing.el index 1ce7967..93ab064 100644 --- a/test/test-printing.el +++ b/test/test-printing.el @@ -115,13 +115,13 @@ after being run through `sx-tag--format'." (ert-deftest sx-object-modification () "Test adding things to objects" - (let ((object (list (cons 'owner "me")))) + (let ((object '((owner . "me")))) (should (equal (sx--ensure-owner-in-object 1 object) '((owner . "me")))) (should (equal object '((owner . "me"))))) - (let ((object (list (cons 'not-owner "me")))) + (let ((object '((not-owner . "me")))) (should (equal (sx--ensure-owner-in-object 1 object) '((owner . 1) (not-owner . "me")))) @@ -139,13 +139,13 @@ after being run through `sx-tag--format'." '((comments . ("comment")) (not-comments . (something))))) (should (equal object '((comments . ("comment")) (not-comments . (something)))))) - (let ((object '((not-answers (something))))) + (let ((object '((not-answers . (something))))) (should (equal (sx--add-answer-to-question-object "answer" object) '((answers . ("answer")) (not-answers . (something))))) (should (equal object '((answers . ("answer")) (not-answers . (something)))))) - (let ((object '((answers (something))))) + (let ((object '((answers . (something))))) (should (equal (sx--add-answer-to-question-object "answer" object) '((answers . (something "answer"))))) |