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 (file)
index 0000000..3343e04
--- /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