Initial Dever 0.0.1

test/rust/native/text.rs

@@ -0,0 +1,58 @@
+use super::{Directory, fixture};
+use dever::compiler::{build, project::Project};
+
+#[test]
+fn concatenation_preserves_values_and_failure_order() {
+    let directory = Directory::new();
+    let project = Project::load(&fixture().with_file_name("text.dever")).unwrap();
+    let program = project.check().unwrap();
+    for (entry, expected) in [
+        ("verify", None),
+        (
+            "recordFailureEntry",
+            Some(("Problem.Denied", "Problem.Denied(\"first\")")),
+        ),
+        (
+            "failureEntry",
+            Some(("Problem.Denied", "Problem.Denied(\"first\")")),
+        ),
+        (
+            "faultEntry",
+            Some(("integer arithmetic fault", "value + 1")),
+        ),
+        (
+            "argumentFailureEntry",
+            Some(("Problem.Denied", "Problem.Denied(\"first\")")),
+        ),
+        (
+            "identityFaultEntry",
+            Some((
+                "integer arithmetic fault",
+                "9223372036854775807 + length(value)",
+            )),
+        ),
+    ] {
+        let binary =
+            build::build(&program, &project.sources, entry, &directory.0.join(entry)).unwrap();
+        let output = std::process::Command::new(binary).output().unwrap();
+        if let Some((message, needle)) = expected {
+            assert!(!output.status.success());
+            assert!(output.stdout.is_empty());
+            let stderr = String::from_utf8(output.stderr).unwrap();
+            let source = &project.sources[0];
+            let (line, column) = source.position(source.text.find(needle).unwrap());
+            assert!(stderr.contains(message), "{stderr}");
+            assert!(
+                stderr.contains(&format!("text.dever:{line}:{column}:")),
+                "{stderr}"
+            );
+        } else {
+            assert!(
+                output.status.success(),
+                "{}",
+                String::from_utf8_lossy(&output.stderr)
+            );
+            assert_eq!(output.stdout, b"true\n");
+        }
+    }
+}