;;(impl-trait 'SP2PABAF9FTAJYNFZH93XENAJ8FVY99RRM50D2JG9.nft-trait.nft-trait)
;;(define-constant contract-owner tx-sender)
(define-constant burn-earn-stx u1000000)
;; bern-test
;;(define-public (check-get-owner (id uint))
  ;;(begin
  ;;  (ok (asserts! (is-eq tx-sender (unwrap-panic (unwrap-panic (contract-call? .setzeus-nft get-owner id)))) (err u101)))
    ;;(ok (unwrap! (contract-call? .setzeus-nft transfer id tx-sender contract-owner) (err u101)))
  ;;)
;;)
(define-public (load-up-contract (amount uint))
    (ok (stx-transfer? amount tx-sender (as-contract tx-sender)))
)
(define-public (test-send-as-contract)
  (begin
    (asserts! (is-eq tx-sender contract-owner) (err u101))
    (ok (as-contract (stx-transfer? burn-earn-stx (as-contract tx-sender) tx-sender)))
  )
)
