From 38fc75c7a784eaa38282781ad1a518529a0a5b57 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Tue, 30 Oct 2018 12:01:28 -0700
Subject: [PATCH] pixel test

---
 pollen/test/data/pixel/pixel.png         | Bin 0 -> 95 bytes
 pollen/test/data/pixel/template.png.p    |   1 +
 pollen/test/data/pixel/test-pixel.png.pm |   3 +++
 pollen/test/test-bytes.rkt               |  18 ++++++++++++++++++
 4 files changed, 22 insertions(+)
 create mode 100644 pollen/test/data/pixel/pixel.png
 create mode 100644 pollen/test/data/pixel/template.png.p
 create mode 100644 pollen/test/data/pixel/test-pixel.png.pm
 create mode 100644 pollen/test/test-bytes.rkt

diff --git a/pollen/test/data/pixel/pixel.png b/pollen/test/data/pixel/pixel.png
new file mode 100644
index 0000000000000000000000000000000000000000..c5916f289705642eec4975cf51458b9afeefe46c
GIT binary patch
literal 95
zcmeAS@N?(olHy`uVBq!ia0vp^j3CU&3?x-=hn)ga%mF?juK#@*VoWXSL2@NQe!*uh
mnS}iXa=1KQ978JRBqsscYz)k1<~1vTECx?kKbLh*2~7ZT-W2Wt

literal 0
HcmV?d00001

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