<gadget> { 50 20 } >>dim dup "c" set add-gadget
"p" set
-[ { 4 1 } ] [ "p" get wrap-paragraph [ words>> length ] map ] unit-test
+{ { 4 1 } } [ "p" get wrap-paragraph [ words>> length ] map ] unit-test
-[ { 85 50 } ] [ "p" get pref-dim ] unit-test
+{ { 85 50 } } [ "p" get pref-dim ] unit-test
-[ ] [ "p" get prefer ] unit-test
+{ } [ "p" get prefer ] unit-test
-[ ] [ "p" get layout ] unit-test
+{ } [ "p" get layout ] unit-test
-[ { 0 0 } ] [ "a" get loc>> ] unit-test
+{ { 0 0 } } [ "a" get loc>> ] unit-test
-[ { 45 7 } ] [ "b" get loc>> ] unit-test
+{ { 45 7 } } [ "b" get loc>> ] unit-test
-[ { 0 30 } ] [ "c" get loc>> ] unit-test
+{ { 0 30 } } [ "c" get loc>> ] unit-test
100 <paragraph>
15 15 { 40 30 } <baseline-gadget> dup "a" set add-gadget
20 20 { 40 30 } <baseline-gadget> dup "c" set add-gadget
"p" set
-[ { 85 65 } ] [ "p" get pref-dim ] unit-test
+{ { 85 65 } } [ "p" get pref-dim ] unit-test
-[ ] [ "p" get prefer ] unit-test
+{ } [ "p" get prefer ] unit-test
-[ ] [ "p" get layout ] unit-test
+{ } [ "p" get layout ] unit-test
-[ { 0 0 } ] [ "a" get loc>> ] unit-test
+{ { 0 0 } } [ "a" get loc>> ] unit-test
-[ { 45 5 } ] [ "b" get loc>> ] unit-test
+{ { 45 5 } } [ "b" get loc>> ] unit-test
-[ { 0 35 } ] [ "c" get loc>> ] unit-test
+{ { 0 35 } } [ "c" get loc>> ] unit-test