tests/for-fixture-generation.lisp (563 bytes)
1 (in-package #:cl-user) 2 3 ;; Code for generating some files in tests/files/ 4 5 (defun write-with-cr-lf (line stream) 6 (format stream line) 7 (format stream "~A~A" #\Return #\Linefeed)) 8 9 (with-open-file (out (asdf:system-relative-pathname :coleslaw-test "tests/files/127.txt") :direction :output :if-exists :overwrite) 10 (write-with-cr-lf ";;;;;" out) 11 (write-with-cr-lf "title: We should handle CR-LF" out) 12 (write-with-cr-lf "tags: fixtures" out) 13 (write-with-cr-lf "date: 2014-12-16" out) 14 (write-with-cr-lf "format: md" out) 15 (write-with-cr-lf ";;;;;" out))