js_re_test.js

// Generated by ReScript, PLEASE EDIT WITH CARE
'use strict';

var Mt = require("./mt.js");
var Caml_array = require("../../lib/js/caml_array.js");
var Caml_option = require("../../lib/js/caml_option.js");

var suites_0 = [
  "captures",
  (function (param) {
      var re = /(\d+)-(?:(\d+))?/g;
      var result = re.exec("3-");
      if (result === null) {
        return {
                TAG: "Fail",
                _0: undefined
              };
      }
      var defined = Caml_array.get(result, 1);
      var $$undefined = Caml_array.get(result, 2);
      return {
              TAG: "Eq",
              _0: [
                "3",
                null
              ],
              _1: [
                defined,
                $$undefined
              ]
            };
    })
];

var suites_1 = {
  hd: [
    "fromString",
    (function (param) {
        var contentOf = function (tag, xmlString) {
          var x = new RegExp("<" + (tag + (">(.*?)<\\/" + (tag + ">")))).exec(xmlString);
          if (x !== null) {
            return Caml_option.nullable_to_opt(Caml_array.get(x, 1));
          }
          
        };
        return {
                TAG: "Eq",
                _0: contentOf("div", "<div>Hi</div>"),
                _1: "Hi"
              };
      })
  ],
  tl: {
    hd: [
      "exec_literal",
      (function (param) {
          var res = /[^.]+/.exec("http://xxx.domain.com");
          if (res !== null) {
            return {
                    TAG: "Eq",
                    _0: "http://xxx",
                    _1: Caml_array.get(res, 0)
                  };
          } else {
            return {
                    TAG: "FailWith",
                    _0: "regex should match"
                  };
          }
        })
    ],
    tl: {
      hd: [
        "exec_no_match",
        (function (param) {
            var match = /https:\/\/(.*)/.exec("http://xxx.domain.com");
            if (match !== null) {
              return {
                      TAG: "FailWith",
                      _0: "regex should not match"
                    };
            } else {
              return {
                      TAG: "Ok",
                      _0: true
                    };
            }
          })
      ],
      tl: {
        hd: [
          "test_str",
          (function (param) {
              var res = new RegExp("foo").test("#foo#");
              return {
                      TAG: "Eq",
                      _0: true,
                      _1: res
                    };
            })
        ],
        tl: {
          hd: [
            "fromStringWithFlags",
            (function (param) {
                var res = new RegExp("foo", "g");
                return {
                        TAG: "Eq",
                        _0: true,
                        _1: res.global
                      };
              })
          ],
          tl: {
            hd: [
              "result_index",
              (function (param) {
                  var res = new RegExp("zbar").exec("foobarbazbar");
                  if (res !== null) {
                    return {
                            TAG: "Eq",
                            _0: 8,
                            _1: res.index
                          };
                  } else {
                    return {
                            TAG: "Fail",
                            _0: undefined
                          };
                  }
                })
            ],
            tl: {
              hd: [
                "result_input",
                (function (param) {
                    var input = "foobar";
                    var res = /foo/g.exec(input);
                    if (res !== null) {
                      return {
                              TAG: "Eq",
                              _0: input,
                              _1: res.input
                            };
                    } else {
                      return {
                              TAG: "Fail",
                              _0: undefined
                            };
                    }
                  })
              ],
              tl: {
                hd: [
                  "t_flags",
                  (function (param) {
                      return {
                              TAG: "Eq",
                              _0: "gi",
                              _1: /./ig.flags
                            };
                    })
                ],
                tl: {
                  hd: [
                    "t_global",
                    (function (param) {
                        return {
                                TAG: "Eq",
                                _0: true,
                                _1: /./ig.global
                              };
                      })
                  ],
                  tl: {
                    hd: [
                      "t_ignoreCase",
                      (function (param) {
                          return {
                                  TAG: "Eq",
                                  _0: true,
                                  _1: /./ig.ignoreCase
                                };
                        })
                    ],
                    tl: {
                      hd: [
                        "t_lastIndex",
                        (function (param) {
                            var re = /na/g;
                            re.exec("banana");
                            return {
                                    TAG: "Eq",
                                    _0: 4,
                                    _1: re.lastIndex
                                  };
                          })
                      ],
                      tl: {
                        hd: [
                          "t_setLastIndex",
                          (function (param) {
                              var re = /na/g;
                              var before = re.lastIndex;
                              re.lastIndex = 42;
                              var after = re.lastIndex;
                              return {
                                      TAG: "Eq",
                                      _0: [
                                        0,
                                        42
                                      ],
                                      _1: [
                                        before,
                                        after
                                      ]
                                    };
                            })
                        ],
                        tl: {
                          hd: [
                            "t_multiline",
                            (function (param) {
                                return {
                                        TAG: "Eq",
                                        _0: false,
                                        _1: /./ig.multiline
                                      };
                              })
                          ],
                          tl: {
                            hd: [
                              "t_source",
                              (function (param) {
                                  return {
                                          TAG: "Eq",
                                          _0: "f.+o",
                                          _1: /f.+o/ig.source
                                        };
                                })
                            ],
                            tl: {
                              hd: [
                                "t_sticky",
                                (function (param) {
                                    return {
                                            TAG: "Eq",
                                            _0: true,
                                            _1: /./yg.sticky
                                          };
                                  })
                              ],
                              tl: {
                                hd: [
                                  "t_unicode",
                                  (function (param) {
                                      return {
                                              TAG: "Eq",
                                              _0: false,
                                              _1: /./yg.unicode
                                            };
                                    })
                                ],
                                tl: /* [] */0
                              }
                            }
                          }
                        }
                      }
                    }
                  }
                }
              }
            }
          }
        }
      }
    }
  }
};

var suites = {
  hd: suites_0,
  tl: suites_1
};

Mt.from_pair_suites("Js_re_test", suites);

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