From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 28 Mar 2013 02:05:20 +0000 (-0700)
Subject: pdf.wrap: adding some tests.
X-Git-Tag: 0.97~1632
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=677f87ae0d3cf59b9efe4bb7966c5df257ff8323

pdf.wrap: adding some tests.
---

diff --git a/extra/pdf/wrap/wrap-tests.factor b/extra/pdf/wrap/wrap-tests.factor
new file mode 100644
index 0000000000..3343e04df9
--- /dev/null
+++ b/extra/pdf/wrap/wrap-tests.factor
@@ -0,0 +1,14 @@
+USING: fonts tools.test ;
+IN: pdf.wrap
+
+{ "hello,      " "extra spaces" } [
+    "hello,      extra spaces" word-split1
+] unit-test
+
+{ { "hello, " "world " "how " "are " "you?" } } [
+    "hello, world how are you?" word-split
+] unit-test
+
+{ { "hello, world " "how are you?" } } [
+    "hello, world how are you?" monospace-font 100 visual-wrap
+] unit-test