@@ -5,7 +5,6 @@ var Int64 = require("../../lib/js/int64.js");
5
5
var Belt_List = require ( "../../lib/js/belt_List.js" ) ;
6
6
var Caml_int32 = require ( "../../lib/js/caml_int32.js" ) ;
7
7
var Caml_int64 = require ( "../../lib/js/caml_int64.js" ) ;
8
- var Caml_format = require ( "../../lib/js/caml_format.js" ) ;
9
8
var Caml_builtin_exceptions = require ( "../../lib/js/caml_builtin_exceptions.js" ) ;
10
9
11
10
var suites = {
@@ -20,12 +19,12 @@ function eq(loc, x, y) {
20
19
return Mt . eq_suites ( test_id , suites , loc , x , y ) ;
21
20
}
22
21
23
- var v = Caml_format . caml_int64_format ( "%d" , Int64 . max_int ) ;
22
+ var v = Caml_int64 . to_string ( Int64 . max_int ) ;
24
23
25
24
eq ( "File \"int64_string_test.ml\", line 9, characters 6-13" , v , "9223372036854775807" ) ;
26
25
27
26
function f ( a , b ) {
28
- return eq ( "File \"int64_string_test.ml\", line 11, characters 5-12" , Caml_format . caml_int64_format ( "%d" , a ) , b ) ;
27
+ return eq ( "File \"int64_string_test.ml\", line 11, characters 5-12" , Caml_int64 . to_string ( a ) , b ) ;
29
28
}
30
29
31
30
var hh = Caml_int64 . add ( Int64 . min_int , /* int64 */ [
@@ -58,15 +57,15 @@ f(/* int64 */[
58
57
] , "1000000000000000" ) ;
59
58
60
59
for ( var i = 0 ; i <= 8 ; ++ i ) {
61
- eq ( "File \"int64_string_test.ml\", line 25, characters 5-12" , Caml_format . caml_int64_format ( "%d" , Caml_int64 . add ( Int64 . min_int , Caml_int64 . of_int32 ( i ) ) ) , "-922337203685477580" + String ( 8 - i | 0 ) ) ;
60
+ eq ( "File \"int64_string_test.ml\", line 25, characters 5-12" , Caml_int64 . to_string ( Caml_int64 . add ( Int64 . min_int , Caml_int64 . of_int32 ( i ) ) ) , "-922337203685477580" + String ( 8 - i | 0 ) ) ;
62
61
}
63
62
64
63
for ( var i$1 = 0 ; i$1 <= 8 ; ++ i$1 ) {
65
- eq ( "File \"int64_string_test.ml\", line 29, characters 5-12" , Caml_format . caml_int64_format ( "%d" , Caml_int64 . add ( Int64 . min_int , Caml_int64 . of_int32 ( 100 + i$1 | 0 ) ) ) , "-922337203685477570" + String ( 8 - i$1 | 0 ) ) ;
64
+ eq ( "File \"int64_string_test.ml\", line 29, characters 5-12" , Caml_int64 . to_string ( Caml_int64 . add ( Int64 . min_int , Caml_int64 . of_int32 ( 100 + i$1 | 0 ) ) ) , "-922337203685477570" + String ( 8 - i$1 | 0 ) ) ;
66
65
}
67
66
68
67
for ( var i$2 = 0 ; i$2 <= 8 ; ++ i$2 ) {
69
- eq ( "File \"int64_string_test.ml\", line 33, characters 5-12" , Caml_format . caml_int64_format ( "%d" , Caml_int64 . add ( Int64 . min_int , Caml_int64 . of_int32 ( 1000000 + i$2 | 0 ) ) ) , "-922337203685377580" + String ( 8 - i$2 | 0 ) ) ;
68
+ eq ( "File \"int64_string_test.ml\", line 33, characters 5-12" , Caml_int64 . to_string ( Caml_int64 . add ( Int64 . min_int , Caml_int64 . of_int32 ( 1000000 + i$2 | 0 ) ) ) , "-922337203685377580" + String ( 8 - i$2 | 0 ) ) ;
70
69
}
71
70
72
71
var u = /* int64 */ [
@@ -75,7 +74,7 @@ var u = /* int64 */[
75
74
] ;
76
75
77
76
for ( var i$3 = 0 ; i$3 <= 6 ; ++ i$3 ) {
78
- eq ( "File \"int64_string_test.ml\", line 42, characters 5-12" , Caml_format . caml_int64_format ( "%d" , Caml_int64 . add ( u , Caml_int64 . of_int32 ( Caml_int32 . imul ( i$3 , 10000 ) ) ) ) , "90071992547" + ( String ( 3 + i$3 | 0 ) + "0991" ) ) ;
77
+ eq ( "File \"int64_string_test.ml\", line 42, characters 5-12" , Caml_int64 . to_string ( Caml_int64 . add ( u , Caml_int64 . of_int32 ( Caml_int32 . imul ( i$3 , 10000 ) ) ) ) , "90071992547" + ( String ( 3 + i$3 | 0 ) + "0991" ) ) ;
79
78
}
80
79
81
80
var v$1 = /* int64 */ [
@@ -84,25 +83,25 @@ var v$1 = /* int64 */[
84
83
] ;
85
84
86
85
for ( var i$4 = 0 ; i$4 <= 9 ; ++ i$4 ) {
87
- eq ( "File \"int64_string_test.ml\", line 49, characters 5-12" , Caml_format . caml_int64_format ( "%d" , Caml_int64 . add ( v$1 , Caml_int64 . of_int32 ( Caml_int32 . imul ( i$4 , 10000 ) ) ) ) , "-90071992547" + ( String ( 9 - i$4 | 0 ) + "0991" ) ) ;
86
+ eq ( "File \"int64_string_test.ml\", line 49, characters 5-12" , Caml_int64 . to_string ( Caml_int64 . add ( v$1 , Caml_int64 . of_int32 ( Caml_int32 . imul ( i$4 , 10000 ) ) ) ) , "-90071992547" + ( String ( 9 - i$4 | 0 ) + "0991" ) ) ;
88
87
}
89
88
90
- eq ( "File \"int64_string_test.ml\", line 52, characters 6-13" , Caml_format . caml_int64_format ( "%d" , /* int64 */ [
89
+ eq ( "File \"int64_string_test.ml\", line 52, characters 6-13" , Caml_int64 . to_string ( /* int64 */ [
91
90
/* hi */ 2097151 ,
92
91
/* lo */ 4294967295
93
92
] ) , "9007199254740991" ) ;
94
93
95
- eq ( "File \"int64_string_test.ml\", line 53, characters 6-13" , Caml_format . caml_int64_format ( "%d" , /* int64 */ [
94
+ eq ( "File \"int64_string_test.ml\", line 53, characters 6-13" , Caml_int64 . to_string ( /* int64 */ [
96
95
/* hi */ - 2097152 ,
97
96
/* lo */ 1
98
97
] ) , "-9007199254740991" ) ;
99
98
100
- eq ( "File \"int64_string_test.ml\", line 54, characters 6-13" , Caml_format . caml_int64_format ( "%d" , /* int64 */ [
99
+ eq ( "File \"int64_string_test.ml\", line 54, characters 6-13" , Caml_int64 . to_string ( /* int64 */ [
101
100
/* hi */ - 1 ,
102
101
/* lo */ 4294967063
103
102
] ) , "-233" ) ;
104
103
105
- eq ( "File \"int64_string_test.ml\", line 55, characters 6-13" , Caml_format . caml_int64_format ( "%d" , /* int64 */ [
104
+ eq ( "File \"int64_string_test.ml\", line 55, characters 6-13" , Caml_int64 . to_string ( /* int64 */ [
106
105
/* hi */ 2147483647 ,
107
106
/* lo */ 4294967295
108
107
] ) , "9223372036854775807" ) ;
@@ -1322,7 +1321,7 @@ Belt_List.forEach(random_data, (function (u) {
1322
1321
] ;
1323
1322
}
1324
1323
var match = u [ 0 ] ;
1325
- return eq ( "File \"int64_string_test.ml\", line 160, characters 21-28" , Caml_format . caml_int64_format ( "%d" , match [ 0 ] ) , match [ 1 ] ) ;
1324
+ return eq ( "File \"int64_string_test.ml\", line 160, characters 21-28" , Caml_int64 . to_string ( match [ 0 ] ) , match [ 1 ] ) ;
1326
1325
} else {
1327
1326
throw [
1328
1327
Caml_builtin_exceptions . assert_failure ,
@@ -1335,12 +1334,12 @@ Belt_List.forEach(random_data, (function (u) {
1335
1334
}
1336
1335
} ) ) ;
1337
1336
1338
- eq ( "File \"int64_string_test.ml\", line 164, characters 7-14" , Caml_format . caml_int64_format ( "%d" , /* int64 */ [
1337
+ eq ( "File \"int64_string_test.ml\", line 164, characters 7-14" , Caml_int64 . to_string ( /* int64 */ [
1339
1338
/* hi */ - 2097152 ,
1340
1339
/* lo */ 1
1341
1340
] ) , "-9007199254740991" ) ;
1342
1341
1343
- eq ( "File \"int64_string_test.ml\", line 165, characters 7-14" , Caml_format . caml_int64_format ( "%d" , /* int64 */ [
1342
+ eq ( "File \"int64_string_test.ml\", line 165, characters 7-14" , Caml_int64 . to_string ( /* int64 */ [
1344
1343
/* hi */ - 2097152 ,
1345
1344
/* lo */ 0
1346
1345
] ) , "-9007199254740992" ) ;
0 commit comments