balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Michelson: adds tests for DEFAULT_ACCOUNT

Browse Source
This commit is contained in:
Milo Davis 2017-08-08 15:07:49 +02:00 committed by Benjamin Canou
parent 30b2cd3e0e
commit 866b316993
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
test/contracts/default_account.tz
View File

@ -1,5 +1,5 @@
parameter key
return unit
storage unit
parameter key;
return unit;
storage unit;
code {DIP{UNIT}; CAR; DEFAULT_ACCOUNT;
PUSH tez "100"; UNIT; TRANSFER_TOKENS; PAIR}
PUSH tez "100.00"; UNIT; TRANSFER_TOKENS; PAIR}

9
test/test_contracts.sh
View File

@ -192,3 +192,12 @@ init_with_transfer $CONTRACT_PATH/create_contract.tz ${KEY2} \
"\"$(get_contract_addr test_transfer_account1)\"" 1000 bootstrap1
${TZCLIENT} transfer 0.00 from bootstrap1 to create_contract -arg '"tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx"'
assert_storage_contains create_contract '"abcdefg"'
# Test DEFAULT_ACCOUNT
init_with_transfer $CONTRACT_PATH/default_account.tz ${KEY1} \
Unit 1000 bootstrap1
${TZCLIENT} transfer 0.00 from bootstrap1 to default_account -arg "\"$BOOTSTRAP4_IDENTITY\""
assert_balance $BOOTSTRAP4_IDENTITY "4,000,100.00 ꜩ"
account=tz1SuakBpFdG9b4twyfrSMqZzruxhpMeSrE5
${TZCLIENT} transfer 0.00 from bootstrap1 to default_account -arg "\"$account\""
assert_balance $account "100.00 ꜩ"