diff options
| -rw-r--r-- | stack-question-list.el | 2 | ||||
| -rw-r--r-- | test/tests.el | 7 |
2 files changed, 4 insertions, 5 deletions
diff --git a/stack-question-list.el b/stack-question-list.el index bc8ad90..8f3f722 100644 --- a/stack-question-list.el +++ b/stack-question-list.el @@ -138,7 +138,7 @@ Letters do not insert themselves; instead, they are commands. If REDISPLAY is non-nil, also call `tabulated-list-print'." (interactive '(t)) ;; Obviously this needs to be changed. - (let ((question-list (stack-test-sample-data "questions"))) + (let ((question-list (stack-test-sample-data "questions" "test"))) ;; Print the result. (setq tabulated-list-entries (mapcar #'stack-question-list--print-info question-list))) diff --git a/test/tests.el b/test/tests.el index 11914bb..efad2d0 100644 --- a/test/tests.el +++ b/test/tests.el @@ -6,13 +6,12 @@ (unintern symbol))))) ;;; Tests -(defvar stack-test-data-dir - (expand-file-name "data-samples/") +(defvar stack-test-data-dir "data-samples/" "") (defun stack-test-sample-data (method &optional directory) - (let ((file (concat stack-test-data-dir - (when directory (concat directory "/")) + (let ((file (concat (when directory (concat directory "/")) + stack-test-data-dir method ".el"))) (when (file-exists-p file) (with-temp-buffer |