diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-03 13:37:07 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-03 13:37:07 +0000 |
| commit | ffef03c69affa3b247785654c4c2856100044b1e (patch) | |
| tree | 326a2dca6ca76e6487721d7506722d1dca928038 | |
| parent | b09dd861782b5926d8ac29459c2c3366bee2e70a (diff) | |
Fix test sample.
| -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 |