module Test_rancid =

(* Examples from router.db(5) *)
let rancid = "dial1.paris;cisco;up
core1.paris;cisco;down;in testing until 5/5/2001.
core2.paris;cisco;ticketed;Ticket 6054234, 5/3/2001
border1.paris;juniper;up;
"

test Rancid.lns get rancid =
  { "device" = "dial1.paris"
    { "type" = "cisco" }
    { "state" = "up" }
  }
  { "device" = "core1.paris"
    { "type" = "cisco" }
    { "state" = "down" }
    { "comment" = "in testing until 5/5/2001." }
  }
  { "device" = "core2.paris"
    { "type" = "cisco" }
    { "state" = "ticketed" }
    { "comment" = "Ticket 6054234, 5/3/2001" }
  }
  { "device" = "border1.paris"
    { "type" = "juniper" }
    { "state" = "up" }
    { "comment" = "" }
  }