(* Test for approx lens *)
module Test_approx =

  let default_approx = "# The following are the defaults, so there is no need
# to uncomment them unless you want a different value.
# See approx.conf(5) for details.

#interface	any
#port		9999
#interval	720
#max_wait	10
#max_rate	unlimited
#debug		false

# Here are some examples of remote repository mappings.
# See http://www.debian.org/mirror/list for mirror sites.

debian		http://ftp.nl.debian.org/debian
debian-volatile http://ftp.nl.debian.org/debian-volatile
security	http://security.debian.org
"

  test Approx.lns get default_approx = 
  { "#comment" = "The following are the defaults, so there is no need" }
  { "#comment" = "to uncomment them unless you want a different value." }
  { "#comment" = "See approx.conf(5) for details." }
  {  }
  { "#comment" = "interface	any" }
  { "#comment" = "port		9999" }
  { "#comment" = "interval	720" }
  { "#comment" = "max_wait	10" }
  { "#comment" = "max_rate	unlimited" }
  { "#comment" = "debug		false" }
  {  }
  { "#comment" = "Here are some examples of remote repository mappings." }
  { "#comment" = "See http://www.debian.org/mirror/list for mirror sites." }
  {  }
  { "debian" = "http://ftp.nl.debian.org/debian" }
  { "debian-volatile" = "http://ftp.nl.debian.org/debian-volatile" }
  { "security" = "http://security.debian.org" }