dan/haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

post: Add read-metadata-headers procedure.

Browse Source 
* haunt/post.scm (read-metadata-headers): New procedure.
* haunt/reader.scm (read-html-post): Reimplement using
  'read-metadata-headers'.
* tests/post.scm (%tzoffset): New variable.
  ("read-metadata-headers"): New test.
This commit is contained in:
David Thompson
2015-10-15 22:46:30 -04:00
parent e505a66a1b
commit dfad89079b
3 changed files with 35 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
tests/post.scm
View File

@@ -26,6 +26,8 @@
(define (make-date* year month day)
(make-date 0 0 0 0 day month year 0))
(define %tzoffset (date-zone-offset (current-date)))
(test-equal "post-ref"
'(hello test)
(post-ref (make-post "foo.skr" '((tags hello test)) '()) 'tags))
@@ -62,9 +64,20 @@
(parse-metadata 'tags "foo, bar, baz"))
(test-equal "parse-metadata, date"
(make-date 0 0 30 22 15 10 2015 (date-zone-offset (current-date)))
(make-date 0 0 30 22 15 10 2015 %tzoffset)
(parse-metadata 'date "2015-10-15 22:30"))
(test-equal "read-metadata-headers"
`((tags "foo" "bar" "baz")
(date . ,(make-date 0 0 30 22 15 10 2015 %tzoffset))
(title . "Hello, World!"))
(pk 'meta (call-with-input-string "title: Hello, World!
date: 2015-10-15 22:30
tags: foo, bar, baz
---
"
read-metadata-headers)))
(test-end)