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