module Test_CSV =

(* Test: CSV.lns

     Simple test *)

test CSV.lns get "a,b,c\n" =

  { "1"

    { "1" = "a" }

    { "2" = "b" }

    { "3" = "c" } }

(* Test: CSV.lns

     Values with spaces *)

test CSV.lns get "a,b c,d\n" =

  { "1"

    { "1" = "a" }

    { "2" = "b c" }

    { "3" = "d" } }

(* Test: CSV.lns

     Quoted values *)

test CSV.lns get "a,\"b,c\",d

# comment

#

e,f,with space\n" =

  { "1"

    { "1" = "a" }

    { "2" = "\"b,c\"" }

    { "3" = "d" } }

  { "#comment" = "comment" }

  { }

  { "2"

    { "1" = "e" }

    { "2" = "f" }

    { "3" = "with space" } }

(* Test: CSV.lns

     Empty values *)

test CSV.lns get ",

,,\n" =

  { "1"

    { "1" = "" }

    { "2" = "" } }

  { "2"

    { "1" = "" }

    { "2" = "" }

    { "3" = "" } }

(* Test: CSV.lns

     Trailing spaces *)

test CSV.lns get "a , b 

 \n" =

  { "1"

    { "1" = "a " }

    { "2" = " b " } }

  { "2"

    { "1" = " " } }

(* Test: CSV.lns

     Quoted values in quoted values *)

test CSV.lns get "\"a,b\"\"c d\"\"\"\n" =

  { "1" { "1" = "\"a,b\"\"c d\"\"\"" } }

(* Test: CSV.lns

     Quote in quoted values *)

test CSV.lns get "\"a,b\"\"c d\"\n" =

  { "1" { "1" = "\"a,b\"\"c d\"" } }

(* Test: CSV.lns

     Values with newlines *)

test CSV.lns get "a,\"b\n c\"\n" =

  { "1"

    { "1" = "a" }

    { "2" = "\"b\n c\"" } }

(* Test: CSV.lns_semicol

     Semi-colon lens *)

test CSV.lns_semicol get "a;\"b;c\";d

# comment

#

e;f;with space\n" =

  { "1"

    { "1" = "a" }

    { "2" = "\"b;c\"" }

    { "3" = "d" } }

  { "#comment" = "comment" }

  {  }

  { "2"

    { "1" = "e" }

    { "2" = "f" }

    { "3" = "with space" } }