_offc_ledger_smoke.nx source
↩ module page · 18 lines · 910 B
1// Ledger smoke test: 3 BIRTH events, 2 USE, 3 DEATH = balanced ledger.
2
3import "syscalls.nx"
4import "nx_narr.nx"
5
6func main() -> i64 {
7 narr_ledger_birth("test_main" as *u8, LK_VALUE, 1, "ledger_smoke.nx:8" as *u8)
8 narr_ledger_birth("test_main" as *u8, LK_INSTR, 2, "ledger_smoke.nx:9" as *u8)
9 narr_ledger_birth("test_main" as *u8, LK_BLOCK, 3, "ledger_smoke.nx:10" as *u8)
10 narr_ledger_use("test_main" as *u8, LK_VALUE, 1, "ledger_smoke.nx:11" as *u8)
11 narr_ledger_use("test_main" as *u8, LK_INSTR, 2, "ledger_smoke.nx:12" as *u8)
12 narr_ledger_death("test_main" as *u8, LK_BLOCK, 3, "ledger_smoke.nx:13" as *u8)
13 narr_ledger_death("test_main" as *u8, LK_INSTR, 2, "ledger_smoke.nx:14" as *u8)
14 narr_ledger_death("test_main" as *u8, LK_VALUE, 1, "ledger_smoke.nx:15" as *u8)
15 let imbal: i64 = narr_ledger_dump()
16 if imbal == 0 { return 0 }
17 return 1
18}