stack_test.js

'use strict';

var Mt    = require("./mt.js");
var List  = require("../../lib/js/list.js");
var Block = require("../../lib/js/block.js");
var Stack = require("../../lib/js/stack.js");

function to_list(v) {
  var acc = /* [] */0;
  while(v[/* c */0] !== /* [] */0) {
    acc = /* :: */[
      Stack.pop(v),
      acc
    ];
  };
  return List.rev(acc);
}

function v() {
  var v$1 = /* record */[/* c : [] */0];
  Stack.push(3, v$1);
  Stack.push(4, v$1);
  Stack.push(1, v$1);
  return to_list(v$1);
}

var suites_000 = /* tuple */[
  "push_test",
  (function () {
      return /* Eq */Block.__(0, [
                /* :: */[
                  1,
                  /* :: */[
                    4,
                    /* :: */[
                      3,
                      /* [] */0
                    ]
                  ]
                ],
                v(/* () */0)
              ]);
    })
];

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

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

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