bs_auto_uncurry_test.js

'use strict';

var Mt    = require("./mt");
var Block = require("../../lib/js/block");

var suites = [/* [] */0];

var test_id = [0];

function eq(loc, x, y) {
  test_id[0] = test_id[0] + 1 | 0;
  suites[0] = /* :: */[
    /* tuple */[
      loc + (" id " + test_id[0]),
      function () {
        return /* Eq */Block.__(0, [
                  x,
                  y
                ]);
      }
    ],
    suites[0]
  ];
  return /* () */0;
}


function hi (cb){
    cb ();
    return 0;
}

;

var xs = [/* [] */0];

hi(function () {
      xs[0] = /* :: */[
        /* () */0,
        xs[0]
      ];
      return /* () */0;
    });

hi(function () {
      xs[0] = /* :: */[
        /* () */0,
        xs[0]
      ];
      return /* () */0;
    });

eq('File "bs_auto_uncurry_test.ml", line 27, characters 7-14', xs[0], /* :: */[
      /* () */0,
      /* :: */[
        /* () */0,
        /* [] */0
      ]
    ]);

eq('File "bs_auto_uncurry_test.ml", line 33, characters 7-14', /* int array */[
        1,
        2,
        3
      ].map(function (x) {
          return x + 1 | 0;
        }), /* int array */[
      2,
      3,
      4
    ]);

eq('File "bs_auto_uncurry_test.ml", line 36, characters 7-14', /* int array */[
        1,
        2,
        3
      ].map(function (x) {
          return x + 1 | 0;
        }), /* int array */[
      2,
      3,
      4
    ]);

eq('File "bs_auto_uncurry_test.ml", line 40, characters 7-14', /* int array */[
        1,
        2,
        3
      ].reduce(function (prim, prim$1) {
          return prim + prim$1 | 0;
        }, 0), 6);

eq('File "bs_auto_uncurry_test.ml", line 44, characters 7-14', /* int array */[
        1,
        2,
        3
      ].reduce(function (x, y, i) {
          return (x + y | 0) + i | 0;
        }, 0), 9);

eq('File "bs_auto_uncurry_test.ml", line 48, characters 7-14', +/* int array */[
        1,
        2,
        3
      ].some(function (x) {
          return +(x < 1);
        }), /* false */0);

eq('File "bs_auto_uncurry_test.ml", line 52, characters 7-14', +/* int array */[
        1,
        2,
        3
      ].every(function (x) {
          return +(x > 0);
        }), /* true */1);

Mt.from_pair_suites("bs_auto_uncurry_test.ml", suites[0]);

exports.suites  = suites;
exports.test_id = test_id;
exports.eq      = eq;
/*  Not a pure module */