1 ! Copyright (C) 2009 Daniel Ehrenberg
2 ! See https://factorcode.org/license.txt for BSD license.
3 USING: tools.test wrap.words sequences ;
5 { { } } [ f 35 wrap-words ] unit-test
6 { { } } [ { } 35 wrap-words ] unit-test
11 T{ wrapping-word f 1 10 f }
12 T{ wrapping-word f 2 10 f }
13 T{ wrapping-word f 3 2 t }
16 T{ wrapping-word f 4 10 f }
17 T{ wrapping-word f 5 10 f }
22 T{ wrapping-word f 1 10 f }
23 T{ wrapping-word f 2 10 f }
24 T{ wrapping-word f 3 2 t }
25 T{ wrapping-word f 4 10 f }
26 T{ wrapping-word f 5 10 f }
27 } 35 wrap-words [ { } like ] map
33 T{ wrapping-word f 1 10 f }
34 T{ wrapping-word f 2 10 f }
35 T{ wrapping-word f 3 9 t }
36 T{ wrapping-word f 3 9 t }
37 T{ wrapping-word f 3 9 t }
40 T{ wrapping-word f 4 10 f }
41 T{ wrapping-word f 5 10 f }
46 T{ wrapping-word f 1 10 f }
47 T{ wrapping-word f 2 10 f }
48 T{ wrapping-word f 3 9 t }
49 T{ wrapping-word f 3 9 t }
50 T{ wrapping-word f 3 9 t }
51 T{ wrapping-word f 4 10 f }
52 T{ wrapping-word f 5 10 f }
53 } 35 wrap-words [ { } like ] map
59 T{ wrapping-word f 1 10 t }
60 T{ wrapping-word f 1 10 f }
61 T{ wrapping-word f 3 9 t }
64 T{ wrapping-word f 2 10 f }
65 T{ wrapping-word f 3 9 t }
68 T{ wrapping-word f 4 10 f }
69 T{ wrapping-word f 5 10 f }
74 T{ wrapping-word f 1 10 t }
75 T{ wrapping-word f 1 10 f }
76 T{ wrapping-word f 3 9 t }
77 T{ wrapping-word f 2 10 f }
78 T{ wrapping-word f 3 9 t }
79 T{ wrapping-word f 4 10 f }
80 T{ wrapping-word f 5 10 f }
81 } 35 wrap-words [ { } like ] map