ui.gadgets.panes.tests: better than hardcoding values

diff --git a/basis/ui/gadgets/panes/panes-tests.factor b/basis/ui/gadgets/panes/panes-tests.factor
index 86c65bac83353458fe21fc014cf52ddf0c667980..76b292f1ffe4023868e4a36d1c5c4e2d3b1ce6c0 100644 (file)
--- a/basis/ui/gadgets/panes/panes-tests.factor
+++ b/basis/ui/gadgets/panes/panes-tests.factor
@@ -1,7 +1,8 @@
 USING: accessors colors fonts fry help help.markup help.stylesheet
 help.syntax help.topics inspector io io.streams.string io.styles
-kernel math models namespaces prettyprint see sequences tools.test
-ui.gadgets ui.gadgets.debug ui.gadgets.panes ui.gadgets.panes.private ;
+kernel literals math models namespaces prettyprint see sequences
+tools.test ui.gadgets ui.gadgets.debug ui.gadgets.panes
+ui.gadgets.panes.private ;
 IN: ui.gadgets.panes.tests
 
 : #children ( -- n ) "pane" get children>> length ;
@@ -126,11 +127,11 @@ ARTICLE: "test-article-2" "This is a test article"
 { t } [ <test-pane> dup last-line>> child? ] unit-test
 
 ! smash-line
-{
+${
     ""
     T{ font
-       { name "sans-serif" }
-       { size 12 }
+       { name $[ default-sans-serif-font-name ] }
+       { size $[ default-font-size ] }
        { foreground
          T{ rgba
             { red 0.0 }