harn-cli 0.10.92

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

use harn_parser::parse_source;

use super::external_action::literal_union;
use super::support::ProtocolArtifactSource;

pub(super) const CONNECTOR_SETUP_VOCABULARY_SOURCE: &str =
    "crates/harn-stdlib/src/stdlib/connectors/setup.harn";

#[derive(Debug, Clone, PartialEq, Eq)]
pub(super) struct ConnectorSetupVocabulary {
    pub(super) stages: Vec<String>,
    pub(super) statuses: Vec<String>,
    pub(super) interactions: Vec<String>,
    pub(super) configuration_fields: Vec<String>,
    pub(super) error_codes: Vec<String>,
}

impl ConnectorSetupVocabulary {
    pub(super) fn load(source: &ProtocolArtifactSource) -> Result<Self, String> {
        let text = source.read_text(CONNECTOR_SETUP_VOCABULARY_SOURCE)?;
        Self::parse(&text)
    }

    fn parse(source: &str) -> Result<Self, String> {
        let program = parse_source(source).map_err(|error| {
            format!("failed to parse {CONNECTOR_SETUP_VOCABULARY_SOURCE}: {error}")
        })?;
        Ok(Self {
            stages: literal_union(
                &program,
                "ConnectorSetupStage",
                CONNECTOR_SETUP_VOCABULARY_SOURCE,
            )?,
            statuses: literal_union(
                &program,
                "ConnectorSetupStatus",
                CONNECTOR_SETUP_VOCABULARY_SOURCE,
            )?,
            interactions: literal_union(
                &program,
                "ConnectorSetupInteraction",
                CONNECTOR_SETUP_VOCABULARY_SOURCE,
            )?,
            configuration_fields: literal_union(
                &program,
                "ConnectorSetupConfigurationField",
                CONNECTOR_SETUP_VOCABULARY_SOURCE,
            )?,
            error_codes: literal_union(
                &program,
                "ConnectorSetupErrorCode",
                CONNECTOR_SETUP_VOCABULARY_SOURCE,
            )?,
        })
    }

    #[cfg(test)]
    pub(super) fn load_for_tests() -> Self {
        let source =
            ProtocolArtifactSource::from_anchor(std::path::Path::new(env!("CARGO_MANIFEST_DIR")))
                .expect("harn-cli is compiled from the Harn workspace");
        Self::load(&source).expect("connector-setup vocabulary is valid")
    }
}

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

    #[test]
    fn parses_closed_setup_vocabulary() {
        let vocabulary = ConnectorSetupVocabulary::parse(
            r#"
pub type ConnectorSetupStage = "resolving" | "ready"
pub type ConnectorSetupStatus = "in_progress" | "succeeded"
pub type ConnectorSetupInteraction = "none" | "browser"
pub type ConnectorSetupConfigurationField = "oauth_client_id"
pub type ConnectorSetupErrorCode = "configuration_missing" | "unknown"
"#,
        )
        .unwrap();
        assert_eq!(vocabulary.stages, ["resolving", "ready"]);
        assert_eq!(vocabulary.statuses, ["in_progress", "succeeded"]);
        assert_eq!(vocabulary.interactions, ["none", "browser"]);
        assert_eq!(vocabulary.configuration_fields, ["oauth_client_id"]);
        assert_eq!(vocabulary.error_codes, ["configuration_missing", "unknown"]);
    }
}