Simplify `js2-test-ast-string'

diff --git a/tests/ast.el b/tests/ast.el
index cbb96f4b5d25282c5905dfaea895797b0d767248..7644aea9241e749afa353ab6486b6a5fddd4b97e 100644 (file)
--- a/tests/ast.el
+++ b/tests/ast.el
@@ -4,20 +4,18 @@
 \r
 (defun js2-test-string-to-ast (s)\r
   (ert-with-test-buffer (:name 'origin)\r
-      (insert s)\r
-      (js2-mode)\r
-      (should (null js2-mode-buffer-dirty-p))\r
-      js2-mode-ast))\r
+    (insert s)\r
+    (js2-mode)\r
+    (should (null js2-mode-buffer-dirty-p))\r
+    js2-mode-ast))\r
 \r
 (defun js2-test-ast-string (code-string)\r
   (let ((ast (js2-test-string-to-ast code-string)))\r
     (ert-with-test-buffer (:name 'copy)\r
       (js2-print-tree ast)\r
       (skip-chars-backward " \t\n")\r
-      (delete-region (point) (point-max))\r
-      (should (string= code-string\r
-                       (buffer-substring-no-properties\r
-                        (point-min) (point-max)))))))\r
+      (should (string= code-string (buffer-substring-no-properties\r
+                                    (point-min) (point)))))))\r
 \r
 (defmacro js2-deftest-ast (name code-string &optional bindings)\r
   "Parse CODE-STRING, print it out with `js2-print-tree', and\r