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