lenses/tests/test_protocols.aug

   1 (*
   2 Module: Test_Protocols
   3   Provides unit tests and examples for the <Protocols> lens.
   4 *)
   5
   6 module Test_Protocols =
   7
   8 (* Variable: conf *)
   9 let conf = "# Internet (IP) protocols
  10
  11 ip      0       IP              # internet protocol, pseudo protocol number
  12 #hopopt 0       HOPOPT          # IPv6 Hop-by-Hop Option [RFC1883]
  13 icmp    1       ICMP            # internet control message protocol
  14 igmp    2       IGMP            # Internet Group Management
  15 tp++    39  TP++        # TP++ Transport Protocol
  16 a/n 107 A/N     # Active Networks
  17 "
  18
  19 (* Test: Protocols.lns *)
  20 test Protocols.lns get conf =
  21   { "#comment" = "Internet (IP) protocols" }
  22   {  }
  23   { "1"
  24     { "protocol" = "ip" }
  25     { "number" = "0" }
  26     { "alias" = "IP" }
  27     { "#comment" = "internet protocol, pseudo protocol number" }
  28   }
  29   { "#comment" = "hopopt        0       HOPOPT          # IPv6 Hop-by-Hop Option [RFC1883]" }
  30   { "2"
  31     { "protocol" = "icmp" }
  32     { "number" = "1" }
  33     { "alias" = "ICMP" }
  34     { "#comment" = "internet control message protocol" }
  35   }
  36   { "3"
  37     { "protocol" = "igmp" }
  38     { "number" = "2" }
  39     { "alias" = "IGMP" }
  40     { "#comment" = "Internet Group Management" }
  41   }
  42   { "4"
  43     { "protocol" = "tp++" }
  44     { "number" = "39" }
  45     { "alias" = "TP++" }
  46     { "#comment" = "TP++ Transport Protocol" }
  47   }
  48   { "5"
  49     { "protocol" = "a/n" }
  50     { "number" = "107" }
  51     { "alias" = "A/N" }
  52     { "#comment" = "Active Networks" }
  53   }