31 lines
706 B
Plaintext
31 lines
706 B
Plaintext
|
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" = "" }
|
||
|
|
}
|
||
|
|
|