60 lines
2.1 KiB
OCaml
60 lines
2.1 KiB
OCaml
open Cli_expect
|
|
|
|
let contract basename =
|
|
"../../test/contracts/" ^ basename
|
|
let bad_contract basename =
|
|
"../../test/contracts/negative/" ^ basename
|
|
|
|
let%expect_test _ =
|
|
run_ligo_bad [ "compile-contract" ; bad_contract "bad_michelson_insertion_1.ligo" ; "main" ] ;
|
|
[%expect{|
|
|
ligo: error
|
|
generated Michelson contract failed to typecheck : bad contract type
|
|
code:
|
|
{ parameter nat ;
|
|
storage nat ;
|
|
code { DUP ;
|
|
LAMBDA (pair nat nat) nat ADD ;
|
|
SWAP ;
|
|
EXEC ;
|
|
NIL operation ;
|
|
PAIR ;
|
|
DIP { DROP } } }
|
|
|
|
|
|
If you're not sure how to fix this error, you can do one of the following:
|
|
|
|
* Visit our documentation: https://ligolang.org/docs/intro/introduction
|
|
* Ask a question on our Discord: https://discord.gg/9rhYaEt
|
|
* Open a gitlab issue: https://gitlab.com/ligolang/ligo/issues/new
|
|
* Check the changelog by running 'ligo changelog' |}]
|
|
|
|
let%expect_test _ =
|
|
run_ligo_bad [ "compile-contract" ; bad_contract "bad_michelson_insertion_2.ligo" ; "main" ] ;
|
|
[%expect{|
|
|
ligo: error
|
|
in file "bad_michelson_insertion_2.ligo", line 3, characters 9-13
|
|
Constant declaration 'main'
|
|
Bad types: expected nat got ( nat * nat )
|
|
|
|
|
|
If you're not sure how to fix this error, you can do one of the following:
|
|
|
|
* Visit our documentation: https://ligolang.org/docs/intro/introduction
|
|
* Ask a question on our Discord: https://discord.gg/9rhYaEt
|
|
* Open a gitlab issue: https://gitlab.com/ligolang/ligo/issues/new
|
|
* Check the changelog by running 'ligo changelog' |}]
|
|
|
|
let%expect_test _ =
|
|
run_ligo_good [ "compile-contract" ; bad_contract "bad_michelson_insertion_3.ligo" ; "main" ] ;
|
|
[%expect{|
|
|
{ parameter nat ;
|
|
storage nat ;
|
|
code { DUP ;
|
|
LAMBDA (pair nat nat) nat { { { DUP ; CDR ; SWAP ; CAR } } ; ADD } ;
|
|
SWAP ;
|
|
EXEC ;
|
|
NIL operation ;
|
|
PAIR ;
|
|
DIP { DROP } } } |}]
|