blob: 1a7ab01cf3d1952b24c5292b882db66a71f45048 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(.module:
[lux #*
[control
[monad (#+ Monad do)]]
[data
["." text
format]]]
lux/test)
(context: "Formatters"
(let [(^open "&;.") text.equivalence]
($_ seq
(test "Can format common values simply."
(and (&;= "#1" (%b #1))
(&;= "123" (%n 123))
(&;= "+123" (%i +123))
(&;= "+123.456" (%f +123.456))
(&;= ".5" (%r .5))
(&;= (format text.double-quote "YOLO" text.double-quote) (%t "YOLO"))
(&;= "User-id: +123 -- Active: #1" (format "User-id: " (%i +123) " -- Active: " (%b #1)))))
)))
|