2015-09-02 13:41:39 -05:00
|
|
|
(defpackage :coleslaw-tests
|
|
|
|
|
(:use :cl :prove))
|
|
|
|
|
|
|
|
|
|
(in-package :coleslaw-tests)
|
|
|
|
|
|
2016-11-15 10:01:41 -05:00
|
|
|
(plan 4)
|
2015-09-02 13:41:39 -05:00
|
|
|
|
2016-09-20 23:38:03 -05:00
|
|
|
(diag "COLESLAW-CONF:*BASEDIR* points to Coleslaw's top level directory")
|
|
|
|
|
(is (car (last (pathname-directory coleslaw-conf:*basedir*)))
|
|
|
|
|
"coleslaw" :test #'string=)
|
2016-09-24 00:27:00 -05:00
|
|
|
(ok (probe-file (merge-pathnames #P"plugins" coleslaw-conf:*basedir*))
|
|
|
|
|
"COLESLAW-CONF:*BASEDIR* has a plugins sub-directory")
|
|
|
|
|
(ok (probe-file (merge-pathnames #P"themes" coleslaw-conf:*basedir*))
|
|
|
|
|
"COLESLAW-CONF:*BASEDIR* has a themes sub-directory")
|
2015-09-02 13:41:39 -05:00
|
|
|
|
2016-11-15 10:01:41 -05:00
|
|
|
|
|
|
|
|
(coleslaw::load-config (asdf:system-relative-pathname :coleslaw-test "tests/files/"))
|
|
|
|
|
|
|
|
|
|
(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.")
|
|
|
|
|
(is (coleslaw::parse-metadata in) '(:TITLE "We should handle CR-LF" :TAGS "fixtures" :DATE "2014-12-16" :FORMAT
|
2017-03-22 18:39:12 +01:00
|
|
|
"md" :EXCERPT "An excerpt") :test 'equalp))
|
2016-11-15 10:01:41 -05:00
|
|
|
|
2015-09-02 13:41:39 -05:00
|
|
|
(finalize)
|
