Author: ehuelsmann Date: Sat Mar 15 18:00:03 2008 New Revision: 27

Modified: trunk/parser.lisp trunk/tests/tests.lisp Log: Fix two more issues reported by Maciek Pasternacki maciej@pasternacki.net:

1) Speling error in skip-empty-line (includes tests/tests.lisp test for empty lines) 2) ensure-section should return section reference, not its name

Modified: trunk/parser.lisp ============================================================================== --- trunk/parser.lisp (original) +++ trunk/parser.lisp Sat Mar 15 18:00:03 2008 @@ -31,8 +31,7 @@ (handler-case (%get-section config section-name) (no-section-error () - (add-section config section-name))) - section-name) + (add-section config section-name))))

(defun is-whitespace (c) (or (eq c #\Space) @@ -47,7 +46,7 @@ (loop for c = (%read-char s) while (is-whitespace c)))

-(defun skip-emtpy-line (s) +(defun skip-empty-line (s) (loop for c = (%read-char s) if (eq c #\Newline) do (return) else unless (is-whitespace c)

Modified: trunk/tests/tests.lisp ============================================================================== --- trunk/tests/tests.lisp (original) +++ trunk/tests/tests.lisp Sat Mar 15 18:00:03 2008 @@ -110,6 +110,17 @@ 'config)) T)

+;; empty lines only +(deftest basic.empty-lines-only + (with-input-from-string (s " + + +") + (typep (get-option read-stream (make-config) s) + 'config)) + T) + + ;; options (deftest basic.options (equal (with-input-from-string (s "[n]