diff options
-rw-r--r-- | bindtests | 8 | ||||
-rw-r--r-- | generator/generator_bindtests.ml | 11 |
2 files changed, 11 insertions, 8 deletions
@@ -9,7 +9,7 @@ false <61><62><63><00><61><62><63> obool: true oint: 1 -oint64: unset +oint64: 9223372036854775807 ostring: unset ostringlist: unset abc @@ -37,7 +37,7 @@ false <61><62><63><00><61><62><63> obool: false oint: unset -oint64: unset +oint64: -9223372036854775808 ostring: unset ostringlist: unset @@ -157,7 +157,7 @@ def ["1"] false 4095 -4095 +9223372036854775807 123 456 <61><62><63><00><61><62><63> @@ -171,7 +171,7 @@ def ["1"] false 0 -0 +-9223372036854775808 <61><62><63><00><61><62><63> diff --git a/generator/generator_bindtests.ml b/generator/generator_bindtests.ml index f0376342..95577c0e 100644 --- a/generator/generator_bindtests.ml +++ b/generator/generator_bindtests.ml @@ -745,7 +745,9 @@ and generate_lang_bindtests call = CallStringList []; CallBool false; CallInt 0; CallInt64 0L; CallString "123"; CallString "456"; CallBuffer "abc\000abc"] - (Some [CallOBool ("obool", true); CallOInt ("oint", 1)]); + (Some [CallOBool ("obool", true); + CallOInt ("oint", 1); + CallOInt64 ("oint64", Int64.max_int)]); call "internal_test" [CallString "abc"; CallOptString None; CallStringList []; CallBool false; @@ -758,7 +760,8 @@ and generate_lang_bindtests call = CallStringList []; CallBool false; CallInt 0; CallInt64 0L; CallString "123"; CallString "456"; CallBuffer "abc\000abc"] - (Some [CallOBool ("obool", false)]); + (Some [CallOBool ("obool", false); + CallOInt64 ("oint64", Int64.min_int)]); call "internal_test" [CallString ""; CallOptString (Some ""); CallStringList []; CallBool false; @@ -803,12 +806,12 @@ and generate_lang_bindtests call = call "internal_test" [CallString "abc"; CallOptString (Some "def"); CallStringList ["1"]; CallBool false; - CallInt 4095; CallInt64 4095L; CallString "123"; CallString "456"; + CallInt 4095; CallInt64 Int64.max_int; CallString "123"; CallString "456"; CallBuffer "abc\000abc"] None; call "internal_test" [CallString "abc"; CallOptString (Some "def"); CallStringList ["1"]; CallBool false; - CallInt 0; CallInt64 0L; CallString ""; CallString ""; + CallInt 0; CallInt64 Int64.min_int; CallString ""; CallString ""; CallBuffer "abc\000abc"] None; call "internal_test" [CallString "abc"; CallOptString (Some "def"); |