akin 0.4.0

#[cfg(test)]
use akin::akin;

#[test]
fn basic() {
    let mut res = 0;
    akin! {
        let &var = [1, 2, 3, 4, 5];
        res += *var;
    }
    assert_eq!(res, 15);
}

#[test]
fn list() {
    let mut res = String::new();
    akin! {
        let &var = [ ['a', 'b'], ['c', 'd'], ['e'] ];
        res.extend(*var);
    }
    assert_eq!(res, "abcde");
}

#[test]
fn _match() {
    let test = |val| {
        akin! {
            let &var = ["a", "b", "c", "d"];
            let &branch = {
                *var => *var.to_owned(),
            };
            match val {
                *branch
                _ => String::new()
            }
        }
    };

    assert_eq!(test("a"), "a".to_owned());
    assert_eq!(test("b"), "b".to_owned());
    assert_eq!(test("c"), "c".to_owned());
    assert_eq!(test("d"), "d".to_owned());
    assert_eq!(test("e"), String::new());
}

#[test]
fn multiple_same_len() {
    use std::fmt::Write;

    let mut res = String::new();
    akin! {
        let &a = [1, 2, 3];
        let &b = [3, 2, 1];
        writeln!(&mut res, "*a + *b = {}", *a + *b).unwrap();
    }

    assert_eq!(res, "1 + 3 = 4\n2 + 2 = 4\n3 + 1 = 4\n")
}

#[test]
fn multiple_diff_len() {
    use std::fmt::Write;
    let mut res = String::new();
    akin! {
        let &a = [1, 2, 3, 4];
        let &b = [3, 2];
        writeln!(&mut res, "*a + *b = {}", *a + *b).unwrap();
    }

    assert_eq!(res, "1 + 3 = 4\n2 + 2 = 4\n3 + 2 = 5\n4 + 2 = 6\n")
}

#[test]
fn multiple_diff_len2() {
    use std::fmt::Write;
    let mut res = String::new();
    akin! {
        let &v1 = [c];
        let &v2 = [a, b];
        writeln!(&mut res, "*v1*v2").unwrap();
    }
    assert_eq!(res, "ca\ncb\n")
}

#[test]
fn _trait() {
    trait ToBytes {
        fn to_bytes(self) -> Vec<u8>;
    }

    akin! {
        let &int_type = [u8, u16, u32, u64];
        impl ToBytes for *int_type {
            fn to_bytes(self) -> Vec<u8> {
                self.to_le_bytes().into()
            }
        }
    }

    assert_eq!(vec![128], 128u8.to_bytes());
    assert_eq!(vec![1, 2], 513u16.to_bytes());
    assert_eq!(vec![160, 134, 1, 0], 100_000u32.to_bytes());
    assert_eq!(
        vec![0, 232, 118, 72, 23, 0, 0, 0],
        100_000_000_000u64.to_bytes()
    );
}

#[test]
fn fn_joint() {
    akin! {
        let &name = [1, 2, 3, 4, 5];
        fn _~*name() -> u32 {
            *name
        }
    }

    assert_eq!(_1(), 1);
    assert_eq!(_2(), 2);
    assert_eq!(_3(), 3);
    assert_eq!(_4(), 4);
    assert_eq!(_5(), 5);
}

#[test]
fn readme_example() {
    trait Sqrt {
        fn dumb_sqrt(self) -> Result<f64, &'static str>;
    }

    akin! {
        let &int_type = [i64, u64];
        let &negative_check = [
            {
                if self < 0 {
                    return Err("Sqrt of negative number")
                }
            },
            NONE
        ];

        let &num = [1,     2,    3,  4];
        let &res = [1., 1.41, 1.73,  2.];
        let &branch = {
            *num => Ok(*res),
        };

        impl Sqrt for *int_type {
            fn dumb_sqrt(self) -> Result<f64, &'static str> {
                *negative_check

                match self {
                    *branch
                    _ => Err("Sqrt of num not in [1, 4]")
                }
            }
        }
    }

    assert_eq!(10i64.dumb_sqrt(), Err("Sqrt of num not in [1, 4]"));
    assert_eq!(15u64.dumb_sqrt(), Err("Sqrt of num not in [1, 4]"));
    assert_eq!(2u64.dumb_sqrt(), Ok(1.41));
    assert_eq!(3i64.dumb_sqrt(), Ok(1.73));
    assert_eq!((-5i64).dumb_sqrt(), Err("Sqrt of negative number"));
}

#[test]
fn var_replace_global() {
    akin! {
        let &foo = [wrong];
        let &foobar = [correct];

        assert_eq!("*foobar", "correct");
    }
}

#[test]
fn var_replace_value() {
    akin! {
        let &foo = [wrong];
        let &foobar = [correct];
        let &bar = [*foobar];

        assert_eq!("*bar", "correct");
    }
}

#[test]
fn var_replace_code() {
    akin! {
        let &foo = [wrong];
        let &foobar = ["correct"];
        let &bar = { *foobar };

        assert_eq!(*bar, "correct");
    }
}

#[test]
fn var_replace_global_bug() {
    let mut v = Vec::new();
    akin! {
        let &foo = [1, 2, 3];
        let &foobar = [correct];
        v.push("*foobar *foobar");
    };
    assert_eq!(v.as_slice(), &["correct correct"]);
}

#[test]
fn var_replace_value_bug() {
    let mut v = Vec::new();
    akin! {
        let &foo = [1, 2, 3];
        let &foobar = [correct];
        let &bar = [*foobar *foobar];
        v.push("*bar");
    }
    assert_eq!(v.as_slice(), &["correctcorrect"]);
}

#[test]
fn var_replace_code_bug() {
    let mut v = Vec::new();
    akin! {
        let &foo = [1, 2, 3];
        let &foobar = ["correct"];
        let &bar = { v.push(*foobar); v.push(*foobar); };

        *bar
    }
    assert_eq!(v.as_slice(), &["correct", "correct"]);
}

#[test]
fn zero_tokens() {
    akin! {}
}

#[test]
fn one_token() {
    let x = akin! {
        "test"
    };
    assert_eq!(x, "test");
}

#[test]
fn one_token_repeated() {
    let x = akin::akin! {
        let &x = [1, 2];
        let &b = {test~*x};
        "*b"
    };
    assert_eq!(x, " test1 test2");
}

#[test]
fn modifier_carry_over_bug() {
    akin::akin! {
        let &x = [{1~} 2 {3}];
        assert_eq!("*x", " 12 3");
    };
}

#[test]
fn repeated_substitution_bug() {
    let x = akin::akin! {
        let &y = [x];
        let &z = [y];
        "*y**z"
    };
    assert_eq!(x, "x*y");
}

#[test]
fn replace_no_variants_bug() {
    akin! {
        let &x = [];
        assert_eq!("*x", "");
        assert_eq!("*y", "*y");
    };
}

#[test]
fn range_expression() {
    let x = akin::akin! {
        let &x = 1..10;
        let &y = {*x};
        "*y"
    };
    assert_eq!(x, " 1 2 3 4 5 6 7 8 9");
}

#[test]
fn range_expression_inclusive() {
    let x = akin::akin! {
        let &x = 1..=10;
        let &y = {*x,};
        [*y]
    };
    assert_eq!(x, [1, 2, 3, 4, 5, 6, 7, 8, 9, 10]);
}