From 3aa5fe99b6f6d7e84a682243e7b8be7b7147c1e5 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Mon, 2 Mar 2015 23:29:15 -0300 Subject: Fix tests --- test/test-printing.el | 8 ++++---- 1 file 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"))))) -- cgit v1.2.3