Add testing of CSV lines parsing.

This commit is contained in:
Dominik Pantůček 2023-03-30 21:42:43 +02:00
parent 0d7a7f765c
commit e1b673a519
2 changed files with 11 additions and 4 deletions

View file

@ -122,7 +122,7 @@
(* value (*progress%-width*)))))
(swidth (- (*progress%-width*) bwidth)))
(display
(sprintf "\r[~A~A]~A% ~A"
(sprintf "\r[~A~A] ~A% ~A"
(make-string bwidth #\=)
(make-string swidth #\space)
ivalue%