let-while-tests.el


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

;;; let-while-tests.el -- tests for the let-while macro


(defun let-while-test ()
  (catch :io
    (let ((lines '("line 1" "line 2")))
      (noflet ((get-line ()
                 (or
                  (pop lines)
                  (throw :io :eof))))
        (let-while (line (get-line))
          (message "the line is: %s" line))))))


;;; let-while-tests.el ends here