harn-dap 0.10.99

Debug Adapter Protocol implementation for Harn
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

use super::*;

#[test]
fn test_loaded_sources_reports_entry_program() {
    let mut dbg = Debugger::new();
    let (_dir, file) = write_temp_program(
        "loaded.harn",
        "pipeline t(harness: Harness, task) { harness.stdio.log(\"hi\") }",
    );
    dbg.handle_message(make_request(1, "initialize", None));
    dbg.handle_message(make_request(
        2,
        "launch",
        Some(json!({"program": file.to_string_lossy()})),
    ));
    let responses = dbg.handle_message(make_request(3, "loadedSources", None));
    let body = responses[0].body.as_ref().unwrap();
    let sources = body["sources"].as_array().unwrap();
    assert!(
        sources
            .iter()
            .any(|s| s.get("path").and_then(|p| p.as_str()).is_some()),
        "loadedSources must include at least the entry script's path"
    );
}

#[test]
fn test_modules_reports_entry_module() {
    let mut dbg = Debugger::new();
    let (_dir, file) = write_temp_program(
        "mods.harn",
        "pipeline t(harness: Harness, task) { harness.stdio.log(\"hi\") }",
    );
    dbg.handle_message(make_request(1, "initialize", None));
    dbg.handle_message(make_request(
        2,
        "launch",
        Some(json!({"program": file.to_string_lossy()})),
    ));
    let responses = dbg.handle_message(make_request(3, "modules", None));
    let body = responses[0].body.as_ref().unwrap();
    let modules = body["modules"].as_array().unwrap();
    assert!(!modules.is_empty(), "modules list must not be empty");
    let total = body["totalModules"].as_u64().unwrap_or(0);
    assert!(total >= 1);
    let first = &modules[0];
    assert!(first.get("id").is_some());
    assert!(first.get("name").is_some());
    assert!(first.get("path").is_some());
}

#[test]
fn test_modules_with_explicit_zero_module_count_returns_all() {
    // Per DAP, `moduleCount: 0` disables paging and means "all remaining".
    let mut dbg = Debugger::new();
    let (_dir, file) = write_temp_program(
        "zerocount.harn",
        "pipeline t(harness: Harness, task) { harness.stdio.log(\"hi\") }",
    );
    dbg.handle_message(make_request(1, "initialize", None));
    dbg.handle_message(make_request(
        2,
        "launch",
        Some(json!({"program": file.to_string_lossy()})),
    ));
    let responses = dbg.handle_message(make_request(
        3,
        "modules",
        Some(json!({"startModule": 0, "moduleCount": 0})),
    ));
    let body = responses[0].body.as_ref().unwrap();
    let modules = body["modules"].as_array().unwrap();
    let total = body["totalModules"].as_u64().unwrap_or(0);
    assert_eq!(
        modules.len() as u64,
        total,
        "moduleCount: 0 must return every module (paging disabled)"
    );
}