From 680741fbb56b09fc1ffb842bc22cafab92a01501 Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Thu, 12 Feb 2015 14:29:59 -0200 Subject: Fix tests --- test/test-printing.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'test') diff --git a/test/test-printing.el b/test/test-printing.el index 7384829..e6f5c3a 100644 --- a/test/test-printing.el +++ b/test/test-printing.el @@ -37,10 +37,11 @@ after being run through `sx-question--tag-format'." (ert-deftest question-list-display () (cl-letf (((symbol-function #'sx-request-make) (lambda (&rest _) sx-test-data-questions))) - (sx-tab-frontpage nil "emacs") - (switch-to-buffer "*question-list*") + (sx-tab-all-questions nil "emacs") + (switch-to-buffer sx-tab--all-questions-buffer) (goto-char (point-min)) - (should (equal (buffer-name) "*question-list*")) + (should (equal (buffer-name) + (format "*question-list: %s *" sx-question-list--current-tab))) (line-should-match (question-list-regex "Focus-hook: attenuate colours when losing focus" @@ -51,9 +52,9 @@ after being run through `sx-question--tag-format'." "Babel doesn't wrap results in verbatim" 0 1 "org-mode" "org-export" "org-babel")) ;; ;; Use this when we have a real sx-question buffer. - ;; (call-interactively 'sx-question-list-display-question) - ;; (should (equal (buffer-name) "*sx-question*")) - (switch-to-buffer "*question-list*") + ;; (save-excursion + ;; (call-interactively 'sx-question-list-display-question) + ;; (should (equal (buffer-name) "*sx-question*"))) (sx-question-list-previous 4) (line-should-match (question-list-regex -- cgit v1.2.3