]> gitweb.factorcode.org Git - factor.git/blob - extra/pdf/wrap/wrap-tests.factor
more test IN: cleanup.
[factor.git] / extra / pdf / wrap / wrap-tests.factor
1 USING: fonts pdf.wrap tools.test ;
2
3 { "hello,      " "extra spaces" } [
4     "hello,      extra spaces" word-split1
5 ] unit-test
6
7 { { "hello, " "world " "how " "are " "you?" } } [
8     "hello, world how are you?" word-split
9 ] unit-test
10
11 { { "hello, world " "how are you?" } } [
12     "hello, world how are you?" monospace-font 100 visual-wrap
13 ] unit-test