harn-cli 0.10.49

CLI for the Harn programming language — run, test, REPL, format, and lint
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
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105

//! Cache content hashing, verification, and pruning.

use crate::package::test_support::*;
use crate::package::*;

#[test]
fn compute_content_hash_ignores_git_and_hash_marker() {
    let tmp = tempfile::tempdir().unwrap();
    let root = tmp.path();
    fs::create_dir_all(root.join(".git")).unwrap();
    fs::write(root.join(".git/HEAD"), "ref: refs/heads/main\n").unwrap();
    fs::write(root.join(".gitignore"), "ignored\n").unwrap();
    fs::write(root.join(CONTENT_HASH_FILE), "stale\n").unwrap();
    fs::write(
        root.join("lib.harn"),
        "pub fn value() -> number { return 1 }\n",
    )
    .unwrap();
    let first = compute_content_hash(root).unwrap();
    fs::write(root.join(".git/HEAD"), "changed\n").unwrap();
    fs::write(root.join(".gitignore"), "changed\n").unwrap();
    fs::write(root.join(CONTENT_HASH_FILE), "changed\n").unwrap();
    let second = compute_content_hash(root).unwrap();
    assert_eq!(first, second);
}

#[test]
fn package_cache_verify_detects_tampering_even_with_stale_marker() {
    let (_repo_tmp, repo, _branch) = create_git_package_repo();
    let project_tmp = tempfile::tempdir().unwrap();
    let root = project_tmp.path();
    let workspace = TestWorkspace::new(root);
    fs::create_dir_all(root.join(".git")).unwrap();
    let git = normalize_git_url(repo.to_string_lossy().as_ref()).unwrap();
    fs::write(
        root.join(MANIFEST),
        format!(
            r#"
[package]
name = "workspace"
version = "0.1.0"

[dependencies]
acme-lib = {{ git = "{git}", rev = "v1.0.0" }}
"#
        ),
    )
    .unwrap();

    install_packages_in(workspace.env(), false, None, false).unwrap();
    let lock = LockFile::load(&root.join(LOCK_FILE)).unwrap().unwrap();
    let entry = lock.find("acme-lib").unwrap();
    let cache_dir = git_cache_dir_in(
        workspace.env(),
        &entry.source,
        entry.commit.as_deref().unwrap(),
    )
    .unwrap();
    fs::write(
        cache_dir.join("lib.harn"),
        "pub fn value() { return \"pwned\" }\n",
    )
    .unwrap();

    let error = verify_package_cache_in(workspace.env(), false).unwrap_err();
    assert!(error.to_string().contains("content hash mismatch"));
}

#[test]
fn package_cache_clean_all_removes_cached_git_entries() {
    let (_repo_tmp, repo, _branch) = create_git_package_repo();
    let project_tmp = tempfile::tempdir().unwrap();
    let root = project_tmp.path();
    let workspace = TestWorkspace::new(root);
    fs::create_dir_all(root.join(".git")).unwrap();
    let git = normalize_git_url(repo.to_string_lossy().as_ref()).unwrap();
    fs::write(
        root.join(MANIFEST),
        format!(
            r#"
[package]
name = "workspace"
version = "0.1.0"

[dependencies]
acme-lib = {{ git = "{git}", rev = "v1.0.0" }}
"#
        ),
    )
    .unwrap();

    install_packages_in(workspace.env(), false, None, false).unwrap();
    assert_eq!(
        discover_package_cache_entries_in(workspace.env())
            .unwrap()
            .len(),
        1
    );

    let removed = clean_package_cache_in(workspace.env(), true).unwrap();
    assert_eq!(removed, 1);
    assert!(discover_package_cache_entries_in(workspace.env())
        .unwrap()
        .is_empty());
}