mod common;
#[cfg(test)]

mod tests{
    use super::common::*;
    use erfa_sys::*;
    use rfa::all::ursa_s00;
    #[test]
    pub fn s00_test(){
        let dj1 = ERFA_DJ00; let dj2 = 365.0;
        let x = 0.1; let y =0.2;
        for i in 0..20  {
            let dj_new = dj2 + (i*100) as f64;
            let erfa_s0 = unsafe{eraS00(dj1, dj_new, x, y)};

            let rfa_s0 = ursa_s00(dj1, dj_new, x, y);
            assert!(rel_equal(erfa_s0, rfa_s0, 1E-14) );
        }
    }
}