Simple Unit Test & Terminal Color Modules

[chrisnevers]

While playing around I found myself writing these modules/functions and figured they could be generally handy? It doesn't seem like Amulet has a package manager yet, with that said I understand if these don't belong in the standard library.

Colors

• Composable functions for changing the color of terminal text.

Test

• Some methods for testing functions

  run_test   : string * (unit -> bool) -> unit
  run_tests  : list (string * (unit -> bool)) -> unit
  expect     : eq 'a * show 'a => string * (unit -> 'a) * 'a -> unit

Example Program

let test_add_1 () = add (Some 1) (Some 4) == 5
let test_add_2 () = add None None == 0

Test.run_tests [
  ("If both are present, add", test_add_1),
  ("If both absent, return 0", test_add_2)
]
Test.run_test ("Quick math", fun () -> 2 + 2 == 4)
Test.expect ("Get 3", fun () -> 5, 3)

Example Output

[plt-amy]

Please use currying instead of tuples to define functions of multiple arguments.

[SquidDev]

I've cherry-picked the filter_map implementation in the above commit. Having had a chat with @plt-abigail, we decided we're not entirely sure the ANSI support. Sorry!