use std::sync::Arc;

use oxide_compiler::compiler::Compiler;
use oxide_types::object::JsObject;
use oxide_types::value::JsValue;
use oxide_vm::vm::Vm;

fn eval(vm: &mut Vm, source: &str) -> Result<JsValue, String> {
    let allocator = oxide_parser::Allocator::default();
    let program = oxide_parser::parse(&allocator, source).map_err(|e| format!("Parse error: {:?}", e))?;
    let module = Compiler::new().compile(&program).map_err(|e| format!("Compile error: {}", e))?;
    vm.run(&Arc::new(module))
}

/// 数值断言：整数运算保 int，容忍 int/double 两种表示。
fn assert_num(result: JsValue, expected: f64) {
    let actual = if result.is_int() { result.as_int() as f64 } else { result.as_double() };
    assert!((actual - expected).abs() < 0.0001, "expected {expected}, got {actual}");
}

#[test]
fn eval_string_expression_completion_value() {
    let mut vm = Vm::new();
    // 脚本模式完成值保留：`eval('1+2')` 返回 3（档 2 起，不再被函数模式 body wrap 吞掉）。
    let result = eval(&mut vm, "eval('1+2')").unwrap();
    assert_num(result, 3.0);
}

#[test]
fn eval_string_number_completion_value() {
    let mut vm = Vm::new();
    // 脚本模式完成值保留：`eval('42')` 返回 42。
    let result = eval(&mut vm, "eval('42')").unwrap();
    assert_num(result, 42.0);
}

#[test]
fn eval_string_var_declaration_inside() {
    let mut vm = Vm::new();
    // 档 2：eval 内 var 声明落全局对象，完成值保留为末表达式值。
    let result = eval(&mut vm, "eval('var y = 1; y')").unwrap();
    assert_num(result, 1.0);
    let result = eval(&mut vm, "eval('var y = 1; y') && this.y === 1").unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_non_string_returns_as_is() {
    let mut vm = Vm::new();
    let result = eval(&mut vm, "eval(123)").unwrap();
    assert_num(result, 123.0);
}

#[test]
fn eval_object_identity() {
    let mut vm = Vm::new();
    // 非字符串实参原样返回：同一对象引用。
    let result = eval(&mut vm, "var o = {}; eval(o) === o").unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_new_string_not_tostring() {
    let mut vm = Vm::new();
    // new String 是非字符串对象：不 ToString，原样返回同一对象（非原始值）。
    let result = eval(&mut vm, "var s = new String('1+1'); eval(s) === s").unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_throw_primitive_rethrown() {
    let mut vm = Vm::new();
    // eval 内 throw 1 重抛原始值 1，可被外层 catch 捕获（非 Error 包装）。
    let result = eval(&mut vm, "try { eval('throw 1') } catch(e) { e }").unwrap();
    assert_num(result, 1.0);
}

#[test]
fn eval_syntax_error_throws() {
    let mut vm = Vm::new();
    // 换行分隔的 `x` 与 `++` 为非法语法，eval 抛 SyntaxError。
    let result = eval(&mut vm, "try { eval('x\\u000A++') } catch(e) { e.name }").unwrap();
    let rendered = vm.lookup_str(result).unwrap_or_default();
    assert_eq!(rendered, "SyntaxError");
}

#[test]
fn eval_length_is_one() {
    let mut vm = Vm::new();
    let result = eval(&mut vm, "eval.length").unwrap();
    assert_num(result, 1.0);
}

#[test]
fn eval_name_is_eval() {
    let mut vm = Vm::new();
    let result = eval(&mut vm, "eval.name").unwrap();
    let rendered = vm.lookup_str(result).unwrap_or_default();
    assert_eq!(rendered, "eval");
}

#[test]
fn eval_global_descriptor() {
    let mut vm = Vm::new();
    // 全局 eval 属性描述符：{writable:true, enumerable:false, configurable:true}。
    let result = eval(
        &mut vm,
        "var d = Object.getOwnPropertyDescriptor(this, 'eval'); \
         d.writable && !d.enumerable && d.configurable",
    )
    .unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_new_throws_type_error() {
    let mut vm = Vm::new();
    // eval 不是构造器：new eval() 抛 TypeError。
    let result = eval(&mut vm, "try { new eval() } catch(e) { e.name }").unwrap();
    let rendered = vm.lookup_str(result).unwrap_or_default();
    assert_eq!(rendered, "TypeError");
}

#[test]
fn eval_no_arg_and_undefined_are_undefined() {
    let mut vm = Vm::new();
    let result = eval(&mut vm, "eval() === undefined && eval(undefined) === undefined").unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_typeof_is_function() {
    let mut vm = Vm::new();
    let result = eval(&mut vm, "typeof eval").unwrap();
    let rendered = vm.lookup_str(result).unwrap_or_default();
    assert_eq!(rendered, "function");
}

#[test]
fn eval_survives_full_reset_rebuild() {
    let mut vm = Vm::new();
    // 仅 global 脏：full_reset 走 bind_global_functions 重建路径，eval 须保留。
    let g_ptr = vm.session().global_object().as_ptr() as *mut JsObject;
    unsafe { (&mut *g_ptr).bump_generation() };
    vm.full_reset();

    let result = eval(&mut vm, "typeof eval").unwrap();
    let rendered = vm.lookup_str(result).unwrap_or_default();
    assert_eq!(rendered, "function");
    let result = eval(&mut vm, "eval.length === 1").unwrap();
    assert_eq!(result, JsValue::bool(true));
    let result = eval(&mut vm, "eval(123)").unwrap();
    assert_num(result, 123.0);
    assert!(!vm.session().is_dirty_since_snapshot());
}

#[test]
fn eval_script_var_lands_on_global() {
    let mut vm = Vm::new();
    // 间接 eval 脚本模式：var 声明落全局对象，外层 this 可见。
    let result = eval(&mut vm, "(0,eval)('var q = 9'); this.q === 9").unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_script_function_decl_lands_on_global() {
    let mut vm = Vm::new();
    // 脚本模式：顶层函数声明落全局对象。
    let result = eval(&mut vm, "(0,eval)('function f(){}'); typeof f === 'function'").unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_script_let_is_isolated() {
    let mut vm = Vm::new();
    // let/const 词法隔离：不落全局，不泄漏到外层。
    let result = eval(&mut vm, "(0,eval)('let z = 1'); typeof z === 'undefined'").unwrap();
    assert_eq!(result, JsValue::bool(true));
    // 词法声明自身仍参与脚本完成值。
    let result = eval(&mut vm, "(0,eval)('let z2 = 2; z2')").unwrap();
    assert_num(result, 2.0);
}

#[test]
fn eval_script_this_is_global() {
    let mut vm = Vm::new();
    // 脚本模式：this 与 globalThis 恒等（inline 调用 receiver 传 global）。
    let result = eval(&mut vm, "(0,eval)('this === globalThis')").unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_nested_eval() {
    let mut vm = Vm::new();
    // 嵌套 eval：内层完成值透传为外层脚本值。
    let result = eval(&mut vm, "eval(\"eval('1+1')\")").unwrap();
    assert_num(result, 2.0);
}

#[test]
fn eval_script_completion_value() {
    let mut vm = Vm::new();
    // 间接 eval 脚本模式完成值：var 初始化 + 表达式。
    let result = eval(&mut vm, "(0,eval)('var a = 1; a')").unwrap();
    assert_num(result, 1.0);
    let result = eval(&mut vm, "(0,eval)('1 + 2')").unwrap();
    assert_num(result, 3.0);
}

#[test]
fn eval_script_empty_and_decl_only() {
    let mut vm = Vm::new();
    // 空脚本 / 纯声明脚本：完成值为 undefined。
    let result = eval(&mut vm, "eval('') === undefined").unwrap();
    assert_eq!(result, JsValue::bool(true));
    let result = eval(&mut vm, "eval('var x;') === undefined").unwrap();
    assert_eq!(result, JsValue::bool(true));
}

#[test]
fn eval_script_throw_still_rethrows() {
    let mut vm = Vm::new();
    // 脚本模式异常路径回归：eval 内 throw 原始值，外层 catch 捕获同一值。
    let result = eval(&mut vm, "try { (0,eval)('throw 5') } catch(e) { e }").unwrap();
    assert_num(result, 5.0);
}

#[test]
fn compound_statement_completion_values() {
    let mut vm = Vm::new();
    // 混合形完成值：switch 命中 case 链最后非空值、无命中 undefined；空命中不沿用前值。
    let result = eval(&mut vm, "7; switch(1){case 1: 9}").unwrap();
    assert_num(result, 9.0);
    let result = eval(&mut vm, "7; switch(2){case 1: 9}").unwrap();
    assert_eq!(result, JsValue::undefined());
    // if 完成值 = 执行分支值，空/缺失分支物化 undefined（不沿用前值）。
    let result = eval(&mut vm, "7; if(true){}").unwrap();
    assert_eq!(result, JsValue::undefined());
    let result = eval(&mut vm, "7; if(true){3}").unwrap();
    assert_num(result, 3.0);
    // for 循环体完成值 = 末次迭代体值；不迭代则 undefined（不沿用前值）。
    let result = eval(&mut vm, "7; for(var i = 0; i < 2; i++) i * 10").unwrap();
    assert_num(result, 10.0);
    let result = eval(&mut vm, "7; for(; false;) 3").unwrap();
    assert_eq!(result, JsValue::undefined());
    // try 完成值 = try/catch 值，finally 体值按规范被丢弃。
    let result = eval(&mut vm, "7; try { 5 } finally { 6 }").unwrap();
    assert_num(result, 5.0);
    let result = eval(&mut vm, "7; try { throw 3 } catch (e) { 6 } finally { 8 }").unwrap();
    assert_num(result, 6.0);
    // while 循环体完成值 = 末次体值；不迭代则 undefined。
    let result = eval(&mut vm, "7; while (true) { 8; break }").unwrap();
    assert_num(result, 8.0);
    let result = eval(&mut vm, "2; while (false) { 3 }").unwrap();
    assert_eq!(result, JsValue::undefined());
    // with 完成值 = 体值；空体物化 undefined（不沿用前值）。
    let result = eval(&mut vm, "2; with({}) { 3 }").unwrap();
    assert_num(result, 3.0);
    let result = eval(&mut vm, "1; with({}) {}").unwrap();
    assert_eq!(result, JsValue::undefined());
    // 值语句-break-死语句：应取 break 前累积值（死语句值不得成为完成值）。
    // switch 域（resultValue 运行期累积）：穿落累积值经 break 带出；空子句/
    // 无命中保持初值 undefined，不泄漏前值。
    let result = eval(&mut vm, r#"6; switch ("a") { case "a": 7; case "b": break; default: }"#).unwrap();
    assert_num(result, 7.0);
    let result = eval(&mut vm, r#"1; switch ("a") { case "a": 2; case "b": 3; break; default: }"#).unwrap();
    assert_num(result, 3.0);
    let result = eval(&mut vm, r#"1; switch ("a") { case "a": break; default: }"#).unwrap();
    assert_eq!(result, JsValue::undefined());
    let result = eval(&mut vm, r#"1; switch ("x") { case "a": 5; }"#).unwrap();
    assert_eq!(result, JsValue::undefined());
    let result = eval(&mut vm, r#"7; switch ("b") { case "a": 8; default: }"#).unwrap();
    assert_eq!(result, JsValue::undefined());
    // 块包裹子句：块列表帧携值出 switch。
    let result = eval(&mut vm, r#"2; switch ("a") { case "a": { 3; break; } default: }"#).unwrap();
    assert_num(result, 3.0);
    // 嵌套 switch：内层 unlabeled break 只出内层，外层继续累积。
    let result = eval(&mut vm, r#"switch ("a") { case "a": switch ("a") { case "a": 5; break; } 7; }"#).unwrap();
    assert_num(result, 7.0);
    // labeled break 穿 switch：取子句列表累积值。
    let result = eval(&mut vm, r#"9; a: { switch ("a") { case "a": 5; break a; } }"#).unwrap();
    assert_num(result, 5.0);
    // with 边界：空体 break/continue 经边界物化 undefined，非空体取体累积值。
    let result = eval(&mut vm, "1; do { 2; with({}) { 3; break; } 4; } while (false)").unwrap();
    assert_num(result, 3.0);
    let result = eval(&mut vm, "5; do { 6; with({}) { break; } 7; } while (false)").unwrap();
    assert_eq!(result, JsValue::undefined());
    let result = eval(&mut vm, "8; do { 9; with({}) { 10; continue; } 11; } while (false)").unwrap();
    assert_num(result, 10.0);
    let result = eval(&mut vm, "12; do { 13; with({}) { continue; } 14; } while (false)").unwrap();
    assert_eq!(result, JsValue::undefined());
    // if 边界：同 with 形（支臂 UpdateEmpty 物化 undefined）。
    let result = eval(&mut vm, "1; do { 2; if (true) { 3; break; } 4; } while (false)").unwrap();
    assert_num(result, 3.0);
    let result = eval(&mut vm, "5; do { 6; if (true) { break; } 7; } while (false)").unwrap();
    assert_eq!(result, JsValue::undefined());
    let result = eval(&mut vm, "8; do { 9; if (true) { 10; continue; } 11; } while (false)").unwrap();
    assert_num(result, 10.0);
    let result = eval(&mut vm, "12; do { 13; if (true) { continue; } 14; } while (false)").unwrap();
    assert_eq!(result, JsValue::undefined());
    // try 体列表帧：非空体累积值穿透 labeled break（finally 体值不渗入）。
    let result = eval(&mut vm, "a: { try { 5; break a; } finally { 7 } }").unwrap();
    assert_num(result, 5.0);
    let result = eval(&mut vm, "a: { try { throw 1; } catch (e) { 5; break a; } }").unwrap();
    assert_num(result, 5.0);
    // for 泄漏形完成值：体不读循环变量加常量尾，取末次迭代体值，前值不沿用。
    let result = eval(&mut vm, "for (var i = 0; i < 2; ++i) { 42 }").unwrap();
    assert_num(result, 42.0);
    let result = eval(&mut vm, "for (var i = 0; i < 2; ++i) { 'bad completion' }").unwrap();
    let rendered = vm.lookup_str(result).unwrap_or_default();
    assert_eq!(rendered, "bad completion");
    let result = eval(&mut vm, "7; for (var i = 0; i < 2; ++i) { 42 }").unwrap();
    assert_num(result, 42.0);
    let result = eval(&mut vm, "9; for (var i = 0; i < 2; ++i) { i; 42 }").unwrap();
    assert_num(result, 42.0);
    // 0 迭代块体：完成值 undefined（前值不沿用）。
    let result = eval(&mut vm, "9; for (var i = 0; false;) { 42 }").unwrap();
    assert_eq!(result, JsValue::undefined());
}

#[test]
fn iteration_labeled_completion_values() {
    let mut vm = Vm::new();
    // do-while 循环体完成值 = 末次体值。
    let result = eval(&mut vm, "7; do { 8 } while (false)").unwrap();
    assert_num(result, 8.0);
    let result = eval(&mut vm, "1; do { 2; break; } while (true)").unwrap();
    assert_num(result, 2.0);
    // for-of 循环体完成值 = 末次迭代体值；空可迭代对象不迭代则 undefined。
    let result = eval(&mut vm, "7; for (var x of [1, 2]) x * 10").unwrap();
    assert_num(result, 20.0);
    let result = eval(&mut vm, "7; for (var x of [1, 2]) { x * 10; break }").unwrap();
    assert_num(result, 10.0);
    let result = eval(&mut vm, "7; for (var x of []) x * 10").unwrap();
    assert_eq!(result, JsValue::undefined());
    // for-in 循环体完成值 = 末次迭代体值。
    let result = eval(&mut vm, "7; for (var k in { a: 1 }) k").unwrap();
    let rendered = vm.lookup_str(result).unwrap_or_default();
    assert_eq!(rendered, "a");
    // labeled 完成值 = 体值透传：块体取块收敛值，标签前缀/表达式体取体值。
    let result = eval(&mut vm, "9; a: { 8 }").unwrap();
    assert_num(result, 8.0);
    let result = eval(&mut vm, "test262id: 2;").unwrap();
    assert_num(result, 2.0);
    // 值语句-break-死语句（非迭代标签）：取 break 前块列表累积值；无 break 的
    // 标签保持透传不回归。
    let result = eval(&mut vm, "test262id: { 5; break test262id; 9; }").unwrap();
    assert_num(result, 5.0);
    let result = eval(&mut vm, "a: { 1; { break a; } 3; }").unwrap();
    assert_num(result, 1.0);
    let result = eval(&mut vm, "9; a: {}").unwrap();
    assert_num(result, 9.0);
    // 循环出口结果寄存器：break/continue 携本列表累积值写入（空携值不覆写）。
    let result = eval(&mut vm, "9; a: { 2; if(true){ break a; } }").unwrap();
    assert_eq!(result, JsValue::undefined());
    let result = eval(&mut vm, "for (var i = 0; i < 3; ++i) { if (i === 1) continue; i * 10; }").unwrap();
    assert_num(result, 20.0);
    let result = eval(&mut vm, "a: for (;;) { if (true) { 3; break a; } }").unwrap();
    assert_num(result, 3.0);
    let result = eval(&mut vm, "4; do { continue; } while (false)").unwrap();
    assert_eq!(result, JsValue::undefined());
    let result = eval(&mut vm, "2; do { 3; break; } while (false)").unwrap();
    assert_num(result, 3.0);
    let result = eval(&mut vm, "1; while (true) { break; }").unwrap();
    assert_eq!(result, JsValue::undefined());
    // 子句级 continue 携值出 switch 再入循环出口寄存器（条款列表帧携值）。
    let result = eval(
        &mut vm,
        r#"13; do { switch ("a") { case "a": 14; case "b": continue; default: } } while (false)"#,
    )
    .unwrap();
    assert_num(result, 14.0);
    let result = eval(
        &mut vm,
        r#"11; do { switch ("a") { case "a": case "b": 12; continue; default: } } while (false)"#,
    )
    .unwrap();
    assert_num(result, 12.0);
    let result = eval(
        &mut vm,
        r#"8; do { switch ("a") { case "a": 9; case "b": 10; continue; default: } } while (false)"#,
    )
    .unwrap();
    assert_num(result, 10.0);
    let result =
        eval(&mut vm, r#"5; do { switch ("a") { case "a": { 6; continue; } default: } } while (false)"#).unwrap();
    assert_num(result, 6.0);
    let result = eval(&mut vm, r#"4; do { switch ("a") { case "a": continue; default: } } while (false)"#).unwrap();
    assert_eq!(result, JsValue::undefined());
    // labeled break/continue 穿 switch 出循环：取子句列表累积值写标签出口寄存器。
    let result = eval(&mut vm, "a: for (var i = 0; i < 2; ++i) { switch (i) { case 0: 5; break a; } }").unwrap();
    assert_num(result, 5.0);
    let result = eval(&mut vm, "a: for (var i = 0; i < 2; ++i) { switch (i) { case 0: break a; } }").unwrap();
    assert_eq!(result, JsValue::undefined());
}