basis/ui/baseline-alignment/baseline-alignment-tests.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: tools.test math kernel sets generic
   4 ui.baseline-alignment ui.baseline-alignment.private ;
   5 IN: ui.baseline-alignment.tests
   6
   7 ! Test baseline calculations
   8 { 10 0 } [ 0 10 0 10 combine-metrics ] unit-test
   9 { 10 5 } [ 0 10 5 10 combine-metrics ] unit-test
  10 { 15 15 } [ 30 0 0 0 combine-metrics ] unit-test
  11 { 5 30 } [ 10 0 30 0 combine-metrics ] unit-test
  12 { 10 10 } [ 5 10 10 10 combine-metrics ] unit-test
  13 { 15 5 } [ 20 10 0 10 combine-metrics ] unit-test
  14 { 15 40 } [ 20 10 40 10 combine-metrics ] unit-test
  15 { 12 3 } [ 0 12 3 9 combine-metrics ] unit-test
  16
  17 { t } [ \ baseline \ cap-height [ order ] bi@ set= ] unit-test