ruchy 4.2.1

// RUNTIME-BOX: Box<T> Runtime Operations
#![allow(clippy::ignore_without_reason)] // Property tests run with --ignored flag
#![allow(missing_docs)]

// EXTREME TDD: RED → GREEN → REFACTOR → FAST

use assert_cmd::Command;
use predicates::prelude::*;

#[cfg(test)]
use proptest::prelude::*;

fn ruchy_cmd() -> Command {
    assert_cmd::cargo::cargo_bin_cmd!("ruchy")
}

// ========================================
// RED PHASE: Tests that MUST fail initially
// ========================================

#[test]
#[ignore = "Box::new() runtime not implemented"]
fn test_red_box_new_simple() {
    // RED: Box::new() should work but currently hangs
    let code = r"
fn main() {
    let x = 42;
    let boxed = Box::new(x);
    println(1);
}
";

    ruchy_cmd()
        .arg("-e")
        .arg(code)
        .timeout(std::time::Duration::from_secs(5))
        .assert()
        .success()
        .stdout(predicate::str::contains("1"));
}

#[test]
#[ignore = "Box::new() runtime not implemented"]
fn test_red_box_new_string() {
    // RED: Box::new() with String
    let code = r#"
fn main() {
    let s = "hello";
    let boxed = Box::new(s);
    println(2);
}
"#;

    ruchy_cmd()
        .arg("-e")
        .arg(code)
        .timeout(std::time::Duration::from_secs(5))
        .assert()
        .success()
        .stdout(predicate::str::contains("2"));
}

#[test]
#[ignore = "Box::new() runtime not implemented"]
fn test_red_box_deref() {
    // RED: Dereferencing Box should work
    let code = r"
fn main() {
    let boxed = Box::new(42);
    let value = *boxed;
    println(value);
}
";

    ruchy_cmd()
        .arg("-e")
        .arg(code)
        .timeout(std::time::Duration::from_secs(5))
        .assert()
        .success()
        .stdout(predicate::str::contains("42"));
}

#[test]
#[ignore = "Box::new() runtime not implemented"]
fn test_red_box_in_enum_variant() {
    // RED: Using Box in enum variant construction
    let code = r"
enum Tree {
    Leaf(i32),
    Node(i32, Box<Tree>, Box<Tree>)
}

fn main() {
    let leaf1 = Tree::Leaf(1);
    let leaf2 = Tree::Leaf(2);
    let node = Tree::Node(3, Box::new(leaf1), Box::new(leaf2));
    println(3);
}
";

    ruchy_cmd()
        .arg("-e")
        .arg(code)
        .timeout(std::time::Duration::from_secs(5))
        .assert()
        .success()
        .stdout(predicate::str::contains("3"));
}

#[test]
#[ignore = "Box::new() runtime not implemented"]
fn test_red_box_pattern_match() {
    // RED: Pattern matching on Box in enum
    let code = r"
enum Tree {
    Leaf(i32),
    Node(i32, Box<Tree>, Box<Tree>)
}

fn main() {
    let leaf1 = Tree::Leaf(10);
    let leaf2 = Tree::Leaf(20);
    let node = Tree::Node(30, Box::new(leaf1), Box::new(leaf2));

    match node {
        Tree::Leaf(val) => println(val),
        Tree::Node(val, left, right) => println(val)
    }
}
";

    ruchy_cmd()
        .arg("-e")
        .arg(code)
        .timeout(std::time::Duration::from_secs(5))
        .assert()
        .success()
        .stdout(predicate::str::contains("30"));
}

// ========================================
// BASELINE: Tests that MUST pass (verify enum runtime works)
// ========================================

#[test]
#[ignore = "Enum runtime with String variant not fully supported"]
fn test_baseline_enum_without_box_runtime() {
    // BASELINE: Enums work without Box
    let code = r"
enum Simple {
    A(i32),
    B(String)
}

fn main() {
    let x = Simple::A(42);
    match x {
        Simple::A(val) => println(val),
        Simple::B(s) => println(s)
    }
}
";

    ruchy_cmd()
        .arg("-e")
        .arg(code)
        .assert()
        .success()
        .stdout(predicate::str::contains("42"));
}

// ========================================
// FAST PHASE: Property Tests (10,000+ iterations)
// ========================================

#[cfg(test)]
mod property_tests {
    use super::*;

    proptest! {
        #![proptest_config(ProptestConfig::with_cases(10000))]

        /// Property: Box::new(value) should preserve the value
        /// Invariant: Box is transparent - boxing and unboxing don't change values
        #[test]
        #[ignore = "Run with: cargo test --test runtime_box_operations -- --ignored"]
        fn prop_box_preserves_integer_values(n in -1000i64..1000i64) {
            let code = format!(
                r"fn main() {{ let boxed = Box::new({n}); let value = *boxed; println(value); }}"
            );

            ruchy_cmd()
                .arg("-e")
                .arg(&code)
                .timeout(std::time::Duration::from_secs(2))
                .assert()
                .success()
                .stdout(predicate::str::contains(n.to_string()));
        }

        /// Property: Box::new() never panics for any valid integer
        /// Invariant: Box construction is total (works for all values)
        #[test]
        #[ignore = "Test disabled - run with --ignored"]
        fn prop_box_new_never_panics(n in i64::MIN..i64::MAX) {
            let code = format!(
                r"fn main() {{ let boxed = Box::new({n}); println(1); }}"
            );

            ruchy_cmd()
                .arg("-e")
                .arg(&code)
                .timeout(std::time::Duration::from_secs(2))
                .assert()
                .success()
                .stdout(predicate::str::contains("1"));
        }

        /// Property: Nested Box operations preserve values
        /// Invariant: Multiple levels of Boxing are transparent
        #[test]
        #[ignore = "Test disabled - run with --ignored"]
        fn prop_nested_box_preserves_values(n in 0i64..100i64) {
            let code = format!(
                r"fn main() {{
                    let boxed1 = Box::new({n});
                    let boxed2 = Box::new(boxed1);
                    let value = **boxed2;
                    println(value);
                }}"
            );

            ruchy_cmd()
                .arg("-e")
                .arg(&code)
                .timeout(std::time::Duration::from_secs(2))
                .assert()
                .success()
                .stdout(predicate::str::contains(n.to_string()));
        }

        /// Property: Vec::new() always creates empty array
        /// Invariant: Vec::new() is deterministic (always [])
        #[test]
        #[ignore = "Test disabled - run with --ignored"]
        fn prop_vec_new_always_empty(_n in 0u32..10000u32) {
            let code = "fn main() { let v = Vec::new(); println(v); }";

            ruchy_cmd()
                .arg("-e")
                .arg(code)
                .timeout(std::time::Duration::from_secs(2))
                .assert()
                .success()
                .stdout(predicate::str::contains("[]"));
        }
    }
}