// Copyright 2018-2024 argmin developers
//
// Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
// http://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.

#[cfg(test)]
mod tests {
    #[allow(unused_imports)]
    use super::*;
    use approx::assert_relative_eq;
    use argmin_math::ArgminScaledAdd;
    use ndarray::{array, Array1, Array2};
    use paste::item;

    macro_rules! make_test {
        ($t:ty) => {
            item! {
                #[test]
                fn [<test_scaledadd_vec_ $t>]() {
                    let a = array![1 as $t, 2 as $t, 3 as $t];
                    let b = 2 as $t;
                    let c = array![4 as $t, 5 as $t, 6 as $t];
                    let res = <Array1<$t> as ArgminScaledAdd<Array1<$t>, $t, Array1<$t>>>::scaled_add(&a, &b, &c);
                    let target = array![9 as $t, 12 as $t, 15 as $t];
                    for i in 0..3 {
                        assert_relative_eq!(res[i] as f64, target[i] as f64, epsilon = std::f64::EPSILON);
                    }
                }
            }

            item! {
                #[test]
                #[should_panic]
                fn [<test_scaledadd_vec_panic_1_ $t>]() {
                    let a = array![1 as $t, 2 as $t, 3 as $t];
                    let b = 2 as $t;
                    let c = array![4 as $t, 5 as $t];
                    <Array1<$t> as ArgminScaledAdd<Array1<$t>, $t, Array1<$t>>>::scaled_add(&a, &b, &c);
                }
            }

            item! {
                #[test]
                #[should_panic]
                fn [<test_scaledadd_vec_panic_2_ $t>]() {
                    let a = array![1 as $t, 2 as $t];
                    let b = 2 as $t;
                    let c = array![4 as $t, 5 as $t, 6 as $t];
                    <Array1<$t> as ArgminScaledAdd<Array1<$t>, $t, Array1<$t>>>::scaled_add(&a, &b, &c);
                }
            }

            item! {
                #[test]
                fn [<test_scaledadd_vec_vec_ $t>]() {
                    let a = array![1 as $t, 2 as $t, 3 as $t];
                    let b = array![3 as $t, 2 as $t, 1 as $t];
                    let c = array![4 as $t, 5 as $t, 6 as $t];
                    let res = <Array1<$t> as ArgminScaledAdd<Array1<$t>, Array1<$t>, Array1<$t>>>::scaled_add(&a, &b, &c);
                    let target = array![13 as $t, 12 as $t, 9 as $t];
                    for i in 0..3 {
                        assert_relative_eq!(res[i] as f64, target[i] as f64, epsilon = std::f64::EPSILON);
                    }
                }
            }

            item! {
                #[test]
                #[should_panic]
                fn [<test_scaledadd_vec_vec_panic_1_ $t>]() {
                    let a = array![1 as $t, 2 as $t];
                    let b = array![3 as $t, 2 as $t, 1 as $t];
                    let c = array![4 as $t, 5 as $t, 6 as $t];
                    <Array1<$t> as ArgminScaledAdd<Array1<$t>, Array1<$t>, Array1<$t>>>::scaled_add(&a, &b, &c);
                }
            }

            item! {
                #[test]
                #[should_panic]
                fn [<test_scaledadd_vec_vec_panic_2_ $t>]() {
                    let a = array![1 as $t, 2 as $t, 3 as $t];
                    let b = array![3 as $t, 2 as $t];
                    let c = array![4 as $t, 5 as $t, 6 as $t];
                    <Array1<$t> as ArgminScaledAdd<Array1<$t>, Array1<$t>, Array1<$t>>>::scaled_add(&a, &b, &c);
                }
            }

            item! {
                #[test]
                #[should_panic]
                fn [<test_scaledadd_vec_vec_panic_3_ $t>]() {
                    let a = array![1 as $t, 2 as $t, 3 as $t];
                    let b = array![3 as $t, 2 as $t, 1 as $t];
                    let c = array![4 as $t, 5 as $t];
                    <Array1<$t> as ArgminScaledAdd<Array1<$t>, Array1<$t>, Array1<$t>>>::scaled_add(&a, &b, &c);
                }
            }

            item! {
                #[test]
                fn [<test_scaledadd_mat_mat_ $t>]() {
                    let a = array![
                        [1 as $t, 2 as $t],
                        [3 as $t, 4 as $t],
                    ];
                    let b = array![
                        [4 as $t, 3 as $t],
                        [2 as $t, 1 as $t],
                    ];
                    let c = array![
                        [1 as $t, 2 as $t],
                        [2 as $t, 1 as $t],
                    ];
                    let res = <Array2<$t> as ArgminScaledAdd<Array2<$t>, Array2<$t>, Array2<$t>>>::scaled_add(&a, &b, &c);
                    let target = array![
                        [5 as $t, 8 as $t],
                        [7 as $t, 5 as $t],
                    ];
                    for i in 0..2 {
                        for j in 0..2 {
                            assert_relative_eq!(res[(i, j)] as f64, target[(i, j)] as f64, epsilon = std::f64::EPSILON);
                        }
                    }
                }
            }

            item! {
                #[test]
                fn [<test_scaledadd_mat_scalar_ $t>]() {
                    let a = array![
                        [1 as $t, 2 as $t],
                        [3 as $t, 4 as $t],
                    ];
                    let b = 2 as $t;
                    let c = array![
                        [1 as $t, 2 as $t],
                        [2 as $t, 1 as $t],
                    ];
                    let res = <Array2<$t> as ArgminScaledAdd<Array2<$t>, $t, Array2<$t>>>::scaled_add(&a, &b, &c);
                    let target = array![
                        [3 as $t, 6 as $t],
                        [7 as $t, 6 as $t],
                    ];
                    for i in 0..2 {
                        for j in 0..2 {
                            assert_relative_eq!(res[(i, j)] as f64, target[(i, j)] as f64, epsilon = std::f64::EPSILON);
                        }
                    }
                }
            }
        };
    }

    make_test!(i8);
    make_test!(u8);
    make_test!(i16);
    make_test!(u16);
    make_test!(i32);
    make_test!(u32);
    make_test!(i64);
    make_test!(u64);
    make_test!(f32);
    make_test!(f64);
}