#[cfg(test)]
mod tests {
#[allow(unused_imports)]
use super::*;
use approx::assert_relative_eq;
use argmin_math::ArgminTranspose;
use ndarray::{Array1, Array2};
use ndarray::array;
use paste::item;
macro_rules! make_test {
($t:ty) => {
item! {
#[test]
fn [<test_transpose_ $t>]() {
let a = array![1 as $t, 4 as $t];
let target = array![1 as $t, 4 as $t];
let res = <Array1<$t> as ArgminTranspose<Array1<$t>>>::t(a);
for i in 0..2 {
assert_relative_eq!(target[i] as f64, res[i] as f64, epsilon = f64::EPSILON);
}
}
}
item! {
#[test]
fn [<test_transpose_2d_1_ $t>]() {
let a = array![
[1 as $t, 4 as $t],
[8 as $t, 7 as $t]
];
let target = array![
[1 as $t, 8 as $t],
[4 as $t, 7 as $t]
];
let res = <Array2<$t> as ArgminTranspose<Array2<$t>>>::t(a);
for i in 0..2 {
for j in 0..2 {
assert_relative_eq!(target[(i, j)] as f64, res[(i, j)] as f64, epsilon = f64::EPSILON);
}
}
}
}
item! {
#[test]
fn [<test_transpose_2d_2_ $t>]() {
let a = array![
[1 as $t, 4 as $t],
[8 as $t, 7 as $t],
[3 as $t, 6 as $t]
];
let target = array![
[1 as $t, 8 as $t, 3 as $t],
[4 as $t, 7 as $t, 6 as $t]
];
let res = <Array2<$t> as ArgminTranspose<Array2<$t>>>::t(a);
for i in 0..2 {
for j in 0..3 {
assert_relative_eq!(target[(i, j)] as f64, res[(i, j)] as f64, epsilon = 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);
}