steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.gadgets.packs: add failing unit test

db4
Slava Pestov 2009-04-13 14:41:08 -05:00
parent 9522f92afd
commit c9272501f5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/ui/gadgets/packs/packs-tests.factor
View File

@ -130,3 +130,10 @@ IN: ui.gadgets.packs.tests
[ V{ { 0 0 } { 30 10 } } ] [ V{ { 0 0 } { 30 10 } } ]
[ "g" get children>> [ loc>> ] map ] unit-test [ "g" get children>> [ loc>> ] map ] unit-test
<shelf> +baseline+ >>align
<gadget> { 24 24 } >>dim add-gadget
12 9 { 15 15 } <baseline-gadget> add-gadget
"g" set
[ { 39 24 } ] [ "g" get pref-dim ] unit-test