Initial Dever 0.0.1

test/rust/compiler/http/streaming.rs

@@ -0,0 +1,44 @@
+use super::*;
+
+#[test]
+fn streaming_original_source_contract_checks_and_selects_http_runtime() {
+    let project = Project::load(
+        &Path::new(env!("CARGO_MANIFEST_DIR")).join("../test/rust/fixtures/http-stream.dever"),
+    )
+    .unwrap();
+    let program = project.check().unwrap();
+    let entry = program
+        .functions
+        .iter()
+        .position(|function| function.signature.name == "verify")
+        .unwrap();
+    let effects = program.functions[entry].signature.effects;
+    assert!(effects.network && effects.suspend && effects.schedule);
+    assert!(build::runtime_features(&program, &program.reachable([entry])).contains(&"http"));
+}
+
+#[test]
+fn streaming_intrinsics_preserve_types_effects_and_failure_obligations() {
+    linked("main(client: dever.system.HttpClient, request: dever.http.Request) () { response = dever.http.open(client, request)\nclose(response.body) }").unwrap();
+    for (source, code) in [
+        (
+            "main(client: dever.system.HttpClient, request: dever.http.Request) (response: dever.http.StreamResponse) pure { response = dever.http.open(client, request) }",
+            "C013",
+        ),
+        (
+            "main(client: dever.system.HttpClient, request: dever.http.Request) (response: dever.http.StreamResponse) { response = dever.http.openStream(client, request) }",
+            "C005",
+        ),
+        (
+            "main(client: dever.system.HttpClient, request: dever.http.Request) () { lost = result(dever.http.open(client, request)) }",
+            "C012",
+        ),
+        (
+            "main(client: dever.system.HttpClient, request: dever.http.Request) () { dever.system.httpOpen(client, request) }",
+            "C006",
+        ),
+    ] {
+        let error = linked(source).unwrap_err();
+        assert!(error.contains(code), "{source}\n{error}");
+    }
+}