adana-script 0.18.8

use std::collections::BTreeMap;

use crate::parser::parse_instructions as parse_var_expr;

use crate::compute;
use adana_script_core::{primitive::Primitive, Operator::*, Value};
#[test]
#[should_panic(expected = "invalid expression!")]
fn test_expr_invalid() {
    let expr = "uze example";
    let mut ctx =
        BTreeMap::from([("x".to_string(), Primitive::Double(2.).ref_prim())]);
    compute(expr, &mut ctx, "N/A").unwrap();
}
#[test]
#[should_panic(expected = "invalid expression!")]
fn test_expr_invalid_drc() {
    let expr = "drc logs -f triplestore";
    let mut ctx =
        BTreeMap::from([("x".to_string(), Primitive::Double(2.).ref_prim())]);
    compute(expr, &mut ctx, "N/A").unwrap();
}

#[test]
#[should_panic]
fn test_op_invalid() {
    let expr = "use example = wesh";
    let mut ctx =
        BTreeMap::from([("x".to_string(), Primitive::Double(2.).ref_prim())]);
    compute(expr, &mut ctx, "N/A").unwrap();
}

#[test]
fn test_compute_with_ctx() {
    let expr = "x * 5";
    let mut ctx =
        BTreeMap::from([("x".to_string(), Primitive::Double(2.).ref_prim())]);

    let res = compute(expr, &mut ctx, "N/A").unwrap();
    assert_eq!(Primitive::Double(10.), res);
}
#[test]
fn test_compute_assign_with_ctx() {
    let expr = "y = x *  5";
    let mut ctx =
        BTreeMap::from([("x".to_string(), Primitive::Double(2.).ref_prim())]);

    let res = compute(expr, &mut ctx, "N/A").unwrap();
    assert_eq!(Primitive::Double(10.), res);

    assert_eq!(ctx["y"].read().unwrap().clone(), Primitive::Double(10.));
}
#[test]
fn test_mul_by_zero() {
    let expr = "6*0";
    let mut ctx = BTreeMap::from([]);

    let res = compute(expr, &mut ctx, "N/A").unwrap();
    assert_eq!(Primitive::Int(0), res);
}
#[test]
fn test_variable() {
    let expr = "x*5+9*y/8";
    let (_, op) = parse_var_expr(expr).unwrap();
    assert_eq!(
        op,
        vec![Value::Expression(vec![
            Value::Variable("x".to_string(),),
            Value::Operation(Mult,),
            Value::U8(5,),
            Value::Operation(Add,),
            Value::U8(9,),
            Value::Operation(Mult,),
            Value::Variable("y".to_string(),),
            Value::Operation(Div,),
            Value::U8(8,),
        ],)],
    );
}
#[test]
fn test_variable_expr() {
    let expr = "z = x*  5+9*y  /8";
    let (_, op) = parse_var_expr(expr).unwrap();
    assert_eq!(
        op,
        vec![Value::VariableExpr {
            name: Box::new(Value::Variable("z".to_string())),
            expr: Box::new(Value::Expression(vec![
                Value::Variable("x".to_string(),),
                Value::Operation(Mult,),
                Value::U8(5,),
                Value::Operation(Add,),
                Value::U8(9,),
                Value::Operation(Mult,),
                Value::Variable("y".to_string(),),
                Value::Operation(Div,),
                Value::U8(8,),
            ]))
        },]
    );
}
#[test]
fn test_variable_expr_2() {
    let expr = "z_1 = x_3*  5+9*y_1_2  /8";
    let (_, op) = parse_var_expr(expr).unwrap();
    assert_eq!(
        op,
        vec![Value::VariableExpr {
            name: Box::new(Value::Variable("z_1".to_string())),
            expr: Box::new(Value::Expression(vec![
                Value::Variable("x_3".to_string(),),
                Value::Operation(Mult,),
                Value::U8(5,),
                Value::Operation(Add,),
                Value::U8(9,),
                Value::Operation(Mult,),
                Value::Variable("y_1_2".to_string(),),
                Value::Operation(Div,),
                Value::U8(8,),
            ]))
        },]
    );
}

#[test]
fn test_modulo() {
    let mut ctx = BTreeMap::new();
    assert_eq!(Primitive::U8(1), compute("3%2", &mut ctx, "N/A").unwrap());
    assert_eq!(
        Primitive::Double(1.),
        compute("3%2.", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(0.625),
        compute("5/8.%2", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(3278.9),
        compute(
            "2   * (9  *(5-(1 /2.) )  )² -1 / 5. * 8 - 4 %4",
            &mut ctx,
            "N/A",
        )
        .unwrap()
    );
    assert_eq!(
        Primitive::Double(-1.1),
        compute(
            "    2* (9   *(5-(1  /2.)   ))² %2 -1 /5. * 8 - 4 %4",
            &mut ctx,
            "N/A",
        )
        .unwrap()
    );
}

#[test]
fn test_compute() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(3280.3),
        compute("x=2* (9*(5-(1./     2.) ))² -1 / 5.", &mut ctx, "N/A")
            .unwrap()
    );
    assert_eq!(
        Primitive::Double(3274.9),
        compute("y = 2* (9*(5-(1/2.)))² -1 / 5. * 8 - 4", &mut ctx, "N/A",)
            .unwrap()
    );
    assert_eq!(
        Primitive::Double(-670.9548307564088),
        compute("z = 78/5.-4.5*(9+7^2.5)-12*4+1-8/3.*4-5", &mut ctx, "N/A",)
            .unwrap()
    );
    assert_eq!(
            Primitive::Int(37737),
            compute("f = 1988*19-(((((((9*2))))+2*4)-3))/6-1^2*1000/(7-4*(3/9-(9+3/2-4)))", &mut ctx, "N/A").unwrap()
        );
    assert_eq!(
            Primitive::Double(37736.587719298244),
            compute("f = 1988*19-(((((((9*2))))+2*4)-3))/6.-1^2*1000/(7-4*(3/9.-(9+3/2.-4)))", &mut ctx, "N/A").unwrap()
        );
    assert_eq!(Primitive::U8(0), compute("0", &mut ctx, "N/A").unwrap());
    assert_eq!(Primitive::U8(9), compute("9", &mut ctx, "N/A").unwrap());
    assert_eq!(Primitive::I8(-9), compute("-9", &mut ctx, "N/A").unwrap());
    assert_eq!(Primitive::Int(-255), compute("-255", &mut ctx, "N/A").unwrap());
    assert_eq!(Primitive::I8(-127), compute("-127", &mut ctx, "N/A").unwrap());
    assert_eq!(
        Primitive::Int(6 / 2 * (2 + 1)),
        compute("6/2*(2+1)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(2. - 1. / 5.),
        compute("2 -1 / 5.", &mut ctx, "N/A").unwrap()
    );
    // todo maybe should panic in these cases
    assert_eq!(
        Primitive::Int(2 * 4),
        compute("2* * *4", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Int(2 * 4),
        compute("2* ** *4", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::U8(4), compute("*4", &mut ctx, "N/A").unwrap());

    // compute with variables
    assert_eq!(
            Primitive::Double(-4765.37866215695),
            compute("f = 555*19-(((((((9*2))))+2f)-x))/6.-1^2y/(z-4*(3/9.-(9+3/2.-4))) - x", &mut ctx, "N/A").unwrap()
        );

    assert_eq!(
        ctx["f"].read().unwrap().clone(),
        Primitive::Double(-4765.37866215695)
    );
    assert_eq!(
        ctx["z"].read().unwrap().clone(),
        Primitive::Double(-670.9548307564088)
    );
    assert_eq!(ctx["y"].read().unwrap().clone(), Primitive::Double(3274.9));
    assert_eq!(ctx["x"].read().unwrap().clone(), Primitive::Double(3280.3));
}

#[test]
fn test_negate() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Int(-5 / -1),
        compute("-5/-1", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Int(5 / -1),
        compute("5/-1", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::I8(5), compute("--5", &mut ctx, "N/A").unwrap());
}
#[test]
fn test_pow() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(-0.5),
        compute("-2^-1", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(-0.04),
        compute("-5^-2", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Int(-25), compute("-5^2", &mut ctx, "N/A").unwrap());
    assert_eq!(
        Primitive::Double(0.04),
        compute("5^-2", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Int(3125), compute("5^5", &mut ctx, "N/A").unwrap());
    assert_eq!(Primitive::Int(1), compute("5^0", &mut ctx, "N/A").unwrap());
}

#[test]
fn test_consts() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(std::f64::consts::PI),
        compute("π", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(std::f64::consts::PI * 2.),
        compute("π*2", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(std::f64::consts::E),
        compute("γ", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(std::f64::consts::TAU),
        compute("τ", &mut ctx, "N/A").unwrap()
    );
}
#[test]
fn test_fn_sqrt() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(2.23606797749979),
        compute("sqrt(5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(5.),
        compute("sqrt(5*5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(8983.719357816115),
        compute("sqrt(2*(3/4.-12%5 +7^9) --6/12.*4)", &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn test_fn_abs() {
    let mut ctx = BTreeMap::new();
    assert_eq!(Primitive::U8(5), compute("abs(5)", &mut ctx, "N/A").unwrap());
    assert_eq!(
        Primitive::Int(25),
        compute("abs(-5*5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(80707209.5),
        compute("abs(-2*(3/4.-12%5 +7^9) --6/12.*4)", &mut ctx, "N/A").unwrap()
    );
}
#[test]
fn test_fn_log() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(0.6989700043360189),
        compute("log(5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(1.3979400086720377),
        compute("log(abs(-5*5))", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(7.906912331577292),
        compute("log(abs(-2*(3/4.-12%5 +7^9) --6/12.*4))", &mut ctx, "N/A",)
            .unwrap()
    );
}

#[test]
fn test_fn_ln() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(1.6094379124341003),
        compute("ln(5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(3.2188758248682006),
        compute("ln(abs(-5*5))", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(18.206338466300664),
        compute("ln(abs(-2*(3/4.-12%5 +7^9) --6/12.*4))", &mut ctx, "N/A",)
            .unwrap()
    );
}
#[test]
fn test_fn_sin() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(-0.9589242746631385),
        compute("sin(5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(0.13235175009777303),
        compute("sin(-5*5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(-0.8604918893688305),
        compute("sin(-2*(3/4.-12%5 +7^9) --6/12.*4)", &mut ctx, "N/A").unwrap()
    );
}
#[test]
fn test_fn_cos() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(0.28366218546322625),
        compute("cos(5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(0.9912028118634736),
        compute("cos(abs(-5*5))", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(-0.509464138414531),
        compute("cos(abs(-2*(3/4.-12%5 +7^9) --6/12.*4))", &mut ctx, "N/A",)
            .unwrap()
    );
}

#[test]
fn test_fn_tan() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(-3.380515006246586),
        compute("tan(5)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(-0.13352640702153587),
        compute("tan(abs(-5*5))", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Double(-1.6890136606017243),
        compute("tan(abs(-2*(3/4.-12%5 +7^9) --6/12.*4))", &mut ctx, "N/A",)
            .unwrap()
    );
}

#[test]
fn test_extra() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Double(44721.45950030539),
        compute("sqrt((2*10^9-5*abs(8/9.))) + abs(1/10.)", &mut ctx, "N/A",)
            .unwrap()
    );

    assert_eq!(
        Primitive::Double(161414423.89420456),
        compute(
            "
            multiline 
            {
                2*(3/4.-12%5 +7^9) -6/12.*4 / 
                sqrt(2*(3/4.-12%5 +7^9) --6/12.*4) + 
                abs(-2*(3/4.-12%5 +7^9) -6/12.*4 / sqrt(5))
            }
            ",
            &mut ctx,
            "N/A",
        )
        .unwrap()
    );
    assert_eq!(
        Primitive::Double(507098311.0925626),
        compute(
            "
            multiline {
                (2*(3/4.-12%5 +7^9) -6/12.*4 / 
                sqrt(2*(3/4.-12%5 +7^9) --6/12.*4) + 
                abs(-2*(3/4.-12%5 +7^9) -6/12.*4 / sqrt(5)) -
                ln(abs(-2*(3/4.-12%5 +7^9 --8*4^9. % 2) --6/12.*4))) * π
            }

            ",
            &mut ctx,
            "N/A",
        )
        .unwrap()
    );
    assert_eq!(
        Primitive::Double(438769845.8328427),
        compute(
            "
            multiline {
                (2*(3/4.-12%5 +7^9) -6/12.*4 / 
                sqrt(2*(3/4.-12%5 +7^9) --6/12.*4) + 
                abs(-2*(3/4.-12%5 +7^9) -6/12.*4 / sqrt(5)) -
                ln(abs(-2*(3/4.-12%5 +7^9 --8*4^9. % 2) --6/12.*4))) * γ
            }

            ",
            &mut ctx,
            "N/A",
        )
        .unwrap()
    );
    assert_eq!(
        Primitive::Double(-1.),
        compute("cos(π)", &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn test_simple_bool() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Bool(true),
        compute("g = true", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["g"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(false),
        compute("g = false", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["g"].read().unwrap().clone());
}
#[test]
fn test_simple_condition() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Bool(true),
        compute("g = 5 < 9", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["g"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(false),
        compute("b = 5 < 1", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["b"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(false),
        compute("x = 5 > 9", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["x"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("x = 9 > 5", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["x"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("m = 9 >= 9", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["m"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(false),
        compute("z = 9 > 9", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["z"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("t = 9 == 9", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["t"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(false),
        compute("et = 9 != 9", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["et"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("zet = 9 != 1", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["zet"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("bzet = 9 <= 9", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["bzet"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(false),
        compute("rbzet = 9 < 9", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["rbzet"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("ab = true == true", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["ab"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("bcd = true == ab", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["bcd"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("bcxkcdd = bcd != !ab", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["bcxkcdd"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("mmm = !bcd == !ab", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["bcxkcdd"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("xxx = !bcd == (5^2 < 1)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["xxx"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(false),
        compute("rrr = !bcd != (5^2 < 1)", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["rrr"].read().unwrap().clone());
}

#[test]
fn test_simple_logical_and_or() {
    let mut ctx = BTreeMap::new();

    assert_eq!(
        Primitive::Bool(false),
        compute("s = true && false", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["s"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("s = 1^1 == 1. && true", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["s"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(false),
        compute("s = 1^1 == 1. && !true", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(false), ctx["s"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("s = 1^1 == 1. || !true", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["s"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute("s = !(1^1 == 1.) || true", &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Bool(true), ctx["s"].read().unwrap().clone());
    assert_eq!(
        Primitive::Bool(true),
        compute(" 5 < 3 || 4 < 8 && 9*5 == 45", &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn test_str() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::String("aaaaa".to_string()),
        compute(r#""a"*5"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::String("a5".to_string()),
        compute(r#""a"+5"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::String("a5.1".to_string()),
        compute(r#""a"+5.1"#, &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn test_op_pow_sugar() {
    let mut ctx = BTreeMap::new();
    assert_eq!(Primitive::Int(4), compute(r#"2²"#, &mut ctx, "N/A").unwrap());
    assert_eq!(Primitive::Int(8), compute(r#"2³"#, &mut ctx, "N/A").unwrap());

    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Int(4),
        compute(r#"x = 2²"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Int(8),
        compute(r#"y =2³"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Int(4), ctx["x"].clone().read().unwrap().clone());
    assert_eq!(Primitive::Int(8), ctx["y"].clone().read().unwrap().clone());

    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Int(25),
        compute(r#"x = (2-7)²"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Int(-125),
        compute(r#"y =(2-7)³"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(Primitive::Int(25), ctx["x"].clone().read().unwrap().clone());
    assert_eq!(Primitive::Int(-125), ctx["y"].clone().read().unwrap().clone());

    assert_eq!(
        Primitive::Int(624250225),
        compute(r#"z = (2-7)² * ( 3-2³ * x²)² "#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Int(624250225),
        ctx["z"].clone().read().unwrap().clone()
    );
}

#[test]
fn test_implicit_multiply() {
    let mut ctx = BTreeMap::new();
    assert_eq!(Primitive::U8(2), compute(r#"x = 2"#, &mut ctx, "N/A").unwrap());
    assert_eq!(Primitive::Int(4), compute(r#"2x"#, &mut ctx, "N/A").unwrap());
    assert_eq!(
        Primitive::Double(1.),
        compute(r#"0.5x"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Bool(true),
        compute(r#"x² == 2x"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Bool(true),
        compute(r#"x² == 2x^(0.5x)"#, &mut ctx, "N/A").unwrap()
    );

    assert_eq!(
        Primitive::Bool(true),
        compute(r#"3x²+2x== x*(3*x+2)"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Bool(true),
        compute(r#"3x²+2x== x*(3x+2)"#, &mut ctx, "N/A").unwrap()
    );
    assert_eq!(
        Primitive::Bool(true),
        compute(r#"2*2^0.5*2== 2x^0.5x"#, &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn test_bug_pow_sugar() {
    let mut ctx = BTreeMap::new();
    let expr = r#"
        x = 2
        4==2x²-2x
        "#;
    assert_eq!(Primitive::Bool(true), compute(expr, &mut ctx, "N/A").unwrap());
    let mut ctx = BTreeMap::new();
    let expr = r#"
        x = 2
        12==2x³-2x
        "#;
    assert_eq!(Primitive::Bool(true), compute(expr, &mut ctx, "N/A").unwrap());

    let expr = r#"
        multiline {
            1 *2
            + 5 *sqrt(2) / 2.
            + 300 / 3
            * 400 % 2 - (1 * 10³)
        ==
            1 *2
            + 5 *sqrt(2) / 2.
            + 300 / 3
            * 400 % 2 - (1 * 10^3)
        }
        "#;
    assert_eq!(Primitive::Bool(true), compute(expr, &mut ctx, "N/A").unwrap());
    assert_eq!(
        Primitive::Bool(true),
        compute("2x² --2x == 2x²+2x", &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn bug_javascript_meme() {
    let mut ctx = BTreeMap::new();
    assert_eq!(
        Primitive::Bool(true),
        compute("3<2<1", &mut ctx, "N/A").unwrap()
    ); // FIXME
       // python returns false
       // which is correct
       // *mathematically*
    assert_eq!(
        Primitive::Bool(false),
        compute("3>2>1<3", &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn recur_early_return() {
    let mut ctx = BTreeMap::new();
    let script = r#"
    fact = (n) => {
      if(n>=1) {
        return n * fact(n-1)
      } 
      return 1
    }
    fact(6)
    "#;
    assert_eq!(
        Primitive::Int(720i128),
        compute(script, &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn test_if_no_parenthesis() {
    let mut ctx = BTreeMap::from([
        ("age".into(), Primitive::Int(35).ref_prim()),
        ("gender".into(), Primitive::String("MALE".to_string()).ref_prim()),
    ]);

    let script = r#"
    if age < 40 && gender == "MALE" {
             "yes"
    } else {
             "no"
    }
    "#;
    assert_eq!(
        Primitive::String("yes".into()),
        compute(script, &mut ctx, "N/A").unwrap()
    );
}

#[test]
fn test_while_no_parenthesis() {
    let mut ctx = BTreeMap::from([
        ("age".into(), Primitive::Int(35).ref_prim()),
        ("gender".into(), Primitive::String("MALE".to_string()).ref_prim()),
    ]);

    let script = r#"
        while age != 0 {
             age = age -1   
        }
        age
    "#;
    assert_eq!(Primitive::Int(0), compute(script, &mut ctx, "N/A").unwrap());
}

#[test]
fn test_buggy_fn_call() {
    let mut ctx = BTreeMap::new();

    let script = r#"
        f= (x) => {x*2}
        a = 39
        b= 42
         f(a) + f(b)
        

    "#;
    assert_eq!(Primitive::Int(162), compute(script, &mut ctx, "N/A").unwrap());
}