cadmpeg-ir 0.6.1

// SPDX-License-Identifier: Apache-2.0
//! Crate-wide IR tests with no single production owner.

#![allow(clippy::unwrap_used)]
#![allow(clippy::redundant_closure_for_method_calls)]
#![allow(clippy::ignored_unit_patterns)]

use proptest::prelude::{ProptestConfig, Strategy};
use proptest::string::string_regex;
use proptest::{prop_assert, prop_assert_eq, proptest};

use crate::document::CadIr;
use crate::draft::{DraftError, ModelDraft};
use crate::geometry::{Curve, CurveGeometry, SolvedCurveGeometry};
use crate::ids::{BodyId, CurveId, PointId, RegionId, ShellId, VertexId};
use crate::math::Point3;
use crate::provenance::SourceObjectAssociation;
use crate::report::{
    check::{Check, ValidationReport},
    Severity,
};
use crate::topology::{Body, BodyKind, Point, Region, Shell, Vertex};
use crate::validate::validate_neutral;

const SEG: &str = "[a-z][a-z0-9_-]{0,7}";

fn config() -> ProptestConfig {
    ProptestConfig::with_cases(64)
}

fn id_strategy() -> impl Strategy<Value = String> {
    (
        string_regex(SEG).unwrap(),
        string_regex(SEG).unwrap(),
        string_regex(SEG).unwrap(),
        string_regex(SEG).unwrap(),
    )
        .prop_map(|(a, b, c, k)| format!("{a}:{b}:{c}#{k}"))
}

fn free_carrier(object_id: &str) -> SourceObjectAssociation {
    SourceObjectAssociation {
        geometry_role: None,
        format: crate::CodecFormat::Step,
        object_id: cadmpeg_core::text::NonBlankString::new(object_id)
            .expect("nonempty source identity"),
        name: None,
        color: None,
        visible: None,
        layer: None,
        instance_path: Vec::new(),
    }
}

#[test]
fn source_association_is_a_free_carrier_root() {
    let mut ir = CadIr::empty();
    ir.model.curves.push(Curve {
        parameter_range: None,
        id: CurveId::mint("synthetic:source:curve#0").expect("valid identity"),
        geometry: CurveGeometry::Solved(SolvedCurveGeometry::Unknown { record: None }),
        source_object: Some(SourceObjectAssociation {
            geometry_role: None,
            format: crate::CodecFormat::Rhino,
            object_id: cadmpeg_core::text::NonBlankString::new(
                "00000000-0000-0000-0000-000000000000",
            )
            .expect("nonempty source identity"),
            name: Some("curve".into()),
            color: None,
            visible: Some(true),
            layer: Some("layer-0".into()),
            instance_path: Vec::new(),
        }),
    });
    let report = validate_neutral(&ir, Vec::new()).expect("resource allocation did not fail");
    assert!(report.is_ok(), "{:?}", report.findings);
    let parsed = CadIr::from_json(&ir.to_canonical_json().unwrap()).unwrap();
    assert_eq!(parsed, ir);
}

fn point(id: &str) -> Point {
    Point::new(
        PointId::mint(id.to_owned()).expect("valid identity"),
        crate::features::FinitePoint3::new(Point3 {
            x: 0.0,
            y: 0.0,
            z: 0.0,
        })
        .expect("a finite position is a point"),
        // Free points are reachable only via source association (or a vertex).
        Some(free_carrier(id)),
    )
}

fn ir_strategy() -> impl Strategy<Value = CadIr> {
    proptest::collection::btree_set(id_strategy(), 1..=8).prop_map(|ids| {
        let mut ir = CadIr::empty();
        for id in ids {
            ir.model.points.push(point(&id));
        }
        ir.finalize(&cadmpeg_test_support::service_decode_context())
            .expect("fixture ordering is admitted");
        ir
    })
}

fn has_error(report: &ValidationReport, check: Check) -> bool {
    report
        .findings
        .iter()
        .any(|finding| finding.check == check && finding.severity == Severity::Error)
}

fn strip_one_namespace_component(id: &str) -> String {
    let (namespace, key) = id.split_once('#').expect("generated id has key");
    let mut parts = namespace.split(':');
    let a = parts.next().expect("first component");
    let b = parts.next().expect("second component");
    format!("{a}:{b}#{key}")
}

/// Wire body that owns one free vertex so `WireTopology` accepts the vertex.
fn insert_free_vertex_shell(
    draft: &mut ModelDraft,
    point_id: &str,
    vertex_id: &str,
    body_id: &str,
    region_id: &str,
    shell_id: &str,
) {
    draft
        .insert(
            point(point_id),
            &cadmpeg_test_support::service_decode_context(),
        )
        .unwrap();
    draft
        .insert(
            Vertex {
                id: VertexId::mint(vertex_id).expect("valid identity"),
                point: PointId::mint(point_id).expect("valid identity"),
                tolerance: None,
            },
            &cadmpeg_test_support::service_decode_context(),
        )
        .unwrap();
    draft
        .insert(
            Body {
                id: BodyId::mint(body_id).expect("valid identity"),
                kind: BodyKind::Wire,
                regions: vec![RegionId::mint(region_id).expect("valid identity")],
                transform: None,
                name: None,
                color: None,
                visible: None,
            },
            &cadmpeg_test_support::service_decode_context(),
        )
        .unwrap();
    draft
        .insert(
            Region {
                id: RegionId::mint(region_id).expect("valid identity"),
                body: BodyId::mint(body_id).expect("valid identity"),
                shells: vec![ShellId::mint(shell_id).expect("valid identity")],
            },
            &cadmpeg_test_support::service_decode_context(),
        )
        .unwrap();
    draft
        .insert(
            Shell::with_free_vertex(
                ShellId::mint(shell_id).expect("valid identity"),
                RegionId::mint(region_id).expect("valid identity"),
                VertexId::mint(vertex_id).expect("valid identity"),
            ),
            &cadmpeg_test_support::service_decode_context(),
        )
        .unwrap();
}

proptest! {
    #![proptest_config(config())]

    #[test]
    fn generated_documents_validate_clean(ir in ir_strategy()) {
        let report = validate_neutral(&ir, Vec::new()).expect("resource allocation did not fail");
        prop_assert_eq!(
            report.error_count(),
            0,
            "findings: {:?}",
            report.findings
        );
    }

    #[test]
    fn census_matches_arena_lengths(ir in ir_strategy()) {
        let census = ir.census();
        prop_assert_eq!(census["points"], ir.model.points.len());
        let report = validate_neutral(&ir, Vec::new()).expect("resource allocation did not fail");
        prop_assert_eq!(&census, &report.entity_counts);
    }

    #[test]
    fn single_invariant_breaks_are_caught(ir in ir_strategy()) {
        {
            let malformed = strip_one_namespace_component(ir.model.points[0].id.as_str());
            prop_assert!(PointId::mint(malformed.clone()).is_err());
            let wire = serde_json::to_string(&malformed).unwrap();
            prop_assert!(serde_json::from_str::<PointId>(&wire).is_err());
        }

        {
            let mut broken = ir.clone();
            broken.model.points.push(broken.model.points[0].clone());
            let report = validate_neutral(&broken, Vec::new()).expect("resource allocation did not fail");
            prop_assert!(
                has_error(&report, Check::Identity),
                "findings: {:?}",
                report.findings
            );
        }

        if ir.model.points.len() >= 2 {
            let mut broken = ir.clone();
            broken.model.points.swap(0, 1);
            let report = validate_neutral(&broken, Vec::new()).expect("resource allocation did not fail");
            prop_assert!(
                has_error(&report, Check::ArenaOrder),
                "findings: {:?}",
                report.findings
            );
        }

        {
            let mut broken = ir.clone();
            broken.model.vertices.push(Vertex {
                id: "prop:test:vertex#dangling".try_into().expect("valid identity"),
                point: PointId::mint("x:y:z#missing").expect("valid identity"),
                tolerance: None,
            });
            broken.finalize(&cadmpeg_test_support::service_decode_context()).expect("fixture ordering is admitted");
            let report = validate_neutral(&broken, Vec::new()).expect("resource allocation did not fail");
            prop_assert!(
                has_error(&report, Check::ReferentialIntegrity),
                "findings: {:?}",
                report.findings
            );
        }
    }

    #[test]
    fn validation_is_deterministic(ir in ir_strategy()) {
        let a = validate_neutral(&ir, Vec::new()).expect("resource allocation did not fail");
        let b = validate_neutral(&ir, Vec::new()).expect("resource allocation did not fail");
        prop_assert_eq!(a.findings, b.findings);
    }

    #[test]
    fn draft_commit_rejects_dangling_references(
        (point_id, vertex_id, body_id, region_id, shell_id) in (
            id_strategy(),
            id_strategy(),
            id_strategy(),
            id_strategy(),
            id_strategy(),
        )
            .prop_filter("distinct ids", |(p, v, b, r, s)| {
                let ids = [p.as_str(), v.as_str(), b.as_str(), r.as_str(), s.as_str()];
                (0..ids.len()).all(|i| (i + 1..ids.len()).all(|j| ids[i] != ids[j]))
            })
    ) {
        let missing = "x:y:z#missing";
        let mut dangling = ModelDraft::new();
        dangling
            .insert(Vertex {
                id: vertex_id.clone().try_into().expect("valid identity"),
                point: missing.try_into().expect("valid identity"),
                tolerance: None,
            }, &cadmpeg_test_support::service_decode_context())
            .unwrap();
        let mut base = CadIr::empty();
        let dangling_result = dangling.commit_model(&mut base, &cadmpeg_test_support::service_decode_context()).unwrap();
        let is_unresolved = matches!(
            dangling_result,
            Err(DraftError::UnresolvedReference { .. })
        );
        prop_assert!(
            is_unresolved,
            "expected UnresolvedReference, got {:?}",
            dangling_result
        );

        let mut draft = ModelDraft::new();
        insert_free_vertex_shell(
            &mut draft,
            &point_id,
            &vertex_id,
            &body_id,
            &region_id,
            &shell_id,
        );
        let mut base = CadIr::empty();
        draft.commit_model(&mut base, &cadmpeg_test_support::service_decode_context()).unwrap().unwrap();
        base.finalize(&cadmpeg_test_support::service_decode_context()).expect("fixture ordering is admitted");
        let report = validate_neutral(&base, Vec::new()).expect("resource allocation did not fail");
        prop_assert_eq!(
            report.error_count(),
            0,
            "findings: {:?}",
            report.findings
        );
    }
}

mod reports;

mod geometry_admission;

mod features_admission;

mod borrowed_serialization;