// Copyright 2015 The Rust Project Developers. See the COPYRIGHT
// file at the top-level directory of this distribution and at
// http://rust-lang.org/COPYRIGHT.
//
// Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
// http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
// <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
// option. This file may not be copied, modified, or distributed
// except according to those terms.

#![allow(overflowing_literals)]

use std::{i64, f32, f64};
use test;
use core::num::dec2flt::{to_f32, to_f64};

mod parse;
mod rawfp;

// Take an float literal, turn it into a string in various ways (that are all trusted
// to be correct) and see if those strings are parsed back to the value of the literal.
// Requires a *polymorphic literal*, i.e. one that can serve as f64 as well as f32.
macro_rules! test_literal {
    ($x: expr) => ({
        let x32: f32 = $x;
        let x64: f64 = $x;
        let inputs = &[stringify!($x).into(), format!("{:?}", x64), format!("{:e}", x64)];
        for input in inputs {
            if input != "inf" {
                assert_eq!(to_f64(input), Ok(x64));
                assert_eq!(to_f32(input), Ok(x32));
                let neg_input = &format!("-{}", input);
                assert_eq!(to_f64(neg_input), Ok(-x64));
                assert_eq!(to_f32(neg_input), Ok(-x32));
            }
        }
    })
}

#[test]
fn ordinary() {
    test_literal!(1.0);
    test_literal!(3e-5);
    test_literal!(0.1);
    test_literal!(12345.);
    test_literal!(0.9999999);
    test_literal!(2.2250738585072014e-308);
}

#[test]
fn special_code_paths() {
    test_literal!(36893488147419103229.0); // 2^65 - 3, triggers half-to-even with even significand
    test_literal!(101e-33); // Triggers the tricky underflow case in AlgorithmM (for f32)
    test_literal!(1e23); // Triggers AlgorithmR
    test_literal!(2075e23); // Triggers another path through AlgorithmR
    test_literal!(8713e-23); // ... and yet another.
}

#[test]
fn large() {
    test_literal!(1e300);
    test_literal!(123456789.34567e250);
    test_literal!(943794359898089732078308743689303290943794359843568973207830874368930329.);
}

#[test]
fn subnormals() {
    test_literal!(5e-324);
    test_literal!(91e-324);
    test_literal!(1e-322);
    test_literal!(13245643e-320);
    test_literal!(2.22507385851e-308);
    test_literal!(2.1e-308);
    test_literal!(4.9406564584124654e-324);
}

#[test]
fn infinity() {
    test_literal!(1e400);
    test_literal!(1e309);
    test_literal!(2e308);
    test_literal!(1.7976931348624e308);
}

#[test]
fn zero() {
    test_literal!(0.0);
    test_literal!(1e-325);
    test_literal!(1e-326);
    test_literal!(1e-500);
}

#[test]
fn fast_path_correct() {
    // This number triggers the fast path and is handled incorrectly when compiling on
    // x86 without SSE2 (i.e., using the x87 FPU stack).
    test_literal!(1.448997445238699);
}

#[test]
fn lonely_dot() {
    assert_eq!(to_f64("."), Ok(0.0));
}

#[test]
fn nan() {
    assert!(to_f64("NaN").unwrap().is_nan());
    assert!(to_f32("NaN").unwrap().is_nan());
}

#[test]
fn inf() {
    assert_eq!(to_f64("inf"), Ok(f64::INFINITY));
    assert_eq!(to_f64("-inf"), Ok(f64::NEG_INFINITY));
    assert_eq!(to_f32("inf"), Ok(f32::INFINITY));
    assert_eq!(to_f32("-inf"), Ok(f32::NEG_INFINITY));
}

#[test]
fn massive_exponent() {
    let max = i64::MAX;
    assert_eq!(to_f64(&format!("1e{}000", max)), Ok(f64::INFINITY));
    assert_eq!(to_f64(&format!("1e-{}000", max)), Ok(0.0));
    assert_eq!(to_f64(&format!("1e{}000", max)), Ok(f64::INFINITY));
}

#[bench]
fn bench_0(b: &mut test::Bencher) {
    b.iter(|| to_f64("0.0"));
}

#[bench]
fn bench_42(b: &mut test::Bencher) {
    b.iter(|| to_f64("42"));
}

#[bench]
fn bench_huge_int(b: &mut test::Bencher) {
    // 2^128 - 1
    b.iter(|| to_f64("170141183460469231731687303715884105727"));
}

#[bench]
fn bench_short_decimal(b: &mut test::Bencher) {
    b.iter(|| to_f64("1234.5678"));
}

#[bench]
fn bench_pi_long(b: &mut test::Bencher) {
    b.iter(|| to_f64("3.14159265358979323846264338327950288"));
}

#[bench]
fn bench_pi_short(b: &mut test::Bencher) {
    b.iter(|| to_f64("3.141592653589793"))
}

#[bench]
fn bench_1e150(b: &mut test::Bencher) {
    b.iter(|| to_f64("1e150"));
}

#[bench]
fn bench_long_decimal_and_exp(b: &mut test::Bencher) {
    b.iter(|| to_f64("727501488517303786137132964064381141071e-123"));
}

#[bench]
fn bench_min_subnormal(b: &mut test::Bencher) {
    b.iter(|| to_f64("5e-324"));
}

#[bench]
fn bench_min_normal(b: &mut test::Bencher) {
    b.iter(|| to_f64("2.2250738585072014e-308"));
}

#[bench]
fn bench_max(b: &mut test::Bencher) {
    b.iter(|| to_f64("1.7976931348623157e308"));
}