lottery-test-suite.fif

"TonUtil.fif" include
"Asm.fif" include
// automatically generated from `./stdlib.fc` `./lottery-code.fc` 
PROGRAM{
  DECLPROC recv_internal
  DECLPROC recv_external
  recv_internal PROC:<{
    //  in_msg
    DROP	// 
  }>
  recv_external PROC:<{
    //  in_msg
    DROP	// 
  }>
}END>s constant code

0 tuple 0x076ef1ea , // magic
0 , 0 , // actions msg_sents
1570998536 , // unix_time
1 , 1 , 3 , // block_lt, trans_lt, rand_seed
0 tuple 100000000000000 , dictnew , , // remaining balance
0 , dictnew , // contract_address, global_config
1 tuple // wrap to another tuple
constant c7

true constant bounce

0 constant recv_internal // to run recv_internal() 
-1 constant recv_external // to invoke recv_external()


// Test #1. Empty message. 

variable storage 
<b b> storage ! 

variable message 
<b b> <s message ! 

message @ 
recv_external 
code 
storage @ 
c7 
runvmctx 


// Test #2. Send wrong sequence number. 

<b 166 32 u, b> storage !

<b 165 32 u, b> <s message !

message @ 
recv_external 
code 
storage @ 
c7 
runvmctx

variable exit_code 

drop 
exit_code ! 
."Exit code " exit_code @ . cr 

exit_code @ 33 - abort"Test #2 Not passed"