2019-10-22 03:40:40 +04:00
|
|
|
(* Test that the string concatenation syntax in CameLIGO works *)
|
|
|
|
|
|
2019-10-26 03:33:31 +04:00
|
|
|
let size_op (s : string) : nat =
|
|
|
|
|
String.size s
|
|
|
|
|
|
|
|
|
|
let slice_op (s : string) : string =
|
|
|
|
|
String.slice 1p 2p s
|
|
|
|
|
|
2019-10-22 02:46:26 +04:00
|
|
|
let concat_syntax (s: string) =
|
|
|
|
|
s ^ "test_literal"
|
