From 3a4af37c6fd4efee44a6189ae93608f671c80f82 Mon Sep 17 00:00:00 2001 From: Sean Allred Date: Thu, 30 Oct 2014 22:40:20 -0400 Subject: Implement question list retrieval --- tests.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'tests.el') diff --git a/tests.el b/tests.el index b1aa3c2..bf9b94e 100644 --- a/tests.el +++ b/tests.el @@ -1,12 +1,17 @@ ;;; Tests (add-to-list 'load-path ".") + (require 'stack-core) +(require 'stack-question) -(setq *t (stack-core-make-request "questions")) +(setq + stack-tmp (stack-question-get-questions 'emacs) + stack-tmp-2 (stack-question-get-questions 'emacs 2)) -(prog1 t (prin1 (elt (stack-core-parse-questions *t) 0) - #'insert)) +(prog1 nil + (stack-message "%S" stack-tmp) + (stack-message "%S" stack-tmp-2)) (defun -stack--nuke () (interactive) -- cgit v1.2.3