hecks 3.6.0 → 3.9.0

data/rust/host/src/fuzz_support.rs

@@ -0,0 +1,165 @@
+//! Shared pieces of the boundary fuzz tests that sit beside `api`, `server`, `web`, `auth`,
+//! `expr_json` and `ir`: a seeded generator, a guard that fails on a panic or a hang, and
+//! generators for hostile text and JSON. Std-only, so a failing case is named by its seed alone.
+//!
+//! Run more seeds with `HOST_FUZZ_SEEDS=2000 cargo test fuzz`.
+
+use serde_json::{json, Map, Value};
+use std::sync::mpsc;
+use std::time::Duration;
+
+/// xorshift64*: no dependency, and the seed is the whole reproduction.
+pub(crate) struct Rng(u64);
+
+impl Rng {
+    pub(crate) fn new(seed: u64) -> Self {
+        Rng(seed.wrapping_mul(0x9E37_79B9_7F4A_7C15) | 1)
+    }
+
+    pub(crate) fn next(&mut self) -> u64 {
+        self.0 ^= self.0 >> 12;
+        self.0 ^= self.0 << 25;
+        self.0 ^= self.0 >> 27;
+        self.0.wrapping_mul(0x2545_F491_4F6C_DD1D)
+    }
+
+    pub(crate) fn below(&mut self, n: usize) -> usize {
+        (self.next() % n.max(1) as u64) as usize
+    }
+
+    pub(crate) fn chance(&mut self, one_in: usize) -> bool {
+        self.below(one_in) == 0
+    }
+
+    pub(crate) fn pick<'a, T>(&mut self, items: &'a [T]) -> &'a T {
+        &items[self.below(items.len())]
+    }
+}
+
+/// How many seeds each fuzz test runs.
+pub(crate) fn seeds() -> u64 {
+    std::env::var("HOST_FUZZ_SEEDS").ok().and_then(|v| v.parse().ok()).unwrap_or(200)
+}
+
+/// The most a single guarded case may take before it counts as a hang.
+pub(crate) const LIMIT: Duration = Duration::from_secs(20);
+
+/// Runs `f` on a thread with a 2 MiB stack (a tokio worker's default) and returns its answer.
+/// A panic or a missed `LIMIT` fails the test and names `label`; a stack overflow aborts the
+/// whole binary, which fails it too.
+pub(crate) fn guarded<T: Send + 'static>(label: &str, f: impl FnOnce() -> T + Send + 'static) -> T {
+    let (tx, rx) = mpsc::channel();
+    let handle = std::thread::Builder::new()
+        .stack_size(2 * 1024 * 1024)
+        .spawn(move || {
+            let _ = tx.send(f());
+        })
+        .expect("spawn a guarded thread");
+    match rx.recv_timeout(LIMIT) {
+        Ok(value) => {
+            handle.join().expect("guarded thread joined");
+            value
+        }
+        Err(mpsc::RecvTimeoutError::Timeout) => panic!("{label}: no answer within {LIMIT:?} (hang)"),
+        Err(mpsc::RecvTimeoutError::Disconnected) => {
+            let panic = handle.join().expect_err("a guarded thread that sent nothing must have panicked");
+            let message = panic.downcast_ref::<String>().cloned().or_else(|| panic.downcast_ref::<&str>().map(|s| s.to_string()));
+            panic!("{label}: panicked: {}", message.unwrap_or_default())
+        }
+    }
+}
+
+/// Pieces that break naive text handling: multi-byte characters next to ASCII delimiters (the
+/// shape that slices through a char boundary), control characters, NUL, bidi marks, astral
+/// planes, combining marks, percent signs, and every JSON/URL/cookie delimiter.
+const PIECES: &[&str] = &[
+    "a", "Z", "0", "9", " ", "\"", "'", "\\", "/", "%", "%4", "%41", "%zz", "%+1", "+", "=", "&", ";", "?", "#", ".", "..", "-", "_", ":", ",", "{", "}", "[", "]",
+    "\n", "\t", "\r", "\u{0}", "\u{1f}", "\u{7f}", "é", "ü", "日本", "🍕", "\u{10FFFF}", "\u{200B}", "\u{FEFF}", "\u{202E}", "\u{FFFD}", "e\u{301}", "__", "::",
+    "<script>", "../", "%0d%0a", "id", "name", "value", "sort", "direction", "desc",
+];
+
+pub(crate) fn random_text(rng: &mut Rng) -> String {
+    (0..rng.below(10)).map(|_| *rng.pick(PIECES)).collect()
+}
+
+/// Edge-case numbers a JSON consumer is likely to mishandle, as JSON values.
+pub(crate) fn edge_number(rng: &mut Rng) -> Value {
+    let edges: Vec<Value> = vec![
+        json!(0),
+        json!(-1),
+        json!(1),
+        json!(i64::MAX),
+        json!(i64::MIN),
+        json!(u64::MAX),
+        json!(0.0),
+        json!(-0.0),
+        json!(0.1),
+        json!(1e308),
+        json!(-1e308),
+        json!(5e-324),
+        json!(1.7976931348623157e308),
+        json!(9007199254740993_i64),
+    ];
+    rng.pick(&edges).clone()
+}
+
+/// A JSON value of any shape, to a bounded depth, favoring the wrong type for whatever reads it.
+pub(crate) fn random_value(rng: &mut Rng, depth: usize) -> Value {
+    let leaf_only = depth >= 3;
+    match rng.below(if leaf_only { 6 } else { 8 }) {
+        0 => Value::Null,
+        1 => Value::Bool(rng.chance(2)),
+        2 => edge_number(rng),
+        3 | 4 => Value::String(random_text(rng)),
+        5 => json!(rng.next() as i64 >> rng.below(63)),
+        6 => Value::Array((0..rng.below(4)).map(|_| random_value(rng, depth + 1)).collect()),
+        _ => {
+            let mut map = Map::new();
+            for _ in 0..rng.below(4) {
+                map.insert(random_text(rng), random_value(rng, depth + 1));
+            }
+            Value::Object(map)
+        }
+    }
+}
+
+/// `text` with a few random edits, on char boundaries.
+pub(crate) fn mutate_text(rng: &mut Rng, text: &str) -> String {
+    let mut chars: Vec<char> = text.chars().collect();
+    const JUNK: &[char] = &['{', '}', '[', ']', '"', '\\', ',', ':', '-', '+', '.', 'e', '0', '9', 'n', 't', ' ', '\u{0}', '\n', '%', 'é', '🍕'];
+    for _ in 0..1 + rng.below(3) {
+        if chars.is_empty() {
+            chars.push(*rng.pick(JUNK));
+            continue;
+        }
+        let at = rng.below(chars.len());
+        match rng.below(4) {
+            0 => {
+                chars.remove(at);
+            }
+            1 => chars.insert(at, *rng.pick(JUNK)),
+            2 => chars[at] = *rng.pick(JUNK),
+            _ => chars.truncate(at),
+        }
+    }
+    chars.into_iter().collect()
+}
+
+/// Raw bytes, valid UTF-8 or not: random, mutated JSON, truncated mid-character, or hostile.
+pub(crate) fn random_bytes(rng: &mut Rng) -> Vec<u8> {
+    match rng.below(6) {
+        0 => (0..rng.below(64)).map(|_| rng.next() as u8).collect(),
+        1 => {
+            let valid = random_value(rng, 0).to_string();
+            mutate_text(rng, &valid).into_bytes()
+        }
+        2 => {
+            let mut bytes = random_value(rng, 0).to_string().into_bytes();
+            bytes.extend_from_slice(&[0xff, 0xfe, 0xc0, 0x80, 0xf0, 0x9f]);
+            bytes
+        }
+        3 => "{\"a\":\"🍕\"}".as_bytes()[..rng.below(10)].to_vec(),
+        4 => random_text(rng).into_bytes(),
+        _ => random_value(rng, 0).to_string().into_bytes(),
+    }
+}

data/rust/host/src/ir.rs

@@ -132,300 +132,6 @@ pub fn identity_provider(domain_ir: &Value) -> Option<IdentityProvider> {
     })
 }
 
-/// The chapter that answers the guest newsletter signup, read from
-/// `ir.json`'s own `newsletter` key. `None` when nothing provides it.
-#[derive(Debug, Clone, PartialEq)]
-pub struct NewsletterProvider {
-    /// Chapter name, e.g. `Newsletter`.
-    pub provider: String,
-    /// Qualified subscribe command, e.g. `Newsletter::Subscriber.Subscribe`.
-    pub subscribe: String,
-    /// Qualified add-name command, e.g. `Newsletter::Subscriber.AddName`.
-    pub add_name: String,
-    /// Qualified confirm command, e.g. `Newsletter::Subscriber.Confirm`.
-    pub confirm: String,
-    /// Qualified unsubscribe command, e.g. `Newsletter::Subscriber.Unsubscribe`.
-    pub unsubscribe: String,
-    /// Qualified subscribing aggregate, e.g. `Newsletter::Subscriber`.
-    pub aggregate: String,
-}
-
-impl NewsletterProvider {
-    /// The prefix every subscriber's key in a `dispatch::read` `instances`
-    /// map starts with, e.g. `Newsletter::Subscriber#`.
-    pub fn instance_prefix(&self) -> String {
-        format!("{}#", self.aggregate)
-    }
-}
-
-/// Whether the domain's own `aggregate`'s `command` declares an argument
-/// named `field` — so a route only sends an argument the command declares.
-pub fn command_declares(domain_ir: &Value, aggregate: &str, command: &str, field: &str) -> bool {
-    let named = |value: &Value, name: &str| value.get("name").and_then(|n| n.as_str()) == Some(name);
-    let Some(aggregates) = domain_ir.get("aggregates").and_then(|a| a.as_array()) else {
-        return false;
-    };
-    aggregates
-        .iter()
-        .filter(|a| named(a, aggregate))
-        .filter_map(|a| a.get("commands").and_then(|c| c.as_array()))
-        .flatten()
-        .filter(|c| named(c, command))
-        .filter_map(|c| c.get("attributes").and_then(|a| a.as_array()))
-        .flatten()
-        .any(|attribute| named(attribute, field))
-}
-
-pub fn newsletter_provider(domain_ir: &Value) -> Option<NewsletterProvider> {
-    let fact = domain_ir.get("newsletter")?;
-    Some(NewsletterProvider {
-        provider: fact.get("provider")?.as_str()?.to_string(),
-        subscribe: fact.get("subscribe")?.as_str()?.to_string(),
-        add_name: fact.get("add_name")?.as_str()?.to_string(),
-        confirm: fact.get("confirm")?.as_str()?.to_string(),
-        unsubscribe: fact.get("unsubscribe")?.as_str()?.to_string(),
-        aggregate: fact.get("aggregate")?.as_str()?.to_string(),
-    })
-}
-
-/// The chapter that declares `provides "newsletter_issues"`, read from
-/// `ir.json`'s own `newsletter_issues` key. Omitted when nothing declares it.
-#[derive(Debug, Clone, PartialEq)]
-pub struct NewsletterIssuesProvider {
-    /// Qualified send command, e.g. `Newsletter::Issue.Send`.
-    pub send_issue: String,
-    /// Qualified delivery-record command, e.g. `Newsletter::Delivery.Record`.
-    pub record_delivery: String,
-    /// Qualified issue aggregate, e.g. `Newsletter::Issue`.
-    pub issue_aggregate: String,
-}
-
-impl NewsletterIssuesProvider {
-    /// The prefix every issue's key in a `dispatch::read` `instances` map
-    /// starts with, e.g. `Newsletter::Issue#`.
-    pub fn issue_prefix(&self) -> String {
-        format!("{}#", self.issue_aggregate)
-    }
-}
-
-/// The declared issue-sending verbs, or `None` when the IR has no
-/// `newsletter_issues` key.
-pub fn newsletter_issues_provider(domain_ir: &Value) -> Option<NewsletterIssuesProvider> {
-    let fact = domain_ir.get("newsletter_issues")?;
-    Some(NewsletterIssuesProvider {
-        send_issue: fact.get("send_issue")?.as_str()?.to_string(),
-        record_delivery: fact.get("record_delivery")?.as_str()?.to_string(),
-        issue_aggregate: fact.get("issue_aggregate")?.as_str()?.to_string(),
-    })
-}
-
-
-/// The chapter that takes payments, read from `ir.json`'s own `payments`
-/// key. `None` when nothing provides it.
-#[derive(Debug, Clone, PartialEq)]
-pub struct PaymentsProvider {
-    /// Chapter name, e.g. `Payments`.
-    pub provider: String,
-    /// Qualified initiate command, e.g. `Payments::Payment.Initiate`.
-    pub initiate: String,
-    /// Qualified port operation the processor's success report dispatches,
-    /// e.g. `Payments::Payment.PaymentGateway.Succeeded`.
-    pub succeeded: String,
-    /// Qualified port operation the processor's failure report dispatches,
-    /// e.g. `Payments::Payment.PaymentGateway.Failed`.
-    pub failed: String,
-    /// Qualified paying aggregate, e.g. `Payments::Payment`.
-    pub aggregate: String,
-}
-
-impl PaymentsProvider {
-    /// The prefix every payment's key in a `dispatch::read` `instances` map
-    /// starts with, e.g. `Payments::Payment#`.
-    pub fn instance_prefix(&self) -> String {
-        format!("{}#", self.aggregate)
-    }
-}
-
-pub fn payments_provider(domain_ir: &Value) -> Option<PaymentsProvider> {
-    let fact = domain_ir.get("payments")?;
-    Some(PaymentsProvider {
-        provider: fact.get("provider")?.as_str()?.to_string(),
-        initiate: fact.get("initiate")?.as_str()?.to_string(),
-        succeeded: fact.get("succeeded")?.as_str()?.to_string(),
-        failed: fact.get("failed")?.as_str()?.to_string(),
-        aggregate: fact.get("aggregate")?.as_str()?.to_string(),
-    })
-}
-
-/// The chapter that answers scheduling sessions and taking registrations,
-/// read from `ir.json`'s own `registrations` key. `None` when nothing provides it.
-#[derive(Debug, Clone, PartialEq)]
-pub struct RegistrationsProvider {
-    /// Chapter name, e.g. `Studio`.
-    pub provider: String,
-    /// Qualified schedule command, e.g. `Studio::Event.Schedule`.
-    pub schedule: String,
-    /// Qualified request command, e.g. `Studio::Registration.Request`.
-    pub request: String,
-    /// Qualified event aggregate, e.g. `Studio::Event`.
-    pub event_aggregate: String,
-    /// Qualified registration aggregate, e.g. `Studio::Registration`.
-    pub registration_aggregate: String,
-}
-
-impl RegistrationsProvider {
-    /// The conventional names for a domain that declares no
-    /// `provides "registrations"` — `Event`/`Registration` under the domain itself.
-    pub fn conventional(domain: &str) -> Self {
-        Self {
-            provider: domain.to_string(),
-            schedule: format!("{domain}::Event.Schedule"),
-            request: format!("{domain}::Registration.Request"),
-            event_aggregate: format!("{domain}::Event"),
-            registration_aggregate: format!("{domain}::Registration"),
-        }
-    }
-
-    /// The prefix every event's key in a `dispatch::read` `instances` map
-    /// starts with, e.g. `Studio::Event#`.
-    pub fn event_prefix(&self) -> String {
-        format!("{}#", self.event_aggregate)
-    }
-
-    /// The prefix every registration's key starts with, e.g.
-    /// `Studio::Registration#`.
-    pub fn registration_prefix(&self) -> String {
-        format!("{}#", self.registration_aggregate)
-    }
-
-    /// The request command's own aggregate and command name without the
-    /// chapter qualifier, e.g. `("Registration", "Request")`, as `command_declares` expects.
-    pub fn request_target(&self) -> Option<(&str, &str)> {
-        self.request.rsplit("::").next()?.split_once('.')
-    }
-}
-
-pub fn registrations_provider(domain_ir: &Value) -> Option<RegistrationsProvider> {
-    let fact = domain_ir.get("registrations")?;
-    Some(RegistrationsProvider {
-        provider: fact.get("provider")?.as_str()?.to_string(),
-        schedule: fact.get("schedule")?.as_str()?.to_string(),
-        request: fact.get("request")?.as_str()?.to_string(),
-        event_aggregate: fact.get("event_aggregate")?.as_str()?.to_string(),
-        registration_aggregate: fact.get("registration_aggregate")?.as_str()?.to_string(),
-    })
-}
-
-/// The registrations binding of the IR this host loaded, or the
-/// conventional names for `domain` when the IR declares none.
-pub fn registrations_binding(domain: &str) -> RegistrationsProvider {
-    ir().and_then(registrations_provider).unwrap_or_else(|| RegistrationsProvider::conventional(domain))
-}
-
-/// One command of the payment-processor connection, by the role it plays —
-/// resolved through `PaymentConnectionProvider::verb`.
-#[derive(Debug, Clone, Copy, PartialEq, Eq)]
-pub enum ConnectionVerb {
-    Connect,
-    Reconnect,
-    Disconnect,
-    Suspend,
-    Resume,
-    Enable,
-    Disable,
-}
-
-/// The chapter that owns the business's payment-processor connection, read
-/// from `ir.json`'s own `payment_connection` key. `None` when nothing provides it.
-#[derive(Debug, Clone, PartialEq)]
-pub struct PaymentConnectionProvider {
-    /// Chapter name, e.g. `Studio`.
-    pub provider: String,
-    pub connect: String,
-    pub reconnect: String,
-    pub disconnect: String,
-    pub suspend: String,
-    pub resume: String,
-    pub enable: String,
-    pub disable: String,
-    /// Qualified connection aggregate, e.g. `Studio::PaymentConnection`.
-    pub aggregate: String,
-}
-
-impl PaymentConnectionProvider {
-    /// The conventional names for a domain that declares no
-    /// `provides "payment_connection"` — `PaymentConnection` under the domain itself.
-    pub fn conventional(domain: &str) -> Self {
-        let qualified = |command: &str| format!("{domain}::PaymentConnection.{command}");
-        Self {
-            provider: domain.to_string(),
-            connect: qualified("Connect"),
-            reconnect: qualified("Reconnect"),
-            disconnect: qualified("Disconnect"),
-            suspend: qualified("Suspend"),
-            resume: qualified("Resume"),
-            enable: qualified("EnablePayments"),
-            disable: qualified("DisablePayments"),
-            aggregate: format!("{domain}::PaymentConnection"),
-        }
-    }
-
-    /// The prefix every connection's key in a `dispatch::read` `instances`
-    /// map starts with, e.g. `Studio::PaymentConnection#`.
-    pub fn instance_prefix(&self) -> String {
-        format!("{}#", self.aggregate)
-    }
-
-    /// The qualified command that plays `which`.
-    pub fn verb(&self, which: ConnectionVerb) -> &str {
-        match which {
-            ConnectionVerb::Connect => &self.connect,
-            ConnectionVerb::Reconnect => &self.reconnect,
-            ConnectionVerb::Disconnect => &self.disconnect,
-            ConnectionVerb::Suspend => &self.suspend,
-            ConnectionVerb::Resume => &self.resume,
-            ConnectionVerb::Enable => &self.enable,
-            ConnectionVerb::Disable => &self.disable,
-        }
-    }
-}
-
-pub fn payment_connection_provider(domain_ir: &Value) -> Option<PaymentConnectionProvider> {
-    let fact = domain_ir.get("payment_connection")?;
-    let text = |key: &str| Some(fact.get(key)?.as_str()?.to_string());
-    Some(PaymentConnectionProvider {
-        provider: text("provider")?,
-        connect: text("connect")?,
-        reconnect: text("reconnect")?,
-        disconnect: text("disconnect")?,
-        suspend: text("suspend")?,
-        resume: text("resume")?,
-        enable: text("enable")?,
-        disable: text("disable")?,
-        aggregate: text("aggregate")?,
-    })
-}
-
-/// The payment-connection binding of the IR this host loaded, or the
-/// conventional names for `domain` when the IR declares none.
-pub fn payment_connection_binding(domain: &str) -> PaymentConnectionProvider {
-    ir().and_then(payment_connection_provider).unwrap_or_else(|| PaymentConnectionProvider::conventional(domain))
-}
-
-/// The checkout fixture's own payments binding, read from its committed
-/// `ir.json` — what the checkout routes' tests dispatch against.
-#[cfg(test)]
-pub fn fixture_ir() -> Value {
-    let path = std::path::Path::new(env!("CARGO_MANIFEST_DIR")).join("../src/generated/checkout_fixture/ir.json");
-    serde_json::from_str(&std::fs::read_to_string(path).expect("checkout_fixture ir.json")).expect("valid json")
-}
-
-/// The checkout fixture's own payments binding.
-#[cfg(test)]
-pub fn fixture_payments() -> PaymentsProvider {
-    payments_provider(&fixture_ir()).expect("the checkout fixture provides payments")
-}
-
 /// Refuses at boot rather than silently building a second, disjoint history
 /// nothing but this runtime reads while the real state lives elsewhere.
 pub fn refuse_unsupported_persistence_adapters(domain_ir: &Value) -> Result<(), String> {
@@ -570,160 +276,6 @@ mod tests {
         assert!(identity_provider(&serde_json::json!({ "name": "Pizzas" })).is_none());
     }
 
-    #[test]
-    fn newsletter_provider_reads_the_declared_capability() {
-        let ir = serde_json::json!({
-            "name": "Studio",
-            "newsletter": {
-                "provider": "Newsletter",
-                "subscribe": "Newsletter::Subscriber.Subscribe",
-                "add_name": "Newsletter::Subscriber.AddName",
-                "confirm": "Newsletter::Subscriber.Confirm",
-                "unsubscribe": "Newsletter::Subscriber.Unsubscribe",
-                "aggregate": "Newsletter::Subscriber"
-            }
-        });
-        let provider = newsletter_provider(&ir).expect("should find newsletter");
-        assert_eq!(provider.provider, "Newsletter");
-        assert_eq!(provider.subscribe, "Newsletter::Subscriber.Subscribe");
-        assert_eq!(provider.add_name, "Newsletter::Subscriber.AddName");
-        assert_eq!(provider.confirm, "Newsletter::Subscriber.Confirm");
-        assert_eq!(provider.unsubscribe, "Newsletter::Subscriber.Unsubscribe");
-        assert_eq!(provider.instance_prefix(), "Newsletter::Subscriber#");
-        assert!(newsletter_provider(&serde_json::json!({ "name": "Pizzas" })).is_none());
-    }
-
-    #[test]
-    fn newsletter_issues_provider_reads_the_declared_capability() {
-        let ir = serde_json::json!({
-            "name": "Studio",
-            "newsletter_issues": {
-                "provider": "Newsletter",
-                "send_issue": "Newsletter::Issue.Send",
-                "record_delivery": "Newsletter::Delivery.Record",
-                "issue_aggregate": "Newsletter::Issue",
-                "delivery_aggregate": "Newsletter::Delivery"
-            }
-        });
-        let provider = newsletter_issues_provider(&ir).expect("should find newsletter_issues");
-        assert_eq!(provider.send_issue, "Newsletter::Issue.Send");
-        assert_eq!(provider.record_delivery, "Newsletter::Delivery.Record");
-        assert_eq!(provider.issue_prefix(), "Newsletter::Issue#");
-        assert!(newsletter_issues_provider(&serde_json::json!({ "name": "Pizzas" })).is_none());
-    }
-
-    #[test]
-    fn payments_provider_reads_the_declared_capability() {
-        let ir = serde_json::json!({
-            "name": "Studio",
-            "payments": {
-                "provider": "Payments",
-                "initiate": "Payments::Payment.Initiate",
-                "succeeded": "Payments::Payment.PaymentGateway.Succeeded",
-                "failed": "Payments::Payment.PaymentGateway.Failed",
-                "aggregate": "Payments::Payment"
-            }
-        });
-        let provider = payments_provider(&ir).expect("should find payments");
-        assert_eq!(provider.provider, "Payments");
-        assert_eq!(provider.initiate, "Payments::Payment.Initiate");
-        assert_eq!(provider.succeeded, "Payments::Payment.PaymentGateway.Succeeded");
-        assert_eq!(provider.failed, "Payments::Payment.PaymentGateway.Failed");
-        assert_eq!(provider.instance_prefix(), "Payments::Payment#");
-        assert!(payments_provider(&serde_json::json!({ "name": "Pizzas" })).is_none());
-    }
-
-    #[test]
-    fn registrations_provider_reads_the_declared_capability() {
-        let provider = registrations_provider(&fixture_ir()).expect("the checkout fixture provides registrations");
-        assert_eq!(provider.schedule, "CheckoutFixture::Event.Schedule");
-        assert_eq!(provider.request, "CheckoutFixture::Registration.Request");
-        assert_eq!(provider.event_prefix(), "CheckoutFixture::Event#");
-        assert_eq!(provider.registration_prefix(), "CheckoutFixture::Registration#");
-        assert_eq!(provider.request_target(), Some(("Registration", "Request")));
-    }
-
-    #[test]
-    fn the_conventional_registrations_names_match_what_the_fixture_declares() {
-        assert_eq!(registrations_provider(&fixture_ir()), Some(RegistrationsProvider::conventional("CheckoutFixture")));
-    }
-
-    #[test]
-    fn a_declared_registrations_binding_names_whatever_the_chapter_calls_things() {
-        let ir = serde_json::json!({"registrations": {
-            "provider": "Bookings",
-            "schedule": "Bookings::Session.Plan",
-            "request": "Bookings::Seat.Claim",
-            "event_aggregate": "Bookings::Session",
-            "registration_aggregate": "Bookings::Seat"
-        }});
-        let provider = registrations_provider(&ir).expect("declared");
-        assert_eq!(provider.event_prefix(), "Bookings::Session#");
-        assert_eq!(provider.registration_prefix(), "Bookings::Seat#");
-        assert_eq!(provider.request_target(), Some(("Seat", "Claim")));
-    }
-
-    #[test]
-    fn registrations_provider_is_none_without_the_key() {
-        assert_eq!(registrations_provider(&serde_json::json!({"name": "Pizzas"})), None);
-    }
-
-    #[test]
-    fn registrations_binding_falls_back_to_the_conventional_names_when_no_ir_is_loaded() {
-        assert_eq!(registrations_binding("Shop"), RegistrationsProvider::conventional("Shop"));
-    }
-
-    #[test]
-    fn payment_connection_provider_reads_the_declared_capability() {
-        let provider = payment_connection_provider(&fixture_ir()).expect("the checkout fixture provides payment_connection");
-        assert_eq!(provider.verb(ConnectionVerb::Connect), "CheckoutFixture::PaymentConnection.Connect");
-        assert_eq!(provider.verb(ConnectionVerb::Enable), "CheckoutFixture::PaymentConnection.EnablePayments");
-        assert_eq!(provider.verb(ConnectionVerb::Disable), "CheckoutFixture::PaymentConnection.DisablePayments");
-        assert_eq!(provider.instance_prefix(), "CheckoutFixture::PaymentConnection#");
-    }
-
-    #[test]
-    fn the_conventional_payment_connection_names_match_what_the_fixture_declares() {
-        assert_eq!(payment_connection_provider(&fixture_ir()), Some(PaymentConnectionProvider::conventional("CheckoutFixture")));
-    }
-
-    #[test]
-    fn a_declared_payment_connection_binding_names_whatever_the_chapter_calls_things() {
-        let ir = serde_json::json!({"payment_connection": {
-            "provider": "Billing",
-            "connect": "Billing::Link.Open", "reconnect": "Billing::Link.Reopen",
-            "disconnect": "Billing::Link.Close", "suspend": "Billing::Link.Pause",
-            "resume": "Billing::Link.Unpause", "enable": "Billing::Link.TurnOn",
-            "disable": "Billing::Link.TurnOff", "aggregate": "Billing::Link"
-        }});
-        let provider = payment_connection_provider(&ir).expect("declared");
-        assert_eq!(provider.verb(ConnectionVerb::Suspend), "Billing::Link.Pause");
-        assert_eq!(provider.verb(ConnectionVerb::Resume), "Billing::Link.Unpause");
-        assert_eq!(provider.instance_prefix(), "Billing::Link#");
-    }
-
-    #[test]
-    fn payment_connection_binding_falls_back_to_the_conventional_names_when_no_ir_is_loaded() {
-        assert_eq!(payment_connection_binding("Shop"), PaymentConnectionProvider::conventional("Shop"));
-    }
-
-    #[test]
-    fn command_declares_finds_an_argument_on_the_named_command_only() {
-        let ir = serde_json::json!({
-            "aggregates": [
-                {"name": "Registration", "commands": [
-                    {"name": "Request", "attributes": [{"name": "email"}, {"name": "news_signup"}]},
-                    {"name": "Cancel", "attributes": [{"name": "reason"}]}
-                ]},
-                {"name": "Event", "commands": [{"name": "Request", "attributes": [{"name": "slug"}]}]}
-            ]
-        });
-        assert!(command_declares(&ir, "Registration", "Request", "news_signup"));
-        assert!(!command_declares(&ir, "Registration", "Cancel", "news_signup"));
-        assert!(!command_declares(&ir, "Event", "Request", "news_signup"));
-        assert!(!command_declares(&ir, "Registration", "Request", "phone"));
-        assert!(!command_declares(&serde_json::json!({"name": "Pizzas"}), "Registration", "Request", "news_signup"));
-    }
 
     #[test]
     fn refuse_unsupported_persistence_adapters_passes_a_domain_with_no_persistence_key() {
@@ -731,3 +283,7 @@ mod tests {
         assert!(refuse_unsupported_persistence_adapters(&ir).is_ok());
     }
 }
+
+#[cfg(test)]
+#[path = "boundary_fuzz/ir.rs"]
+mod boundary_fuzz;

data/rust/host/src/journal.rs

@@ -334,7 +334,7 @@ fn storage_name(qualified_aggregate: &str) -> String {
 
 /// Quotes a Postgres identifier `PG::Connection.quote_ident`-style —
 /// needed since table names can't be bound as query parameters.
-pub(crate) fn quote_ident(name: &str) -> String {
+pub fn quote_ident(name: &str) -> String {
     format!("\"{}\"", name.replace('"', "\"\""))
 }
 

data/rust/host/src/lib.rs

@@ -0,0 +1,39 @@
+//! The host as a library: the modules the `bootstrap` binary boots, plus the harness binaries' shared code.
+//! Commerce (payments, checkout, newsletter, registrations, mail) plugs in through [`extension::HostExtension`].
+
+pub mod api;
+pub mod approval;
+pub mod auth;
+pub mod checkout;
+pub mod commerce_ir;
+pub mod dispatch;
+pub mod expr_json;
+pub mod extension;
+pub mod field_hints;
+#[cfg(test)]
+pub mod fuzz_support;
+#[cfg(test)]
+#[path = "boundary_fuzz/expr_json.rs"]
+pub mod expr_json_fuzz;
+pub mod ir;
+pub mod journal;
+pub mod lambda_client;
+pub mod log;
+pub mod mint;
+pub mod needs;
+pub mod payments;
+pub mod presentation;
+pub mod presentation_write;
+pub mod query_step;
+pub mod rate_limit;
+pub mod reference_transform;
+pub mod reference_validate;
+pub mod resend;
+pub mod secrets;
+pub mod server;
+pub mod storage_shape;
+#[cfg(test)]
+pub mod test_pg;
+pub mod ui_schema;
+pub mod wasm_runner;
+pub mod web;