@@ -60,12 +60,16 @@ def test_schedule_transfer(convex, test_account, other_account):
6060 '(do
6161 (defn tx-delay [to-address amount]
6262 (transfer to-address amount)
63- (schedule (+ *timestamp* 1000) (recur tx-delay (to-address amount)))
63+ (def call-address *address*)
64+ (schedule (+ *timestamp* 1000) (call call-address (tx-delay to-address amount)))
6465 )
6566 (defn tx-now [to-address amount]
6667 (transfer to-address amount)
6768 )
68- (export tx-delay tx-now)
69+ (defn show-schedule []
70+ [(get *state* :schedule) *address*]
71+ )
72+ (export show-schedule tx-delay tx-now)
6973 )
7074 )
7175)
@@ -77,9 +81,7 @@ def test_schedule_transfer(convex, test_account, other_account):
7781 contract_address = result ['value' ]
7882 convex .transfer (contract_address , 8000000 , other_account )
7983 auto_topup_account (convex , test_account )
80- result = convex .send (f'(call transfer-for-ever (tx-delay { other_account .address } 1000))' , test_account )
84+ result = convex .send (f'(call { contract_address } (tx-delay { other_account .address } 1000))' , test_account )
85+ print (result )
86+ result = convex .send (f'(call { contract_address } (show-schedule))' , test_account )
8187 print (result )
82-
83- #for index in range(0, 10):
84- #result = convex.query('(call transfer-for-ever (counter))', test_account)
85- #print(result)
0 commit comments