lenses/tests/test_tinc.aug

   1 module Test_tinc =
   2
   3 let lns = Tinc.lns
   4
   5 test lns get "Subnet = 10.1.4.5\n" = { "Subnet" = "10.1.4.5" }
   6 test lns get "foo = bar\n" = { "foo" = "bar" }
   7 test lns get "foo bar\n" = { "foo" = "bar" }
   8 test lns get "foo  bar\n" = { "foo" = "bar" }
   9
  10 test lns get
  11 "-----BEGIN RSA PUBLIC KEY-----
  12 abcde
  13 -----END RSA PUBLIC KEY-----" = { "#key" = "abcde" }
  14
  15 test lns get "foo = bar\nbar = baz\n" =
  16   { "foo" = "bar" }
  17   { "bar" = "baz" }
  18
  19 test lns get
  20 "foo = bar
  21
  22 -----BEGIN RSA PUBLIC KEY-----
  23 bar
  24 -----END RSA PUBLIC KEY-----" =
  25   { "foo" = "bar" }
  26   {  }
  27   { "#key" = "bar" }
  28
  29
  30 (*
  31 test lns get
  32 "-----BEGIN RSA PUBLIC KEY-----
  33 foo
  34 -----END RSA PUBLIC KEY-----
  35
  36 -----BEGIN RSA PUBLIC KEY-----
  37 bar
  38 -----END RSA PUBLIC KEY-----
  39 " = ?
  40 *)