| Server IP : 127.0.0.2 / Your IP : 52.15.220.116 Web Server : Apache/2.4.18 (Ubuntu) System : User : www-data ( ) PHP Version : 7.0.33-0ubuntu0.16.04.16 Disable Function : disk_free_space,disk_total_space,diskfreespace,dl,exec,fpaththru,getmyuid,getmypid,highlight_file,ignore_user_abord,leak,listen,link,opcache_get_configuration,opcache_get_status,passthru,pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,php_uname,phpinfo,posix_ctermid,posix_getcwd,posix_getegid,posix_geteuid,posix_getgid,posix_getgrgid,posix_getgrnam,posix_getgroups,posix_getlogin,posix_getpgid,posix_getpgrp,posix_getpid,posix,_getppid,posix_getpwnam,posix_getpwuid,posix_getrlimit,posix_getsid,posix_getuid,posix_isatty,posix_kill,posix_mkfifo,posix_setegid,posix_seteuid,posix_setgid,posix_setpgid,posix_setsid,posix_setuid,posix_times,posix_ttyname,posix_uname,pclose,popen,proc_open,proc_close,proc_get_status,proc_nice,proc_terminate,shell_exec,source,show_source,system,virtual MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/share/augeas/lenses/dist/tests/ |
Upload File : |
(*
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" } }