marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Include :excerpt metadata in test

Browse source
This commit is contained in:
Alfredo Beaumont 2017-03-22 18:39:12 +01:00 • committed by Javier Olaechea
parent 12f174533f
commit 806c003f98
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
tests/files/127.txt
View file

@ -3,4 +3,5 @@ title: We should handle CR-LF
tags: fixtures tags: fixtures
date: 2014-12-16 date: 2014-12-16
format: md format: md
excerpt: An excerpt
;;;;; ;;;;;

2
tests/tests.lisp
View file

@ -19,6 +19,6 @@
(with-open-file (in (asdf:system-relative-pathname :coleslaw-test "tests/files/127.txt")) (with-open-file (in (asdf:system-relative-pathname :coleslaw-test "tests/files/127.txt"))
(diag "PARSE-METADATA should handle files with CR-LF line endings.") (diag "PARSE-METADATA should handle files with CR-LF line endings.")
(is (coleslaw::parse-metadata in) '(:TITLE "We should handle CR-LF" :TAGS "fixtures" :DATE "2014-12-16" :FORMAT (is (coleslaw::parse-metadata in) '(:TITLE "We should handle CR-LF" :TAGS "fixtures" :DATE "2014-12-16" :FORMAT
"md") :test 'equalp)) "md" :EXCERPT "An excerpt") :test 'equalp))
(finalize) (finalize)