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 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" '())))