16 lines
522 B
Plaintext
16 lines
522 B
Plaintext
(*
|
|
Module: Test_Sysconfig_Route
|
|
Provides unit tests and examples for the <Sysconfig_Route> lens.
|
|
*)
|
|
module Test_sysconfig_route =
|
|
|
|
(* Test: Sysconfig_Route.lns *)
|
|
test Sysconfig_Route.lns get "10.40.11.102/32 via 10.40.8.1\n10.1.8.0/24 via 10.40.8.254\n" =
|
|
{ "10.40.8.1" = "10.40.11.102/32" }
|
|
{ "10.40.8.254" = "10.1.8.0/24" }
|
|
|
|
(* Test: Sysconfig_Route.lns *)
|
|
test Sysconfig_Route.lns get "10.40.11.102/32 via 10.40.8.1\n10.1.8.0/24 via 10.40.8.1\n" =
|
|
{ "10.40.8.1" = "10.40.11.102/32" }
|
|
{ "10.40.8.1" = "10.1.8.0/24" }
|