(load "../common")

(defvarl *d0*
  '("one two three"
    " four five six "
    "   seven  eight \t   nine  ten\t "))

(motest
  (awk (:inputs *d0*)
       (t (prn nf)))
  "3\n3\n4\n"
  (awk (:inputs *d0*)
       (:set ofs ",")
       (t (set f f)
          (prn)))
  "one,two,three\nfour,five,six\nseven,eight,nine,ten\n"
  (awk (:inputs *d0*)
       (:set ofs "," fs #/[\t ]+/)
       (t (set f f)
          (prn)))
  "one,two,three\n,four,five,six,\n,seven,eight,nine,ten,\n"
  (awk (:inputs *d0*)
       (:set ofs "," fs #/[\t ]+/ kfs t)
       (t (set f f)
          (prn)))
  "one, ,two, ,three\n, ,four, ,five, ,six, ,\n,   ,seven,  ,eight, \t   ,nine,  ,ten,\t ,\n"
  (awk (:inputs *d0*)
       (:set ofs "," fs #/[\t ]+/ kfs t fw '(3 2 2))
       (t (set f f)
          (prn)))
  "one, t,wo, three\n fo,ur, f,ive six \n   ,se,ve,n  eight \t   nine  ten\t \n"
  (awk (:inputs *d0*)
       (:set ofs "," fs #/[\t ]+/ ft #/./)
       (t (set f f)
          (prn)))
  :error
  (awk (:inputs *d0*)
       (:set ofs "," ft #/[a-z]+/)
       (t (set f f)
          (prn)))
  "one,two,three\nfour,five,six\nseven,eight,nine,ten\n")

(defvarl *d1* "a,b,c\r\n\r\nd,e,f\r\ng,h,i")

(motest
  (awk (:inputs (make-string-input-stream *d1*))
       (:set fs :csv)
       (t (prn nf)))
  "3\n1\n3\n3\n"
  (awk (:inputs (make-string-input-stream *d1*))
       (:set fs :csv ofs "|")
       (t (set f f)
          (prn)))
  "a|b|c\r\n\r\nd|e|f\r\ng|h|i\n"
  (awk (:inputs (make-string-input-stream *d1*))
       (:set fs :csv rs "\r\n" ofs "|")
       (t (set f f)
          (prn)))
  "a|b|c\n\nd|e|f\ng|h|i\n")