49 lines
1.4 KiB
Plaintext
49 lines
1.4 KiB
Plaintext
(*
|
|
Module: Test_Approx
|
|
Provides unit tests and examples for the <Approx> lens.
|
|
*)
|
|
|
|
module Test_approx =
|
|
|
|
(* Variable: default_approx
|
|
A full configuration *)
|
|
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
|
|
Testing <Approx.lns> on <default_approx> *)
|
|
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." }
|
|
{ }
|
|
{ "$interface" = "any" }
|
|
{ "$port" = "9999" }
|
|
{ "$interval" = "720" }
|
|
{ "$max_wait" = "10" }
|
|
{ "$max_rate" = "unlimited" }
|
|
{ "$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" }
|