iter ct.1.7: on-disk fixture tests for canonical-form diagnostics

2026-05-11 01:46:58 +02:00
parent 727d2c13ec
commit f22f88b547
4 changed files with 106 additions and 0 deletions
@@ -2557,4 +2557,54 @@ mod tests {
            other => panic!("expected QualifiedClassName, got {other:?}"),
        }
    }
+
+    /// ct.1: on-disk fixture for `BareCrossModuleTypeRef`. Bare
+    /// `Ordering` Term::Ctor with no imports; the validator catches it
+    /// after prelude injection (so the candidate list contains
+    /// `prelude.Ordering`).
+    #[test]
+    fn ct1_fixture_bare_xmod_rejected() {
+        let entry = examples_dir().join("test_ct1_bare_xmod_rejected.ail.json");
+        let err = load_workspace(&entry).expect_err("must reject bare Ordering");
+        match err {
+            WorkspaceLoadError::BareCrossModuleTypeRef { module, name, candidates } => {
+                assert_eq!(module, "test_ct1_bare_xmod_rejected");
+                assert_eq!(name, "Ordering");
+                assert_eq!(candidates, vec!["prelude.Ordering".to_string()]);
+            }
+            other => panic!("expected BareCrossModuleTypeRef, got {other:?}"),
+        }
+    }
+
+    /// ct.1: on-disk fixture for `BadCrossModuleTypeRef`. Qualified
+    /// `Mystery.Type` with `Mystery` not a known module.
+    #[test]
+    fn ct1_fixture_bad_qualifier() {
+        let entry = examples_dir().join("test_ct1_bad_qualifier.ail.json");
+        let err = load_workspace(&entry).expect_err("must reject Mystery.Type");
+        match err {
+            WorkspaceLoadError::BadCrossModuleTypeRef { module, name } => {
+                assert_eq!(module, "test_ct1_bad_qualifier");
+                assert_eq!(name, "Mystery.Type");
+            }
+            other => panic!("expected BadCrossModuleTypeRef, got {other:?}"),
+        }
+    }
+
+    /// ct.1: on-disk fixture for `QualifiedClassName`. Qualified
+    /// `prelude.Eq` in an `InstanceDef.class` field — the schema
+    /// rejects this so half-migrated files cannot silently load.
+    #[test]
+    fn ct1_fixture_qualified_class_rejected() {
+        let entry = examples_dir().join("test_ct1_qualified_class_rejected.ail.json");
+        let err = load_workspace(&entry).expect_err("must reject prelude.Eq");
+        match err {
+            WorkspaceLoadError::QualifiedClassName { module, name, field } => {
+                assert_eq!(module, "test_ct1_qualified_class_rejected");
+                assert_eq!(name, "prelude.Eq");
+                assert_eq!(field, "InstanceDef.class");
+            }
+            other => panic!("expected QualifiedClassName, got {other:?}"),
+        }
+    }
 }