factor/extra/math/floating-point/floating-point-tests.factor

! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: tools.test math.floating-point math.constants kernel ;
IN: math.floating-point.tests

[ t ] [ pi >double< >double pi = ] unit-test
[ t ] [ -1.0 >double< >double -1.0 = ] unit-test
checkin so i can work with this elsewhere 2008-10-21 22:51:54 -04:00			`! Copyright (C) 2008 Doug Coleman.`
			`! See http://factorcode.org/license.txt for BSD license.`
use math.bitwise here, add a couple tests 2008-11-29 01:44:39 -05:00			`USING: tools.test math.floating-point math.constants kernel ;`
checkin so i can work with this elsewhere 2008-10-21 22:51:54 -04:00			`IN: math.floating-point.tests`
use math.bitwise here, add a couple tests 2008-11-29 01:44:39 -05:00
			`[ t ] [ pi >double< >double pi = ] unit-test`
			`[ t ] [ -1.0 >double< >double -1.0 = ] unit-test`