[nongnu] elpa/d-mode 6417bf5 279/346: d-mode-test: Stop catching exceptions

[ELPA Syncer]

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

    d-mode-test: Stop catching exceptions
    
    This hides the actual back trace and makes debugging an unnecessary
    pain.
    
    Now that we use ert's :expected-result, this is also unnecessary.
---
 d-mode-test.el | 36 +++++++++++++-----------------------
 1 file changed, 13 insertions(+), 23 deletions(-)

diff --git a/d-mode-test.el b/d-mode-test.el
index 4f37730..fbeb6a3 100644
--- a/d-mode-test.el
+++ b/d-mode-test.el
@@ -188,29 +188,19 @@
     (switch-to-buffer testbuf)
     (syntax-ppss (point-max))
 
-    (condition-case err
-       ;; extract the run command and expected output if any.
-       (let* ((contents (buffer-substring-no-properties 1 (point-max)))
-              (run-str (if (string-match "^// #run: \\(.+\\)$" contents)
-                           (match-string 1 contents)))
-              (out-str (if (string-match "^// #out: \\(.+\\)$" contents)
-                           (match-string 1 contents))))
-         (when run-str
-           (let ((result (eval (car (read-from-string run-str)))))
-             (when out-str
-               (let ((expect (car (read-from-string out-str))))
-                 (unless (equal result expect)
-                   (error "\nExpected: %s\nGot     : %s" expect result))))))
-         t)
-      (error
-       (set-buffer testbuf)
-       (buffer-enable-undo testbuf)
-       (set-buffer-modified-p nil)
-       (setq error-found-p t)
-
-       (message
-       "Regression found in file %s:\n%s"
-       filename (error-message-string err))))
+    ;; extract the run command and expected output if any.
+    (let* ((contents (buffer-substring-no-properties 1 (point-max)))
+           (run-str (if (string-match "^// #run: \\(.+\\)$" contents)
+                        (match-string 1 contents)))
+           (out-str (if (string-match "^// #out: \\(.+\\)$" contents)
+                        (match-string 1 contents))))
+      (when run-str
+        (let ((result (eval (car (read-from-string run-str)))))
+          (when out-str
+            (let ((expect (car (read-from-string out-str))))
+              (unless (equal result expect)
+                (error "\nExpected: %s\nGot     : %s" expect result))))))
+      t)
 
     (set-buffer save-buf)
     (goto-char save-point)