factor/extra/pdf/units/units-tests.factor

16 lines
399 B
Factor
Raw Normal View History

2012-09-22 15:24:47 -04:00
! Copyright (C) 2010 John Benediktsson
! See http://factorcode.org/license.txt for BSD license
USING: pdf.units tools.test ;
IN: pdf.units.tests
{ 0 } [ "0" string>points ] unit-test
{ 1 } [ "1" string>points ] unit-test
{ 1.5 } [ "1.5" string>points ] unit-test
2012-09-22 15:24:47 -04:00
{ 12 } [ "12pt" string>points ] unit-test
2012-09-22 15:24:47 -04:00
{ 72.0 } [ "1in" string>points ] unit-test
{ 108.0 } [ "1.5in" string>points ] unit-test