lib.asserts.checkAssertWarn

Wrap a value with logic that throws an error when assertions fail and emits any warnings.

Inputs

assertions

A list of assertions. If any of their assertion attrs is false, their message attrs will be emitted in a throw.

warnings

A list of strings to emit as warnings. This function does no filtering on this list.

val

A value to return, wrapped in warn, if a throw is not necessary.

Type

checkAssertWarn :: [ { assertion :: Bool; message :: String } ] -> [ String ] -> Any -> Any

Examples

checkAssertWarn
  [ { assertion = false; message = "Will fail"; } ]
  [ ]
  null
stderr>        error:
stderr>        Failed assertions:
stderr>        - Will fail

checkAssertWarn
  [ { assertion = true; message = "Will not fail"; } ]
  [ "Will warn" ]
  null
stderr> evaluation warning: Will warn
null

Noogle detected

checkAssertWarn =
    assertions: warnings: val:
    let
      failedAssertions = map (x: x.message) (filter (x: !x.assertion) assertions);
    in
    if failedAssertions != [ ] then
      throw "\nFailed assertions:\n${concatStringsSep "\n" (map (x: "- ${x}") failedAssertions)}"
    else
      showWarnings warnings val;