! Copyright (C) 2008 Jonathan Leto.
! See http://factorcode.org/license.txt for BSD license.

USING: alien.c-types kernel math math.functions tools.test gsl gsl.sf.airy math.analysis ;
USING: gsl.sf.result ;
IN: gsl.sf.airy.tests

: eps
    1.0e-12 ;

: gamma-const          
    1 2 3 / gamma / ;

: result 
    "gsl_sf_result" <c-object> ;

: Ai_0
    3 -2/3 ^ gamma-const * ;

: precision 
    0 ;

[ t ] [ 0 0 precision result gsl_sf_airy_Ai_e       = ] unit-test
[ t ] [ Ai_0 result gsl_sf_result-val           eps ~ ] unit-test
[ t ] [ -2.33810741045977 1 gsl_sf_airy_zero_Ai eps ~ ] unit-test