March 2008 - py-configparser-cvs@common-lisp.net

[py-configparser-cvs] r37 - trunk/tests
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 15:21:55 2008 New Revision: 37 Modified: trunk/tests/tests.lisp Log: Add comment about blank lines. Modified: trunk/tests/tests.lisp ============================================================================== --- trunk/tests/tests.lisp (original) +++ trunk/tests/tests.lisp Sun Mar 16 15:21:55 2008 @@ -113,6 +113,7 @@ ;; empty lines only (deftest basic.empty-lines-only (with-input-from-string (s " +# The next two lines intentionally contain spaces-only ")

1 0

[py-configparser-cvs] r36 - in public_html: . releases
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 14:01:15 2008 New Revision: 36 Added: public_html/releases/py-configparser-1.0.2.tar.gz (contents, props changed) Modified: public_html/index.shtml Log: Publish 1.0.2. Modified: public_html/index.shtml ============================================================================== --- public_html/index.shtml (original) +++ public_html/index.shtml Sun Mar 16 14:01:15 2008 @@ -53,6 +53,7 @@ <h1>Releases</h1> +<p>The 1.0.2 release fixes a function name typo, a problem with (non-)expansion in the ITEMS function and the return value of ENSURE-SECTION.</p> <p>The 1.0.1 release fixes compilation problems with at least SBCL and a packaging problem. Next to that, it adds better error messages.</p> <p>The 1.0 release can be downloaded from <a href="http://common-lisp.net/project/py-configparser/releases/py-configparser-1.0…">http://common-lisp.net/project/py-configparser/releases/py-configparser-1.0…</a></p> Added: public_html/releases/py-configparser-1.0.2.tar.gz ============================================================================== Binary file. No diff available.

1 0

[py-configparser-cvs] r35 - in branches/1.0.x: . tests
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 13:55:21 2008 New Revision: 35 Modified: branches/1.0.x/py-configparser.asd branches/1.0.x/tests/py-configparser-tests.asd Log: Bump version number. Modified: branches/1.0.x/py-configparser.asd ============================================================================== --- branches/1.0.x/py-configparser.asd (original) +++ branches/1.0.x/py-configparser.asd Sun Mar 16 13:55:21 2008 @@ -10,7 +10,7 @@ (defsystem py-configparser :name "py-configparser" :author "Erik Huelsmann" - :version "1.0.2-dev" + :version "1.0.3-dev" :license "MIT" :description "Common Lisp implementation of the Python ConfigParser module" :depends-on (#:parse-number) Modified: branches/1.0.x/tests/py-configparser-tests.asd ============================================================================== --- branches/1.0.x/tests/py-configparser-tests.asd (original) +++ branches/1.0.x/tests/py-configparser-tests.asd Sun Mar 16 13:55:21 2008 @@ -10,7 +10,7 @@ (defsystem py-configparser-tests :name "py-configparser-tests" :author "Erik Huelsmann" - :version "1.0.22-dev" + :version "1.0.3-dev" :license "MIT" :description "Tests for 'Common Lisp implementation of the Python ConfigParser module'" :depends-on (#:py-configparser)

1 0

[py-configparser-cvs] r34 - in tags/1.0.2: . tests
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 13:54:20 2008 New Revision: 34 Added: tags/1.0.2/ - copied from r29, branches/1.0.x/ tags/1.0.2/config.lisp - copied unchanged from r33, branches/1.0.x/config.lisp tags/1.0.2/tests/tests.lisp - copied unchanged from r33, branches/1.0.x/tests/tests.lisp Modified: tags/1.0.2/py-configparser.asd tags/1.0.2/tests/py-configparser-tests.asd Log: Tag 1.0.2. Modified: tags/1.0.2/py-configparser.asd ============================================================================== --- branches/1.0.x/py-configparser.asd (original) +++ tags/1.0.2/py-configparser.asd Sun Mar 16 13:54:20 2008 @@ -10,7 +10,7 @@ (defsystem py-configparser :name "py-configparser" :author "Erik Huelsmann" - :version "1.0.2-dev" + :version "1.0.2" :license "MIT" :description "Common Lisp implementation of the Python ConfigParser module" :depends-on (#:parse-number) Modified: tags/1.0.2/tests/py-configparser-tests.asd ============================================================================== --- branches/1.0.x/tests/py-configparser-tests.asd (original) +++ tags/1.0.2/tests/py-configparser-tests.asd Sun Mar 16 13:54:20 2008 @@ -10,7 +10,7 @@ (defsystem py-configparser-tests :name "py-configparser-tests" :author "Erik Huelsmann" - :version "1.0.22-dev" + :version "1.0.2" :license "MIT" :description "Tests for 'Common Lisp implementation of the Python ConfigParser module'" :depends-on (#:py-configparser)

1 0

[py-configparser-cvs] r33 - in branches/1.0.x: . tests
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 13:12:16 2008 New Revision: 33 Modified: branches/1.0.x/config.lisp branches/1.0.x/tests/tests.lisp Log: Merge r30:32 (test expectation fix and ITEMS fix). Modified: branches/1.0.x/config.lisp ============================================================================== --- branches/1.0.x/config.lisp (original) +++ branches/1.0.x/config.lisp Sun Mar 16 13:12:16 2008 @@ -271,7 +271,7 @@ (mapcar #'(lambda (x) (cons (car x) (get-option config section-name (car x) ;; option-name - :expand t + :expand expand :defaults defaults))) (section-options section)) (section-options section)))) Modified: branches/1.0.x/tests/tests.lisp ============================================================================== --- branches/1.0.x/tests/tests.lisp (original) +++ branches/1.0.x/tests/tests.lisp Sun Mar 16 13:12:16 2008 @@ -136,7 +136,9 @@ p=q z=%(p)s ") - (items (read-stream (make-config) s) "n" :expand nil)) '(("z" "%(p)s") ("p" . "q"))) + (items (read-stream (make-config) s) "n" :expand nil)) + '(("z" . "%(p)s") + ("p" . "q"))) T) (deftest basic.items.2 @@ -144,7 +146,8 @@ p=q z=%(p)s ") - (items (read-stream (make-config) s) "n" :expand t)) '(("z" . "q") ("p" . "q"))) + (items (read-stream (make-config) s) "n" :expand t)) + '(("z" . "q") ("p" . "q"))) T) (deftest basic.items.3

1 0

[py-configparser-cvs] r32 - trunk
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 13:09:25 2008 New Revision: 32 Modified: trunk/config.lisp Log: Fix expansion of ITEMS. Modified: trunk/config.lisp ============================================================================== --- trunk/config.lisp (original) +++ trunk/config.lisp Sun Mar 16 13:09:25 2008 @@ -271,7 +271,7 @@ (mapcar #'(lambda (x) (cons (car x) (get-option config section-name (car x) ;; option-name - :expand t + :expand expand :defaults defaults))) (section-options section)) (section-options section))))

1 0

[py-configparser-cvs] r31 - trunk/tests
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 13:08:59 2008 New Revision: 31 Modified: trunk/tests/tests.lisp Log: Fix test expectation (and indenting). Modified: trunk/tests/tests.lisp ============================================================================== --- trunk/tests/tests.lisp (original) +++ trunk/tests/tests.lisp Sun Mar 16 13:08:59 2008 @@ -1,6 +1,6 @@ (defpackage #:py-configparser-tests - (:use (#:cl #:py-configparser #:rt))) + (:use #:cl #:py-configparser #:rt)) (in-package :py-configparser-tests) @@ -136,7 +136,9 @@ p=q z=%(p)s ") - (items (read-stream (make-config) s) "n" :expand nil)) '(("z" "%(p)s") ("p" . "q"))) + (items (read-stream (make-config) s) "n" :expand nil)) + '(("z" . "%(p)s") + ("p" . "q"))) T) (deftest basic.items.2 @@ -144,7 +146,8 @@ p=q z=%(p)s ") - (items (read-stream (make-config) s) "n" :expand t)) '(("z" . "q") ("p" . "q"))) + (items (read-stream (make-config) s) "n" :expand t)) + '(("z" . "q") ("p" . "q"))) T) (deftest basic.items.3

1 0

[py-configparser-cvs] r30 - branches/1.0.x/tests
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 08:11:04 2008 New Revision: 30 Modified: branches/1.0.x/tests/tests.lisp Log: Merge r29 from trunk (test fixes). Modified: branches/1.0.x/tests/tests.lisp ============================================================================== --- branches/1.0.x/tests/tests.lisp (original) +++ branches/1.0.x/tests/tests.lisp Sun Mar 16 08:11:04 2008 @@ -1,6 +1,6 @@ (defpackage #:py-configparser-tests - (:use (#:cl #:py-configparser #:rt))) + (:use #:cl #:py-configparser #:rt)) (in-package :py-configparser-tests) @@ -106,7 +106,7 @@ ") - (typep (get-option read-stream (make-config) s) + (typep (read-stream (make-config) s) 'config)) T) @@ -116,7 +116,7 @@ ") - (typep (get-option read-stream (make-config) s) + (typep (read-stream (make-config) s) 'config)) T) @@ -132,7 +132,7 @@ ;; items (deftest basic.items.1 - (equal (with-inputfrom-string (s "[n] + (equal (with-input-from-string (s "[n] p=q z=%(p)s ")

1 0

[py-configparser-cvs] r29 - trunk/tests
by ehuelsmann＠common-lisp.net 16 Mar '08

16 Mar '08

Author: ehuelsmann Date: Sun Mar 16 08:10:27 2008 New Revision: 29 Modified: trunk/tests/tests.lisp Log: Test fixes. Modified: trunk/tests/tests.lisp ============================================================================== --- trunk/tests/tests.lisp (original) +++ trunk/tests/tests.lisp Sun Mar 16 08:10:27 2008 @@ -106,7 +106,7 @@ ") - (typep (get-option read-stream (make-config) s) + (typep (read-stream (make-config) s) 'config)) T) @@ -116,7 +116,7 @@ ") - (typep (get-option read-stream (make-config) s) + (typep (read-stream (make-config) s) 'config)) T) @@ -132,7 +132,7 @@ ;; items (deftest basic.items.1 - (equal (with-inputfrom-string (s "[n] + (equal (with-input-from-string (s "[n] p=q z=%(p)s ")

1 0

[py-configparser-cvs] r28 - in branches/1.0.x: . tests
by ehuelsmann＠common-lisp.net 15 Mar '08

15 Mar '08

Author: ehuelsmann Date: Sat Mar 15 18:05:40 2008 New Revision: 28 Modified: branches/1.0.x/parser.lisp branches/1.0.x/tests/tests.lisp Log: Backport r27. Modified: branches/1.0.x/parser.lisp ============================================================================== --- branches/1.0.x/parser.lisp (original) +++ branches/1.0.x/parser.lisp Sat Mar 15 18:05:40 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: branches/1.0.x/tests/tests.lisp ============================================================================== --- branches/1.0.x/tests/tests.lisp (original) +++ branches/1.0.x/tests/tests.lisp Sat Mar 15 18:05:40 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]

1 0