From c75c4efefd73a599485fa3d9963c0ced0b5739a2 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 19 Nov 2008 19:08:12 -0600
Subject: [PATCH] Add unit test for pack pref-dim bug

---
 basis/ui/gadgets/labels/labels-tests.factor | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 basis/ui/gadgets/labels/labels-tests.factor

diff --git a/basis/ui/gadgets/labels/labels-tests.factor b/basis/ui/gadgets/labels/labels-tests.factor
new file mode 100644
index 0000000000..a9b5074e4c
--- /dev/null
+++ b/basis/ui/gadgets/labels/labels-tests.factor
@@ -0,0 +1,9 @@
+USING: accessors tools.test ui.gadgets ui.gadgets.labels ;
+IN: ui.gadgets.labels.tests
+
+[ { 119 14 } ] [
+    <gadget> { 100 14 } >>dim
+    <gadget> { 14 14 } >>dim
+    label-on-right { 5 5 } >>gap
+    pref-dim
+] unit-test