Fix unit test for math.parser change

db4
Slava Pestov 2010-02-08 08:31:17 +13:00
parent 747974f4ae
commit db4a1f7536
4 changed files with 12 additions and 11 deletions

View File

@ -95,13 +95,14 @@ unit-test
[ "-10/2" string>number ]
unit-test
[ -5 ]
[ f ]
[ "10/-2" string>number ]
unit-test
[ 5 ]
[ f ]
[ "-10/-2" string>number ]
unit-test
[ "33/100" ]
[ "66/200" string>number number>string ]
unit-test

View File

@ -20,25 +20,25 @@ SPECIALIZED-ARRAY: body
[ days-per-year v*n ] [ solar-mass * ] bi* body <struct-boa> ; inline
: <jupiter> ( -- body )
double-4{ 4.84143144246472090e+00 -1.16032004402742839e+00 -1.03622044471123109e-01 0.0 }
double-4{ 4.84143144246472090e00 -1.16032004402742839e00 -1.03622044471123109e-01 0.0 }
double-4{ 1.66007664274403694e-03 7.69901118419740425e-03 -6.90460016972063023e-05 0.0 }
9.54791938424326609e-04
<body> ;
: <saturn> ( -- body )
double-4{ 8.34336671824457987e+00 4.12479856412430479e+00 -4.03523417114321381e-01 0.0 }
double-4{ 8.34336671824457987e00 4.12479856412430479e00 -4.03523417114321381e-01 0.0 }
double-4{ -2.76742510726862411e-03 4.99852801234917238e-03 2.30417297573763929e-05 0.0 }
2.85885980666130812e-04
<body> ;
: <uranus> ( -- body )
double-4{ 1.28943695621391310e+01 -1.51111514016986312e+01 -2.23307578892655734e-01 0.0 }
double-4{ 1.28943695621391310e01 -1.51111514016986312e01 -2.23307578892655734e-01 0.0 }
double-4{ 2.96460137564761618e-03 2.37847173959480950e-03 -2.96589568540237556e-05 0.0 }
4.36624404335156298e-05
<body> ;
: <neptune> ( -- body )
double-4{ 1.53796971148509165e+01 -2.59193146099879641e+01 1.79258772950371181e-01 0.0 }
double-4{ 1.53796971148509165e01 -2.59193146099879641e01 1.79258772950371181e-01 0.0 }
double-4{ 2.68067772490389322e-03 1.62824170038242295e-03 -9.51592254519715870e-05 0.0 }
5.15138902046611451e-05
<body> ;

View File

@ -19,25 +19,25 @@ TUPLE: body
[ days-per-year v*n ] [ solar-mass * ] bi* body boa ; inline
: <jupiter> ( -- body )
double-array{ 4.84143144246472090e+00 -1.16032004402742839e+00 -1.03622044471123109e-01 }
double-array{ 4.84143144246472090e00 -1.16032004402742839e00 -1.03622044471123109e-01 }
double-array{ 1.66007664274403694e-03 7.69901118419740425e-03 -6.90460016972063023e-05 }
9.54791938424326609e-04
<body> ;
: <saturn> ( -- body )
double-array{ 8.34336671824457987e+00 4.12479856412430479e+00 -4.03523417114321381e-01 }
double-array{ 8.34336671824457987e00 4.12479856412430479e00 -4.03523417114321381e-01 }
double-array{ -2.76742510726862411e-03 4.99852801234917238e-03 2.30417297573763929e-05 }
2.85885980666130812e-04
<body> ;
: <uranus> ( -- body )
double-array{ 1.28943695621391310e+01 -1.51111514016986312e+01 -2.23307578892655734e-01 }
double-array{ 1.28943695621391310e01 -1.51111514016986312e01 -2.23307578892655734e-01 }
double-array{ 2.96460137564761618e-03 2.37847173959480950e-03 -2.96589568540237556e-05 }
4.36624404335156298e-05
<body> ;
: <neptune> ( -- body )
double-array{ 1.53796971148509165e+01 -2.59193146099879641e+01 1.79258772950371181e-01 }
double-array{ 1.53796971148509165e01 -2.59193146099879641e01 1.79258772950371181e-01 }
double-array{ 2.68067772490389322e-03 1.62824170038242295e-03 -9.51592254519715870e-05 }
5.15138902046611451e-05
<body> ;

View File

@ -30,5 +30,5 @@ CONSTANT: eps .00000001
[ t ] [ 2 gammaln 1.110223024625157e-16 eps ~ ] unit-test
[ t ] [ 3 gammaln 0.6931471805599456 eps ~ ] unit-test
[ t ] [ 11 gammaln 15.10441257307984 eps ~ ] unit-test
[ t ] [ 9000000000000000000000000000000000000000000 gammaln 8.811521863477754e+44 eps ~ ] unit-test
[ t ] [ 9000000000000000000000000000000000000000000 gammaln 8.811521863477754e44 eps ~ ] unit-test