Ava.res

module ThrowsExpectation = {
  module Message = {
    type t = string

    external re: Js.Re.t => t = "%identity"

    external fn: (~message: string => bool) => t = "%identity"
  }

  type t = {
    message?: Message.t,
    name?: string,
    is?: Js.Exn.t,
    code?: int,
    instanceOf?: 'instanceOf. 'instanceOf,
    any?: bool,
  }
}

module ExecutionContext = {
  @live
  type t<'context> = {
    mutable context: 'context,
    title: string,
    passed: bool,
  }

  @send external plan: (t<'context>, int) => unit = "plan"
  @send
  external teardown: (t<'context>, unit => promise<unit>) => unit = "teardown"
  @send external timeout: (t<'context>, float, ~message: string=?) => unit = "timeout"

  module Skip = {
    @send @scope("plan") external plan: (t<'context>, int) => unit = "skip"
    @send @scope("teardown")
    external teardown: (t<'context>, unit => promise<unit>) => promise<unit> = "skip"
    @send @scope("timeout")
    external timeout: (t<'context>, float, ~message: string=?) => unit = "skip"
  }
}

@live
type meta = {
  file: string,
  snapshotDirectory: string,
}

@module("ava") @scope("default") external meta: meta = "meta"

@module("ava")
external test: (string, ExecutionContext.t<'context> => unit) => unit = "default"
@module("ava")
external asyncTest: (string, ExecutionContext.t<'context> => promise<unit>) => unit = "default"

@module("ava") @scope("default")
external todo: string => unit = "todo"
@module("ava") @scope("default")
external beforeEach: (ExecutionContext.t<'context> => unit) => unit = "beforeEach"
@module("ava") @scope("default")
external asyncBeforeEach: (ExecutionContext.t<'context> => promise<unit>) => unit = "beforeEach"
@module("ava") @scope("default")
external before: (ExecutionContext.t<'context> => unit) => unit = "before"
@module("ava") @scope("default")
external asyncBefore: (ExecutionContext.t<'context> => promise<unit>) => unit = "before"
@module("ava") @scope("default")
external afterEach: (ExecutionContext.t<'context> => unit) => unit = "afterEach"
@module("ava") @scope("default")
external asyncAfterEach: (ExecutionContext.t<'context> => promise<unit>) => unit = "afterEach"
@module("ava") @scope("default")
external after: (ExecutionContext.t<'context> => unit) => unit = "after"
@module("ava") @scope("default")
external asyncAfter: (ExecutionContext.t<'context> => promise<unit>) => unit = "after"

module Failing = {
  @module("ava") @scope("default")
  external test: (string, ExecutionContext.t<'context> => unit) => unit = "failing"
  @module("ava") @scope("default")
  external asyncTest: (string, ExecutionContext.t<'context> => promise<unit>) => unit = "failing"
  @module("ava") @scope(("default", "failing"))
  external only: (string, ExecutionContext.t<'context> => unit) => unit = "only"
  @module("ava") @scope(("default", "failing"))
  external asyncOnly: (string, ExecutionContext.t<'context> => promise<unit>) => unit = "only"
  @module("ava") @scope(("default", "failing"))
  external skip: (string, ExecutionContext.t<'context> => unit) => unit = "skip"
  @module("ava") @scope(("default", "failing"))
  external asyncSkip: (string, ExecutionContext.t<'context> => promise<unit>) => unit = "skip"
}

module Only = {
  @module("ava") @scope("default")
  external test: (string, ExecutionContext.t<'context> => unit) => unit = "only"
  @module("ava") @scope("default")
  external asyncTest: (string, ExecutionContext.t<'context> => promise<unit>) => unit = "only"
  external failing: (string, ExecutionContext.t<'context> => unit) => unit = "only"
  @module("ava") @scope(("default", "failing"))
  external asyncFailing: (string, ExecutionContext.t<'context> => promise<unit>) => unit = "only"
}

module Skip = {
  @module("ava") @scope("default")
  external test: (string, ExecutionContext.t<'context> => unit) => unit = "skip"
  @module("ava") @scope("default")
  external asyncTest: (string, ExecutionContext.t<'context> => promise<unit>) => unit = "skip"

  @module("ava") @scope(("default", "beforeEach"))
  external beforeEach: (ExecutionContext.t<'context> => unit) => unit = "skip"
  @module("ava") @scope(("default", "beforeEach"))
  external asyncBeforeEach: (ExecutionContext.t<'context> => promise<unit>) => unit = "skip"
  @module("ava") @scope(("default", "before"))
  external before: (ExecutionContext.t<'context> => unit) => unit = "skip"
  @module("ava") @scope(("default", "before"))
  external asyncBefore: (ExecutionContext.t<'context> => promise<unit>) => unit = "skip"
  @module("ava") @scope(("default", "afterEach"))
  external afterEach: (ExecutionContext.t<'context> => unit) => unit = "skip"
  @module("ava") @scope(("default", "afterEach"))
  external asyncAfterEach: (ExecutionContext.t<'context> => promise<unit>) => unit = "skip"
  @module("ava") @scope(("default", "after"))
  external after: (ExecutionContext.t<'context> => unit) => unit = "skip"
  @module("ava") @scope(("default", "after"))
  external asyncAfter: (ExecutionContext.t<'context> => promise<unit>) => unit = "skip"
}

module Always = {
  @module("ava") @scope(("default", "afterEach"))
  external afterEach: (ExecutionContext.t<'context> => unit) => unit = "always"
  @module("ava") @scope(("default", "afterEach"))
  external asyncAfterEach: (ExecutionContext.t<'context> => promise<unit>) => unit = "always"
  @module("ava") @scope(("default", "after"))
  external after: (ExecutionContext.t<'context> => unit) => unit = "always"
  @module("ava") @scope(("default", "after"))
  external asyncAfter: (ExecutionContext.t<'context> => promise<unit>) => unit = "always"

  module Skip = {
    @module("ava") @scope(("default", "afterEach", "always"))
    external afterEach: (ExecutionContext.t<'context> => unit) => unit = "skip"
    @module("ava") @scope(("default", "afterEach", "always"))
    external asyncAfterEach: (ExecutionContext.t<'context> => promise<unit>) => unit = "skip"
    @module("ava") @scope(("default", "after", "always"))
    external after: (ExecutionContext.t<'context> => unit) => unit = "skip"
    @module("ava") @scope(("default", "after", "always"))
    external asyncAfter: (ExecutionContext.t<'context> => promise<unit>) => unit = "skip"
  }
}

module Assert = {
  @send
  external is: (ExecutionContext.t<'context>, 'actual, 'actual, ~message: string=?) => unit = "is"
  @send
  external unsafeIs: (
    ExecutionContext.t<'context>,
    'actual,
    'expected,
    ~message: string=?,
  ) => unit = "is"
  @send
  external deepEqual: (ExecutionContext.t<'context>, 'actual, 'actual, ~message: string=?) => unit =
    "deepEqual"
  @send
  external unsafeDeepEqual: (
    ExecutionContext.t<'context>,
    'actual,
    'expected,
    ~message: string=?,
  ) => unit = "deepEqual"
  @send
  external regex: (ExecutionContext.t<'context>, string, Js.Re.t, ~message: string=?) => unit =
    "regex"
  @send
  external throws: (
    ExecutionContext.t<'context>,
    unit => 'a,
    ~expectations: ThrowsExpectation.t=?,
    ~message: string=?,
  ) => unit = "throws"
  @send
  external throwsAsync: (
    ExecutionContext.t<'context>,
    promise<'a>,
    ~expectations: ThrowsExpectation.t=?,
    ~message: string=?,
  ) => promise<unit> = "throwsAsync"
  @send
  external not: (ExecutionContext.t<'context>, 'actual, 'expected, ~message: string=?) => unit =
    "not"
  @send
  external notDeepEqual: (
    ExecutionContext.t<'context>,
    'actual,
    'expected,
    ~message: string=?,
  ) => unit = "notDeepEqual"
  @send
  external notRegex: (ExecutionContext.t<'context>, string, Js.Re.t, ~message: string=?) => unit =
    "notRegex"
  @send
  external snapshot: (ExecutionContext.t<'context>, 'expected, ~message: string=?) => unit =
    "snapshot"
  @send
  external notThrows: (ExecutionContext.t<'context>, unit => 'a, ~message: string=?) => unit =
    "notThrows"
  @send
  external notThrowsAsync: (
    ExecutionContext.t<'context>,
    promise<'a>,
    ~message: string=?,
  ) => promise<unit> = "notThrowsAsync"
  @send external fail: (ExecutionContext.t<'context>, string) => 'any = "fail"
  @send external pass: (ExecutionContext.t<'context>, ~message: string=?) => unit = "pass"
  @send
  external like: (ExecutionContext.t<'context>, 'actual, 'selector, ~message: string=?) => unit =
    "like"
  @send
  external falsy: (ExecutionContext.t<'context>, 'actual, ~message: string=?) => unit = "falsy"
  @send
  external truthy: (ExecutionContext.t<'context>, 'actual, ~message: string=?) => unit = "truthy"
  @send
  external isFalse: (ExecutionContext.t<'context>, 'actual, ~message: string=?) => unit = "false"
  @send
  external isTrue: (ExecutionContext.t<'context>, 'actual, ~message: string=?) => unit = "true"

  module Skip = {
    @send @scope("is")
    external is: (ExecutionContext.t<'context>, 'value, 'value, ~message: string=?) => unit = "skip"
    @send @scope("is")
    external unsafeIs: (
      ExecutionContext.t<'context>,
      'actual,
      'expected,
      ~message: string=?,
    ) => unit = "skip"
    @send @scope("deepEqual")
    external deepEqual: (ExecutionContext.t<'context>, 'value, 'value, ~message: string=?) => unit =
      "skip"
    @send @scope("deepEqual")
    external unsafeDeepEqual: (
      ExecutionContext.t<'context>,
      'actual,
      'expected,
      ~message: string=?,
    ) => unit = "skip"
    @send @scope("regex")
    external regex: (ExecutionContext.t<'context>, string, Js.Re.t, ~message: string=?) => unit =
      "skip"
    @send @scope("throws")
    external throws: (
      ExecutionContext.t<'context>,
      unit => 'a,
      ~expectations: ThrowsExpectation.t=?,
      ~message: string=?,
    ) => unit = "skip"
    @send @scope("throwsAsync")
    external throwsAsync: (
      ExecutionContext.t<'context>,
      promise<'a>,
      ~expectations: ThrowsExpectation.t=?,
      ~message: string=?,
    ) => promise<unit> = "skip"
    @send @scope("not")
    external not: (ExecutionContext.t<'context>, 'actual, 'expected, ~message: string=?) => unit =
      "skip"
    @send @scope("notDeepEqual")
    external notDeepEqual: (
      ExecutionContext.t<'context>,
      'actual,
      'expected,
      ~message: string=?,
    ) => unit = "skip"
    @send @scope("notRegex")
    external notRegex: (ExecutionContext.t<'context>, string, Js.Re.t, ~message: string=?) => unit =
      "skip"
    @send @scope("snapshot")
    external snapshot: (ExecutionContext.t<'context>, 'expected, ~message: string=?) => unit =
      "skip"
    @send @scope("notRegex")
    external notThrows: (ExecutionContext.t<'context>, unit => 'a, ~message: string=?) => unit =
      "skip"
    @send @scope("notThrowsAsync")
    external notThrowsAsync: (
      ExecutionContext.t<'context>,
      promise<'a>,
      ~message: string=?,
    ) => promise<unit> = "skip"
    @send @scope("fail") external fail: (ExecutionContext.t<'context>, string) => 'any = "skip"
    @send @scope("pass")
    external pass: (ExecutionContext.t<'context>, ~message: string=?) => unit = "skip"
    @send @scope("like")
    external like: (ExecutionContext.t<'context>, 'actual, 'selector, ~message: string=?) => unit =
      "skip"
    @send @scope("falsy")
    external falsy: (ExecutionContext.t<'context>, 'actual, ~message: string=?) => unit = "skip"
    @send @scope("truthy")
    external truthy: (ExecutionContext.t<'context>, 'actual, ~message: string=?) => unit = "skip"
    @send @scope("false")
    external isFalse: (ExecutionContext.t<'context>, 'actual, ~message: string=?) => unit = "skip"
    @send @scope("true")
    external isTrue: (ExecutionContext.t<'context>, 'actual, ~message: string=?) => unit = "skip"
  }
}