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' ) ;
3130
3231
3332// VARIABLES //
@@ -114,8 +113,6 @@ tape( 'if provided `s` equals `0`, the function evaluates a degenerate distribut
114113
115114tape ( 'the function evaluates the quantile function at `p` given positive `mu`' , opts , function test ( t ) {
116115 var expected ;
117- var delta ;
118- var tol ;
119116 var mu ;
120117 var p ;
121118 var s ;
@@ -129,22 +126,14 @@ tape( 'the function evaluates the quantile function at `p` given positive `mu`',
129126 for ( i = 0 ; i < p . length ; i ++ ) {
130127 y = quantile ( p [ i ] , mu [ i ] , s [ i ] ) ;
131128 if ( expected [ i ] !== null ) {
132- if ( y === expected [ i ] ) {
133- t . strictEqual ( y , expected [ i ] , 'p: ' + p [ i ] + ', mu:' + mu [ i ] + ', s: ' + s [ i ] + ', y: ' + y + ', expected: ' + expected [ i ] ) ;
134- } else {
135- delta = abs ( y - expected [ i ] ) ;
136- tol = 60.0 * EPS * abs ( expected [ i ] ) ;
137- t . ok ( delta <= tol , 'within tolerance. p: ' + p [ i ] + '. mu: ' + mu [ i ] + '. s: ' + s [ i ] + '. y: ' + y + '. E: ' + expected [ i ] + '. Δ: ' + delta + '. tol: ' + tol + '.' ) ;
138- }
129+ t . strictEqual ( isAlmostSameValue ( y , expected [ i ] , 0 ) , true , 'returns expected value' ) ;
139130 }
140131 }
141132 t . end ( ) ;
142133} ) ;
143134
144135tape ( 'the function evaluates the quantile function at `p` given negative `mu`' , opts , function test ( t ) {
145136 var expected ;
146- var delta ;
147- var tol ;
148137 var mu ;
149138 var p ;
150139 var s ;
@@ -158,22 +147,14 @@ tape( 'the function evaluates the quantile function at `p` given negative `mu`',
158147 for ( i = 0 ; i < p . length ; i ++ ) {
159148 y = quantile ( p [ i ] , mu [ i ] , s [ i ] ) ;
160149 if ( expected [ i ] !== null ) {
161- if ( y === expected [ i ] ) {
162- t . strictEqual ( y , expected [ i ] , 'p: ' + p [ i ] + ', mu:' + mu [ i ] + ', s: ' + s [ i ] + ', y: ' + y + ', expected: ' + expected [ i ] ) ;
163- } else {
164- delta = abs ( y - expected [ i ] ) ;
165- tol = 110.0 * EPS * abs ( expected [ i ] ) ;
166- t . ok ( delta <= tol , 'within tolerance. p: ' + p [ i ] + '. mu: ' + mu [ i ] + '. s: ' + s [ i ] + '. y: ' + y + '. E: ' + expected [ i ] + '. Δ: ' + delta + '. tol: ' + tol + '.' ) ;
167- }
150+ t . strictEqual ( isAlmostSameValue ( y , expected [ i ] , 0 ) , true , 'returns expected value' ) ;
168151 }
169152 }
170153 t . end ( ) ;
171154} ) ;
172155
173156tape ( 'the function evaluates the quantile function at `p` given large variance ( = large `s` )' , opts , function test ( t ) {
174157 var expected ;
175- var delta ;
176- var tol ;
177158 var mu ;
178159 var p ;
179160 var s ;
@@ -187,13 +168,7 @@ tape( 'the function evaluates the quantile function at `p` given large variance
187168 for ( i = 0 ; i < p . length ; i ++ ) {
188169 y = quantile ( p [ i ] , mu [ i ] , s [ i ] ) ;
189170 if ( expected [ i ] !== null ) {
190- if ( y === expected [ i ] ) {
191- t . strictEqual ( y , expected [ i ] , 'p: ' + p [ i ] + ', mu:' + mu [ i ] + ', s: ' + s [ i ] + ', y: ' + y + ', expected: ' + expected [ i ] ) ;
192- } else {
193- delta = abs ( y - expected [ i ] ) ;
194- tol = 8.0 * EPS * abs ( expected [ i ] ) ;
195- t . ok ( delta <= tol , 'within tolerance. p: ' + p [ i ] + '. mu: ' + mu [ i ] + '. s: ' + s [ i ] + '. y: ' + y + '. E: ' + expected [ i ] + '. Δ: ' + delta + '. tol: ' + tol + '.' ) ;
196- }
171+ t . strictEqual ( isAlmostSameValue ( y , expected [ i ] , 0 ) , true , 'returns expected value' ) ;
197172 }
198173 }
199174 t . end ( ) ;
0 commit comments