From ffef03c69affa3b247785654c4c2856100044b1e Mon Sep 17 00:00:00 2001 From: Artur Malabarba Date: Mon, 3 Nov 2014 13:37:07 +0000 Subject: Fix test sample. --- test/tests.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'test') 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 -- cgit v1.2.3