[nongnu] elpa/macrostep fbd61eb 030/110: Tests for macrolet/cl-macrolet support

[ELPA Syncer]

branch: elpa/macrostep
commit fbd61eb5bf3f9b3dc336fd9bf920371746a4e4ac
Author: joddie <jonxfield@gmail.com>
Commit: joddie <jonxfield@gmail.com>

    Tests for macrolet/cl-macrolet support
---
 Makefile          |   4 ++
 macrostep-test.el | 133 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 137 insertions(+)

diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..0540b44
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,4 @@
+test:
+       emacs --batch --load macrostep-test.el
+
+.PHONY: test
diff --git a/macrostep-test.el b/macrostep-test.el
new file mode 100644
index 0000000..03cd923
--- /dev/null
+++ b/macrostep-test.el
@@ -0,0 +1,133 @@
+;;; macrostep-test.el --- tests for macrostep.el
+
+;; Copyright (C) 2014 Jon Oddie <j.j.oddie@gmail.com>
+
+;; This file is NOT part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or
+;; modify it under the terms of the GNU General Public License as
+;; published by the Free Software Foundation, either version 3 of the
+;; License, or (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with this program.  If not, see `http://www.gnu.org/licenses/'.
+
+
+(defmacro macrostep-with-text (object &rest forms)
+  (declare (indent 1))
+  `(with-temp-buffer
+     (emacs-lisp-mode)
+     (let ((print-level nil)
+           (print-length nil)
+           (standard-output (current-buffer)))
+       (save-excursion
+         (print ,object))
+       ,@forms)))
+
+(defmacro macrostep-should-expand (form expansion)
+  `(save-excursion
+     (goto-char (point-min))
+     (let ((print-level nil)
+           (print-length nil))
+       (search-forward (prin1-to-string ,form))
+       (goto-char (match-beginning 0))
+       (unwind-protect
+            (progn
+              (macrostep-expand)
+              (should
+               (equal (read (current-buffer))
+                      ,expansion)))
+         (macrostep-collapse-all)))))
+
+(ert-deftest macrostep-expand-macrolet ()
+  (macrostep-with-text
+      '(macrolet
+        ((test (&rest args) `(expansion of ,@args)))
+        (first body form)
+        (second body form)
+        (test (strawberry pie) and (apple pie))
+        (final body form))
+    (macrostep-should-expand
+     '(test (strawberry pie) and (apple pie))
+     '(expansion of (strawberry pie) and (apple pie)))))
+
+(ert-deftest macrostep-expand-macrolet-2 ()
+  (macrostep-with-text
+      ;; Taken from org-notify.el.
+      '(macrolet ((get (k) `(plist-get list ,k))
+                  (pr (k v) `(setq result (plist-put result ,k ,v))))
+        (let* ((list (nth 1 heading))      (notify (or (get :notify) 
"default"))
+               (deadline (org-notify-convert-deadline (get :deadline)))
+               (heading (get :raw-value))
+               result)
+          (when (and (eq (get :todo-type) 'todo) heading deadline)
+            (pr :heading heading)     (pr :notify (intern notify))
+            (pr :begin (get :begin))
+            (pr :file (nth org-notify-parse-file (org-agenda-files 
'unrestricted)))
+            (pr :timestamp deadline)  (pr :uid (md5 (concat heading deadline)))
+            (pr :deadline (- (org-time-string-to-seconds deadline)
+                             (org-float-time))))
+          result))
+    (macrostep-should-expand
+     '(pr :heading heading)
+     '(setq result (plist-put result :heading heading)))
+    (macrostep-should-expand
+     '(pr :notify (intern notify))
+     '(setq result (plist-put result :notify (intern notify))))
+    (macrostep-should-expand
+     '(pr :begin (get :begin))
+     '(setq result (plist-put result :begin (get :begin))))
+    (macrostep-should-expand
+     '(get :begin)
+     '(plist-get list :begin))))
+
+(ert-deftest macrostep-expand-cl-macrolet ()
+  (macrostep-with-text
+      ;; Taken from slime.el.
+      '(cl-macrolet ((fontify (face string)
+                      `(slime-inspector-fontify ,face ,string)))
+        (slime-propertize-region
+         (list 'slime-part-number id
+          'mouse-face 'highlight
+          'face 'slime-inspector-value-face)
+         (insert title))
+        (while (eq (char-before) ?\n)
+          (backward-delete-char 1))
+        (insert "\n" (fontify label "--------------------") "\n")
+        (save-excursion
+          (slime-inspector-insert-content content))
+        (when point
+          (cl-check-type point cons)
+          (ignore-errors
+            (goto-char (point-min))
+            (forward-line (1- (car point)))
+            (move-to-column (cdr point)))))
+    (macrostep-should-expand
+     '(fontify label "--------------------")
+     '(slime-inspector-fontify label "--------------------"))))
+
+(ert-deftest macrostep-expand-shadowed-macrolet ()
+  (macrostep-with-text
+      '(macrolet
+        ((test-macro (&rest forms) (cons 'shadowed forms))
+         (test-macro (&rest forms) (cons 'outer-definition forms)))
+        (test-macro first (call))
+        (cl-macrolet
+            ((test-macro (&rest forms) (cons 'inner-definition forms)))
+          (test-macro (second (call)))))
+    (macrostep-should-expand
+     '(test-macro first (call))
+     '(outer-definition first (call)))
+    (macrostep-should-expand
+     '(test-macro (second (call)))
+     '(inner-definition (second (call))))))
+
+(when noninteractive
+  (load-file (expand-file-name "macrostep.el"
+                               (file-name-directory load-file-name)))
+  (ert-run-tests-batch "^macrostep"))