From a5c0ba98d0c2469ba278fc1287be887e6b4366a0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Tue, 23 Aug 2016 07:32:17 +0200
Subject: [PATCH] ui.*: new tests
---
basis/ui/gadgets/borders/borders-tests.factor | 10 ++++++++--
basis/ui/render/render-tests.factor | 11 +++++++++++
2 files changed, 19 insertions(+), 2 deletions(-)
create mode 100644 basis/ui/render/render-tests.factor
diff --git a/basis/ui/gadgets/borders/borders-tests.factor b/basis/ui/gadgets/borders/borders-tests.factor
index 1c21a7c23a..5b64ebcb40 100644
--- a/basis/ui/gadgets/borders/borders-tests.factor
+++ b/basis/ui/gadgets/borders/borders-tests.factor
@@ -1,6 +1,12 @@
IN: ui.gadgets.borders.tests
-USING: tools.test accessors namespaces kernel ui.gadgets
-ui.gadgets.borders ui.gadgets.borders.private math.rectangles ;
+USING: accessors kernel math.rectangles namespaces tools.test
+ui.gadgets ui.gadgets.borders ui.gadgets.borders.private
+ui.gadgets.editors ;
+
+! border-pref-dim
+{ { 20 20 } } [
+ <multiline-editor> { 5 5 } <border> { 10 10 } border-pref-dim
+] unit-test
{ { 110 210 } } [ <gadget> { 100 200 } >>dim { 5 5 } <border> pref-dim ] unit-test
diff --git a/basis/ui/render/render-tests.factor b/basis/ui/render/render-tests.factor
new file mode 100644
index 0000000000..669d3644f1
--- /dev/null
+++ b/basis/ui/render/render-tests.factor
@@ -0,0 +1,11 @@
+USING: accessors colors.constants namespaces tools.test
+ui.gadgets.labels ui.pens.gradient ui.render ui.render.private ;
+IN: ui.render.tests
+
+: test-pen ( -- pen )
+ { COLOR: white COLOR: black } <gradient> ;
+
+{ } [
+ "hello" <label> test-pen >>interior
+ draw-standard-background
+] unit-test