extra/pdf/units/units-tests.factor

   1 ! Copyright (C) 2010 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: pdf.units tools.test ;
   5
   6 IN: pdf.units.tests
   7
   8 [ 0 ] [ "0" string>points ] unit-test
   9 [ 1 ] [ "1" string>points ] unit-test
  10 [ 1.5 ] [ "1.5" string>points ] unit-test
  11
  12 [ 12 ] [ "12pt" string>points ] unit-test
  13
  14 [ 72.0 ] [ "1in" string>points ] unit-test
  15 [ 108.0 ] [ "1.5in" string>points ] unit-test
  16