31 lines
804 B
Factor
31 lines
804 B
Factor
IN: ui.gadgets.paragraphs.tests
|
|
USING: ui.gadgets.paragraphs ui.gadgets.paragraphs.private
|
|
ui.gadgets accessors tools.test namespaces sequences kernel ;
|
|
|
|
TUPLE: fake-break < gadget ;
|
|
|
|
: <fake-break> ( -- gadget ) fake-break new-gadget { 5 5 } >>dim ;
|
|
|
|
INSTANCE: fake-break word-break
|
|
|
|
100 <paragraph>
|
|
<gadget> { 40 30 } >>dim dup "a" set add-gadget
|
|
<fake-break> add-gadget
|
|
<gadget> { 40 15 } >>dim dup "b" set add-gadget
|
|
<fake-break> add-gadget
|
|
<gadget> { 50 20 } >>dim dup "c" set add-gadget
|
|
"p" set
|
|
|
|
[ { 4 1 } ] [ "p" get wrap-paragraph [ length ] map ] unit-test
|
|
|
|
[ { 85 50 } ] [ "p" get pref-dim ] unit-test
|
|
|
|
[ ] [ "p" get prefer ] unit-test
|
|
|
|
[ ] [ "p" get layout ] unit-test
|
|
|
|
[ { 0 0 } ] [ "a" get loc>> ] unit-test
|
|
|
|
[ { 45 0 } ] [ "b" get loc>> ] unit-test
|
|
|
|
[ { 0 30 } ] [ "c" get loc>> ] unit-test |