sombra 0.3.3

#![allow(clippy::uninlined_format_args)]
#![allow(clippy::useless_vec)]

use parking_lot::Mutex;
use sombra::{Edge, GraphDB, Node, Result};
use std::sync::atomic::{AtomicUsize, Ordering};
use std::sync::{Arc, Barrier};
use std::thread;
use std::time::{Duration, Instant};
use tempfile::NamedTempFile;

const NUM_THREADS: usize = 8;
const OPERATIONS_PER_THREAD: usize = 100;
const CONCURRENT_NODES: usize = NUM_THREADS * OPERATIONS_PER_THREAD;
const STRESS_READERS: usize = 128;

#[test]
fn concurrent_node_insertion() -> Result<()> {
    let tmp = NamedTempFile::new()?;
    let path = tmp.path().to_path_buf();

    // Open database once and share it across threads with proper synchronization
    let db = GraphDB::open(&path)?;
    let db = Arc::new(Mutex::new(db));

    let barrier = Arc::new(Barrier::new(NUM_THREADS));
    let mut handles = vec![];

    for thread_id in 0..NUM_THREADS {
        let db_clone = Arc::clone(&db);
        let barrier_clone = Arc::clone(&barrier);

        let handle = thread::spawn(move || -> Result<Vec<u64>> {
            barrier_clone.wait();

            let mut node_ids = Vec::new();

            for i in 0..OPERATIONS_PER_THREAD {
                let node = Node::new((thread_id * OPERATIONS_PER_THREAD + i) as u64);
                let node_id = db_clone.lock().add_node(node)?;
                node_ids.push(node_id);
            }

            Ok(node_ids)
        });

        handles.push(handle);
    }

    let mut all_node_ids = Vec::new();
    for handle in handles {
        let node_ids = handle.join().unwrap()?;
        all_node_ids.extend(node_ids);
    }

    // Verify all nodes were created
    assert_eq!(all_node_ids.len(), CONCURRENT_NODES);

    // Verify each node exists and has correct data
    for &node_id in &all_node_ids {
        let _node = db.lock().get_node(node_id)?;
        assert!(node_id <= CONCURRENT_NODES as u64);
    }

    Ok(())
}

#[test]
fn concurrent_edge_creation() -> Result<()> {
    let tmp = NamedTempFile::new()?;
    let path = tmp.path().to_path_buf();

    // Create a central hub node first
    let mut db = GraphDB::open(&path)?;
    let hub_id = db.add_node(Node::new(9999))?;

    let db = Arc::new(Mutex::new(db));
    let barrier = Arc::new(Barrier::new(NUM_THREADS));
    let mut handles = vec![];

    for thread_id in 0..NUM_THREADS {
        let db_clone = Arc::clone(&db);
        let barrier_clone = Arc::clone(&barrier);

        let handle = thread::spawn(move || -> Result<Vec<u64>> {
            barrier_clone.wait();

            let mut edge_ids = Vec::new();

            for i in 0..OPERATIONS_PER_THREAD {
                let node = Node::new((thread_id * OPERATIONS_PER_THREAD + i) as u64);
                let node_id = db_clone.lock().add_node(node)?;

                let edge = Edge::new(0, hub_id, node_id, "connect");
                let edge_id = db_clone.lock().add_edge(edge)?;
                edge_ids.push(edge_id);
            }

            Ok(edge_ids)
        });

        handles.push(handle);
    }

    let mut all_edge_ids = Vec::new();
    for handle in handles {
        let edge_ids = handle.join().unwrap()?;
        all_edge_ids.extend(edge_ids);
    }

    // Verify all edges were created
    assert_eq!(all_edge_ids.len(), CONCURRENT_NODES);

    // Verify hub node has all neighbors
    let neighbors = db.lock().get_neighbors(hub_id)?;
    assert_eq!(neighbors.len(), CONCURRENT_NODES);

    Ok(())
}

#[test]
fn concurrent_read_write_operations() -> Result<()> {
    let tmp = NamedTempFile::new()?;
    let path = tmp.path().to_path_buf();

    // Pre-populate with some data
    let initial_node_count = 50;
    let mut db = GraphDB::open(&path)?;
    for i in 0..initial_node_count {
        db.add_node(Node::new(i as u64))?;
    }

    let db = Arc::new(Mutex::new(db));
    let barrier = Arc::new(Barrier::new(NUM_THREADS));
    let mut handles = vec![];

    // Half threads write, half read
    for thread_id in 0..NUM_THREADS {
        let db_clone = Arc::clone(&db);
        let barrier_clone = Arc::clone(&barrier);

        let handle = thread::spawn(move || -> Result<usize> {
            barrier_clone.wait();

            let mut operations = 0;

            if thread_id < NUM_THREADS / 2 {
                // Writer threads
                for i in 0..OPERATIONS_PER_THREAD {
                    let node = Node::new((thread_id * OPERATIONS_PER_THREAD + i + 1000) as u64);
                    db_clone.lock().add_node(node)?;
                    operations += 1;
                }
            } else {
                // Reader threads
                for i in 0..OPERATIONS_PER_THREAD {
                    let node_id = (i % initial_node_count + 1) as u64;
                    if db_clone.lock().get_node(node_id).is_ok() {
                        operations += 1;
                    }
                }
            }

            Ok(operations)
        });

        handles.push(handle);
    }

    let mut _total_operations = 0;
    for handle in handles {
        let operations = handle.join().unwrap()?;
        _total_operations += operations;
    }

    // Verify final state
    let _expected_total = initial_node_count + (NUM_THREADS / 2) * OPERATIONS_PER_THREAD;

    // Count actual nodes
    let mut actual_count = 0;
    let mut node_id = 1;
    while db.lock().get_node(node_id).is_ok() {
        actual_count += 1;
        node_id += 1;
    }

    assert!(actual_count >= initial_node_count);

    Ok(())
}

#[test]
fn concurrent_transaction_operations() -> Result<()> {
    let tmp = NamedTempFile::new()?;
    let path = tmp.path().to_path_buf();

    let db = GraphDB::open(&path)?;
    let db = Arc::new(Mutex::new(db));
    let barrier = Arc::new(Barrier::new(NUM_THREADS));
    let mut handles = vec![];

    for thread_id in 0..NUM_THREADS {
        let db_clone = Arc::clone(&db);
        let barrier_clone = Arc::clone(&barrier);

        let handle = thread::spawn(move || -> Result<Vec<u64>> {
            barrier_clone.wait();

            let mut node_ids = Vec::new();

            for i in 0..OPERATIONS_PER_THREAD {
                // Add multiple nodes in a single transaction
                let mut db_guard = db_clone.lock();
                let mut tx = db_guard.begin_transaction()?;

                for j in 0..5 {
                    let node =
                        Node::new((thread_id * OPERATIONS_PER_THREAD * 5 + i * 5 + j) as u64);
                    let node_id = tx.add_node(node)?;
                    if j == 0 {
                        node_ids.push(node_id);
                    }
                }

                tx.commit()?;
                drop(db_guard);
            }

            Ok(node_ids)
        });

        handles.push(handle);
    }

    let mut all_node_ids = Vec::new();
    for handle in handles {
        let node_ids = handle.join().unwrap()?;
        all_node_ids.extend(node_ids);
    }

    // Verify all transactions committed successfully
    db.lock().checkpoint()?;

    for &node_id in &all_node_ids {
        assert!(db.lock().get_node(node_id).is_ok());
    }

    Ok(())
}

#[test]
fn concurrent_stress_test() -> Result<()> {
    let tmp = NamedTempFile::new()?;
    let path = tmp.path().to_path_buf();

    let db = GraphDB::open(&path)?;
    let db = Arc::new(Mutex::new(db));
    let start_time = Instant::now();
    let barrier = Arc::new(Barrier::new(NUM_THREADS));
    let mut handles = vec![];

    for thread_id in 0..NUM_THREADS {
        let db_clone = Arc::clone(&db);
        let barrier_clone = Arc::clone(&barrier);

        let handle = thread::spawn(move || -> Result<(usize, usize, usize)> {
            barrier_clone.wait();

            let mut nodes_created = 0;
            let mut edges_created = 0;
            let mut reads_performed = 0;

            for i in 0..OPERATIONS_PER_THREAD {
                match i % 4 {
                    0 | 1 => {
                        // Create nodes
                        let node = Node::new((thread_id * OPERATIONS_PER_THREAD + i) as u64);
                        db_clone.lock().add_node(node)?;
                        nodes_created += 1;
                    }
                    2 => {
                        // Create edges (connect to existing nodes)
                        if nodes_created > 0 {
                            let from_id =
                                ((thread_id * OPERATIONS_PER_THREAD + i - 1) % 100 + 1) as u64;
                            let to_id = ((thread_id * OPERATIONS_PER_THREAD + i) % 100 + 1) as u64;

                            // Only create edge if both nodes exist
                            if db_clone.lock().get_node(from_id).is_ok()
                                && db_clone.lock().get_node(to_id).is_ok()
                            {
                                let edge = Edge::new(0, from_id, to_id, "stress_test");
                                if db_clone.lock().add_edge(edge).is_ok() {
                                    edges_created += 1;
                                }
                            }
                        }
                    }
                    3 => {
                        // Read operations
                        let node_id = ((i * 7) % 50 + 1) as u64;
                        if db_clone.lock().get_node(node_id).is_ok() {
                            reads_performed += 1;
                        }
                    }
                    _ => unreachable!(),
                }
            }

            Ok((nodes_created, edges_created, reads_performed))
        });

        handles.push(handle);
    }

    let mut total_nodes = 0;
    let mut total_edges = 0;
    let mut total_reads = 0;

    for handle in handles {
        let (nodes, edges, reads) = handle.join().unwrap()?;
        total_nodes += nodes;
        total_edges += edges;
        total_reads += reads;
    }

    let elapsed = start_time.elapsed();

    println!("Concurrent stress test completed in {:?}", elapsed);
    println!(
        "Total operations: {} nodes, {} edges, {} reads",
        total_nodes, total_edges, total_reads
    );
    println!(
        "Operations per second: {:.2}",
        (total_nodes + total_edges + total_reads) as f64 / elapsed.as_secs_f64()
    );

    // Verify database integrity
    db.lock().checkpoint()?;

    // The test passes if we completed without panics or corruption
    assert!(total_nodes > 0);

    Ok(())
}

#[test]
fn concurrent_database_open_close() -> Result<()> {
    let tmp = NamedTempFile::new()?;
    let path = tmp.path().to_path_buf();

    let db = GraphDB::open(&path)?;
    let db = Arc::new(Mutex::new(db));
    let barrier = Arc::new(Barrier::new(NUM_THREADS));
    let mut handles = vec![];

    for thread_id in 0..NUM_THREADS {
        let db_clone = Arc::clone(&db);
        let barrier_clone = Arc::clone(&barrier);

        let handle = thread::spawn(move || -> Result<()> {
            for iteration in 0..10 {
                barrier_clone.wait();

                // Perform operation
                let node = Node::new((thread_id * 10 + iteration) as u64);
                db_clone.lock().add_node(node)?;

                // Small delay to simulate real usage
                thread::sleep(Duration::from_millis(1));
            }

            Ok(())
        });

        handles.push(handle);
    }

    for handle in handles {
        handle.join().unwrap()?;
    }

    // Verify all data persisted
    let mut found_nodes = 0;

    for i in 0..(NUM_THREADS * 10) {
        if db.lock().get_node((i + 1) as u64).is_ok() {
            found_nodes += 1;
        }
    }

    assert_eq!(found_nodes, NUM_THREADS * 10);

    Ok(())
}

#[test]
fn concurrent_massive_readers_stress() -> Result<()> {
    let tmp = NamedTempFile::new()?;
    let path = tmp.path().to_path_buf();

    let mut db = GraphDB::open(&path)?;
    let num_nodes: usize = 1000;
    for i in 0..num_nodes {
        let mut node = Node::new(i as u64);
        node.labels.push(format!("Node_{}", i % 10));
        node.properties
            .insert("index".to_string(), sombra::PropertyValue::Int(i as i64));
        node.properties.insert(
            "category".to_string(),
            sombra::PropertyValue::String(format!("cat_{}", i % 5)),
        );
        db.add_node(node)?;
    }

    for i in 0..(num_nodes - 1) {
        let edge = Edge::new(0, (i + 1) as u64, (i + 2) as u64, "link");
        db.add_edge(edge)?;
    }

    db.checkpoint()?;
    let db = Arc::new(Mutex::new(db));

    println!(
        "
=== Testing {} Concurrent Readers ===",
        STRESS_READERS
    );

    let success_count = Arc::new(AtomicUsize::new(0));
    let barrier = Arc::new(Barrier::new(STRESS_READERS));
    let start_time = Instant::now();
    let mut handles = vec![];

    for thread_id in 0..STRESS_READERS {
        let db_clone = Arc::clone(&db);
        let barrier_clone = Arc::clone(&barrier);
        let success_clone = Arc::clone(&success_count);

        let handle = thread::spawn(move || -> Result<usize> {
            barrier_clone.wait();

            let mut local_ops = 0;
            let ops_per_reader = 50;

            for i in 0..ops_per_reader {
                let node_id = ((thread_id * ops_per_reader + i) % num_nodes + 1) as u64;

                match i % 5 {
                    0 => {
                        if db_clone.lock().get_node(node_id).is_ok() {
                            local_ops += 1;
                        }
                    }
                    1 => {
                        if let Ok(neighbors) = db_clone.lock().get_neighbors(node_id) {
                            local_ops += neighbors.len();
                        }
                    }
                    2 => {
                        let label = format!("Node_{}", i % 10);
                        if let Ok(nodes) = db_clone.lock().get_nodes_by_label(&label) {
                            local_ops += nodes.len();
                        }
                    }
                    3 => {
                        if let Ok(count) = db_clone.lock().count_outgoing_edges(node_id) {
                            local_ops += count;
                        }
                    }
                    4 => {
                        if let Ok(count) = db_clone.lock().count_incoming_edges(node_id) {
                            local_ops += count;
                        }
                    }
                    _ => unreachable!(),
                }
            }

            success_clone.fetch_add(1, Ordering::SeqCst);
            Ok(local_ops)
        });

        handles.push(handle);
    }

    let mut total_ops = 0;
    for handle in handles {
        let ops = handle.join().unwrap()?;
        total_ops += ops;
    }

    let elapsed = start_time.elapsed();
    let successful_readers = success_count.load(Ordering::SeqCst);

    println!("Completed in {:?}", elapsed);
    println!(
        "Successful readers: {}/{}",
        successful_readers, STRESS_READERS
    );
    println!("Total read operations: {}", total_ops);
    println!(
        "Operations per second: {:.2}",
        total_ops as f64 / elapsed.as_secs_f64()
    );
    println!(
        "Average latency per operation: {:.2}μs",
        elapsed.as_micros() as f64 / total_ops as f64
    );

    assert_eq!(
        successful_readers, STRESS_READERS,
        "All readers should complete successfully"
    );
    assert!(total_ops > 0, "Should have performed read operations");

    Ok(())
}

#[test]
fn concurrent_readers_with_single_writer() -> Result<()> {
    let tmp = NamedTempFile::new()?;
    let path = tmp.path().to_path_buf();

    let mut db = GraphDB::open(&path)?;
    for i in 0..500 {
        let mut node = Node::new(i as u64);
        node.labels.push(format!("Node_{}", i));
        db.add_node(node)?;
    }
    db.checkpoint()?;
    let db = Arc::new(Mutex::new(db));

    println!(
        "
=== Testing 100 Readers + 1 Writer ==="
    );

    let num_readers = 100;
    let barrier = Arc::new(Barrier::new(num_readers + 1));
    let start_time = Instant::now();
    let mut handles = vec![];
    let read_count = Arc::new(AtomicUsize::new(0));
    let write_count = Arc::new(AtomicUsize::new(0));

    for thread_id in 0..num_readers {
        let db_clone = Arc::clone(&db);
        let barrier_clone = Arc::clone(&barrier);
        let read_count_clone = Arc::clone(&read_count);

        let handle = thread::spawn(move || -> Result<()> {
            barrier_clone.wait();

            for i in 0..100 {
                let node_id = ((thread_id * 100 + i) % 500 + 1) as u64;
                if db_clone.lock().get_node(node_id).is_ok() {
                    read_count_clone.fetch_add(1, Ordering::Relaxed);
                }
            }
            Ok(())
        });

        handles.push(handle);
    }

    let db_clone = Arc::clone(&db);
    let barrier_clone = Arc::clone(&barrier);
    let write_count_clone = Arc::clone(&write_count);

    let writer_handle = thread::spawn(move || -> Result<()> {
        barrier_clone.wait();

        for i in 0..100 {
            let mut node = Node::new((1000 + i) as u64);
            node.labels.push(format!("NewNode_{}", i));
            db_clone.lock().add_node(node)?;
            write_count_clone.fetch_add(1, Ordering::Relaxed);

            thread::sleep(Duration::from_micros(100));
        }
        Ok(())
    });

    handles.push(writer_handle);

    for handle in handles {
        handle.join().unwrap()?;
    }

    let elapsed = start_time.elapsed();
    let total_reads = read_count.load(Ordering::Relaxed);
    let total_writes = write_count.load(Ordering::Relaxed);

    println!("Completed in {:?}", elapsed);
    println!(
        "Total reads: {}, Total writes: {}",
        total_reads, total_writes
    );
    println!(
        "Read throughput: {:.2} ops/sec",
        total_reads as f64 / elapsed.as_secs_f64()
    );
    println!(
        "Write throughput: {:.2} ops/sec",
        total_writes as f64 / elapsed.as_secs_f64()
    );

    assert!(total_reads > 0, "Readers should complete successfully");
    assert_eq!(total_writes, 100, "Writer should complete all operations");

    Ok(())
}