diff --git a/quad/qtest/fonts/arbitrary-name/my-name-does-not-matter.woff b/quad/qtest/fonts/arbitrary-name/my-name-does-not-matter.woff
new file mode 100755
index 00000000..217aac7a
Binary files /dev/null and b/quad/qtest/fonts/arbitrary-name/my-name-does-not-matter.woff differ
diff --git a/quad/qtest/test-font-setup-tester.pdf b/quad/qtest/test-font-setup-tester.pdf
new file mode 100644
index 00000000..6b60e642
Binary files /dev/null and b/quad/qtest/test-font-setup-tester.pdf differ
diff --git a/quad/qtest/test-font-setup.rkt b/quad/qtest/test-font-setup.rkt
new file mode 100644
index 00000000..bd7143ff
--- /dev/null
+++ b/quad/qtest/test-font-setup.rkt
@@ -0,0 +1,5 @@
+#lang quadwriter
+
+'(q ((font-family "arbitrary-name")(font-size "24")) "This text is in Charter")
+'(q ((break "para")))
+'(q ((font-family "charter")(font-size "24")) "This text is in Charter too")