diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-10-18 23:47:42 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-10-18 23:47:42 -0700 |
| commit | 6ee766e631b512f63a444a28e67fc79b69a0e5a6 (patch) | |
| tree | fca873f0094502d52a6d8bf9bda10fac013568b0 /tests/018 | |
| parent | 07ae23e86e837b84c4fdfd926ad41cac736b01bc (diff) | |
| download | txr-6ee766e631b512f63a444a28e67fc79b69a0e5a6.tar.gz txr-6ee766e631b512f63a444a28e67fc79b69a0e5a6.tar.bz2 txr-6ee766e631b512f63a444a28e67fc79b69a0e5a6.zip | |
pic: digit separator tests.
* tests/018/format.tl: New test cases.
Diffstat (limited to 'tests/018')
| -rw-r--r-- | tests/018/format.tl | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/tests/018/format.tl b/tests/018/format.tl index 307d4d96..0758d32f 100644 --- a/tests/018/format.tl +++ b/tests/018/format.tl @@ -219,6 +219,30 @@ (pic "X##.#Y<<<Z>>>W" 1 2 3) "X 1.0Y2 Z 3W" (pic "~###.#~#<<<~#>>>~#" 1 2 3) "# 1.0#2 # 3#") +(mtest + (pic "#,#,#,#" 1234) "1,2,3,4" + (pic "#,##,#" 1234) "1,23,4" + (pic "##,##" 1234) "12,34" + (pic "###," 1234) "1234," + (pic ",###" 1234) ",1234" + (pic "##,##" 1234.1) "12,34" + (pic "#,###,###.###,###" 1234.1) " 1,234.100,000" + (pic "#,###,###.##" -1234.1) " -1,234.10" + (pic "0,###,###.##" 1234.1) "0,001,234.10" + (pic "+#,##,###.##" 234.1) " +234.10" + (pic "+#,##,###.##" + 123456.7) "+1,23,456.70" + (pic "+#,##,###.##" 1234.1) " +1,234.10" + (pic "-#,##,###.##" 1234.1) " 1,234.10" + (pic "+0,#####.##" 1234.1) "+0,01234.10" + (pic "-0,#####.##" 1234.1) " 0,01234.10") + +(mtest + (pic "$###,###!##" 234567.89) "$234,567.89" + (pic "$###,###!##" 1234567.89) "$###,###.##" + (pic "#,#,#!" 123) "1,2,3" + (pic "#,#,#!" 1234) "#,#,#") + (test (mapcar (do pic "foo~-0##.jpg") (rlist 0..5 8 12)) ("foo-000.jpg" "foo-001.jpg" "foo-002.jpg" "foo-003.jpg" "foo-004.jpg" "foo-005.jpg" "foo-008.jpg" "foo-012.jpg")) |