reifydb-engine 0.4.10

// SPDX-License-Identifier: Apache-2.0
// Copyright (c) 2025 ReifyDB

use reifydb_engine::test_prelude::*;

/// Run an RQL script and return the result frames.
fn run_script(rql: &str) -> Vec<Frame> {
	let t = TestEngine::new();
	let r = t.query_as(IdentityId::system(), rql, Default::default());
	if let Some(e) = r.error {
		panic!("{e:?}");
	}
	r.frames
}

/// Extract a single i64 scalar from the first frame's first column.
fn scalar_i64(frames: &[Frame]) -> i64 {
	let frame = &frames[0];
	let val = frame.columns[0].data.get_value(0);
	match val {
		Value::Int1(v) => v as i64,
		Value::Int2(v) => v as i64,
		Value::Int4(v) => v as i64,
		Value::Int8(v) => v,
		other => panic!("Expected integer value, got {:?}", other),
	}
}

#[test]
fn test_closure_basic_call() {
	let frames = run_script("let $double = ($x) { $x * 2 }; $double(21)");
	assert_eq!(scalar_i64(&frames), 42);
}

#[test]
fn test_closure_capture_from_enclosing_scope() {
	let frames = run_script("let $base = 10; let $adder = ($x) { $x + $base }; $adder(5)");
	assert_eq!(scalar_i64(&frames), 15);
}

#[test]
fn test_closure_no_captures() {
	let frames = run_script("let $id = ($x) { $x }; $id(42)");
	assert_eq!(scalar_i64(&frames), 42);
}

#[test]
fn test_closure_parameter_shadows_capture() {
	let frames = run_script("let $x = 100; let $f = ($x) { $x + 1 }; $f(5)");
	assert_eq!(scalar_i64(&frames), 6);
}

#[test]
fn test_closure_from_function() {
	let frames = run_script("let $n = 5; let $add5 = ($x) { $x + $n }; $add5(10)");
	assert_eq!(scalar_i64(&frames), 15);
}

#[test]
fn test_closure_nested_propagation() {
	let frames = run_script("let $x = 10; let $outer = () { let $inner = () { $x + 1 }; $inner() }; $outer()");
	assert_eq!(scalar_i64(&frames), 11);
}

#[test]
fn test_closure_deep_nesting() {
	let frames = run_script(
		"let $x = 5; let $l1 = () { let $l2 = () { let $l3 = () { $x * 2 }; $l3() }; $l2() }; $l1()",
	);
	assert_eq!(scalar_i64(&frames), 10);
}

#[test]
fn test_closure_nested_with_local_variable() {
	let frames = run_script(
		"let $x = 100; let $outer = () { let $local = 42; let $inner = () { $local }; $inner() }; $outer()",
	);
	assert_eq!(scalar_i64(&frames), 42);
}