Sha256: a133c7f7e82de190d3db6282a3baa6d8dbbfdbacc7aa5092639007e47edf17f7
Contents?: true
Size: 1.3 KB
Versions: 56
Compression:
Stored size: 1.3 KB
Contents
open Core.Std open OUnit2 open Codegen open Model let ae exp got _ctxt = assert_equal ~printer:Fn.id exp got let model_tests = [ "int parameter to string" >:: ae "8" @@ parameter_to_string (Int 8); "bool parameter to string" >:: ae "true" @@ parameter_to_string (Bool true); "string parameter to string" >:: ae "xyz" @@ parameter_to_string (String "xyz"); "string parameter containing escaped characters to string" >:: ae "x\\t\\ny" @@ parameter_to_string (String "x\t\ny"); "float parameter to string" >:: ae "3.14" @@ parameter_to_string (Float 3.14); "string list parameter to string" >:: ae "[\"a\"; \"bc\"; \"def\"]" @@ parameter_to_string (StringList ["a"; "bc"; "def"]); "string list parameter with escaped characters to string" >:: ae "[\"a\\r\"; \"b\\nc\"; \"d\\tef\"]" @@ parameter_to_string (StringList ["a\r"; "b\nc"; "d\tef"]); "int list parameter to string" >:: ae "[1; 2; 3; 4]" @@ parameter_to_string (IntList [1; 2; 3; 4]); "int string map parameter to string" >:: ae "[(\"one\", 1); (\"two\", 1)]" @@ parameter_to_string (IntStringMap [("one", 1); ("two", 1)]); "int string map parameter to string with escaped characters in the keys" >:: ae "[(\"\\t\\r\", 1); (\"two\\n\", 1)]" @@ parameter_to_string (IntStringMap [("\t\r", 1); ("two\n", 1)]); ]
Version data entries
56 entries across 56 versions & 1 rubygems