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");
        }
    }
}