[nongnu] elpa/d-mode 7c72767 280/346: d-mode-test: Fix saving results of mis-indenting tests

[ELPA Syncer]

branch: elpa/d-mode
commit 7c727675bdcae65fb9aa7b83b3c299c6c229b361
Author: Vladimir Panteleev <git@thecybershadow.net>
Commit: Vladimir Panteleev <git@thecybershadow.net>

    d-mode-test: Fix saving results of mis-indenting tests
---
 d-mode-test.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/d-mode-test.el b/d-mode-test.el
index fbeb6a3..371a161 100644
--- a/d-mode-test.el
+++ b/d-mode-test.el
@@ -140,6 +140,8 @@
 
 (c-add-style "teststyle" d-test-teststyle)
 
+(defvar-local d-test-orig-filename nil)
+
 (defun make-test-buffer (filename)
   (let ((testbuf (get-buffer-create "*d-mode-test*"))
         (enable-local-eval t))
@@ -158,6 +160,7 @@
           c-mode-common-hook)
       (d-mode))
     (hack-local-variables)
+    (setq-local d-test-orig-filename filename)
     testbuf))
 
 (defun kill-test-buffer ()
@@ -258,7 +261,7 @@ If the resulting indentation ends up being different, raise 
an error."
      (let ((orig (buffer-string)))
        (let (buffer-read-only)
         (c-indent-region (point-min) (point-max))
-         (d-test-save-result (buffer-file-name)))
+         (d-test-save-result d-test-orig-filename))
        (error (concat "Test case has been indented differently.\n"
                      
"Expected:\n--------------------\n%s\n--------------------\n"
                      "Got:     
\n--------------------\n%s\n--------------------\n")