test case for multi-escrow emitted

hook/tests/hookset/test-multi-escrow.js

@@ -0,0 +1,46 @@
+require('../../utils-tests.js').TestRig('ws://localhost:6005').then(t=>
+{
+    const account =  t.randomAccount();
+    const account2 =  t.randomAccount();
+    t.fundFromGenesis([account]).then(()=>
+    {
+        t.feeSubmit(account.seed,
+        {
+            Account: account.classicAddress,
+            TransactionType: "SetHook",
+            Hooks: [
+                {
+                    Hook: {
+                        CreateCode: t.wasm('multiescrow.wasm'),
+                        HookApiVersion: 0,
+                        HookNamespace: "DEADBEEFDEADBEEFDEADBEEFDEADBEEFDEADBEEFDEADBEEFDEADBEEFDEADBEEF",
+                        HookOn: "0000000000000000"
+                    }
+                }
+            ]
+        }).then(x=>
+        {
+            t.assertTxnSuccess(x)
+            console.log(x);
+            t.feeSubmit(account.seed,
+            {
+                Account: account.classicAddress,
+                TransactionType: "Payment",
+                Destination: "rfCarbonVNTuXckX6x2qTMFmFSnm6dEWGX",
+                Amount: "10000000000"
+            }).then(x=>
+            {
+                t.assertTxnSuccess(x)
+                t.ledgerAccept(10).then(()=>{
+                    t.fundFromGenesis([account2]).then(()=>
+                    {
+                        process.exit(0);
+                    }).catch(t.err);
+                }).catch(t.err);
+            }).catch(t.err);
+        }).catch(t.err);
+    }).catch(t.err);
+})
+
+
+

hook/tests/hookset/wasm/makefile

@@ -1,4 +1,4 @@
-all: accept.wasm makestate.wasm makestate2.wasm checkstate.wasm rollback.wasm aaw.wasm rmstate.wasm ginv.wasm multiguard.wasm
+all: accept.wasm makestate.wasm makestate2.wasm checkstate.wasm rollback.wasm aaw.wasm rmstate.wasm ginv.wasm multiguard.wasm multiescrow.wasm
 accept.wasm: accept.c
 	wasmcc accept.c -o accept.wasm -O2 -Wl,--allow-undefined -I../
 	hook-cleaner accept.wasm
@@ -26,6 +26,9 @@ ginv.wasm: ginv.c
 multiguard.wasm: multiguard.c
 	wasmcc multiguard.c -o multiguard.wasm -O2 -Wl,--allow-undefined -I../
 	hook-cleaner multiguard.wasm
+multiescrow.wasm: multiescrow.c
+	wasmcc multiescrow.c -o multiescrow.wasm -O2 -Wl,--allow-undefined -I../
+	hook-cleaner multiescrow.wasm
 
 
 

hook/tests/hookset/wasm/multiescrow.c

@@ -0,0 +1,95 @@
+// escrows are made to destination: rfCarbonVNTuXckX6x2qTMFmFSnm6dEWGX
+
+#include "../../../examples/hookapi.h"
+
+#define ttESCROW_CREATE 1U
+
+/*
+{
+    8114 <accid>    "Account": "rf1BiGeXwwQoi8Z2ueFYTEXSwuJYfV2Jpn",
+    120001          "TransactionType": "EscrowCreate",
+    61 amt "Amount": "10000",
+
+    "Destination": "rsA2LpzuawewSBQXkiju3YQTMzW13pAAdW",
+    2024 "CancelAfter": 533257958,
+    2025 "FinishAfter": 533171558,
+    "Condition": "A0258020E3B0C44298FC1C149AFBF4C8996FB92427AE41E4649B934CA495991B7852B855810100",
+    "DestinationTag": 23480,
+    "SourceTag": 11747
+}
+*/
+
+#define ENCODE_CANAFTER_SIZE 6U
+#define ENCODE_CANAFTER(buf_out, caf )\
+    ENCODE_UINT32_UNCOMMON(buf_out, caf, 36U );
+#define _02_36_ENCODE_CANAFTER(buf_out, caf )\
+    ENCODE_CANAFTER(buf_out, caf );
+
+#define ENCODE_FINAFTER_SIZE 6U
+#define ENCODE_FINAFTER(buf_out, faf )\
+    ENCODE_UINT32_UNCOMMON(buf_out, faf, 37U );
+#define _02_37_ENCODE_FINAFTER(buf_out, faf )\
+    ENCODE_FINAFTER(buf_out, faf );
+
+#ifdef HAS_CALLBACK
+#define PREPARE_ESCROW_SIMPLE_SIZE 282U
+#else
+#define PREPARE_ESCROW_SIMPLE_SIZE 260U
+#endif
+
+#define PREPARE_ESCROW_SIMPLE(\
+        buf_out_master, drops_amount_raw, to_address, dest_tag_raw, src_tag_raw, finish_after, cancel_after)\
+{\
+    uint8_t* buf_out = buf_out_master;\
+    uint8_t acc[20];\
+    uint64_t drops_amount = (drops_amount_raw);\
+    uint32_t dest_tag = (dest_tag_raw);\
+    uint32_t src_tag = (src_tag_raw);\
+    uint32_t cls = (uint32_t)ledger_seq();\
+    int64_t llt = ledger_last_time();\
+    hook_account(SBUF(acc));\
+    _01_02_ENCODE_TT                   (buf_out, ttESCROW_CREATE                );      /* uint16  | size   3 */ \
+    _02_02_ENCODE_FLAGS                (buf_out, tfCANONICAL                    );      /* uint32  | size   5 */ \
+    _02_03_ENCODE_TAG_SRC              (buf_out, src_tag                        );      /* uint32  | size   5 */ \
+    _02_04_ENCODE_SEQUENCE             (buf_out, 0                              );      /* uint32  | size   5 */ \
+    _02_14_ENCODE_TAG_DST              (buf_out, dest_tag                       );      /* uint32  | size   5 */ \
+    _02_26_ENCODE_FLS                  (buf_out, cls + 1                        );      /* uint32  | size   6 */ \
+    _02_27_ENCODE_LLS                  (buf_out, cls + 5                        );      /* uint32  | size   6 */ \
+    _02_36_ENCODE_CANAFTER             (buf_out, llt + cancel_after             );      /* uint32  | size   6 */ \
+    _02_37_ENCODE_FINAFTER             (buf_out, llt + finish_after             );      /* uint32  | size   6 */ \
+    _06_01_ENCODE_DROPS_AMOUNT         (buf_out, drops_amount                   );      /* amount  | size   9 */ \
+    uint8_t* fee_ptr = buf_out;\
+    _06_08_ENCODE_DROPS_FEE            (buf_out, 0                              );      /* amount  | size   9 */ \
+    _07_03_ENCODE_SIGNING_PUBKEY_NULL  (buf_out                                 );      /* pk      | size  35 */ \
+    _08_01_ENCODE_ACCOUNT_SRC          (buf_out, acc                            );      /* account | size  22 */ \
+    _08_03_ENCODE_ACCOUNT_DST          (buf_out, to_address                     );      /* account | size  22 */ \
+    int64_t edlen = etxn_details((uint32_t)buf_out, PREPARE_ESCROW_SIMPLE_SIZE);       /* emitdet | size 1?? */ \
+    int64_t fee = etxn_fee_base(buf_out_master, PREPARE_ESCROW_SIMPLE_SIZE);                                    \
+    _06_08_ENCODE_DROPS_FEE            (fee_ptr, fee                            );                               \
+}
+
+int64_t hook(uint32_t reserved)
+{
+    etxn_reserve(2);
+
+    uint8_t carbon_accid[20];
+    int64_t ret = util_accid(
+            SBUF(carbon_accid),                                   /* <-- generate into this buffer  */
+            SBUF("rfCarbonVNTuXckX6x2qTMFmFSnm6dEWGX") );         /* <-- from this r-addr           */
+    TRACEVAR(ret);
+
+
+    uint8_t txhash[32];
+    uint8_t txout[PREPARE_ESCROW_SIMPLE_SIZE];
+
+    PREPARE_ESCROW_SIMPLE(txout, 1, carbon_accid, 0, 0, 1000, 2000);
+    emit(SBUF(txhash), SBUF(txout));
+
+    PREPARE_ESCROW_SIMPLE(txout, 1, carbon_accid, 0, 0, 1000, 2000);
+    emit(SBUF(txhash), SBUF(txout));
+    
+    accept(0,0,0);
+
+    _g(1,1);
+    return 0;
+}

hook/utils-tests.js

@@ -368,7 +368,7 @@ module.exports = {
                             feeSubmitAccept(genesis.seed, {
                                 Account: genesis.classicAddress,        // fund account from genesis
                                 TransactionType: "Payment",
-                                Amount: "1000000000",
+                                Amount: "100000000000",
                                 Destination: acc,
                             }).then(x=>
                             {