a_filename_test.js

'use strict';

var Mt = require("./mt.js");
var $$Array = require("../../lib/js/array.js");
var Ext_filename_test = require("./ext_filename_test.js");

var suites = {
  contents: /* [] */0
};

var test_id = {
  contents: 0
};

function eq(loc, x, y) {
  test_id.contents = test_id.contents + 1 | 0;
  suites.contents = {
    hd: [
      loc + (" id " + String(test_id.contents)),
      (function (param) {
          return {
                  TAG: /* Eq */0,
                  _0: x,
                  _1: y
                };
        })
    ],
    tl: suites.contents
  };
}

function test(param, param$1) {
  return Ext_filename_test.node_relative_path(true, param, param$1);
}

if (process.platform !== "win32") {
  eq("File \"a_filename_test.ml\", line 15, characters 5-12", [
        Ext_filename_test.combine("/tmp", "subdir/file.txt"),
        Ext_filename_test.combine("/tmp", "/a/tmp.txt"),
        Ext_filename_test.combine("/a/tmp.txt", "subdir/file.txt")
      ], [
        "/tmp/subdir/file.txt",
        "/a/tmp.txt",
        "/a/tmp.txt/subdir/file.txt"
      ]);
  eq("File \"a_filename_test.ml\", line 27, characters 5-12", Ext_filename_test.node_relative_path(true, {
            NAME: "File",
            VAL: "./a/b.c"
          }, {
            NAME: "File",
            VAL: "./a/u/g.c"
          }), "./u/g.c");
  eq("File \"a_filename_test.ml\", line 32, characters 5-12", Ext_filename_test.node_relative_path(true, {
            NAME: "File",
            VAL: "./a/b.c"
          }, {
            NAME: "File",
            VAL: "xxxghsoghos/ghsoghso/node_modules/buckle-stdlib/list.js"
          }), "buckle-stdlib/list.js");
  eq("File \"a_filename_test.ml\", line 38, characters 5-12", Ext_filename_test.node_relative_path(true, {
            NAME: "File",
            VAL: "./a/b.c"
          }, {
            NAME: "File",
            VAL: "xxxghsoghos/ghsoghso/node_modules//buckle-stdlib/list.js"
          }), "buckle-stdlib/list.js");
  eq("File \"a_filename_test.ml\", line 44, characters 5-12", Ext_filename_test.node_relative_path(true, {
            NAME: "File",
            VAL: "./a/b.c"
          }, {
            NAME: "File",
            VAL: "xxxghsoghos/ghsoghso/node_modules/./buckle-stdlib/list.js"
          }), "buckle-stdlib/list.js");
  eq("File \"a_filename_test.ml\", line 50, characters 5-12", Ext_filename_test.node_relative_path(true, {
            NAME: "File",
            VAL: "./a/c.js"
          }, {
            NAME: "File",
            VAL: "./a/b"
          }), "./b");
  eq("File \"a_filename_test.ml\", line 55, characters 5-12", Ext_filename_test.node_relative_path(true, {
            NAME: "File",
            VAL: "./a/c"
          }, {
            NAME: "File",
            VAL: "./a/b.js"
          }), "./b.js");
  eq("File \"a_filename_test.ml\", line 60, characters 5-12", Ext_filename_test.node_relative_path(true, {
            NAME: "Dir",
            VAL: "./a/"
          }, {
            NAME: "File",
            VAL: "./a/b.js"
          }), "./b.js");
  eq("File \"a_filename_test.ml\", line 65, characters 5-12", Ext_filename_test.get_extension("a.txt"), ".txt");
  eq("File \"a_filename_test.ml\", line 69, characters 5-12", Ext_filename_test.get_extension("a"), "");
  eq("File \"a_filename_test.ml\", line 73, characters 5-12", Ext_filename_test.get_extension(".txt"), ".txt");
  eq("File \"a_filename_test.ml\", line 78, characters 5-12", $$Array.map(Ext_filename_test.normalize_absolute_path, [
            "/gsho/./..",
            "/a/b/../c../d/e/f",
            "/a/b/../c/../d/e/f",
            "/gsho/./../..",
            "/a/b/c/d",
            "/a/b/c/d/",
            "/a/",
            "/a",
            "/a.txt/",
            "/a.txt"
          ]), [
        "/",
        "/a/c../d/e/f",
        "/a/d/e/f",
        "/",
        "/a/b/c/d",
        "/a/b/c/d",
        "/a",
        "/a",
        "/a.txt",
        "/a.txt"
      ]);
}

Mt.from_pair_suites("A_filename_test", suites.contents);

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