test: quint spec for stf

crates/app/sdk/extensions/token/src/lib.rs

@@ -1,4 +1,5 @@
 use evolve_core::account_impl;
+pub mod generated;
 
 #[account_impl(Token)]
 pub mod account {
@@ -177,7 +178,6 @@
     use crate::account::Token;
     // The generated account struct
     use crate::account::{ERR_NOT_ENOUGH_BALANCE, ERR_UNDERFLOW};
-
     use evolve_testing::MockEnv;
 
     /// Helper to initialize a `Token` with some default data.

crates/app/stf/Cargo.toml

@@ -17,6 +17,8 @@ linkme = {version = "0.3", default-features = false, optional = true}
 
 [dev-dependencies]
 proptest = "1.4"
+serde = { version = "1", features = ["derive"] }
+serde_json = "1"
 
 [lints]
 workspace = true

crates/app/stf/tests/quint_call_depth_conformance.rs

@@ -0,0 +1,274 @@
+//! Conformance tests: replay Quint ITF traces for stf_call_depth.qnt.
+//!
+//! Run:
+//! `quint test specs/stf_call_depth.qnt --out-itf "specs/traces/out_{test}_{seq}.itf.json"`
+//! `cargo test -p evolve_stf --test quint_call_depth_conformance`
+
+use borsh::{BorshDeserialize, BorshSerialize};
+use evolve_core::{
+    AccountCode, AccountId, BlockContext, Environment, EnvironmentQuery, FungibleAsset,
+    InvokableMessage, InvokeRequest, InvokeResponse, Message, SdkResult,
+};
+use evolve_stf::gas::StorageGasConfig;
+use evolve_stf::Stf;
+use evolve_stf_traits::{Block as BlockTrait, PostTxExecution, Transaction, TxValidator};
+use serde::Deserialize;
+use std::path::Path;
+
+mod quint_common;
+use quint_common::{
+    account_code_key, find_single_trace_file, read_itf_trace, CodeStore, InMemoryStorage,
+    ItfBigInt, NoopBegin, NoopEnd,
+};
+
+#[derive(Deserialize)]
+struct ItfTrace {
+    states: Vec<ItfState>,
+}
+
+#[derive(Deserialize)]
+struct ItfState {
+    last_result: ItfTxResult,
+}
+
+#[derive(Deserialize)]
+struct ItfTxResult {
+    result: ItfResult,
+}
+
+#[derive(Deserialize)]
+struct ItfResult {
+    ok: bool,
+    err_code: ItfBigInt,
+}
+
+#[derive(Clone, Debug, BorshSerialize, BorshDeserialize)]
+struct RecurseMsg {
+    remaining: u16,
+}
+
+impl InvokableMessage for RecurseMsg {
+    const FUNCTION_IDENTIFIER: u64 = 1;
+    const FUNCTION_IDENTIFIER_NAME: &'static str = "recurse";
+}
+
+#[derive(Clone, Debug)]
+struct TestTx {
+    sender: AccountId,
+    recipient: AccountId,
+    request: InvokeRequest,
+    gas_limit: u64,
+    funds: Vec<FungibleAsset>,
+}
+
+impl Transaction for TestTx {
+    fn sender(&self) -> AccountId {
+        self.sender
+    }
+    fn recipient(&self) -> AccountId {
+        self.recipient
+    }
+    fn request(&self) -> &InvokeRequest {
+        &self.request
+    }
+    fn gas_limit(&self) -> u64 {
+        self.gas_limit
+    }
+    fn funds(&self) -> &[FungibleAsset] {
+        &self.funds
+    }
+    fn compute_identifier(&self) -> [u8; 32] {
+        [0u8; 32]
+    }
+}
+
+#[derive(Clone)]
+struct TestBlock {
+    height: u64,
+    time: u64,
+    txs: Vec<TestTx>,
+}
+
+impl BlockTrait<TestTx> for TestBlock {
+    fn context(&self) -> BlockContext {
+        BlockContext::new(self.height, self.time)
+    }
+    fn txs(&self) -> &[TestTx] {
+        &self.txs
+    }
+    fn gas_limit(&self) -> u64 {
+        1_000_000
+    }
+}
+
+#[derive(Default)]
+struct NoopValidator;
+impl TxValidator<TestTx> for NoopValidator {
+    fn validate_tx(&self, _tx: &TestTx, _env: &mut dyn Environment) -> SdkResult<()> {
+        Ok(())
+    }
+}
+
+#[derive(Default)]
+struct NoopPostTx;
+impl PostTxExecution<TestTx> for NoopPostTx {
+    fn after_tx_executed(
+        _tx: &TestTx,
+        _gas_consumed: u64,
+        _tx_result: &SdkResult<InvokeResponse>,
+        _env: &mut dyn Environment,
+    ) -> SdkResult<()> {
+        Ok(())
+    }
+}
+
+#[derive(Default)]
+struct RecursiveAccount;
+
+impl AccountCode for RecursiveAccount {
+    fn identifier(&self) -> String {
+        "recursive".to_string()
+    }
+    fn schema(&self) -> evolve_core::schema::AccountSchema {
+        evolve_core::schema::AccountSchema::new("RecursiveAccount", "recursive")
+    }
+    fn init(
+        &self,
+        _env: &mut dyn Environment,
+        _request: &InvokeRequest,
+    ) -> SdkResult<InvokeResponse> {
+        InvokeResponse::new(&())
+    }
+    fn execute(
+        &self,
+        env: &mut dyn Environment,
+        request: &InvokeRequest,
+    ) -> SdkResult<InvokeResponse> {
+        let msg: RecurseMsg = request.get()?;
+        if msg.remaining == 0 {
+            return InvokeResponse::new(&());
+        }
+        let next = RecurseMsg {
+            remaining: msg.remaining - 1,
+        };
+        env.do_exec(env.whoami(), &InvokeRequest::new(&next)?, vec![])?;
+        InvokeResponse::new(&())
+    }
+    fn query(
+        &self,
+        _env: &mut dyn EnvironmentQuery,
+        _request: &InvokeRequest,
+    ) -> SdkResult<InvokeResponse> {
+        InvokeResponse::new(&())
+    }
+}
+
+const SPEC_ERR_CALL_DEPTH: i64 = 0x14;
+const RECURSIVE_ACCOUNT: u128 = 100;
+const TEST_SENDER: u128 = 200;
+
+struct ConformanceCase {
+    test_name: &'static str,
+    requested_depth: u16,
+}
+
+fn known_test_cases() -> Vec<ConformanceCase> {
+    vec![
+        ConformanceCase {
+            test_name: "callDepthBelowLimitSucceedsTest",
+            requested_depth: 63,
+        },
+        ConformanceCase {
+            test_name: "callDepthAtLimitFailsTest",
+            requested_depth: 64,
+        },
+    ]
+}
+
+#[test]
+fn quint_itf_call_depth_conformance() {
+    let traces_dir = Path::new(env!("CARGO_MANIFEST_DIR")).join("../../../specs/traces");
+    if !traces_dir.exists() {
+        panic!(
+            "ITF traces not found at {}. Run: quint test specs/stf_call_depth.qnt --out-itf \"specs/traces/out_{{test}}_{{seq}}.itf.json\"",
+            traces_dir.display()
+        );
+    }
+
+    let test_cases = known_test_cases();
+    for case in &test_cases {
+        let trace_file = find_single_trace_file(&traces_dir, case.test_name);
+        let trace: ItfTrace = read_itf_trace(&trace_file);
+        let spec_state = trace
+            .states
+            .last()
+            .expect("trace must have at least one state");
+        let spec_result = &spec_state.last_result;
+
+        let gas_config = StorageGasConfig {
+            storage_get_charge: 1,
+            storage_set_charge: 1,
+            storage_remove_charge: 1,
+        };
+        let stf = Stf::new(
+            NoopBegin::<TestBlock>::default(),
+            NoopEnd,
+            NoopValidator,
+            NoopPostTx,
+            gas_config,
+        );
+
+        let mut storage = InMemoryStorage::default();
+        let mut codes = CodeStore::new();
+        codes.add_code(RecursiveAccount);
+
+        let recursive_account = AccountId::new(RECURSIVE_ACCOUNT);
+        let code_id = "recursive".to_string();
+        storage.data.insert(
+            account_code_key(recursive_account),
+            Message::new(&code_id).unwrap().into_bytes().unwrap(),
+        );
+
+        let msg = RecurseMsg {
+            remaining: case.requested_depth,
+        };
+        let tx = TestTx {
+            sender: AccountId::new(TEST_SENDER),
+            recipient: recursive_account,
+            request: InvokeRequest::new(&msg).unwrap(),
+            gas_limit: 1_000_000,
+            funds: vec![],
+        };
+        let block = TestBlock {
+            height: 1,
+            time: 0,
+            txs: vec![tx],
+        };
+
+        let (real_result, _exec_state) = stf.apply_block(&storage, &codes, &block);
+        assert_eq!(
+            real_result.tx_results.len(),
+            1,
+            "{}: expected one tx result",
+            case.test_name
+        );
+
+        let spec_ok = spec_result.result.ok;
+        let real_ok = real_result.tx_results[0].response.is_ok();
+        assert_eq!(real_ok, spec_ok, "{}: ok mismatch", case.test_name);
+
+        if !spec_ok {
+            let spec_err = spec_result.result.err_code.as_i64();
+            let real_err = real_result.tx_results[0].response.as_ref().unwrap_err().id;
+            match spec_err {
+                SPEC_ERR_CALL_DEPTH => assert_eq!(
+                    real_err,
+                    evolve_stf::errors::ERR_CALL_DEPTH_EXCEEDED.id,
+                    "{}: expected call depth error",
+                    case.test_name
+                ),
+                _ => panic!("{}: unknown spec error code {spec_err}", case.test_name),
+            }
+        }
+    }
+}