Changeset 34889 in project for release/4/csv-xml/trunk/tests/run.scm


Ignore:
Timestamp:
11/12/17 00:08:23 (4 years ago)
Author:
Kon Lovett
Message:

fix quoting when sep char , fix quoting when # or ???

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/csv-xml/trunk/tests/run.scm

    r34884 r34889  
    171171  (call-with-output-string
    172172   (lambda (out)
    173      (let ((writer (writer-spec separator-char: delimiter)))
     173     (let ((writer (writer-spec separator-char: delimiter always-quote?: #f)))
    174174       (list->csv rows (make-csv-writer out writer))))))
    175175
     
    178178(let* ((delimiter #\,)
    179179       (csv (write-csv rows delimiter)))
    180   ;(printf "Serialized form:\n~a\n" csv)
     180  (printf "Serialized form (always-quote?: #f):\n~a\n" csv)
    181181  (let ((result (read-csv csv delimiter)))
    182182    (test "Roundtrip" rows result) ) )
Note: See TracChangeset for help on using the changeset viewer.