kylefang/stacks-puppet-node
1
0
Fork 0
mirror of https://github.com/alexgo-io/stacks-puppet-node.git synced 2026-05-31 00:01:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

clarity formatting

Browse Source
This commit is contained in:
jesus
2024-01-04 20:13:41 -05:00
committed by MarvinJanssen
parent b3b067e989
commit 960f0a00da
1 changed files with 10 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
contrib/core-contract-tests/tests/pox_4_tests.clar
View File

@@ -1,80 +1,59 @@
(define-constant mock-pox-reward-wallet-1 { version: 0x06, hashbytes: 0x0011223344556699001122334455669900112233445566990011223344556699 })
(define-constant mock-pox-reward-wallet-invalid { version: 0x06, hashbytes: 0x00112233445566990011223344556699001122334455669900112233445566 })
(define-constant mock-pox-hashbytes-invalid 0x00112233445566990011223344556699001122334455669900112233445566)
(define-constant ERR_STACKING_INVALID_POX_ADDRESS 13)
(define-public (test-mock-set-stx-account)
(begin
(unwrap! (contract-call? .pox-4 mock-set-stx-account 'ST1SJ3DTE5DN7X54YDH5D64R3BCB6A2AG2ZQ8YPD5 {locked: u1, unlock-height: u2100, unlocked: u0}) (err u111))
(asserts! (is-eq u1 (get locked (contract-call? .pox-4 get-stx-account 'ST1SJ3DTE5DN7X54YDH5D64R3BCB6A2AG2ZQ8YPD5))) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-get-mocked-stx-account)
(begin
(asserts! (is-eq u0 (get unlock-height (contract-call? .pox-4 get-stx-account 'ST1SJ3DTE5DN7X54YDH5D64R3BCB6A2AG2ZQ8YPD5))) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-burn-height-to-reward-cycle)
(begin
(asserts! (is-eq u1 (contract-call? .pox-4 burn-height-to-reward-cycle u2099)) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-reward-cycle-to-burn-height)
(begin
(asserts! (is-eq u0 (contract-call? .pox-4 reward-cycle-to-burn-height u0)) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-get-stacker-info-none)
(begin
(asserts! (is-none (contract-call? .pox-4 get-stacker-info tx-sender)) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-invalid-pox-addr-version)
(let
((actual (contract-call? .pox-4 check-pox-addr-version 0x07)))
(asserts! (not actual) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-invalid-pox-addr-hashbytes-length)
(let
((actual (contract-call? .pox-4 check-pox-addr-hashbytes 0x00 mock-pox-hashbytes-invalid)))
(asserts! (not actual) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-invalid-lock-height-too-low)
(let
((actual (contract-call? .pox-4 check-pox-lock-period u0)))
(asserts! (not actual) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-invalid-lock-height-too-high)
(let
((actual (contract-call? .pox-4 check-pox-lock-period u13)))
(asserts! (not actual) (err u111))
(ok true)
)
)
(ok true)))
(define-public (test-get-total-ustx-stacked)
(begin
;; @continue
(asserts! (is-eq (contract-call? .pox-4 get-total-ustx-stacked u1) u0) (err u111))
(ok true)
)
)
(ok true)))