Main.fs

module Fable.Tests.DefineConstants.DebugWithExtraDefines

open Fable.Core
open Fable.Core.JsInterop
open Fable.Core.Testing

let inline describe (name: string) (f: unit->unit) : unit = import "describe" "node:test"
let inline it (msg: string) (f: unit->unit) : unit = import "it" "node:test"

let equals expected actual = Assert.AreEqual(actual, expected)

describe "DebugWithExtraDefines" (fun () ->
    let isDefined = "is defined"
    let notDefined = "not defined"

    it "should define DEBUG" (fun () ->
        #if DEBUG
        isDefined
        #else
        notDefined
        #endif
        |> equals isDefined
    )

    it "should define FOOBAR" (fun () ->
        #if FOOBAR
        isDefined
        #else
        notDefined
        #endif
        |> equals isDefined
    )
)