a_list_test.js

'use strict';

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

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

var suites_001 = /* :: */[
  /* tuple */[
    "drop1",
    (function () {
        return /* Eq */Block.__(0, [
                  Ext_list_test.drop(2, /* :: */[
                        0,
                        /* :: */[
                          1,
                          /* :: */[
                            2,
                            /* [] */0
                          ]
                        ]
                      ]),
                  /* :: */[
                    2,
                    /* [] */0
                  ]
                ]);
      })
  ],
  /* :: */[
    /* tuple */[
      "flat_map",
      (function () {
          return /* Eq */Block.__(0, [
                    /* :: */[
                      0,
                      /* :: */[
                        0,
                        /* :: */[
                          1,
                          /* :: */[
                            1,
                            /* :: */[
                              0,
                              /* [] */0
                            ]
                          ]
                        ]
                      ]
                    ],
                    Ext_list_test.flat_map((function (x) {
                            if (x % 2 === 0) {
                              return /* :: */[
                                      0,
                                      /* [] */0
                                    ];
                            } else {
                              return /* :: */[
                                      1,
                                      /* :: */[
                                        1,
                                        /* [] */0
                                      ]
                                    ];
                            }
                          }), /* :: */[
                          0,
                          /* :: */[
                            0,
                            /* :: */[
                              3,
                              /* :: */[
                                0,
                                /* [] */0
                              ]
                            ]
                          ]
                        ])
                  ]);
        })
    ],
    /* [] */0
  ]
];

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

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

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