2222
2323var resolve = require ( 'path' ) . resolve ;
2424var tape = require ( 'tape' ) ;
25+ var isAlmostSameValue = require ( '@stdlib/assert/is-almost-same-value' ) ;
2526var isnan = require ( '@stdlib/math/base/assert/is-nan' ) ;
26- var abs = require ( '@stdlib/math/base/special/abs' ) ;
2727var PINF = require ( '@stdlib/constants/float64/pinf' ) ;
2828var NINF = require ( '@stdlib/constants/float64/ninf' ) ;
29- var EPS = require ( '@stdlib/constants/float64/eps' ) ;
3029var tryRequire = require ( '@stdlib/utils/try-require' ) ;
3130
3231
@@ -106,8 +105,6 @@ tape( 'if provided a success probability `p` outside of `[0,1]`, the function al
106105
107106tape ( 'the function evaluates the logpmf for `x` given small parameter `p`' , opts , function test ( t ) {
108107 var expected ;
109- var delta ;
110- var tol ;
111108 var x ;
112109 var p ;
113110 var y ;
@@ -118,21 +115,13 @@ tape( 'the function evaluates the logpmf for `x` given small parameter `p`', opt
118115 p = smallP . p ;
119116 for ( i = 0 ; i < x . length ; i ++ ) {
120117 y = logpmf ( x [ i ] , p [ i ] ) ;
121- if ( y === expected [ i ] ) {
122- t . strictEqual ( y , expected [ i ] , 'x: ' + x [ i ] + '. p:' + p [ i ] + ', y: ' + y + ', expected: ' + expected [ i ] ) ;
123- } else {
124- delta = abs ( y - expected [ i ] ) ;
125- tol = 2.0 * EPS * abs ( expected [ i ] ) ;
126- t . ok ( delta <= tol , 'within tolerance. x: ' + x [ i ] + '. p: ' + p [ i ] + '. y: ' + y + '. E: ' + expected [ i ] + '. Δ: ' + delta + '. tol: ' + tol + '.' ) ;
127- }
118+ t . strictEqual ( isAlmostSameValue ( y , expected [ i ] , 1 ) , true , 'returns expected value' ) ;
128119 }
129120 t . end ( ) ;
130121} ) ;
131122
132123tape ( 'the function evaluates the logpmf for `x` given large parameter `p`' , opts , function test ( t ) {
133124 var expected ;
134- var delta ;
135- var tol ;
136125 var x ;
137126 var p ;
138127 var y ;
@@ -143,13 +132,7 @@ tape( 'the function evaluates the logpmf for `x` given large parameter `p`', opt
143132 p = largeP . p ;
144133 for ( i = 0 ; i < x . length ; i ++ ) {
145134 y = logpmf ( x [ i ] , p [ i ] ) ;
146- if ( y === expected [ i ] ) {
147- t . strictEqual ( y , expected [ i ] , 'x: ' + x [ i ] + '. p: ' + p [ i ] + ', y: ' + y + ', expected: ' + expected [ i ] ) ;
148- } else {
149- delta = abs ( y - expected [ i ] ) ;
150- tol = 1.5 * EPS * abs ( expected [ i ] ) ;
151- t . ok ( delta <= tol , 'within tolerance. x: ' + x [ i ] + '. p: ' + p [ i ] + '. y: ' + y + '. E: ' + expected [ i ] + '. Δ: ' + delta + '. tol: ' + tol + '.' ) ;
152- }
135+ t . strictEqual ( isAlmostSameValue ( y , expected [ i ] , 2 ) , true , 'returns expected value' ) ;
153136 }
154137 t . end ( ) ;
155138} ) ;
0 commit comments