hara-native 0.1.20

HAL-free native host runtime and package launcher for Hara
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

use hara_wasm::package;
use hara_wasm::package_manifest::PackageManifest;
use std::fs;
use std::path::PathBuf;
use std::time::{SystemTime, UNIX_EPOCH};

fn temp_root() -> PathBuf {
    std::env::temp_dir().join(format!(
        "hara-package-profile-{}",
        SystemTime::now()
            .duration_since(UNIX_EPOCH)
            .expect("system clock should be after the Unix epoch")
            .as_nanos()
    ))
}

#[test]
fn package_build_filters_namespaces_and_emits_verified_bytecode() {
    let root = temp_root();
    fs::create_dir_all(root.join("src/demo")).unwrap();
    fs::create_dir_all(root.join("config")).unwrap();
    fs::create_dir_all(root.join("resources/assets/demo")).unwrap();
    fs::write(
        root.join("project.edn"),
        r#"{:hara/type :project
           :hara/version "1.0.0"
           :project/id "hara:demo/profiled"
           :project/version "1.0.0"
           :project/source-paths ["src"]
           :project/test-paths []
           :project/extension-paths []
           :project/capabilities #{}
           :project/package {:name "demo.public" :profile "config/packages.edn"}}"#,
    )
    .unwrap();
    fs::write(
        root.join("config/packages.edn"),
        r#"{demo.public {:include [[demo.public :complete]]
                         :bundle [{:path "resources" :include ["assets/demo"]}]}
           demo.private {:include [[demo.private :complete]]}}"#,
    )
    .unwrap();
    fs::write(
        root.join("resources/assets/demo/info.txt"),
        "portable asset\n",
    )
    .unwrap();
    fs::write(
        root.join("src/demo/public.hal"),
        "(ns demo.public) (def answer 42)",
    )
    .unwrap();
    fs::write(
        root.join("src/demo/private.hal"),
        "(ns demo.private) (def secret 7)",
    )
    .unwrap();

    let archive = root.join("target/demo.harp");
    let result = package::build_path(&root, Some(&archive));
    assert!(result.is_ok(), "package build failed: {result:?}");
    let manifest = PackageManifest::read_archive(&archive).unwrap();
    assert_eq!(manifest.name.as_deref(), Some("demo.public"));
    assert_eq!(manifest.identity, "hara:demo/public");
    assert!(manifest.bytecode.is_some());
    assert!(manifest
        .files
        .contains_key(&PathBuf::from("src/demo/public.hal")));
    assert!(manifest
        .files
        .contains_key(&PathBuf::from("config/packages.edn")));
    assert!(manifest
        .files
        .contains_key(&PathBuf::from("assets/demo/info.txt")));
    assert!(!manifest
        .files
        .contains_key(&PathBuf::from("src/demo/private.hal")));
    assert!(manifest
        .canonical_edn()
        .contains("\"demo.public\" \"src/demo/public.hal\""));
    assert!(!manifest.canonical_edn().contains("demo.private"));
    let distribution = root.join("dist");
    package::install_path_at(&archive, &distribution).unwrap();
    assert!(distribution
        .join("packages/hara/demo/public/1.0.0.edn")
        .is_file());

    let _ = fs::remove_dir_all(root);
}