module Test_rtadvd =

(* Example from rtadvd.conf(5) *)
let rtadvd_conf = "default:\\
        :chlim#64:raflags#0:rltime#1800:rtime#0:retrans#0:\\
        :pinfoflags=\"la\":vltime#2592000:pltime#604800:mtu#0:
ef0:\\
        :addr=\"2001:db8:ffff:1000::\":prefixlen#64:tc=default:
"

test Rtadvd.lns get rtadvd_conf =
  { "record"
    { "name" = "default" }
    { "capability" = "chlim#64" }
    { "capability" = "raflags#0" }
    { "capability" = "rltime#1800" }
    { "capability" = "rtime#0" }
    { "capability" = "retrans#0" }
    { "capability" = "pinfoflags=\"la\"" }
    { "capability" = "vltime#2592000" }
    { "capability" = "pltime#604800" }
    { "capability" = "mtu#0" }
  }
  { "record"
    { "name" = "ef0" }
    { "capability" = "addr=\"2001:db8:ffff:1000::\"" }
    { "capability" = "prefixlen#64" }
    { "capability" = "tc=default" }
  }