diff options
Diffstat (limited to 'tests/018/format.tl')
| -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")) |