From cf6c4f321e9060b339ce4483c36a8c14097bbcf7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Sat, 25 Mar 2023 16:27:30 +0100 Subject: [PATCH] Pass 0 tests. --- member2-parser.scm | 22 +++++++++++++++++++--- 1 file changed, 19 insertions(+), 3 deletions(-) diff --git a/member2-parser.scm b/member2-parser.scm index 2062d7e..1c48378 100644 --- a/member2-parser.scm +++ b/member2-parser.scm @@ -36,7 +36,8 @@ (chicken base) (chicken io) (chicken irregex) - member2-record) + member2-record + testing) ;; Removes any comments and removes any leading and trailing ;; whitespace. @@ -95,13 +96,28 @@ (let* ((mrif (member-record-input-file mr)) (source (read-lines mrif)) (mrp (parse-member-lines mr source))) - #f)) + mrp)) (define (member-parser-tests!) - #f) + (run-tests + member-parser + (test-equal? preprocess-member-line + (preprocess-member-line "# all comment") + "") + (test-equal? preprocess-member-line + (preprocess-member-line " # all comment after spaces") + "") + (test-equal? preprocess-member-line + (preprocess-member-line " test # spaces and comment after spaces") + "test") + (test-equal? preprocess-member-line + (preprocess-member-line "key value # spaces and comment after spaces") + "key value") + )) ) (import member2-parser) (member-parser-tests!) +(print (parse-member-file (make-member-record "joe" "members/joe" '())))