augeas-lenses 1.4.0-0ubuntu1.1 / usr / share / augeas / lenses / dist / tests / test_erlang.aug

This file is indexed.

/usr/share/augeas/lenses/dist/tests/test_erlang.aug is in augeas-lenses 1.4.0-0ubuntu1.1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
(*
Module: Test_Erlang
  Provides unit tests and examples for the <Erlang> lens.
*)
module Test_Erlang =

(* Group: comments *)
test Erlang.comment get "% This is a comment\n" =
  { "#comment" = "This is a comment" }

(* Group: simple values *)

let value_bare = Erlang.value Rx.word Erlang.bare

test value_bare get "{foo, bar}" = { "foo" = "bar" }

let value_decimal = Erlang.value Rx.word Erlang.decimal

test value_bare get "{foo, 0.25}" = { "foo" = "0.25" }

let value_quoted = Erlang.value Rx.word Erlang.quoted

test value_quoted get "{foo, '0.25'}" = { "foo" = "0.25" }

let value_glob = Erlang.value Rx.word Erlang.glob

test value_glob get "{foo, <<\".*\">>}" = { "foo" = ".*" }

let value_boolean = Erlang.value Rx.word Erlang.boolean

test value_boolean get "{foo, false}" = { "foo" = "false" }


(* Group: list values *)

let list_bare = Erlang.value_list Rx.word Erlang.bare

test list_bare get "{foo, [bar, baz]}" =
  { "foo"
    { "value" = "bar" }
    { "value" = "baz" } }

(* Group: tuple values *)

let tuple_bare = Erlang.tuple Erlang.bare Erlang.bare

test tuple_bare get "{foo, bar}" =
  { "tuple"
    { "value" = "foo" }
    { "value" = "bar" } }

(* Group: application *)

let list_bare_app = Erlang.application (Rx.word - "kernel") list_bare

test list_bare_app get "{foo, [{bar, [baz, bat]}]}" =
  { "foo"
    { "bar"
      { "value" = "baz" }
      { "value" = "bat" } } }

(* no settings *)
test list_bare_app get "{foo, []}" =
  { "foo" }

(* Group: kernel *)

test Erlang.kernel get "{kernel, [
  {browser_cmd, \"/foo/bar\"},
  {dist_auto_connect, once},
  {error_logger, tty},
  {net_setuptime, 5},
  {start_dist_ac, true}
]}" =
  { "kernel"
    { "browser_cmd" = "/foo/bar" }
    { "dist_auto_connect" = "once" }
    { "error_logger" = "tty" }
    { "net_setuptime" = "5" }
    { "start_dist_ac" = "true" } }

(* Group: config *)

let list_bare_config = Erlang.config list_bare_app

test list_bare_config get "[
  {foo, [{bar, [baz, bat]}]},
  {goo, [{gar, [gaz, gat]}]}
  ].\n" =
  { "foo"
    { "bar"
      { "value" = "baz" }
      { "value" = "bat" } } }
  { "goo"
    { "gar"
      { "value" = "gaz" }
      { "value" = "gat" } } }

(* Test Erlang's kernel app config is parsed *)
test list_bare_config get "[
  {foo, [{bar, [baz, bat]}]},
  {kernel, [{start_timer, true}]}
  ].\n" =
  { "foo"
    { "bar"
      { "value" = "baz" }
      { "value" = "bat" } } }
  { "kernel"
    { "start_timer" = "true" } }

APT Browse - Built by Thomas Orozco.