test-simple-v1
SP2PEBKJ2W1ZDDF2QQ6Y4FXKZEDPT9J9R2NKD9WJBSource Code
;; Simple test contract
(define-constant CONTRACT-OWNER tx-sender)
(define-data-var counter uint u0)
(define-public (increment)
(begin
(var-set counter (+ (var-get counter) u1))
(ok (var-get counter))))
(define-read-only (get-counter)
(var-get counter))
Functions (2)
| Function | Access | Args |
|---|---|---|
| increment | public | |
| get-counter | read-only |