malachite-base 0.3.2

use malachite_base::num::basic::unsigneds::PrimitiveUnsigned;
use malachite_base::test_util::generators::{
    unsigned_pair_gen_var_17, unsigned_quadruple_gen_var_3, unsigned_triple_gen_var_11,
};

fn mod_power_of_2_mul_helper<T: PrimitiveUnsigned>() {
    let test = |x: T, y: T, pow, out| {
        assert_eq!(x.mod_power_of_2_mul(y, pow), out);

        let mut x = x;
        x.mod_power_of_2_mul_assign(y, pow);
        assert_eq!(x, out);
    };
    test(T::ZERO, T::ZERO, 0, T::ZERO);
    test(T::ZERO, T::ONE, 1, T::ZERO);
    test(T::ONE, T::ONE, 1, T::ONE);
    test(T::exact_from(3), T::TWO, 5, T::exact_from(6));
    test(T::exact_from(10), T::exact_from(14), 4, T::exact_from(12));
    test(T::exact_from(100), T::exact_from(200), 8, T::exact_from(32));
    test(T::ONE << (T::WIDTH - 1), T::TWO, T::WIDTH, T::ZERO);
    test(T::MAX, T::MAX, T::WIDTH, T::ONE);
}

#[test]
fn test_mod_power_of_2_mul() {
    apply_fn_to_unsigneds!(mod_power_of_2_mul_helper);
}

fn mod_power_of_2_mul_properties_helper<T: PrimitiveUnsigned>() {
    unsigned_triple_gen_var_11::<T>().test_properties(|(x, y, pow)| {
        assert!(x.mod_power_of_2_is_reduced(pow));
        assert!(y.mod_power_of_2_is_reduced(pow));
        let product = x.mod_power_of_2_mul(y, pow);
        assert!(product.mod_power_of_2_is_reduced(pow));

        let mut x_alt = x;
        x_alt.mod_power_of_2_mul_assign(y, pow);
        assert_eq!(x_alt, product);

        assert_eq!(y.mod_power_of_2_mul(x, pow), product);
        assert_eq!(
            x.mod_power_of_2_mul(y.mod_power_of_2_neg(pow), pow),
            product.mod_power_of_2_neg(pow)
        );
        assert_eq!(
            x.mod_power_of_2_neg(pow).mod_power_of_2_mul(y, pow),
            product.mod_power_of_2_neg(pow)
        );
    });

    unsigned_pair_gen_var_17::<T>().test_properties(|(x, pow)| {
        assert_eq!(x.mod_power_of_2_mul(T::ZERO, pow), T::ZERO);
        assert_eq!(T::ZERO.mod_power_of_2_mul(x, pow), T::ZERO);
        assert_eq!(x.mod_power_of_2_mul(T::ONE, pow), x);
        assert_eq!(T::ONE.mod_power_of_2_mul(x, pow), x);
    });

    unsigned_quadruple_gen_var_3::<T>().test_properties(|(x, y, z, pow)| {
        assert_eq!(
            x.mod_power_of_2_mul(y, pow).mod_power_of_2_mul(z, pow),
            x.mod_power_of_2_mul(y.mod_power_of_2_mul(z, pow), pow)
        );
        assert_eq!(
            x.mod_power_of_2_mul(y.mod_power_of_2_add(z, pow), pow),
            x.mod_power_of_2_mul(y, pow)
                .mod_power_of_2_add(x.mod_power_of_2_mul(z, pow), pow)
        );
        assert_eq!(
            x.mod_power_of_2_add(y, pow).mod_power_of_2_mul(z, pow),
            x.mod_power_of_2_mul(z, pow)
                .mod_power_of_2_add(y.mod_power_of_2_mul(z, pow), pow)
        );
    });
}

#[test]
fn mod_power_of_2_mul_properties() {
    apply_fn_to_unsigneds!(mod_power_of_2_mul_properties_helper);
}