@@ -5,7 +5,6 @@ var Int64 = require("../../lib/js/int64.js");
55var Belt_List = require ( "../../lib/js/belt_List.js" ) ;
66var Caml_int32 = require ( "../../lib/js/caml_int32.js" ) ;
77var Caml_int64 = require ( "../../lib/js/caml_int64.js" ) ;
8- var Caml_format = require ( "../../lib/js/caml_format.js" ) ;
98var Caml_builtin_exceptions = require ( "../../lib/js/caml_builtin_exceptions.js" ) ;
109
1110var suites = {
@@ -20,12 +19,12 @@ function eq(loc, x, y) {
2019 return Mt . eq_suites ( test_id , suites , loc , x , y ) ;
2120}
2221
23- var v = Caml_format . caml_int64_format ( "%d" , Int64 . max_int ) ;
22+ var v = Caml_int64 . to_string ( Int64 . max_int ) ;
2423
2524eq ( "File \"int64_string_test.ml\", line 9, characters 6-13" , v , "9223372036854775807" ) ;
2625
2726function 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 ) ;
2928}
3029
3130var hh = Caml_int64 . add ( Int64 . min_int , /* int64 */ [
@@ -58,15 +57,15 @@ f(/* int64 */[
5857 ] , "1000000000000000" ) ;
5958
6059for ( 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 ) ) ;
6261}
6362
6463for ( 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 ) ) ;
6665}
6766
6867for ( 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 ) ) ;
7069}
7170
7271var u = /* int64 */ [
@@ -75,7 +74,7 @@ var u = /* int64 */[
7574] ;
7675
7776for ( 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" ) ) ;
7978}
8079
8180var v$1 = /* int64 */ [
@@ -84,25 +83,25 @@ var v$1 = /* int64 */[
8483] ;
8584
8685for ( 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" ) ) ;
8887}
8988
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 */ [
9190 /* hi */ 2097151 ,
9291 /* lo */ 4294967295
9392 ] ) , "9007199254740991" ) ;
9493
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 */ [
9695 /* hi */ - 2097152 ,
9796 /* lo */ 1
9897 ] ) , "-9007199254740991" ) ;
9998
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 */ [
101100 /* hi */ - 1 ,
102101 /* lo */ 4294967063
103102 ] ) , "-233" ) ;
104103
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 */ [
106105 /* hi */ 2147483647 ,
107106 /* lo */ 4294967295
108107 ] ) , "9223372036854775807" ) ;
@@ -1322,7 +1321,7 @@ Belt_List.forEach(random_data, (function (u) {
13221321 ] ;
13231322 }
13241323 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 ] ) ;
13261325 } else {
13271326 throw [
13281327 Caml_builtin_exceptions . assert_failure ,
@@ -1335,12 +1334,12 @@ Belt_List.forEach(random_data, (function (u) {
13351334 }
13361335 } ) ) ;
13371336
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 */ [
13391338 /* hi */ - 2097152 ,
13401339 /* lo */ 1
13411340 ] ) , "-9007199254740991" ) ;
13421341
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 */ [
13441343 /* hi */ - 2097152 ,
13451344 /* lo */ 0
13461345 ] ) , "-9007199254740992" ) ;
0 commit comments