mirror of
https://github.com/anoma/juvix.git
synced 2025-01-06 06:53:33 +03:00
f9d9b10fc9
* New target syntax and modular VP examples * [ .gitignore ] updated * Fix spaces new lines * Remove outdated lab folder
38 lines
807 B
Plaintext
38 lines
807 B
Plaintext
module Tests;
|
|
|
|
import Prelude;
|
|
open Prelude;
|
|
|
|
import SimpleFungibleToken;
|
|
open SimpleFungibleToken;
|
|
|
|
--------------------------------------------------------------------------------
|
|
-- Testing VP
|
|
--------------------------------------------------------------------------------
|
|
|
|
token : String;
|
|
token ≔ "owner-token";
|
|
|
|
owner-address : String;
|
|
owner-address ≔ "owner-address";
|
|
|
|
change1-key : String;
|
|
change1-key ≔ "change1-key";
|
|
|
|
change2-key : String;
|
|
change2-key ≔ "change2-key";
|
|
|
|
verifiers : List String;
|
|
verifiers ≔ cons String owner-address (nil String);
|
|
|
|
keys-changed : List String;
|
|
keys-changed ≔ cons String change1-key (cons String change2-key (nil String));
|
|
|
|
main : Action;
|
|
main ≔
|
|
(putStr "VP Status: ")
|
|
>> (putStrLn (show-result (vp token keys-changed verifiers)));
|
|
end;
|
|
|
|
end;
|