use malachite_base::num::basic::signeds::PrimitiveSigned;
use malachite_base::num::basic::unsigneds::PrimitiveUnsigned;
use malachite_base::num::comparison::traits::{OrdAbs, PartialOrdAbs};
use malachite_nz::integer::Integer;
use malachite_nz::natural::Natural;
use malachite_nz::test_util::generators::{integer_pair_gen, natural_pair_gen};
use malachite_q::test_util::generators::{
    rational_rational_signed_triple_gen, rational_rational_unsigned_triple_gen,
    rational_signed_pair_gen, rational_signed_signed_triple_gen, rational_unsigned_pair_gen,
    rational_unsigned_unsigned_triple_gen,
};
use malachite_q::Rational;
use std::cmp::Ordering;
use std::str::FromStr;

#[test]
fn test_partial_cmp_abs_u32() {
    let test = |s, v: u32, cmp, lt: bool, gt: bool, le: bool, ge: bool| {
        let u = Rational::from_str(s).unwrap();

        assert_eq!(u.partial_cmp_abs(&v), cmp);
        assert_eq!(v.partial_cmp_abs(&u), cmp.map(Ordering::reverse));
        assert_eq!(lt, u.lt_abs(&v));
        assert_eq!(gt, u.gt_abs(&v));
        assert_eq!(le, u.le_abs(&v));
        assert_eq!(ge, u.ge_abs(&v));
        assert_eq!(lt, v.gt_abs(&u));
        assert_eq!(gt, v.lt_abs(&u));
        assert_eq!(le, v.ge_abs(&u));
        assert_eq!(ge, v.le_abs(&u));
    };
    test("0", 0, Some(Ordering::Equal), false, false, true, true);
    test("0", 5, Some(Ordering::Less), true, false, true, false);
    test("123", 123, Some(Ordering::Equal), false, false, true, true);
    test("-123", 123, Some(Ordering::Equal), false, false, true, true);
    test("123", 124, Some(Ordering::Less), true, false, true, false);
    test("-123", 124, Some(Ordering::Less), true, false, true, false);
    test(
        "123",
        122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-123",
        122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "1000000000000",
        123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-1000000000000",
        123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );

    test("99/100", 1, Some(Ordering::Less), true, false, true, false);
    test(
        "101/100",
        1,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test("22/7", 3, Some(Ordering::Greater), false, true, false, true);
    test("22/7", 4, Some(Ordering::Less), true, false, true, false);
    test("-99/100", 1, Some(Ordering::Less), true, false, true, false);
    test(
        "-101/100",
        1,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-22/7",
        3,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test("-22/7", 4, Some(Ordering::Less), true, false, true, false);
}

#[test]
fn test_partial_cmp_abs_u64() {
    let test = |u, v: u64, cmp, lt: bool, gt: bool, le: bool, ge: bool| {
        assert_eq!(Rational::from_str(u).unwrap().partial_cmp_abs(&v), cmp);
        assert_eq!(
            v.partial_cmp_abs(&Rational::from_str(u).unwrap()),
            cmp.map(Ordering::reverse)
        );
        assert_eq!(lt, Rational::from_str(u).unwrap().lt_abs(&v));
        assert_eq!(gt, Rational::from_str(u).unwrap().gt_abs(&v));
        assert_eq!(le, Rational::from_str(u).unwrap().le_abs(&v));
        assert_eq!(ge, Rational::from_str(u).unwrap().ge_abs(&v));
        assert_eq!(lt, v.gt_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(gt, v.lt_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(le, v.ge_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(ge, v.le_abs(&Rational::from_str(u).unwrap()));
    };
    test("0", 0, Some(Ordering::Equal), false, false, true, true);
    test("0", 5, Some(Ordering::Less), true, false, true, false);
    test("123", 123, Some(Ordering::Equal), false, false, true, true);
    test("-123", 123, Some(Ordering::Equal), false, false, true, true);
    test("123", 124, Some(Ordering::Less), true, false, true, false);
    test("-123", 124, Some(Ordering::Less), true, false, true, false);
    test(
        "123",
        122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-123",
        122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "1000000000000",
        123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-1000000000000",
        123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "1000000000000",
        1000000000000,
        Some(Ordering::Equal),
        false,
        false,
        true,
        true,
    );
    test(
        "-1000000000000",
        1000000000000,
        Some(Ordering::Equal),
        false,
        false,
        true,
        true,
    );
    test(
        "1000000000000",
        1000000000001,
        Some(Ordering::Less),
        true,
        false,
        true,
        false,
    );
    test(
        "-1000000000000",
        1000000000001,
        Some(Ordering::Less),
        true,
        false,
        true,
        false,
    );

    test("99/100", 1, Some(Ordering::Less), true, false, true, false);
    test(
        "101/100",
        1,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test("22/7", 3, Some(Ordering::Greater), false, true, false, true);
    test("22/7", 4, Some(Ordering::Less), true, false, true, false);
    test("-99/100", 1, Some(Ordering::Less), true, false, true, false);
    test(
        "-101/100",
        1,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-22/7",
        3,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test("-22/7", 4, Some(Ordering::Less), true, false, true, false);
}

#[test]
fn test_partial_cmp_abs_i32() {
    let test = |u, v: i32, cmp, lt: bool, gt: bool, le: bool, ge: bool| {
        assert_eq!(Rational::from_str(u).unwrap().partial_cmp_abs(&v), cmp);
        assert_eq!(
            v.partial_cmp_abs(&Rational::from_str(u).unwrap()),
            cmp.map(Ordering::reverse)
        );
        assert_eq!(lt, Rational::from_str(u).unwrap().lt_abs(&v));
        assert_eq!(gt, Rational::from_str(u).unwrap().gt_abs(&v));
        assert_eq!(le, Rational::from_str(u).unwrap().le_abs(&v));
        assert_eq!(ge, Rational::from_str(u).unwrap().ge_abs(&v));
        assert_eq!(lt, v.gt_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(gt, v.lt_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(le, v.ge_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(ge, v.le_abs(&Rational::from_str(u).unwrap()));
    };
    test("0", 0, Some(Ordering::Equal), false, false, true, true);
    test("0", 5, Some(Ordering::Less), true, false, true, false);
    test("0", -5, Some(Ordering::Less), true, false, true, false);
    test("123", 123, Some(Ordering::Equal), false, false, true, true);
    test("123", -123, Some(Ordering::Equal), false, false, true, true);
    test("-123", 123, Some(Ordering::Equal), false, false, true, true);
    test(
        "-123",
        -123,
        Some(Ordering::Equal),
        false,
        false,
        true,
        true,
    );
    test("123", 124, Some(Ordering::Less), true, false, true, false);
    test("123", -124, Some(Ordering::Less), true, false, true, false);
    test("-123", 124, Some(Ordering::Less), true, false, true, false);
    test("-123", -124, Some(Ordering::Less), true, false, true, false);
    test(
        "123",
        122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "123",
        -122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-123",
        122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-123",
        -122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "1000000000000",
        123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "1000000000000",
        -123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-1000000000000",
        123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-1000000000000",
        -123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );

    test("99/100", 1, Some(Ordering::Less), true, false, true, false);
    test(
        "101/100",
        1,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test("22/7", 3, Some(Ordering::Greater), false, true, false, true);
    test("22/7", 4, Some(Ordering::Less), true, false, true, false);
    test(
        "-99/100",
        -1,
        Some(Ordering::Less),
        true,
        false,
        true,
        false,
    );
    test(
        "-101/100",
        -1,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-22/7",
        -3,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test("-22/7", -4, Some(Ordering::Less), true, false, true, false);
}

#[test]
fn test_partial_cmp_abs_i64() {
    let test = |u, v: i64, cmp, lt: bool, gt: bool, le: bool, ge: bool| {
        assert_eq!(Rational::from_str(u).unwrap().partial_cmp_abs(&v), cmp);
        assert_eq!(
            v.partial_cmp_abs(&Rational::from_str(u).unwrap()),
            cmp.map(Ordering::reverse)
        );
        assert_eq!(lt, Rational::from_str(u).unwrap().lt_abs(&v));
        assert_eq!(gt, Rational::from_str(u).unwrap().gt_abs(&v));
        assert_eq!(le, Rational::from_str(u).unwrap().le_abs(&v));
        assert_eq!(ge, Rational::from_str(u).unwrap().ge_abs(&v));
        assert_eq!(lt, v.gt_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(gt, v.lt_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(le, v.ge_abs(&Rational::from_str(u).unwrap()));
        assert_eq!(ge, v.le_abs(&Rational::from_str(u).unwrap()));
    };
    test("0", 0, Some(Ordering::Equal), false, false, true, true);
    test("0", 5, Some(Ordering::Less), true, false, true, false);
    test("0", -5, Some(Ordering::Less), true, false, true, false);
    test("123", 123, Some(Ordering::Equal), false, false, true, true);
    test("123", -123, Some(Ordering::Equal), false, false, true, true);
    test("-123", 123, Some(Ordering::Equal), false, false, true, true);
    test(
        "-123",
        -123,
        Some(Ordering::Equal),
        false,
        false,
        true,
        true,
    );
    test("123", 124, Some(Ordering::Less), true, false, true, false);
    test("123", -124, Some(Ordering::Less), true, false, true, false);
    test("-123", 124, Some(Ordering::Less), true, false, true, false);
    test("-123", -124, Some(Ordering::Less), true, false, true, false);
    test(
        "123",
        122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "123",
        -122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-123",
        122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-123",
        -122,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "1000000000000",
        123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "1000000000000",
        -123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-1000000000000",
        123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-1000000000000",
        -123,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "1000000000000",
        1000000000000,
        Some(Ordering::Equal),
        false,
        false,
        true,
        true,
    );
    test(
        "1000000000000",
        -1000000000000,
        Some(Ordering::Equal),
        false,
        false,
        true,
        true,
    );
    test(
        "-1000000000000",
        1000000000000,
        Some(Ordering::Equal),
        false,
        false,
        true,
        true,
    );
    test(
        "-1000000000000",
        -1000000000000,
        Some(Ordering::Equal),
        false,
        false,
        true,
        true,
    );
    test(
        "1000000000000",
        1000000000001,
        Some(Ordering::Less),
        true,
        false,
        true,
        false,
    );
    test(
        "1000000000000",
        -1000000000001,
        Some(Ordering::Less),
        true,
        false,
        true,
        false,
    );
    test(
        "-1000000000000",
        1000000000001,
        Some(Ordering::Less),
        true,
        false,
        true,
        false,
    );
    test(
        "-1000000000000",
        -1000000000001,
        Some(Ordering::Less),
        true,
        false,
        true,
        false,
    );

    test("99/100", 1, Some(Ordering::Less), true, false, true, false);
    test(
        "101/100",
        1,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test("22/7", 3, Some(Ordering::Greater), false, true, false, true);
    test("22/7", 4, Some(Ordering::Less), true, false, true, false);
    test(
        "-99/100",
        -1,
        Some(Ordering::Less),
        true,
        false,
        true,
        false,
    );
    test(
        "-101/100",
        -1,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test(
        "-22/7",
        -3,
        Some(Ordering::Greater),
        false,
        true,
        false,
        true,
    );
    test("-22/7", -4, Some(Ordering::Less), true, false, true, false);
}

fn partial_cmp_abs_primitive_int_properties_helper_unsigned<
    T: PartialOrdAbs<Rational> + PrimitiveUnsigned,
>()
where
    Rational: From<T> + for<'a> From<&'a Natural> + PartialOrdAbs<T> + PartialOrdAbs<Natural>,
{
    rational_unsigned_pair_gen::<T>().test_properties(|(n, u)| {
        let cmp = n.partial_cmp_abs(&u);
        assert_eq!(Some(n.cmp_abs(&Rational::from(u))), cmp);

        let cmp_rev = cmp.map(Ordering::reverse);
        assert_eq!(u.partial_cmp_abs(&n), cmp_rev);
        assert_eq!(Some(Rational::from(u).cmp_abs(&n)), cmp_rev);
    });

    rational_rational_unsigned_triple_gen::<T>().test_properties(|(n, m, u)| {
        if n.lt_abs(&u) && u.lt_abs(&m) {
            assert_eq!(n.cmp_abs(&m), Ordering::Less);
        } else if n.gt_abs(&u) && u.gt_abs(&m) {
            assert_eq!(n.cmp_abs(&m), Ordering::Greater);
        }
    });

    rational_unsigned_unsigned_triple_gen::<T>().test_properties(|(n, u, v)| {
        if u.lt_abs(&n) && n.lt_abs(&v) {
            assert!(u.lt_abs(&v));
        } else if u.gt_abs(&n) && n.gt_abs(&v) {
            assert!(u.gt_abs(&v));
        }
    });

    natural_pair_gen().test_properties(|(x, y)| {
        assert_eq!(
            PartialOrdAbs::<Natural>::partial_cmp_abs(&Rational::from(&x), &y),
            Some(x.cmp(&y))
        );
        assert_eq!(x.partial_cmp_abs(&Rational::from(&y)), Some(x.cmp(&y)));
    });
}

fn partial_cmp_abs_primitive_int_properties_helper_signed<
    T: PartialOrdAbs<Rational> + PartialOrd<rug::Rational> + PrimitiveSigned,
>()
where
    Rational: From<T> + for<'a> From<&'a Integer> + PartialOrdAbs<T>,
{
    rational_signed_pair_gen::<T>().test_properties(|(n, i)| {
        let cmp = n.partial_cmp_abs(&i);
        assert_eq!(Some(n.cmp_abs(&Rational::from(i))), cmp);

        let cmp_rev = cmp.map(Ordering::reverse);
        assert_eq!(i.partial_cmp_abs(&n), cmp_rev);
        assert_eq!(Some(Rational::from(i).cmp_abs(&n)), cmp_rev);
    });

    rational_rational_signed_triple_gen::<T>().test_properties(|(n, m, i)| {
        if n.lt_abs(&i) && i.lt_abs(&m) {
            assert_eq!(n.cmp_abs(&m), Ordering::Less);
        } else if n.gt_abs(&i) && i.gt_abs(&m) {
            assert_eq!(n.cmp_abs(&m), Ordering::Greater);
        }
    });

    rational_signed_signed_triple_gen::<T>().test_properties(|(n, i, j)| {
        if i.lt_abs(&n) && n.lt_abs(&j) {
            assert!(i.lt_abs(&j));
        } else if i.gt_abs(&n) && n.gt_abs(&j) {
            assert!(i.gt_abs(&j));
        }
    });

    integer_pair_gen().test_properties(|(x, y)| {
        assert_eq!(
            PartialOrdAbs::<Integer>::partial_cmp_abs(&Rational::from(&x), &y),
            Some(x.cmp_abs(&y))
        );
        assert_eq!(x.partial_cmp_abs(&Rational::from(&y)), Some(x.cmp_abs(&y)));
    });
}

#[test]
fn partial_cmp_abs_primitive_int_properties() {
    apply_fn_to_unsigneds!(partial_cmp_abs_primitive_int_properties_helper_unsigned);
    apply_fn_to_signeds!(partial_cmp_abs_primitive_int_properties_helper_signed);
}
