2222
2323var resolve = require ( 'path' ) . resolve ;
2424var tape = require ( 'tape' ) ;
25+ var isAlmostSameValue = require ( '@stdlib/assert/is-almost-same-value' ) ;
2526var tryRequire = require ( '@stdlib/utils/try-require' ) ;
2627var isnan = require ( '@stdlib/math/base/assert/is-nan' ) ;
27- var abs = require ( '@stdlib/math/base/special/abs' ) ;
2828var PINF = require ( '@stdlib/constants/float64/pinf' ) ;
2929var NINF = require ( '@stdlib/constants/float64/ninf' ) ;
30- var EPS = require ( '@stdlib/constants/float64/eps' ) ;
3130var isfinite = require ( '@stdlib/math/base/assert/is-finite' ) ;
3231var ln = require ( '@stdlib/math/base/special/ln' ) ;
3332var exp = require ( '@stdlib/math/base/special/exp' ) ;
@@ -83,8 +82,6 @@ tape( 'if provided a value outside `[0,1]` for success probability `p`, the func
8382
8483tape ( 'the function evaluates the MGF for `x` given small parameter `p`' , opts , function test ( t ) {
8584 var expected ;
86- var delta ;
87- var tol ;
8885 var x ;
8986 var p ;
9087 var y ;
@@ -95,21 +92,13 @@ tape( 'the function evaluates the MGF for `x` given small parameter `p`', opts,
9592 p = smallP . p ;
9693 for ( i = 0 ; i < x . length ; i ++ ) {
9794 y = mgf ( x [ i ] , p [ i ] ) ;
98- if ( y === expected [ i ] ) {
99- t . strictEqual ( y , expected [ i ] , 'x: ' + x [ i ] + ', p: ' + p [ i ] + ', y: ' + y + ', expected: ' + expected [ i ] ) ;
100- } else {
101- delta = abs ( y - expected [ i ] ) ;
102- tol = 3.0 * EPS * abs ( expected [ i ] ) ;
103- t . ok ( delta <= tol , 'within tolerance. x: ' + x [ i ] + '. p: ' + p [ i ] + '. y: ' + y + '. E: ' + expected [ i ] + '. Δ: ' + delta + '. tol: ' + tol + '.' ) ;
104- }
95+ t . strictEqual ( isAlmostSameValue ( y , expected [ i ] , 4 ) , true , 'returns expected value' ) ;
10596 }
10697 t . end ( ) ;
10798} ) ;
10899
109100tape ( 'the function evaluates the MGF for `x` given large parameter `p`' , opts , function test ( t ) {
110101 var expected ;
111- var delta ;
112- var tol ;
113102 var x ;
114103 var p ;
115104 var y ;
@@ -120,13 +109,7 @@ tape( 'the function evaluates the MGF for `x` given large parameter `p`', opts,
120109 p = largeP . p ;
121110 for ( i = 0 ; i < x . length ; i ++ ) {
122111 y = mgf ( x [ i ] , p [ i ] ) ;
123- if ( y === expected [ i ] ) {
124- t . strictEqual ( y , expected [ i ] , 'x: ' + x [ i ] + ', p: ' + p [ i ] + ', y: ' + y + ', expected: ' + expected [ i ] ) ;
125- } else {
126- delta = abs ( y - expected [ i ] ) ;
127- tol = 2.0 * EPS * abs ( expected [ i ] ) ;
128- t . ok ( delta <= tol , 'within tolerance. x: ' + x [ i ] + '. p: ' + p [ i ] + '. y: ' + y + '. E: ' + expected [ i ] + '. Δ: ' + delta + '. tol: ' + tol + '.' ) ;
129- }
112+ t . strictEqual ( isAlmostSameValue ( y , expected [ i ] , 3 ) , true , 'returns expected value' ) ;
130113 }
131114 t . end ( ) ;
132115} ) ;
0 commit comments