From c9272501f544e52bb7bf8a087ebb8b157a5b7939 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 13 Apr 2009 14:41:08 -0500
Subject: [PATCH] ui.gadgets.packs: add failing unit test

---
 basis/ui/gadgets/packs/packs-tests.factor | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/basis/ui/gadgets/packs/packs-tests.factor b/basis/ui/gadgets/packs/packs-tests.factor
index 153579643d..b49f46c05a 100644
--- 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
\ No newline at end of file
+[ "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
\ No newline at end of file