Alpha: switch TZ1 to KT1 to limit confusion with tz1

This commit is contained in:
Benjamin Canou 2018-06-25 16:10:55 +02:00
parent 92a3c709a1
commit 1c7d7ce712
2 changed files with 3 additions and 3 deletions

View File

@ -401,7 +401,7 @@ init_with_transfer $contract_dir/create_contract.tz $key2 Unit 1,000 bootstrap1
created_contract=\
`$client transfer 0 from bootstrap1 to create_contract -arg '(Left "tz1KqTpEZ7Yob7QbPE4Hy4Wo8fHG8LhKxZSx")' \
| grep 'New contract' \
| sed -E 's/.*(TZ1[a-zA-Z0-9]+).*/\1/' \
| sed -E 's/.*(KT1[a-zA-Z0-9]+).*/\1/' \
| head -1`
bake
assert_storage_contains $created_contract '"abcdefg"'

View File

@ -8,7 +8,7 @@
(**************************************************************************)
(* 20 *)
let contract_hash = "\003\099\029" (* TZ(36) *)
let contract_hash = "\002\090\121" (* KT1(36) *)
include Blake2B.Make(Base58)(struct
let name = "Contract_hash"
@ -18,4 +18,4 @@ include Blake2B.Make(Base58)(struct
end)
let () =
Base58.check_encoded_prefix b58check_encoding "TZ1" 36
Base58.check_encoded_prefix b58check_encoding "KT1" 36