brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Pass 0 tests.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-25 16:27:30 +01:00
parent fa35396146
commit cf6c4f321e
1 changed files with 19 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

22
member2-parser.scm
View file

@ -36,7 +36,8 @@
(chicken base) (chicken base)
(chicken io) (chicken io)
(chicken irregex) (chicken irregex)
member2-record) member2-record
testing)
;; Removes any comments and removes any leading and trailing ;; Removes any comments and removes any leading and trailing
;; whitespace. ;; whitespace.
@ -95,13 +96,28 @@
(let* ((mrif (member-record-input-file mr)) (let* ((mrif (member-record-input-file mr))
(source (read-lines mrif)) (source (read-lines mrif))
(mrp (parse-member-lines mr source))) (mrp (parse-member-lines mr source)))
#f)) mrp))
(define (member-parser-tests!) (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) (import member2-parser)
(member-parser-tests!) (member-parser-tests!)
(print (parse-member-file (make-member-record "joe" "members/joe" '())))