Permalink
Browse files

bindtests: Test sending min and max 64 bit integers.

  • Loading branch information...
1 parent 704e46a commit 16f22d89eb142f1485fc28afaa89026cf8c956d9 @rwmjones rwmjones committed Aug 15, 2012
Showing with 11 additions and 8 deletions.
  1. +4 −4 bindtests
  2. +7 −4 generator/generator_bindtests.ml
View
@@ -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>
@@ -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");

0 comments on commit 16f22d8

Please sign in to comment.