class5_test.js

'use strict';

var Pervasives     = require("../../lib/js/pervasives");
var Mt             = require("./mt");
var Block          = require("../../lib/js/block");
var Curry          = require("../../lib/js/curry");
var CamlinternalOO = require("../../lib/js/camlinternalOO");
var List           = require("../../lib/js/list");

var shared = [
  "move",
  "get_x"
];

var shared$1 = ["x"];

var shared$2 = [
  "fold",
  "empty"
];

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 printable_point_init($$class) {
  var ids = CamlinternalOO.new_methods_variables($$class, [
        "print",
        "move",
        "get_x"
      ], shared$1);
  var print = ids[0];
  var move = ids[1];
  var get_x = ids[2];
  var x = ids[3];
  CamlinternalOO.set_methods($$class, /* array */[
        get_x,
        function (self$neg1) {
          return self$neg1[x];
        },
        move,
        function (self$neg1, d) {
          self$neg1[x] = self$neg1[x] + d | 0;
          return /* () */0;
        },
        print,
        function (self$neg1) {
          return "" + Curry._1(self$neg1[0][get_x], self$neg1);
        }
      ]);
  return function (_, self, x_init) {
    var self$1 = CamlinternalOO.create_object_opt(self, $$class);
    self$1[x] = x_init;
    return self$1;
  };
}

var printable_point = CamlinternalOO.make_class([
      "move",
      "print",
      "get_x"
    ], printable_point_init);

function printable_colored_point_init($$class) {
  var ids = CamlinternalOO.new_methods_variables($$class, [
        "print",
        "color"
      ], ["c"]);
  var print = ids[0];
  var color = ids[1];
  var c = ids[2];
  CamlinternalOO.set_method($$class, color, function (self$neg2) {
        return self$neg2[c];
      });
  var inh = CamlinternalOO.inherits($$class, shared$1, 0, [
        "get_x",
        "move",
        "print"
      ], printable_point, 1);
  var obj_init = inh[0];
  var print$1 = inh[4];
  CamlinternalOO.set_method($$class, print, function (self$neg2) {
        return "(" + (Curry._1(print$1, self$neg2) + (", " + (Curry._1(self$neg2[0][color], self$neg2) + ")")));
      });
  return function (_, self, y, c$1) {
    var self$1 = CamlinternalOO.create_object_opt(self, $$class);
    self$1[c] = c$1;
    Curry._2(obj_init, self$1, y);
    return CamlinternalOO.run_initializers_opt(self, self$1, $$class);
  };
}

var printable_colored_point = CamlinternalOO.make_class([
      "move",
      "print",
      "color",
      "get_x"
    ], printable_colored_point_init);

var p = Curry._3(printable_colored_point[0], 0, 17, "red");

eq('File "class5_test.ml", line 32, characters 12-19', Curry.js1(-930392019, 1, p), "(17, red)");

function ref_init($$class) {
  var ids = CamlinternalOO.new_methods_variables($$class, [
        "set",
        "get"
      ], shared$1);
  var set = ids[0];
  var get = ids[1];
  var x = ids[2];
  CamlinternalOO.set_methods($$class, /* array */[
        get,
        function (self$neg3) {
          return self$neg3[x];
        },
        set,
        function (self$neg3, y) {
          self$neg3[x] = y;
          return /* () */0;
        }
      ]);
  return function (_, self, x_init) {
    var self$1 = CamlinternalOO.create_object_opt(self, $$class);
    self$1[x] = x_init;
    return self$1;
  };
}

var ref = CamlinternalOO.make_class([
      "get",
      "set"
    ], ref_init);

var r = Curry._2(ref[0], 0, 1);

Curry.js2(5741474, 2, r, 2);

var v = Curry.js1(5144726, 3, r);

eq('File "class5_test.ml", line 43, characters 12-19', v, 2);

function intlist_init($$class) {
  var l = CamlinternalOO.new_variable($$class, "");
  var ids = CamlinternalOO.get_method_labels($$class, shared$2);
  var fold = ids[0];
  var empty = ids[1];
  CamlinternalOO.set_methods($$class, /* array */[
        empty,
        function (self$neg4) {
          return +(self$neg4[l] === /* [] */0);
        },
        fold,
        function (self$neg4, f, accu) {
          return List.fold_left(f, accu, self$neg4[l]);
        }
      ]);
  return function (_, self, l$1) {
    var self$1 = CamlinternalOO.create_object_opt(self, $$class);
    self$1[l] = l$1;
    return self$1;
  };
}

var intlist = CamlinternalOO.make_class(shared$2, intlist_init);

var l = Curry._2(intlist[0], 0, /* :: */[
      1,
      /* :: */[
        2,
        /* :: */[
          3,
          /* [] */0
        ]
      ]
    ]);

eq('File "class5_test.ml", line 54, characters 5-12', 6, Curry.js3(-1010803711, 4, l, function (x, y) {
          return x + y | 0;
        }, 0));

function intlist2_init($$class) {
  var l = CamlinternalOO.new_variable($$class, "");
  var ids = CamlinternalOO.get_method_labels($$class, shared$2);
  var fold = ids[0];
  var empty = ids[1];
  CamlinternalOO.set_methods($$class, /* array */[
        empty,
        function (self$neg5) {
          return +(self$neg5[l] === /* [] */0);
        },
        fold,
        function (self$neg5, f, accu) {
          return List.fold_left(f, accu, self$neg5[l]);
        }
      ]);
  return function (_, self, l$1) {
    var self$1 = CamlinternalOO.create_object_opt(self, $$class);
    self$1[l] = l$1;
    return self$1;
  };
}

var intlist2 = CamlinternalOO.make_class(shared$2, intlist2_init);

var l$1 = Curry._2(intlist2[0], 0, /* :: */[
      1,
      /* :: */[
        2,
        /* :: */[
          3,
          /* [] */0
        ]
      ]
    ]);

eq('File "class5_test.ml", line 67, characters 5-12', /* tuple */[
      6,
      "1 2 3 "
    ], /* tuple */[
      Curry.js3(-1010803711, 5, l$1, function (x, y) {
            return x + y | 0;
          }, 0),
      Curry.js3(-1010803711, 6, l$1, function (s, x) {
            return s + (x + " ");
          }, "")
    ]);

function point_init($$class) {
  var ids = CamlinternalOO.new_methods_variables($$class, shared, shared$1);
  var move = ids[0];
  var get_x = ids[1];
  var x = ids[2];
  CamlinternalOO.set_methods($$class, /* array */[
        get_x,
        function (self$neg6) {
          return self$neg6[x];
        },
        move,
        function (self$neg6, d) {
          self$neg6[x] = self$neg6[x] + d | 0;
          return /* () */0;
        }
      ]);
  return function (_, self, x_init) {
    var self$1 = CamlinternalOO.create_object_opt(self, $$class);
    self$1[x] = x_init;
    return self$1;
  };
}

var point = CamlinternalOO.make_class(shared, point_init);

function distance_point_init($$class) {
  var distance = CamlinternalOO.get_method_label($$class, "distance");
  var inh = CamlinternalOO.inherits($$class, shared$1, 0, [
        "get_x",
        "move"
      ], point, 1);
  var obj_init = inh[0];
  var x = inh[1];
  CamlinternalOO.set_method($$class, distance, function (self$neg7, other) {
        return Pervasives.abs(Curry.js1(291546447, 7, other) - self$neg7[x] | 0);
      });
  return function (_, self, x) {
    var self$1 = CamlinternalOO.create_object_opt(self, $$class);
    Curry._2(obj_init, self$1, x);
    return CamlinternalOO.run_initializers_opt(self, self$1, $$class);
  };
}

var distance_point = CamlinternalOO.make_class([
      "move",
      "distance",
      "get_x"
    ], distance_point_init);

var p$1 = Curry._2(distance_point[0], 0, 3);

var match_000 = Curry.js2(-335965387, 8, p$1, Curry._2(point[0], 0, 8));

var match_001 = Curry.js2(-335965387, 9, p$1, Curry._3(printable_colored_point[0], 0, 1, "blue"));

var b = match_001;

var a = match_000;

eq('File "class5_test.ml", line 94, characters 5-12', /* tuple */[
      5,
      2
    ], /* tuple */[
      a,
      b
    ]);

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

exports.suites                  = suites;
exports.test_id                 = test_id;
exports.eq                      = eq;
exports.printable_point         = printable_point;
exports.printable_colored_point = printable_colored_point;
exports.p                       = p;
exports.ref                     = ref;
exports.v                       = v;
exports.intlist                 = intlist;
exports.intlist2                = intlist2;
exports.l                       = l$1;
exports.point                   = point;
exports.distance_point          = distance_point;
exports.a                       = a;
exports.b                       = b;
/* printable_point Not a pure module */