buffer_test.js

'use strict';

var Block      = require("../../lib/js/block");
var Caml_bytes = require("../../lib/js/caml_bytes");
var Mt         = require("./mt");
var Buffer     = require("../../lib/js/buffer");
var Bytes      = require("../../lib/js/bytes");

var v = "gso";

var suites_000 = /* tuple */[
  "equal",
  function () {
    return /* Eq */Block.__(0, [
              /* tuple */[
                Caml_bytes.get(Bytes.make(3, /* "a" */97), 0),
                Bytes.make(3, /* "a" */97)[0]
              ],
              /* tuple */[
                /* "a" */97,
                /* "a" */97
              ]
            ]);
  }
];

var suites_001 = /* :: */[
  /* tuple */[
    "equal2",
    function () {
      var u = Bytes.make(3, /* "a" */97);
      u[0] = /* "b" */98;
      return /* Eq */Block.__(0, [
                /* tuple */[
                  u[0],
                  /* "g" */103
                ],
                /* tuple */[
                  /* "b" */98,
                  /* "g" */103
                ]
              ]);
    }
  ],
  /* :: */[
    /* tuple */[
      "buffer",
      function () {
        var v = Buffer.create(30);
        for(var i = 0; i <= 10; ++i){
          Buffer.add_string(v, "" + i);
        }
        return /* Eq */Block.__(0, [
                  Buffer.contents(v),
                  "012345678910"
                ]);
      }
    ],
    /* [] */0
  ]
];

var suites = /* :: */[
  suites_000,
  suites_001
];

Mt.from_pair_suites("buffer_test.ml", suites);

exports.v      = v;
exports.suites = suites;
/*  Not a pure module */