lenses/tests/test_spacevars.aug

   1 module Test_spacevars =
   2
   3     let conf ="# This a spaced key/value configuration file.
   4 keyword value
   5
   6 # I like comments
   7 very.useful-key my=value
   8
   9 a.flag
  10 "
  11
  12     let lns = Spacevars.lns
  13
  14     test lns get conf =
  15         { "#comment" = "This a spaced key/value configuration file."}
  16         { "keyword" = "value" }
  17         {}
  18         { "#comment" = "I like comments"}
  19         { "very.useful-key" = "my=value" }
  20         {}
  21         { "a.flag" }