diff --git a/pollen/test/data/pixel/pixel.png b/pollen/test/data/pixel/pixel.png new file mode 100644 index 0000000..c5916f2 Binary files /dev/null and b/pollen/test/data/pixel/pixel.png differ diff --git a/pollen/test/data/pixel/template.png.p b/pollen/test/data/pixel/template.png.p new file mode 100644 index 0000000..e0160a1 --- /dev/null +++ b/pollen/test/data/pixel/template.png.p @@ -0,0 +1 @@ +◊doc \ No newline at end of file diff --git a/pollen/test/data/pixel/test-pixel.png.pm b/pollen/test/data/pixel/test-pixel.png.pm new file mode 100644 index 0000000..e269a8f --- /dev/null +++ b/pollen/test/data/pixel/test-pixel.png.pm @@ -0,0 +1,3 @@ +#lang pollen +◊(require racket/file) +◊(file->bytes "pixel.png") \ No newline at end of file diff --git a/pollen/test/test-bytes.rkt b/pollen/test/test-bytes.rkt new file mode 100644 index 0000000..e91ce4d --- /dev/null +++ b/pollen/test/test-bytes.rkt @@ -0,0 +1,18 @@ +#lang at-exp racket/base +(require rackunit racket/runtime-path pollen/render racket/file pollen/setup) + +(define-runtime-path pixel-dir "data/pixel") +(define-runtime-path test-pixel-src "data/pixel/test-pixel.png.pm") +(define-runtime-path test-pixel "data/pixel/test-pixel.png") +(define-runtime-path pixel "data/pixel/pixel.png") +(define-runtime-path template "data/pixel/template.png") + +;; test makes sure that quick tour files work +(parameterize ([current-output-port (open-output-string)] + [current-directory pixel-dir] + [current-project-root pixel-dir]) + (check-not-exn (λ _ (render-to-file-if-needed test-pixel-src))) + (check-true (file-exists? test-pixel)) + (check-equal? (file->bytes test-pixel) (file->bytes pixel))) + +(for-each (λ (f) (when (file-exists? f) (delete-file f))) (list test-pixel template)) \ No newline at end of file