2018-01-26 20:20:12 -08:00
|
|
|
#..
|
|
|
|
|
Tests for the stuff defined in lib/text.nom
|
|
|
|
|
|
2018-02-02 15:48:28 -08:00
|
|
|
use "core"
|
2018-01-26 20:20:12 -08:00
|
|
|
|
|
|
|
|
assume ((["x","y"] joined with ",") = "x,y") or barf "joined with failed"
|
|
|
|
|
assume ((["x","y"] joined) = "xy") or barf "joined failed"
|
|
|
|
|
assume (("asdf" capitalized) = "Asdf") or barf "capitalized failed"
|
|
|
|
|
assume (("asdf" with "X" instead of "s") = "aXdf") or barf "substitution failed"
|
|
|
|
|
# TODO: add tests for indent/dedent
|
|
|
|
|
assume ("\n" = (newline)) or barf "Text literals failed."
|
|
|
|
|
%x <- "\(green)hello\(reset color)"
|
|
|
|
|
assume (("x" + "y") = "xy")
|
2018-02-02 15:48:28 -08:00
|
|
|
|
|
|
|
|
say "Text test passed."
|
