Fix unit test for math.parser change
parent
747974f4ae
commit
db4a1f7536
|
@ -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
|
||||
|
|
|
@ -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> ;
|
||||
|
|
|
@ -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> ;
|
||||
|
|
|
@ -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
|
||||
|
||||
|
|
Loading…
Reference in New Issue