ui.gadgets.packs: add failing unit test

2009-04-13 14:41:08 -05:00 · 2009-04-13 14:41:08 -05:00 · c9272501f5
parent 9522f92afd
commit c9272501f5
1 changed files with 8 additions and 1 deletions
--- a/basis/ui/gadgets/packs/packs-tests.factor
+++ b/basis/ui/gadgets/packs/packs-tests.factor
@ -129,4 +129,11 @@ IN: ui.gadgets.packs.tests
 [ ] [ "g" get layout ] unit-test

 [ 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