. This maps the title of a record as a value in the abstract tree. The title may be indented with arbitrary amounts of whitespace
+
+ Parameters:
+ name:string - name for the title label
+ kw:regexp - keyword regexp for the label
+
+ Sample Usage:
+ > let title = IniFile.title_label "target" IniFile.record_label_re
+*)
+let indented_title_label (name:string) (kw:regexp)
+ = Util.indent . title_label name kw
+
+
+(*
+Variable: record_re
+ Default regexp for keyword pattern
+*)
+let record_re = ( /[^]\r\n\/]+/ - /#comment/ )
+
+(*
+Variable: record_label_re
+ Default regexp for <title_label> keyword pattern
+*)
+let record_label_re = /[^]\r\n]+/
+
+
+(* Group: Record definition *)
+
+(*
+View: record_noempty
+ INI File Record with no empty lines allowed.
+
+ Parameters:
+ title:lens - lens to use for title. Use either <title> or <title_label>.
+ entry:lens - lens to use for entries in the record. See <entry>.
+*)
+let record_noempty (title:lens) (entry:lens)
+ = [ title
+ . entry* ]
+
+(*
+View: record
+ Generic INI File record
+
+ Parameters:
+ title:lens - lens to use for title. Use either <title> or <title_label>.
+ entry:lens - lens to use for entries in the record. See <entry>.
+
+ Sample Usage:
+ > let record = IniFile.record title entry
+*)
+let record (title:lens) (entry:lens)
+ = record_noempty title ( entry | empty )
+
+
+(************************************************************************
+ * Group: GENERIC LENSES
+ *************************************************************************)
+
+
+(*
+
+Group: Lens definition
+
+View: lns_noempty
+ Generic INI File lens with no empty lines
+
+ Parameters:
+ record:lens - record lens to use. See <record_noempty>.
+ comment:lens - comment lens to use. See <comment>.
+
+ Sample Usage:
+ > let lns = IniFile.lns_noempty record comment
+*)
+let lns_noempty (record:lens) (comment:lens)
+ = comment* . record*
+
+(*
+View: lns
+ Generic INI File lens
+
+ Parameters:
+ record:lens - record lens to use. See <record>.
+ comment:lens - comment lens to use. See <comment>.
+
+ Sample Usage:
+ > let lns = IniFile.lns record comment
+*)
+let lns (record:lens) (comment:lens)
+ = lns_noempty record (comment|empty)
+
+
+(************************************************************************
+ * Group: READY-TO-USE LENSES
+ *************************************************************************)
+
+let record_anon (entry:lens) = [ label "section" . value ".anon" . ( entry | empty )+ ]
+
+(*
+View: lns_loose
+ A loose, ready-to-use lens, featuring:
+ - sections as values (to allow '/' in names)
+ - support empty lines and comments
+ - support for [#;] as comment, defaulting to ";"
+ - .anon sections
+ - don't allow multiline values
+ - allow indented titles
+ - allow indented entries
+*)
+let lns_loose =
+ let l_comment = comment comment_re comment_default
+ in let l_sep = sep sep_re sep_default
+ in let l_entry = indented_entry entry_re l_sep l_comment
+ in let l_title = indented_title_label "section" (record_label_re - ".anon")
+ in let l_record = record l_title l_entry
+ in (record_anon l_entry)? . l_record*
+
+(*
+View: lns_loose_multiline
+ A loose, ready-to-use lens, featuring:
+ - sections as values (to allow '/' in names)
+ - support empty lines and comments
+ - support for [#;] as comment, defaulting to ";"
+ - .anon sections
+ - allow multiline values
+*)
+let lns_loose_multiline =
+ let l_comment = comment comment_re comment_default
+ in let l_sep = sep sep_re sep_default
+ in let l_entry = entry_multiline entry_re l_sep l_comment
+ in let l_title = title_label "section" (record_label_re - ".anon")
+ in let l_record = record l_title l_entry
+ in (record_anon l_entry)? . l_record*
+
diff --git a/Sharp.Augeas.Test/lens/inittab.aug b/Sharp.Augeas.Test/lens/inittab.aug
new file mode 100644
index 0000000..68593ec
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/inittab.aug
@@ -0,0 +1,31 @@
+(* Parsing /etc/inittab *)
+module Inittab =
+ autoload xfm
+
+ let sep = Util.del_str ":"
+ let eol = Util.del_str "\n"
+
+ let id = /[^\/#:\n]{1,4}/
+ let value = /[^#:\n]*/
+
+ let comment = Util.comment|Util.empty
+
+ let record =
+ let field (name:string) = [ label name . store value ] in
+ let process = [ label "process" . store /[^#\n]*/ ] in
+ let eolcomment =
+ [ label "#comment" . del /#[ \t]*/ "# "
+ . store /([^ \t\n].*[^ \t\n]|[^ \t\n]?)/ ] in
+ [ key id . sep .
+ field "runlevels" . sep .
+ field "action" . sep .
+ process . eolcomment? . eol ]
+
+ let lns = ( comment | record ) *
+
+ let xfm = transform lns (incl "/etc/inittab")
+
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/inputrc.aug b/Sharp.Augeas.Test/lens/inputrc.aug
new file mode 100644
index 0000000..3902528
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/inputrc.aug
@@ -0,0 +1,59 @@
+(*
+Module: Inputrc
+ Parses /etc/inputrc
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 3 readline` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/inputrc. See <filter>.
+
+About: Examples
+ The <Test_Inputrc> file contains various examples and tests.
+*)
+
+module Inputrc =
+
+autoload xfm
+
+(* View: entry
+ An inputrc mapping entry *)
+let entry =
+ let mapping = [ label "mapping" . store /[A-Za-z0-9_."\*\/+\,\\-]+/ ]
+ in [ label "entry"
+ . Util.del_str "\"" . store /[^" \t\n]+/
+ . Util.del_str "\":" . Sep.space
+ . mapping
+ . Util.eol ]
+
+(* View: variable
+ An inputrc variable declaration *)
+let variable = [ Util.del_str "set" . Sep.space
+ . key (Rx.word - "entry") . Sep.space
+ . store Rx.word . Util.eol ]
+
+(* View: condition
+ An "if" declaration, recursive *)
+let rec condition = [ Util.del_str "$if" . label "@if"
+ . Sep.space . store Rx.space_in . Util.eol
+ . (Util.empty | Util.comment | condition | variable | entry)*
+ . [ Util.del_str "$else" . label "@else" . Util.eol
+ . (Util.empty | Util.comment | condition | variable | entry)* ] ?
+ . Util.del_str "$endif" . Util.eol ]
+
+(* View: lns
+ The inputrc lens *)
+let lns = (Util.empty | Util.comment | condition | variable | entry)*
+
+(* Variable: filter *)
+let filter = incl "/etc/inputrc"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/interfaces.aug b/Sharp.Augeas.Test/lens/interfaces.aug
new file mode 100644
index 0000000..fed982e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/interfaces.aug
@@ -0,0 +1,131 @@
+(* Interfaces module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: man interfaces
+
+*)
+
+module Interfaces =
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+
+(* Define separators *)
+
+(* a line can be extended across multiple lines by making the last *)
+(* character a backslash *)
+let sep_spc = del /([ \t]+|[ \t]*\\\\\n[ \t]*)/ " "
+
+(* Define fields *)
+let sto_to_eol = store /([^\\ \t\n].*[^\\ \t\n]|[^\\ \t\n])/ . eol
+let sto_to_spc = store /[^\\ \t\n]+/
+
+(* Define comments and empty lines *)
+
+(* note that the comment definition from Util does not support *)
+(* splitting lines with a backlash *)
+let comment = Util.comment
+
+let empty = Util.empty
+
+(* Define tree stanza_ids *)
+let stanza_id (t:string) = key t . sep_spc . sto_to_spc
+let stanza_param (l:string) = [ sep_spc . label l . sto_to_spc ]
+
+(* Define reserved words and multi-value options *)
+let stanza_word =
+ /(source(-directory)?|iface|auto|allow-[a-z-]+|mapping|bond-slaves|bridge-ports)/
+
+(* Define stanza option indentation *)
+let stanza_indent = del /[ \t]*/ " "
+
+(* Define additional lines for multi-line stanzas *)
+let stanza_option = [ stanza_indent
+ . key ( /[a-z0-9_-]+/ - stanza_word )
+ . sep_spc
+ . sto_to_eol ]
+
+(* Define space-separated array *)
+let array (r:regexp) (t:string) = del r t . label t . counter t
+ . [ sep_spc . seq t . sto_to_spc ]+
+
+(************************************************************************
+ * AUTO
+ *************************************************************************)
+
+let auto = [ array /(allow-)?auto/ "auto" . eol ]
+
+(************************************************************************
+ * GENERIC ALLOW
+ *************************************************************************)
+
+let allow = [ key ( /allow-[a-z-]+/ - "allow-auto" )
+ . counter "allow_seq"
+ . [ sep_spc . seq "allow_seq" . sto_to_spc ]+
+ . eol ]
+
+(************************************************************************
+ * MAPPING
+ *************************************************************************)
+
+let mapping = [ stanza_id "mapping"
+ . eol
+ . (stanza_option|comment|empty)+ ]
+
+(************************************************************************
+ * IFACE
+ *************************************************************************)
+
+let multi_option (t:string) = [ stanza_indent . array t t . eol ]
+
+let iface = [ Util.indent
+ . stanza_id "iface"
+ . stanza_param "family"
+ . stanza_param "method"
+ . eol
+ . ( stanza_option
+ | multi_option "bond-slaves"
+ | multi_option "bridge-ports"
+ | comment
+ | empty )* ]
+
+(************************************************************************
+ * SOURCE
+ *************************************************************************)
+
+let source = [ key "source" . sep_spc . sto_to_eol ]
+
+(************************************************************************
+ * SOURCE-DIRECTORY
+ *************************************************************************)
+
+let source_directory = [ key "source-directory" . sep_spc . sto_to_eol ]
+
+(************************************************************************
+ * STANZAS
+ *************************************************************************)
+
+(* The auto and hotplug stanzas always consist of one line only, while
+ iface and mapping can spand along more lines. Comment nodes are
+ inserted in the tree as direct children of the root node only when they
+ come after an auto or hotplug stanza, otherwise they are considered part
+ of an iface or mapping block *)
+
+let stanza_single = (auto|allow|source|source_directory) . (comment|empty)*
+let stanza_multi = iface|mapping
+
+(************************************************************************
+ * LENS & FILTER
+ *************************************************************************)
+
+ let lns = (comment|empty)* . (stanza_multi | stanza_single)*
+
+ let filter = (incl "/etc/network/interfaces")
+ . (incl "/etc/network/interfaces.d/*")
+ . Util.stdexcl
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/iproute2.aug b/Sharp.Augeas.Test/lens/iproute2.aug
new file mode 100644
index 0000000..fa3dcb7
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/iproute2.aug
@@ -0,0 +1,10 @@
+module IPRoute2 =
+ autoload xfm
+
+ let empty = [ del /[ \t]*#?[ \t]*\n/ "\n" ]
+ let id = Rx.hex | Rx.integer
+ let record = [ key id . del /[ \t]+/ "\t" . store /[a-zA-Z0-9\/-]+/ . Util.comment_or_eol ]
+
+ let lns = ( empty | Util.comment | record ) *
+
+ let xfm = transform lns (incl "/etc/iproute2/*" . Util.stdexcl)
diff --git a/Sharp.Augeas.Test/lens/iptables.aug b/Sharp.Augeas.Test/lens/iptables.aug
new file mode 100644
index 0000000..8ad2aef
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/iptables.aug
@@ -0,0 +1,87 @@
+module Iptables =
+ autoload xfm
+
+(*
+Module: Iptables
+ Parse the iptables file format as produced by iptables-save. The
+ resulting tree is fairly simple; in particular a rule is simply
+ a long list of options/switches and their values (if any)
+
+ This lens should be considered experimental
+*)
+
+let comment = Util.comment
+let empty = Util.empty
+let eol = Util.eol
+let spc = Util.del_ws_spc
+let dels = Util.del_str
+
+let chain_name = store /[A-Za-z0-9_-]+/
+let chain =
+ let policy = [ label "policy" . store /ACCEPT|DROP|REJECT|-/ ] in
+ let counters_eol = del /[ \t]*(\[[0-9:]+\])?[ \t]*\n/ "\n" in
+ [ label "chain" .
+ dels ":" . chain_name . spc . policy . counters_eol ]
+
+let param (long:string) (short:string) =
+ [ label long .
+ spc . del (/--/ . long | /-/ . short) ("-" . short) . spc .
+ store /(![ \t]*)?[^ \t\n!-][^ \t\n]*/ ]
+
+(* A negatable parameter, which can either be FTW
+ ! --param arg
+ or
+ --param ! arg
+*)
+let neg_param (long:string) (short:string) =
+ [ label long .
+ [ spc . dels "!" . label "not" ]? .
+ spc . del (/--/ . long | /-/ . short) ("-" . short) . spc .
+ store /(![ \t]*)?[^ \t\n!-][^ \t\n]*/ ]
+
+let tcp_flags =
+ let flags = /SYN|ACK|FIN|RST|URG|PSH|ALL|NONE/ in
+ let flag_list (name:string) =
+ Build.opt_list [label name . store flags] (dels ",") in
+ [ label "tcp-flags" .
+ spc . dels "--tcp-flags" .
+ spc . flag_list "mask" . spc . flag_list "set" ]
+
+(* misses --set-counters *)
+let ipt_match =
+ let any_key = /[a-zA-Z-][a-zA-Z0-9-]+/ -
+ /protocol|source|destination|jump|goto|in-interface|out-interface|fragment|match|tcp-flags/ in
+ let any_val = /([^" \t\n!-][^ \t\n]*)|"([^"\\\n]|\\\\.)*"/ in
+ let any_param =
+ [ [ spc . dels "!" . label "not" ]? .
+ spc . dels "--" . key any_key . (spc . store any_val)? ] in
+ (neg_param "protocol" "p"
+ |neg_param "source" "s"
+ |neg_param "destination" "d"
+ |param "jump" "j"
+ |param "goto" "g"
+ |neg_param "in-interface" "i"
+ |neg_param "out-interface" "o"
+ |neg_param "fragment" "f"
+ |param "match" "m"
+ |tcp_flags
+ |any_param)*
+
+let chain_action (n:string) (o:string) =
+ [ label n .
+ del (/--/ . n | o) o .
+ spc . chain_name . ipt_match . eol ]
+
+let table_rule = chain_action "append" "-A"
+ | chain_action "insert" "-I"
+ | empty
+
+
+let table = [ del /\*/ "*" . label "table" . store /[a-z]+/ . eol .
+ (chain|comment|table_rule)* .
+ dels "COMMIT" . eol ]
+
+let lns = (comment|empty|table)*
+let xfm = transform lns (incl "/etc/sysconfig/iptables"
+ . incl "/etc/sysconfig/iptables.save"
+ . incl "/etc/iptables-save")
diff --git a/Sharp.Augeas.Test/lens/iscsid.aug b/Sharp.Augeas.Test/lens/iscsid.aug
new file mode 100644
index 0000000..0f373da
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/iscsid.aug
@@ -0,0 +1,28 @@
+(*
+Module: Iscsid
+Parses iscsid configuration file
+Author: Joey Boggs <jboggs@redhat.com>
+About: Reference
+This lens is targeted at /etc/iscsi/iscsid.conf
+*)
+module Iscsid =
+ autoload xfm
+
+ let filter = incl "/etc/iscsi/iscsid.conf"
+
+ let eol = Util.eol
+ let indent = Util.indent
+ let key_re = /[][A-Za-z0-9_.-]+/
+ let eq = del /[ \t]*=[ \t]*/ " = "
+ let value_re = /[^ \t\n](.*[^ \t\n])?/
+
+ let comment = [ indent . label "#comment" . del /[#;][ \t]*/ "# "
+ . store /([^ \t\n].*[^ \t\n]|[^ \t\n])/ . eol ]
+
+ let empty = Util.empty
+
+ let kv = [ indent . key key_re . eq . store value_re . eol ]
+
+ let lns = (empty | comment | kv) *
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/jaas.aug b/Sharp.Augeas.Test/lens/jaas.aug
new file mode 100644
index 0000000..4f06bad
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/jaas.aug
@@ -0,0 +1,36 @@
+(* Module Jaas *)
+(* Original Author: Simon Vocella <voxsim@gmail.com> *)
+(* Updated by: Steve Shipway <steve@steveshipway.org> *)
+(* Changes: allow comments within Modules, allow optionless flags, *)
+(* allow options without linebreaks, allow naked true/false options *)
+(* Trailing ';' terminator should not be included in option value *)
+(* Note: requires latest Util.aug for multiline comments to work *)
+
+module Jaas =
+
+autoload xfm
+
+let space_equal = del (/[ \t]*/ . "=" . /[ \t]*/) (" = ")
+let lbrace = del (/[ \t\n]*\{[ \t]*\n/) " {\n"
+let rbrace = del (/[ \t]*}[ \t]*;/) " };"
+let word = /[A-Za-z0-9_.-]+/
+let wsnl = del (/[ \t\n]+/) ("\n")
+let endflag = del ( /[ \t]*;/ ) ( ";" )
+
+let value_re =
+ let value_squote = /'[^\n']*'/
+ in let value_dquote = /"[^\n"]*"/
+ in let value_tf = /(true|false)/
+ in value_squote | value_dquote | value_tf
+
+let moduleOption = [ wsnl . key word . space_equal . (store value_re) ]
+let moduleSuffix = ( moduleOption | Util.eol . Util.comment_c_style | Util.comment_multiline )
+let flag = [ Util.del_ws_spc . label "flag" . (store word) . moduleSuffix* . endflag ]
+let loginModuleClass = [( Util.del_opt_ws "" . label "loginModuleClass" . (store word) . flag ) ]
+
+let content = (Util.empty | Util.comment_c_style | Util.comment_multiline | loginModuleClass)*
+let loginModule = [Util.del_opt_ws "" . label "login" . (store word . lbrace) . (content . rbrace)]
+
+let lns = (Util.empty | Util.comment_c_style | Util.comment_multiline | loginModule)*
+let filter = incl "/opt/shibboleth-idp/conf/login.config"
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/jettyrealm.aug b/Sharp.Augeas.Test/lens/jettyrealm.aug
new file mode 100644
index 0000000..a3fca03
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/jettyrealm.aug
@@ -0,0 +1,56 @@
+(*
+Module: JettyRealm
+ JettyRealm Properties for Augeas
+
+Author: Brian Redbeard <redbeard@dead-city.org>
+
+About: Reference
+ This lens ensures that properties files for JettyRealms are properly
+ handled by Augeas.
+
+About: License
+ This file is licensed under the LGPL License.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Create a new user
+ > ins user after /files/etc/activemq/jetty-realm.properties/user
+ > set /files/etc/activemq/jetty-realm.properties/user[last()]/username redbeard
+ > set /files/etc/activemq/jetty-realm.properties/user[last()]/password testing
+ > set /files/etc/activemq/jetty-realm.properties/user[last()]/realm admin
+ ...
+
+ * Delete the user named sample_user
+ > rm /files/etc/activemq/jetty-realm.properties/user[*][username = "sample_user"]
+
+ Saving your file:
+
+ > save
+
+About: Configuration files
+ This lens applies to jetty-realm.properties files. See <filter>.
+*)
+
+module JettyRealm =
+ autoload xfm
+
+
+(* View: comma_sep *)
+let comma_sep = del /,[ \t]*/ ", "
+
+(* View: realm_entry *)
+let realm_entry = [ label "user" .
+ [ label "username" . store Rx.word ] . del /[ \t]*:[ \t]*/ ": " .
+ [ label "password" . store Rx.word ] .
+ [ label "realm" . comma_sep . store Rx.word ]* .
+ Util.eol ]
+
+(* View: lns *)
+let lns = ( Util.comment | Util.empty | realm_entry )*
+
+
+(* Variable: filter *)
+let filter = incl "/etc/activemq/jetty-realm.properties"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/jmxaccess.aug b/Sharp.Augeas.Test/lens/jmxaccess.aug
new file mode 100644
index 0000000..c41c892
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/jmxaccess.aug
@@ -0,0 +1,58 @@
+(*
+Module: JMXAccess
+ JMXAccess module for Augeas
+
+Author: Brian Redbeard <redbeard@dead-city.org>
+
+
+About: Reference
+ This lens ensures that files included in JMXAccess are properly
+ handled by Augeas.
+
+About: License
+ This file is licensed under the LGPL License.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Create a new user
+ > ins user after /files/etc/activemq/jmx.access
+ > set /files/etc/activemq/jmx.password/user[last()]/username redbeard
+ > set /files/etc/activemq/jmx.password/user[last()]/access readonly
+ ...
+
+ * Delete the user named sample_user
+ > rm /files/etc/activemq/jmx.password/user[*][username = "sample_user"]
+
+ Saving your file:
+
+ > save
+
+About: Configuration files
+ This lens applies to relevant conf files located in /etc/activemq/
+ The following views correspond to the related files:
+ * access_entry:
+ /etc/activemq/jmx.access
+ See <filter>.
+
+
+*)
+
+module JMXAccess =
+ autoload xfm
+
+(* View: access_entry *)
+let access_entry = [ label "user" .
+ [ label "username" . store Rx.word ] . Sep.space .
+ [ label "access" . store /(readonly|readwrite)/i ] . Util.eol ]
+
+
+
+(* View: lns *)
+let lns = ( Util.comment | Util.empty | access_entry )*
+
+
+(* Variable: filter *)
+let filter = incl "/etc/activemq/jmx.access"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/jmxpassword.aug b/Sharp.Augeas.Test/lens/jmxpassword.aug
new file mode 100644
index 0000000..369ec1d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/jmxpassword.aug
@@ -0,0 +1,56 @@
+(*
+Module: JMXPassword
+ JMXPassword for Augeas
+
+Author: Brian Redbeard <redbeard@dead-city.org>
+
+
+About: Reference
+ This lens ensures that files included in JMXPassword are properly
+ handled by Augeas.
+
+About: License
+ This file is licensed under the LGPL License.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Create a new user
+ > ins user after /files/etc/activemq/jmx.password
+ > set /files/etc/activemq/jmx.password/user[last()]/username redbeard
+ > set /files/etc/activemq/jmx.password/user[last()]/password testing
+ ...
+
+ * Delete the user named sample_user
+ > rm /files/etc/activemq/jmx.password/user[*][username = "sample_user"]
+
+ Saving your file:
+
+ > save
+
+About: Configuration files
+ This lens applies to relevant conf files located in /etc/activemq/
+ The following views correspond to the related files:
+ * pass_entry:
+ /etc/activemq/jmx.password
+ See <filter>.
+
+
+*)
+
+module JMXPassword =
+ autoload xfm
+
+(* View: pass_entry *)
+let pass_entry = [ label "user" .
+ [ label "username" . store Rx.word ] . Sep.space .
+ [ label "password" . store Rx.no_spaces ] . Util.eol ]
+
+(* View: lns *)
+let lns = ( Util.comment | Util.empty | pass_entry )*
+
+
+(* Variable: filter *)
+let filter = incl "/etc/activemq/jmx.password"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/json.aug b/Sharp.Augeas.Test/lens/json.aug
new file mode 100644
index 0000000..c17f514
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/json.aug
@@ -0,0 +1,50 @@
+module Json =
+
+(* A generic lens for Json files *)
+(* Based on the following grammar from http://www.json.org/ *)
+(* Object ::= '{'Members ? '}' *)
+(* Members ::= Pair+ *)
+(* Pair ::= String ':' Value *)
+(* Array ::= '[' Elements ']' *)
+(* Elements ::= Value ( "," Value )* *)
+(* Value ::= String | Number | Object | Array | "true" | "false" | "null" *)
+(* String ::= "\"" Char* "\"" *)
+(* Number ::= /-?[0-9]+(\.[0-9]+)?([eE][+-]?[0-9]+)?/ *)
+
+
+let ws = del /[ \t\n]*/ ""
+let comment = Util.empty_c_style | Util.comment_c_style | Util.comment_multiline
+let comments = comment* . Sep.opt_space
+
+let comma = Util.del_str "," . comments
+let colon = Util.del_str ":" . comments
+let lbrace = Util.del_str "{" . comments
+let rbrace = Util.del_str "}"
+let lbrack = Util.del_str "[" . comments
+let rbrack = Util.del_str "]"
+
+(* This follows the definition of 'string' at https://www.json.org/
+ It's a little wider than what's allowed there as it would accept
+ nonsensical \u escapes *)
+let str_store = Quote.dquote . store /([^\\"]|\\\\["\/bfnrtu\\])*/ . Quote.dquote
+
+let number = [ label "number" . store /-?[0-9]+(\.[0-9]+)?([eE][+-]?[0-9]+)?/
+ . comments ]
+let str = [ label "string" . str_store . comments ]
+
+let const (r:regexp) = [ label "const" . store r . comments ]
+
+let fix_value (value:lens) =
+ let array = [ label "array" . lbrack
+ . ( ( Build.opt_list value comma . rbrack . comments )
+ | (rbrack . ws) ) ]
+ in let pair = [ label "entry" . str_store . ws . colon . value ]
+ in let obj = [ label "dict" . lbrace
+ . ( ( Build.opt_list pair comma. rbrace . comments )
+ | (rbrace . ws ) ) ]
+ in (str | number | obj | array | const /true|false|null/)
+
+(* Process arbitrarily deeply nested JSON objects *)
+let rec rlns = fix_value rlns
+
+let lns = comments . rlns
diff --git a/Sharp.Augeas.Test/lens/kdump.aug b/Sharp.Augeas.Test/lens/kdump.aug
new file mode 100644
index 0000000..ddf50ed
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/kdump.aug
@@ -0,0 +1,83 @@
+(*
+Module: Kdump
+ Parses /etc/kdump.conf
+
+Author: Roman Rakus <rrakus@redhat.com>
+
+About: References
+ manual page kdump.conf(5)
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Configuration files
+ This lens applies to /etc/kdump.conf. See <filter>.
+*)
+
+module Kdump =
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+let empty = Util.empty
+let comment = Util.comment
+let value_to_eol = store /[^ \t\n#][^\n#]*[^ \t\n#]|[^ \t\n#]/
+let int_to_eol = store Rx.integer
+let delimiter = Util.del_ws_spc
+let eol = Util.eol
+let value_to_spc = store Rx.neg1
+let key_to_space = key /[A-Za-z0-9_.\$-]+/
+let eq = Sep.equal
+
+(************************************************************************
+ * Group: ENTRY TYPES
+ *************************************************************************)
+
+let list (kw:string) = counter kw
+ . Build.key_value_line_comment kw delimiter
+ (Build.opt_list [ seq kw . value_to_spc ] delimiter)
+ comment
+
+let mdl_key_value = [ delimiter . key_to_space . ( eq . value_to_spc)? ]
+let mdl_options = [ key_to_space . mdl_key_value+ ]
+let mod_options = [ key "options" . delimiter . mdl_options . (comment|eol) ]
+
+(************************************************************************
+ * Group: ENTRIES
+ *************************************************************************)
+
+(* Got from mount(8) *)
+let fs_types = "adfs" | "affs" | "autofs" | "cifs" | "coda" | "coherent"
+ | "cramfs" | "debugfs" | "devpts" | "efs" | "ext" | "ext2"
+ | "ext3" | "ext4" | "hfs" | "hfsplus" | "hpfs" | "iso9660"
+ | "jfs" | "minix" | "msdos" | "ncpfs" | "nfs" | "nfs4" | "ntfs"
+ | "proc" | "qnx4" | "ramfs" | "reiserfs" | "romfs" | "squashfs"
+ | "smbfs" | "sysv" | "tmpfs" | "ubifs" | "udf" | "ufs" | "umsdos"
+ | "usbfs" | "vfat" | "xenix" | "xfs" | "xiafs"
+
+let simple_kws = "raw" | "net" | "path" | "core_collector" | "kdump_post"
+ | "kdump_pre" | "default" | "ssh" | "sshkey" | "dracut_args"
+ | "fence_kdump_args"
+
+let int_kws = "force_rebuild" | "override_resettable" | "debug_mem_level"
+ | "link_delay" | "disk_timeout"
+
+let option = Build.key_value_line_comment ( simple_kws | fs_types )
+ delimiter value_to_eol comment
+ | Build.key_value_line_comment int_kws delimiter int_to_eol comment
+ | list "extra_bins"
+ | list "extra_modules"
+ | list "blacklist"
+ | list "fence_kdump_nodes"
+ | mod_options
+
+(* View: lns
+ The options lens
+*)
+let lns = ( empty | comment | option )*
+
+let filter = incl "/etc/kdump.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/keepalived.aug b/Sharp.Augeas.Test/lens/keepalived.aug
new file mode 100644
index 0000000..abe65dd
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/keepalived.aug
@@ -0,0 +1,348 @@
+(*
+Module: Keepalived
+ Parses /etc/keepalived/keepalived.conf
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 keepalived.conf` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/keepalived/keepalived.conf. See <filter>.
+
+About: Examples
+ The <Test_Keepalived> file contains various examples and tests.
+*)
+
+
+module Keepalived =
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* Group: Comments and empty lines *)
+
+(* View: indent *)
+let indent = Util.indent
+
+(* View: eol *)
+let eol = Util.eol
+
+(* View: opt_eol *)
+let opt_eol = del /[ \t]*\n?/ " "
+
+(* View: sep_spc *)
+let sep_spc = Sep.space
+
+(* View: comment
+Map comments in "#comment" nodes *)
+let comment = Util.comment_generic /[ \t]*[#!][ \t]*/ "# "
+
+(* View: comment_eol
+Map comments at eol *)
+let comment_eol = Util.comment_generic /[ \t]*[#!][ \t]*/ " # "
+
+(* View: comment_or_eol
+A <comment_eol> or <eol> *)
+let comment_or_eol = comment_eol | (del /[ \t]*[#!]?\n/ "\n")
+
+(* View: empty
+Map empty lines *)
+let empty = Util.empty
+
+(* View: sto_email_addr *)
+let sto_email_addr = store Rx.email_addr
+
+(* Variable: word *)
+let word = Rx.word
+
+(* Variable: word_slash *)
+let word_slash = word | "/"
+
+(* View: sto_word *)
+let sto_word = store word
+
+(* View: sto_num *)
+let sto_num = store Rx.relinteger
+
+(* View: sto_ipv6 *)
+let sto_ipv6 = store Rx.ipv6
+
+(* View: sto_to_eol *)
+let sto_to_eol = store /[^#! \t\n][^#!\n]*[^#! \t\n]|[^#! \t\n]/
+
+(* View: field *)
+let field (kw:regexp) (sto:lens) = indent . Build.key_value_line_comment kw sep_spc sto comment_eol
+
+(* View: flag
+A single word *)
+let flag (kw:regexp) = [ indent . key kw . comment_or_eol ]
+
+(* View: ip_port
+ An IP <space> port pair *)
+let ip_port = [ label "ip" . sto_word ] . sep_spc . [ label "port" . sto_num ]
+
+(* View: lens_block
+A generic block with a title lens.
+The definition is very similar to Build.block_newlines
+but uses a different type of <comment>. *)
+let lens_block (title:lens) (sto:lens) =
+ [ indent . title
+ . Build.block_newlines sto comment . eol ]
+
+(* View: block
+A simple block with just a block title *)
+let block (kw:regexp) (sto:lens) = lens_block (key kw) sto
+
+(* View: named_block
+A block with a block title and name *)
+let named_block (kw:string) (sto:lens) = lens_block (key kw . sep_spc . sto_word) sto
+
+(* View: named_block_arg_title
+A title lens for named_block_arg *)
+let named_block_arg_title (kw:string) (name:string) (arg:string) =
+ key kw . sep_spc
+ . [ label name . sto_word ]
+ . sep_spc
+ . [ label arg . sto_word ]
+
+(* View: named_block_arg
+A block with a block title, a name and an argument *)
+let named_block_arg (kw:string) (name:string) (arg:string) (sto:lens) =
+ lens_block (named_block_arg_title kw name arg) sto
+
+
+(************************************************************************
+ * Group: GLOBAL CONFIGURATION
+ *************************************************************************)
+
+(* View: email
+A simple email address entry *)
+let email = [ indent . label "email" . sto_email_addr . comment_or_eol ]
+
+(* View: global_defs_field
+Possible fields in the global_defs block *)
+let global_defs_field =
+ let word_re = "smtp_server"|"lvs_id"|"router_id"|"vrrp_mcast_group4"
+ in let ipv6_re = "vrrp_mcast_group6"
+ in let num_re = "smtp_connect_timeout"
+ in block "notification_email" email
+ | field "notification_email_from" sto_email_addr
+ | field word_re sto_word
+ | field num_re sto_num
+ | field ipv6_re sto_ipv6
+
+(* View: global_defs
+A global_defs block *)
+let global_defs = block "global_defs" global_defs_field
+
+(* View: prefixlen
+A prefix for IP addresses *)
+let prefixlen = [ label "prefixlen" . Util.del_str "/" . sto_num ]
+
+(* View: ipaddr
+An IP address or range with an optional mask *)
+let ipaddr = label "ipaddr" . store /[0-9.-]+/ . prefixlen?
+
+(* View: ipdev
+A device for IP addresses *)
+let ipdev = [ key "dev" . sep_spc . sto_word ]
+
+(* View: static_ipaddress_field
+The whole string is fed to ip addr add.
+You can truncate the string anywhere you like and let ip addr add use defaults for the rest of the string.
+To be refined with fields according to `ip addr help`.
+*)
+let static_ipaddress_field = [ indent . ipaddr
+ . (sep_spc . ipdev)?
+ . comment_or_eol ]
+
+(* View: static_routes_field
+src $SRC_IP to $DST_IP dev $SRC_DEVICE
+*)
+let static_routes_field = [ indent . label "route"
+ . [ key "src" . sto_word ] . sep_spc
+ . [ key "to" . sto_word ] . sep_spc
+ . [ key "dev" . sto_word ] . comment_or_eol ]
+
+(* View: static_routes *)
+let static_routes = block "static_ipaddress" static_ipaddress_field
+ | block "static_routes" static_routes_field
+
+
+(* View: global_conf
+A global configuration entry *)
+let global_conf = global_defs | static_routes
+
+
+(************************************************************************
+ * Group: VRRP CONFIGURATION
+ *************************************************************************)
+
+(*View: vrrp_sync_group_field *)
+let vrrp_sync_group_field =
+ let to_eol_re = /notify(_master|_backup|_fault)?/
+ in let flag_re = "smtp_alert"
+ in field to_eol_re sto_to_eol
+ | flag flag_re
+ | block "group" [ indent . key word . comment_or_eol ]
+
+(* View: vrrp_sync_group *)
+let vrrp_sync_group = named_block "vrrp_sync_group" vrrp_sync_group_field
+
+(* View: vrrp_instance_field *)
+let vrrp_instance_field =
+ let word_re = "state" | "interface" | "lvs_sync_daemon_interface"
+ in let num_re = "virtual_router_id" | "priority" | "advert_int" | /garp_master_(delay|repeat|refresh|refresh_repeat)/
+ in let to_eol_re = /notify(_master|_backup|_fault)?/ | /(mcast|unicast)_src_ip/
+ in let flag_re = "smtp_alert" | "nopreempt" | "ha_suspend" | "debug" | "use_vmac" | "vmac_xmit_base" | "native_ipv6" | "dont_track_primary" | "preempt_delay"
+ in field word_re sto_word
+ | field num_re sto_num
+ | field to_eol_re sto_to_eol
+ | flag flag_re
+ | block "authentication" (
+ field /auth_(type|pass)/ sto_word
+ )
+ | block "virtual_ipaddress" static_ipaddress_field
+ | block /track_(interface|script)/ ( flag word )
+ | block "unicast_peer" static_ipaddress_field
+
+(* View: vrrp_instance *)
+let vrrp_instance = named_block "vrrp_instance" vrrp_instance_field
+
+(* View: vrrp_script_field *)
+let vrrp_script_field =
+ let num_re = "interval" | "weight" | "fall" | "raise"
+ in let to_eol_re = "script"
+ in field to_eol_re sto_to_eol
+ | field num_re sto_num
+
+(* View: vrrp_script *)
+let vrrp_script = named_block "vrrp_script" vrrp_script_field
+
+
+(* View: vrrpd_conf
+contains subblocks of VRRP synchronization group(s) and VRRP instance(s) *)
+let vrrpd_conf = vrrp_sync_group | vrrp_instance | vrrp_script
+
+
+(************************************************************************
+ * Group: REAL SERVER CHECKS CONFIGURATION
+ *************************************************************************)
+
+(* View: tcp_check_field *)
+let tcp_check_field =
+ let word_re = "bindto"
+ in let num_re = /connect_(timeout|port)/
+ in field word_re sto_word
+ | field num_re sto_num
+
+(* View: misc_check_field *)
+let misc_check_field =
+ let flag_re = "misc_dynamic"
+ in let num_re = "misc_timeout"
+ in let to_eol_re = "misc_path"
+ in field num_re sto_num
+ | flag flag_re
+ | field to_eol_re sto_to_eol
+
+(* View: smtp_host_check_field *)
+let smtp_host_check_field =
+ let word_re = "connect_ip" | "bindto"
+ in let num_re = "connect_port"
+ in field word_re sto_word
+ | field num_re sto_num
+
+(* View: smtp_check_field *)
+let smtp_check_field =
+ let word_re = "connect_ip" | "bindto"
+ in let num_re = "connect_timeout" | "retry" | "delay_before_retry"
+ in let to_eol_re = "helo_name"
+ in field word_re sto_word
+ | field num_re sto_num
+ | field to_eol_re sto_to_eol
+ | block "host" smtp_host_check_field
+
+(* View: http_url_check_field *)
+let http_url_check_field =
+ let word_re = "digest"
+ in let num_re = "status_code"
+ in let to_eol_re = "path"
+ in field word_re sto_word
+ | field num_re sto_num
+ | field to_eol_re sto_to_eol
+
+(* View: http_check_field *)
+let http_check_field =
+ let num_re = /connect_(timeout|port)/ | "nb_get_retry" | "delay_before_retry"
+ in field num_re sto_num
+ | block "url" http_url_check_field
+
+(* View: real_server_field *)
+let real_server_field =
+ let num_re = "weight"
+ in let flag_re = "inhibit_on_failure"
+ in let to_eol_re = /notify_(up|down)/
+ in field num_re sto_num
+ | flag flag_re
+ | field to_eol_re sto_to_eol
+ | block "TCP_CHECK" tcp_check_field
+ | block "MISC_CHECK" misc_check_field
+ | block "SMTP_CHECK" smtp_check_field
+ | block /(HTTP|SSL)_GET/ http_check_field
+
+(************************************************************************
+ * Group: LVS CONFIGURATION
+ *************************************************************************)
+
+(* View: virtual_server_field *)
+let virtual_server_field =
+ let num_re = "delay_loop" | "persistence_timeout" | "quorum" | "hysteresis"
+ in let word_re = /lb_(algo|kind)/ | "nat_mask" | "protocol" | "persistence_granularity"
+ | "virtualhost"
+ in let flag_re = "ops" | "ha_suspend" | "alpha" | "omega"
+ in let to_eol_re = /quorum_(up|down)/
+ in let ip_port_re = "sorry_server"
+ in field num_re sto_num
+ | field word_re sto_word
+ | flag flag_re
+ | field to_eol_re sto_to_eol
+ | field ip_port_re ip_port
+ | named_block_arg "real_server" "ip" "port" real_server_field
+
+(* View: virtual_server *)
+let virtual_server = named_block_arg "virtual_server" "ip" "port" virtual_server_field
+
+(* View: virtual_server_group_field *)
+let virtual_server_group_field = [ indent . label "vip"
+ . [ ipaddr ]
+ . sep_spc
+ . [ label "port" . sto_num ]
+ . comment_or_eol ]
+
+(* View: virtual_server_group *)
+let virtual_server_group = named_block "virtual_server_group" virtual_server_group_field
+
+(* View: lvs_conf
+contains subblocks of Virtual server group(s) and Virtual server(s) *)
+let lvs_conf = virtual_server | virtual_server_group
+
+
+(* View: lns
+ The keepalived lens
+*)
+let lns = ( empty | comment | global_conf | vrrpd_conf | lvs_conf )*
+
+(* Variable: filter *)
+let filter = incl "/etc/keepalived/keepalived.conf"
+
+let xfm = transform lns filter
+
diff --git a/Sharp.Augeas.Test/lens/known_hosts.aug b/Sharp.Augeas.Test/lens/known_hosts.aug
new file mode 100644
index 0000000..6d027d6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/known_hosts.aug
@@ -0,0 +1,70 @@
+(*
+Module: Known_Hosts
+ Parses SSH known_hosts files
+
+Author: Raphaël Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens manages OpenSSH's known_hosts files. See `man 8 sshd` for reference.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Get a key by name from ssh_known_hosts
+ > print /files/etc/ssh_known_hosts/*[.="foo.example.com"]
+ ...
+
+ * Change a host's key
+ > set /files/etc/ssh_known_hosts/*[.="foo.example.com"]/key "newkey"
+
+About: Configuration files
+ This lens applies to SSH known_hosts files. See <filter>.
+
+*)
+
+module Known_Hosts =
+
+autoload xfm
+
+
+(* View: marker
+ The marker is optional, but if it is present then it must be one of
+ “@cert-authority”, to indicate that the line contains a certification
+ authority (CA) key, or “@revoked”, to indicate that the key contained
+ on the line is revoked and must not ever be accepted.
+ Only one marker should be used on a key line.
+*)
+let marker = [ key /@(revoked|cert-authority)/ . Sep.space ]
+
+
+(* View: type
+ Bits, exponent, and modulus are taken directly from the RSA host key;
+ they can be obtained, for example, from /etc/ssh/ssh_host_key.pub.
+ The optional comment field continues to the end of the line, and is not used.
+*)
+let type = [ label "type" . store Rx.neg1 ]
+
+
+(* View: entry
+ A known_hosts entry *)
+let entry =
+ let alias = [ label "alias" . store Rx.neg1 ]
+ in let key = [ label "key" . store Rx.neg1 ]
+ in [ Util.indent . seq "entry" . marker?
+ . store Rx.neg1
+ . (Sep.comma . Build.opt_list alias Sep.comma)?
+ . Sep.space . type . Sep.space . key
+ . Util.comment_or_eol ]
+
+(* View: lns
+ The known_hosts lens *)
+let lns = (Util.empty | Util.comment | entry)*
+
+(* Variable: filter *)
+let filter = incl "/etc/ssh/ssh_known_hosts"
+ . incl (Sys.getenv("HOME") . "/.ssh/known_hosts")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/koji.aug b/Sharp.Augeas.Test/lens/koji.aug
new file mode 100644
index 0000000..8acd516
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/koji.aug
@@ -0,0 +1,40 @@
+(*
+Module: Koji
+ Parses koji config files
+
+Author: Pat Riehecky <riehecky@fnal.gov>
+
+About: Reference
+ This lens tries to keep as close as possible to koji config syntax
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to:
+ /etc/koji.conf
+ /etc/kojid/kojid.conf
+ /etc/koji-hub/hub.conf
+ /etc/kojira/kojira.conf
+ /etc/kojiweb/web.conf
+ /etc/koji-shadow/koji-shadow.conf
+
+ See <filter>.
+*)
+
+module Koji =
+ autoload xfm
+
+let lns = IniFile.lns_loose_multiline
+
+let filter = incl "/etc/koji.conf"
+ . incl "/etc/kojid/kojid.conf"
+ . incl "/etc/koji-hub/hub.conf"
+ . incl "/etc/kojira/kojira.conf"
+ . incl "/etc/kojiweb/web.conf"
+ . incl "/etc/koji-shadow/koji-shadow.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/krb5.aug b/Sharp.Augeas.Test/lens/krb5.aug
new file mode 100644
index 0000000..0470888
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/krb5.aug
@@ -0,0 +1,182 @@
+module Krb5 =
+
+autoload xfm
+
+let comment = Inifile.comment IniFile.comment_re "#"
+let empty = Inifile.empty
+let eol = Inifile.eol
+let dels = Util.del_str
+
+let indent = del /[ \t]*/ ""
+let comma_or_space_sep = del /[ \t,]{1,}/ " "
+let eq = del /[ \t]*=[ \t]*/ " = "
+let eq_openbr = del /[ \t]*=[ \t\n]*\{[ \t]*\n/ " = {\n"
+let closebr = del /[ \t]*\}/ "}"
+
+(* These two regexps for realms and apps are not entirely true
+ - strictly speaking, there's no requirement that a realm is all upper case
+ and an application only uses lowercase. But it's what's used in practice.
+
+ Without that distinction we couldn't distinguish between applications
+ and realms in the [appdefaults] section.
+*)
+
+let include_re = /include(dir)?/
+let realm_re = /[A-Z0-9][.a-zA-Z0-9-]*/
+let realm_anycase_re = /[A-Za-z0-9][.a-zA-Z0-9-]*/
+let app_re = /[a-z][a-zA-Z0-9_]*/
+let name_re = /[.a-zA-Z0-9_-]+/ - include_re
+
+let value_br = store /[^;# \t\r\n{}]+/
+let value = store /[^;# \t\r\n]+/
+let entry (kw:regexp) (sep:lens) (value:lens) (comment:lens)
+ = [ indent . key kw . sep . value . (comment|eol) ] | comment
+
+let subsec_entry (kw:regexp) (sep:lens) (comment:lens)
+ = ( entry kw sep value_br comment ) | empty
+
+let simple_section (n:string) (k:regexp) =
+ let title = Inifile.indented_title n in
+ let entry = entry k eq value comment in
+ Inifile.record title entry
+
+let record (t:string) (e:lens) =
+ let title = Inifile.indented_title t in
+ Inifile.record title e
+
+let v4_name_convert (subsec:lens) = [ indent . key "v4_name_convert" .
+ eq_openbr . subsec* . closebr . eol ]
+
+(*
+ For the enctypes this appears to be a list of the valid entries:
+ c4-hmac arcfour-hmac aes128-cts rc4-hmac
+ arcfour-hmac-md5 des3-cbc-sha1 des-cbc-md5 des-cbc-crc
+*)
+let enctype_re = /[a-zA-Z0-9-]{3,}/
+let enctypes = /permitted_enctypes|default_tgs_enctypes|default_tkt_enctypes/i
+
+(* An #eol label prevents ambiguity between "k = v1 v2" and "k = v1\n k = v2" *)
+let enctype_list (nr:regexp) (ns:string) =
+ indent . del nr ns . eq
+ . Build.opt_list [ label ns . store enctype_re ] comma_or_space_sep
+ . (comment|eol) . [ label "#eol" ]
+
+let libdefaults =
+ let option = entry (name_re - ("v4_name_convert" |enctypes)) eq value comment in
+ let enctype_lists = enctype_list /permitted_enctypes/i "permitted_enctypes"
+ | enctype_list /default_tgs_enctypes/i "default_tgs_enctypes"
+ | enctype_list /default_tkt_enctypes/i "default_tkt_enctypes" in
+ let subsec = [ indent . key /host|plain/ . eq_openbr .
+ (subsec_entry name_re eq comment)* . closebr . eol ] in
+ record "libdefaults" (option|enctype_lists|v4_name_convert subsec)
+
+let login =
+ let keys = /krb[45]_get_tickets|krb4_convert|krb_run_aklog/
+ |/aklog_path|accept_passwd/ in
+ simple_section "login" keys
+
+let appdefaults =
+ let option = entry (name_re - ("realm" | "application")) eq value_br comment in
+ let realm = [ indent . label "realm" . store realm_re .
+ eq_openbr . (option|empty)* . closebr . eol ] in
+ let app = [ indent . label "application" . store app_re .
+ eq_openbr . (realm|option|empty)* . closebr . eol] in
+ record "appdefaults" (option|realm|app)
+
+let realms =
+ let simple_option = /kdc|admin_server|database_module|default_domain/
+ |/v4_realm|auth_to_local(_names)?|master_kdc|kpasswd_server/
+ |/admin_server|ticket_lifetime|pkinit_(anchors|identities|identity|pool)/
+ |/krb524_server/ in
+ let subsec_option = /v4_instance_convert/ in
+ let option = subsec_entry simple_option eq comment in
+ let subsec = [ indent . key subsec_option . eq_openbr .
+ (subsec_entry name_re eq comment)* . closebr . eol ] in
+ let v4subsec = [ indent . key /host|plain/ . eq_openbr .
+ (subsec_entry name_re eq comment)* . closebr . eol ] in
+ let realm = [ indent . label "realm" . store realm_anycase_re .
+ eq_openbr . (option|subsec|(v4_name_convert v4subsec))* .
+ closebr . eol ] in
+ record "realms" (realm|comment)
+
+let domain_realm =
+ simple_section "domain_realm" name_re
+
+let logging =
+ let keys = /kdc|admin_server|default/ in
+ let xchg (m:regexp) (d:string) (l:string) =
+ del m d . label l in
+ let xchgs (m:string) (l:string) = xchg m m l in
+ let dest =
+ [ xchg /FILE[=:]/ "FILE=" "file" . value ]
+ |[ xchgs "STDERR" "stderr" ]
+ |[ xchgs "CONSOLE" "console" ]
+ |[ xchgs "DEVICE=" "device" . value ]
+ |[ xchgs "SYSLOG" "syslog" .
+ ([ xchgs ":" "severity" . store /[A-Za-z0-9]+/ ].
+ [ xchgs ":" "facility" . store /[A-Za-z0-9]+/ ]?)? ] in
+ let entry = [ indent . key keys . eq . dest . (comment|eol) ] | comment in
+ record "logging" entry
+
+let capaths =
+ let realm = [ indent . key realm_re .
+ eq_openbr .
+ (entry realm_re eq value_br comment)* . closebr . eol ] in
+ record "capaths" (realm|comment)
+
+let dbdefaults =
+ let keys = /database_module|ldap_kerberos_container_dn|ldap_kdc_dn/
+ |/ldap_kadmind_dn|ldap_service_password_file|ldap_servers/
+ |/ldap_conns_per_server/ in
+ simple_section "dbdefaults" keys
+
+let dbmodules =
+ let subsec_key = /database_name|db_library|disable_last_success/
+ |/disable_lockout|ldap_conns_per_server|ldap_(kdc|kadmind)_dn/
+ |/ldap_(kdc|kadmind)_sasl_mech|ldap_(kdc|kadmind)_sasl_authcid/
+ |/ldap_(kdc|kadmind)_sasl_authzid|ldap_(kdc|kadmind)_sasl_realm/
+ |/ldap_kerberos_container_dn|ldap_servers/
+ |/ldap_service_password_file|mapsize|max_readers|nosync/
+ |/unlockiter/ in
+ let subsec_option = subsec_entry subsec_key eq comment in
+ let key = /db_module_dir/ in
+ let option = entry key eq value comment in
+ let realm = [ indent . label "realm" . store realm_re .
+ eq_openbr . (subsec_option)* . closebr . eol ] in
+ record "dbmodules" (option|realm)
+
+(* This section is not documented in the krb5.conf manpage,
+ but the Fermi example uses it. *)
+let instance_mapping =
+ let value = dels "\"" . store /[^;# \t\r\n{}]*/ . dels "\"" in
+ let map_node = label "mapping" . store /[a-zA-Z0-9\/*]+/ in
+ let mapping = [ indent . map_node . eq .
+ [ label "value" . value ] . (comment|eol) ] in
+ let instance = [ indent . key name_re .
+ eq_openbr . (mapping|comment)* . closebr . eol ] in
+ record "instancemapping" instance
+
+let kdc =
+ simple_section "kdc" /profile/
+
+let pam =
+ simple_section "pam" name_re
+
+let plugins =
+ let interface_option = subsec_entry name_re eq comment in
+ let interface = [ indent . key name_re .
+ eq_openbr . (interface_option)* . closebr . eol ] in
+ record "plugins" (interface|comment)
+
+let includes = Build.key_value_line include_re Sep.space (store Rx.fspath)
+let include_lines = includes . (comment|empty)*
+
+let lns = (comment|empty)* .
+ (libdefaults|login|appdefaults|realms|domain_realm
+ |logging|capaths|dbdefaults|dbmodules|instance_mapping|kdc|pam|include_lines
+ |plugins)*
+
+let filter = (incl "/etc/krb5.conf.d/*.conf")
+ . (incl "/etc/krb5.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/ldif.aug b/Sharp.Augeas.Test/lens/ldif.aug
new file mode 100644
index 0000000..e8751c0
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/ldif.aug
@@ -0,0 +1,227 @@
+(*
+Module: Ldif
+ Parses the LDAP Data Interchange Format (LDIF)
+
+Author: Dominic Cleal <dcleal@redhat.com>
+
+About: Reference
+ This lens tries to keep as close as possible to RFC2849
+ <http://tools.ietf.org/html/rfc2849>
+ and OpenLDAP's ldif(5)
+
+About: Licence
+ This file is licensed under the LGPLv2+, like the rest of Augeas.
+*)
+
+module Ldif =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ ************************************************************************)
+
+(* View: comment *)
+let comment = Util.comment_generic /#[ \t]*/ "# "
+
+(* View: empty
+ Map empty lines, including empty comments *)
+let empty = [ del /#?[ \t]*\n/ "\n" ]
+
+(* View: eol
+ Only eol, don't include whitespace *)
+let eol = Util.del_str "\n"
+
+(* View: sep_colon
+ The separator for attributes and values *)
+let sep_colon = del /:[ \t]*/ ": "
+
+(* View: sep_base64
+ The separator for attributes and base64 encoded values *)
+let sep_base64 = del /::[ \t]*/ ":: "
+
+(* View: sep_url
+ The separator for attributes and URL-sourced values *)
+let sep_url = del /:<[ \t]*/ ":< "
+
+(* Variable: ldapoid_re
+ Format of an LDAP OID from RFC 2251 *)
+let ldapoid_re = /[0-9][0-9\.]*/
+
+(* View: sep_modspec
+ Separator between modify operations *)
+let sep_modspec = Util.del_str "-" . eol
+
+(************************************************************************
+ * Group: BASIC ATTRIBUTES
+ ************************************************************************)
+
+(* Different types of values, all permitting continuation where the next line
+ begins with whitespace *)
+let attr_safe_string =
+ let line = /[^ \t\n:<][^\n]*/
+ in let lines = line . (/\n[ \t]+[^ \t\n][^\n]*/)*
+ in sep_colon . store lines
+
+let attr_base64_string =
+ let line = /[a-zA-Z0-9=+]+/
+ in let lines = line . (/\n[ \t]+/ . line)*
+ in sep_base64 . [ label "@base64" . store lines ]
+
+let attr_url_string =
+ let line = /[^ \t\n][^\n]*/
+ in let lines = line . (/\n[ \t]+/ . line)*
+ in sep_url . [ label "@url" . store lines ]
+
+let attr_intflag = sep_colon . store /0|1/
+
+(* View: attr_version
+ version-spec = "version:" FILL version-number *)
+let attr_version = Build.key_value_line "version" sep_colon (store /[0-9]+/)
+
+(* View: attr_dn
+ dn-spec = "dn:" (FILL distinguishedName /
+ ":" FILL base64-distinguishedName) *)
+let attr_dn = del /dn/i "dn"
+ . ( attr_safe_string | attr_base64_string )
+ . eol
+
+(* View: attr_type
+ AttributeType = ldap-oid / (ALPHA *(attr-type-chars)) *)
+let attr_type = ldapoid_re | /[a-zA-Z][a-zA-Z0-9-]*/
+ - /dn/i
+ - /changeType/i
+ - /include/i
+
+(* View: attr_option
+ options = option / (option ";" options) *)
+let attr_option = Util.del_str ";"
+ . [ label "@option" . store /[a-zA-Z0-9-]+/ ]
+
+(* View: attr_description
+ Attribute name, possibly with options *)
+let attr_description = key attr_type . attr_option*
+
+(* View: attr_val_spec
+ Generic attribute with a value *)
+let attr_val_spec = [ attr_description
+ . ( attr_safe_string
+ | attr_base64_string
+ | attr_url_string )
+ . eol ]
+
+(* View: attr_changetype
+ Parameters:
+ t:regexp - value of changeType *)
+let attr_changetype (t:regexp) =
+ key /changeType/i . sep_colon . store t . eol
+
+(* View: attr_modspec *)
+let attr_modspec = key /add|delete|replace/ . sep_colon . store attr_type
+ . attr_option* . eol
+
+(* View: attr_dn_value
+ Parses an attribute line with a DN on the RHS
+ Parameters:
+ k:regexp - match attribute name as key *)
+let attr_dn_value (k:regexp) =
+ [ key k . ( attr_safe_string | attr_base64_string ) . eol ]
+
+(* View: sep_line *)
+let sep_line = empty | comment
+
+(* View: attr_include
+ OpenLDAP extension, must be separated by blank lines *)
+let attr_include = eol . [ key "include" . sep_colon
+ . store /[^ \t\n][^\n]*/ . eol . comment* . eol ]
+
+(* View: sep_record *)
+let sep_record = ( sep_line | attr_include )*
+
+(************************************************************************
+ * Group: LDIF CONTENT RECORDS
+ ************************************************************************)
+
+(* View: ldif_attrval_record
+ ldif-attrval-record = dn-spec SEP 1*attrval-spec *)
+let ldif_attrval_record = [ seq "record"
+ . attr_dn
+ . ( sep_line* . attr_val_spec )+ ]
+
+(* View: ldif_content
+ ldif-content = version-spec 1*(1*SEP ldif-attrval-record) *)
+let ldif_content = [ label "@content"
+ . ( sep_record . attr_version )?
+ . ( sep_record . ldif_attrval_record )+
+ . sep_record ]
+
+(************************************************************************
+ * Group: LDIF CHANGE RECORDS
+ ************************************************************************)
+
+(* View: change_add
+ change-add = "add" SEP 1*attrval-spec *)
+let change_add = [ attr_changetype "add" ] . ( sep_line* . attr_val_spec )+
+
+(* View: change_delete
+ change-delete = "add" SEP 1*attrval-spec *)
+let change_delete = [ attr_changetype "delete" ]
+
+(* View: change_modspec
+ change-modspec = add/delete/replace: AttributeDesc SEP *attrval-spec "-" *)
+let change_modspec = attr_modspec . ( sep_line* . attr_val_spec )*
+
+(* View: change_modify
+ change-modify = "modify" SEP *mod-spec *)
+let change_modify = [ attr_changetype "modify" ]
+ . ( sep_line* . [ change_modspec
+ . sep_line* . sep_modspec ] )+
+
+(* View: change_modrdn
+ ("modrdn" / "moddn") SEP newrdn/newsuperior/deleteoldrdn *)
+let change_modrdn =
+ let attr_deleteoldrdn = [ key "deleteoldrdn" . attr_intflag . eol ]
+ in let attrs_modrdn = attr_dn_value "newrdn"
+ | attr_dn_value "newsuperior"
+ | attr_deleteoldrdn
+ in [ attr_changetype /modr?dn/ ]
+ . ( sep_line | attrs_modrdn )* . attrs_modrdn
+
+(* View: change_record
+ changerecord = "changetype:" FILL (changeadd/delete/modify/moddn) *)
+let change_record = ( change_add | change_delete | change_modify
+ | change_modrdn)
+
+(* View: change_control
+ "control:" FILL ldap-oid 0*1(1*SPACE ("true" / "false")) 0*1(value-spec) *)
+let change_control =
+ let attr_criticality = [ Util.del_ws_spc . label "criticality"
+ . store /true|false/ ]
+ in let attr_ctrlvalue = [ label "value" . (attr_safe_string
+ | attr_base64_string
+ | attr_url_string ) ]
+ in [ key "control" . sep_colon . store ldapoid_re
+ . attr_criticality? . attr_ctrlvalue? . eol ]
+
+(* View: ldif_change_record
+ ldif-change-record = dn-spec SEP *control changerecord *)
+let ldif_change_record = [ seq "record" . attr_dn
+ . ( ( sep_line | change_control )* . change_control )?
+ . sep_line* . change_record ]
+
+(* View: ldif_changes
+ ldif-changes = version-spec 1*(1*SEP ldif-change-record) *)
+let ldif_changes = [ label "@changes"
+ . ( sep_record . attr_version )?
+ . ( sep_record . ldif_change_record )+
+ . sep_record ]
+
+(************************************************************************
+ * Group: LENS
+ ************************************************************************)
+
+(* View: lns *)
+let lns = sep_record | ldif_content | ldif_changes
+
+let filter = incl "/etc/openldap/schema/*.ldif"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/ldso.aug b/Sharp.Augeas.Test/lens/ldso.aug
new file mode 100644
index 0000000..d362573
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/ldso.aug
@@ -0,0 +1,44 @@
+(*
+Module: Keepalived
+ Parses /etc/ld.so.conf and /etc/ld.so.conf.d/*
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/ld.so.conf and /etc/ld.so.conf.d/*. See <filter>.
+
+About: Examples
+ The <Test_Ldso> file contains various examples and tests.
+*)
+
+module LdSo =
+
+autoload xfm
+
+(* View: path *)
+let path = [ label "path" . store /[^# \t\n][^ \t\n]*/ . Util.eol ]
+
+(* View: include *)
+let include = Build.key_value_line "include" Sep.space (store Rx.fspath)
+
+(* View: hwcap *)
+let hwcap =
+ let hwcap_val = [ label "bit" . store Rx.integer ] . Sep.space .
+ [ label "name" . store Rx.word ]
+ in Build.key_value_line "hwcap" Sep.space hwcap_val
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | path | include | hwcap)*
+
+(* Variable: filter *)
+let filter = incl "/etc/ld.so.conf"
+ . incl "/etc/ld.so.conf.d/*"
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/lightdm.aug b/Sharp.Augeas.Test/lens/lightdm.aug
new file mode 100644
index 0000000..4a24935
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/lightdm.aug
@@ -0,0 +1,56 @@
+(*
+Module: Lightdm
+ Lightdm module for Augeas for which parses /etc/lightdm/*.conf files which
+ are standard INI file format.
+
+Author: David Salmen <dsalmen@dsalmen.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/lightdm/*.conf. See <filter>.
+
+About: Tests
+ The tests/test_lightdm.aug file contains unit tests.
+*)
+
+module Lightdm =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *
+ * lightdm.conf only supports "# as commentary and "=" as separator
+ *************************************************************************)
+let comment = IniFile.comment "#" "#"
+let sep = IniFile.sep "=" "="
+
+
+(************************************************************************
+ * ENTRY
+ * lightdm.conf uses standard INI File entries
+ *************************************************************************)
+let entry = IniFile.indented_entry IniFile.entry_re sep comment
+
+
+(************************************************************************
+ * RECORD
+ * lightdm.conf uses standard INI File records
+ *************************************************************************)
+let title = IniFile.indented_title IniFile.record_re
+let record = IniFile.record title entry
+
+
+(************************************************************************
+ * LENS & FILTER
+ * lightdm.conf uses standard INI File records
+ *************************************************************************)
+let lns = IniFile.lns record comment
+
+let filter = (incl "/etc/lightdm/*.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/limits.aug b/Sharp.Augeas.Test/lens/limits.aug
new file mode 100644
index 0000000..3553da8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/limits.aug
@@ -0,0 +1,71 @@
+(* Limits module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: /etc/security/limits.conf
+
+*)
+
+module Limits =
+
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let comment_or_eol = Util.comment_or_eol
+let spc = Util.del_ws_spc
+let comment = Util.comment
+let empty = Util.empty
+
+let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+let domain = label "domain" . store /[%@]?[A-Za-z0-9_.:-]+|\*/
+
+let type_re = "soft"
+ | "hard"
+ | "-"
+let type = [ label "type" . store type_re ]
+
+let item_re = "core"
+ | "data"
+ | "fsize"
+ | "memlock"
+ | "nofile"
+ | "rss"
+ | "stack"
+ | "cpu"
+ | "nproc"
+ | "as"
+ | "maxlogins"
+ | "maxsyslogins"
+ | "priority"
+ | "locks"
+ | "sigpending"
+ | "msgqueue"
+ | "nice"
+ | "rtprio"
+ | "chroot"
+let item = [ label "item" . store item_re ]
+
+let value = [ label "value" . store /[A-Za-z0-9_.\/-]+/ ]
+let entry = [ domain . spc
+ . type . spc
+ . item . spc
+ . value . comment_or_eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry) *
+
+let filter = incl "/etc/security/limits.conf"
+ . incl "/etc/security/limits.d/*.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/login_defs.aug b/Sharp.Augeas.Test/lens/login_defs.aug
new file mode 100644
index 0000000..29b8a6e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/login_defs.aug
@@ -0,0 +1,29 @@
+(*
+Module: Login_defs
+ Lense for login.defs
+
+Author: Erinn Looney-Triggs
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Configuration files
+ This lens applies to /etc/login.defs. See <filter>.
+*)
+module Login_defs =
+autoload xfm
+
+(* View: record
+ A login.defs record *)
+let record =
+ let value = store /[^ \t\n]+([ \t]+[^ \t\n]+)*/ in
+ [ key Rx.word . Sep.space . value . Util.eol ]
+
+(* View: lns
+ The login.defs lens *)
+let lns = (record | Util.comment | Util.empty) *
+
+(* View: filter *)
+let filter = incl "/etc/login.defs"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/logrotate.aug b/Sharp.Augeas.Test/lens/logrotate.aug
new file mode 100644
index 0000000..2142774
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/logrotate.aug
@@ -0,0 +1,126 @@
+(* Logrotate module for Augeas *)
+(* Author: Raphael Pinson <raphink@gmail.com> *)
+(* Patches from: *)
+(* Sean Millichamp <sean@bruenor.org> *)
+(* *)
+(* Supported : *)
+(* - defaults *)
+(* - rules *)
+(* - (pre|post)rotate entries *)
+(* *)
+(* Todo : *)
+(* *)
+
+module Logrotate =
+ autoload xfm
+
+ let sep_spc = Sep.space
+ let sep_val = del /[ \t]*=[ \t]*|[ \t]+/ " "
+ let eol = Util.eol
+ let num = Rx.relinteger
+ let word = /[^,#= \n\t{}]+/
+ let filename = Quote.do_quote_opt (store /\/[^"',#= \n\t{}]+/)
+ let size = num . /[kMG]?/
+
+ let indent = del Rx.opt_space "\t"
+
+ (* define omments and empty lines *)
+ let comment = Util.comment
+ let empty = Util.empty
+
+
+ (* Useful functions *)
+
+ let list_item = [ sep_spc . key /[^\/+,# \n\t{}]+/ ]
+ let select_to_eol (kw:string) (select:regexp) = [ label kw . store select ]
+ let value_to_eol (kw:string) (value:regexp) = Build.key_value kw sep_val (store value)
+ let flag_to_eol (kw:string) = Build.flag kw
+ let list_to_eol (kw:string) = [ key kw . list_item+ ]
+
+
+ (* Defaults *)
+
+ let create =
+ let mode = sep_spc . [ label "mode" . store num ] in
+ let owner = sep_spc . [ label "owner" . store word ] in
+ let group = sep_spc . [ label "group" . store word ] in
+ [ key "create" .
+ ( mode | mode . owner | mode . owner . group )? ]
+
+ let su =
+ let owner = sep_spc . [ label "owner" . store word ] in
+ let group = sep_spc . [ label "group" . store word ] in
+ [ key "su" .
+ ( owner | owner . group )? ]
+
+ let tabooext = [ key "tabooext" . ( sep_spc . store /\+/ )? . list_item+ ]
+
+ let attrs = select_to_eol "schedule" /(hourly|daily|weekly|monthly|yearly)/
+ | value_to_eol "rotate" num
+ | create
+ | flag_to_eol "nocreate"
+ | su
+ | value_to_eol "include" word
+ | select_to_eol "missingok" /(no)?missingok/
+ | select_to_eol "compress" /(no)?compress/
+ | select_to_eol "delaycompress" /(no)?delaycompress/
+ | select_to_eol "ifempty" /(not)?ifempty/
+ | select_to_eol "sharedscripts" /(no)?sharedscripts/
+ | value_to_eol "size" size
+ | tabooext
+ | value_to_eol "olddir" word
+ | flag_to_eol "noolddir"
+ | value_to_eol "mail" word
+ | flag_to_eol "mailfirst"
+ | flag_to_eol "maillast"
+ | flag_to_eol "nomail"
+ | value_to_eol "errors" word
+ | value_to_eol "extension" word
+ | select_to_eol "dateext" /(no)?dateext/
+ | value_to_eol "dateformat" word
+ | flag_to_eol "dateyesterday"
+ | value_to_eol "compresscmd" word
+ | value_to_eol "uncompresscmd" word
+ | value_to_eol "compressext" word
+ | list_to_eol "compressoptions"
+ | select_to_eol "copy" /(no)?copy/
+ | select_to_eol "copytruncate" /(no)?copytruncate/
+ | value_to_eol "maxage" num
+ | value_to_eol "minsize" size
+ | value_to_eol "maxsize" size
+ | select_to_eol "shred" /(no)?shred/
+ | value_to_eol "shredcycles" num
+ | value_to_eol "start" num
+
+ (* Define hooks *)
+
+
+ let hook_lines =
+ let line_re = /.*/ - /[ \t]*endscript[ \t]*/ in
+ store ( line_re . ("\n" . line_re)* )? . Util.del_str "\n"
+
+ let hooks =
+ let hook_names = /(pre|post)rotate|(first|last)action/ in
+ [ key hook_names . eol .
+ hook_lines? .
+ del /[ \t]*endscript/ "\tendscript" ]
+
+ (* Define rule *)
+
+ let body = Build.block_newlines
+ (indent . (attrs | hooks) . eol)
+ Util.comment
+
+ let rule =
+ let filename_entry = [ label "file" . filename ] in
+ let filename_sep = del /[ \t\n]+/ " " in
+ let filenames = Build.opt_list filename_entry filename_sep in
+ [ label "rule" . Util.indent . filenames . body . eol ]
+
+ let lns = ( comment | empty | (attrs . eol) | rule )*
+
+ let filter = incl "/etc/logrotate.d/*"
+ . incl "/etc/logrotate.conf"
+ . Util.stdexcl
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/logwatch.aug b/Sharp.Augeas.Test/lens/logwatch.aug
new file mode 100644
index 0000000..9acf9a2
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/logwatch.aug
@@ -0,0 +1,46 @@
+(* Logwatch module for Augeas
+ Author: Francois Lebel <francois@flebel.com>
+ Based on the dnsmasq lens written by Free Ekanayaka.
+
+ Reference: man logwatch (8)
+
+ "Format is one option per line, legal options are the same
+ as the long options legal on the command line. See
+ "logwatch.pl --help" or "man 8 logwatch" for details."
+
+*)
+
+module Logwatch =
+
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let spc = Util.del_ws_spc
+let comment = Util.comment
+let empty = Util.empty
+
+let sep_eq = del / = / " = "
+let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+let entry_re = /[A-Za-z0-9._-]+/
+let entry = [ key entry_re . sep_eq . sto_to_eol . eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry) *
+
+let filter = incl "/etc/logwatch/conf/logwatch.conf"
+ . excl ".*"
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/lokkit.aug b/Sharp.Augeas.Test/lens/lokkit.aug
new file mode 100644
index 0000000..830f956
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/lokkit.aug
@@ -0,0 +1,84 @@
+module Lokkit =
+ autoload xfm
+
+(* Module: Lokkit
+ Parse the config file for lokkit from system-config-firewall
+*)
+
+let comment = Util.comment
+let empty = Util.empty
+let eol = Util.eol
+let spc = Util.del_ws_spc
+let dels = Util.del_str
+
+let eq = del /[ \t=]+/ "="
+let token = store /[a-zA-Z0-9][a-zA-Z0-9-]*/
+
+let long_opt (n:regexp) =
+ [ dels "--" . key n . eq . token . eol ]
+
+let flag (n:regexp) =
+ [ dels "--" . key n . eol ]
+
+let option (l:string) (s:string) =
+ del ("--" . l | "-" . s) ("--" . l) . label l . eq
+
+let opt (l:string) (s:string) =
+ [ option l s . token . eol ]
+
+(* trust directive
+ -t <interface>, --trust=<interface>
+*)
+let trust =
+ [ option "trust" "t" . store Rx.device_name . eol ]
+
+(* port directive
+ -p <port>[-<port>]:<protocol>, --port=<port>[-<port>]:<protocol>
+*)
+let port =
+ let portnum = store /[0-9]+/ in
+ [ option "port" "p" .
+ [ label "start" . portnum ] .
+ (dels "-" . [ label "end" . portnum])? .
+ dels ":" . [ label "protocol" . token ] . eol ]
+
+(* custom_rules directive
+ --custom-rules=[<type>:][<table>:]<filename>
+*)
+let custom_rules =
+ let types = store /ipv4|ipv6/ in
+ let tables = store /mangle|nat|filter/ in
+ let filename = store /[^ \t\n:=][^ \t\n:]*/ in
+ [ dels "--custom-rules" . label "custom-rules" . eq .
+ [ label "type" . types . dels ":" ]? .
+ [ label "table" . tables . dels ":"]? .
+ filename . eol ]
+
+(* forward_port directive
+ --forward-port=if=<interface>:port=<port>:proto=<protocol>[:toport=<destination port>][:toaddr=<destination address>]
+*)
+let forward_port =
+ let elem (n:string) (v:lens) =
+ [ key n . eq . v ] in
+ let ipaddr = store /[0-9.]+/ in
+ let colon = dels ":" in
+ [ dels "--forward-port" . label "forward-port" . eq .
+ elem "if" token . colon .
+ elem "port" token . colon .
+ elem "proto" token .
+ (colon . elem "toport" token)? .
+ (colon . elem "toaddr" ipaddr)? . eol ]
+
+let entry =
+ long_opt /selinux|selinuxtype|addmodule|removemodule|block-icmp/
+ |flag /enabled|disabled/
+ |opt "service" "s"
+ |port
+ |trust
+ |opt "masq" "m"
+ |custom_rules
+ |forward_port
+
+let lns = (comment|empty|entry)*
+
+let xfm = transform lns (incl "/etc/sysconfig/system-config-firewall")
diff --git a/Sharp.Augeas.Test/lens/lvm.aug b/Sharp.Augeas.Test/lens/lvm.aug
new file mode 100644
index 0000000..40cdc6a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/lvm.aug
@@ -0,0 +1,75 @@
+(*
+Module: LVM
+ Parses LVM metadata.
+
+Author: Gabriel de Perthuis <g2p.code+augeas@gmail.com>
+
+About: License
+ This file is licensed under the LGPL v2+.
+
+About: Configuration files
+ This lens applies to files in /etc/lvm/backup and /etc/lvm/archive.
+
+About: Examples
+ The <Test_LVM> file contains various examples and tests.
+*)
+
+module LVM =
+ autoload xfm
+
+ (* See lvm2/libdm/libdm-config.c for tokenisation;
+ * libdm uses a blacklist but I prefer the safer whitelist approach. *)
+ (* View: identifier
+ * The left hand side of a definition *)
+ let identifier = /[a-zA-Z0-9_-]+/
+
+ (* strings can contain backslash-escaped dquotes, but I don't know
+ * how to get the message across to augeas *)
+ let str = [label "str". Quote.do_dquote (store /([^\"]|\\\\.)*/)]
+ let int = [label "int". store Rx.relinteger]
+ (* View: flat_literal
+ * A literal without structure *)
+ let flat_literal = int|str
+
+ (* allow multiline and mixed int/str, used for raids and stripes *)
+ (* View: list
+ * A list containing flat literals *)
+ let list = [
+ label "list" . counter "list"
+ . del /\[[ \t\n]*/ "["
+ .([seq "list". flat_literal . del /,[ \t\n]*/ ", "]*
+ . [seq "list". flat_literal . del /[ \t\n]*/ ""])?
+ . Util.del_str "]"]
+
+ (* View: val
+ * Any value that appears on the right hand side of an assignment *)
+ let val = flat_literal | list
+
+ (* View: nondef
+ * A line that doesn't contain a statement *)
+ let nondef =
+ Util.empty
+ | Util.comment
+
+ (* Build.block couldn't be reused, because of recursion and
+ * a different philosophy of whitespace handling. *)
+ (* View: def
+ * An assignment, or a block containing definitions *)
+ let rec def = [
+ Util.indent . key identifier . (
+ del /[ \t]*\{\n/ " {\n"
+ .[label "dict".(nondef | def)*]
+ . Util.indent . Util.del_str "}\n"
+ |Sep.space_equal . val . Util.comment_or_eol)]
+
+ (* View: lns
+ * The main lens *)
+ let lns = (nondef | def)*
+
+ let filter =
+ incl "/etc/lvm/archive/*.vg"
+ . incl "/etc/lvm/backup/*"
+ . incl "/etc/lvm/lvm.conf"
+ . Util.stdexcl
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/mailscanner.aug b/Sharp.Augeas.Test/lens/mailscanner.aug
new file mode 100644
index 0000000..972ae4a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/mailscanner.aug
@@ -0,0 +1,65 @@
+(*
+Module: Mailscanner
+ Parses MailScanner configuration files.
+
+Author: Andrew Colin Kissa <andrew@topdog.za.net>
+ Baruwa Enterprise Edition http://www.baruwa.com
+
+About: License
+ This file is licensed under the LGPL v2+.
+
+About: Configuration files
+ This lens applies to /etc/MailScanner/MailScanner.conf and files in
+ /etc/MailScanner/conf.d/. See <filter>.
+*)
+
+module Mailscanner =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+let comment = Util.comment
+
+let empty = Util.empty
+
+let space = Sep.space
+
+let eol = Util.eol
+
+let non_eq = /[^ =\t\r\n]+/
+
+let non_space = /[^# \t\n]/
+
+let any = /.*/
+
+let word = /[A-Za-z%][ :<>%A-Za-z0-9_.-]+[A-Za-z%2]/
+
+let include_kw = /include/
+
+let keys = word - include_kw
+
+let eq = del /[ \t]*=/ " ="
+
+let indent = del /[ \t]*(\n[ \t]+)?/ " "
+
+let line_value = store (non_space . any . non_space | non_space)
+
+(************************************************************************
+ * Group: Entries
+ *************************************************************************)
+
+let include_line = Build.key_value_line include_kw space (store non_eq)
+
+let normal_line = [ key keys . eq . (indent . line_value)? . eol ]
+
+(************************************************************************
+ * Group: Lns and Filter
+ *************************************************************************)
+
+let lns = (empty|include_line|normal_line|comment) *
+
+let filter = (incl "/etc/MailScanner/MailScanner.conf")
+ . (incl "/etc/MailScanner/conf.d/*.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/mailscanner_rules.aug b/Sharp.Augeas.Test/lens/mailscanner_rules.aug
new file mode 100644
index 0000000..87ba227
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/mailscanner_rules.aug
@@ -0,0 +1,75 @@
+(*
+Module: Mailscanner_rules
+ Parses MailScanner rules files.
+
+Author: Andrew Colin Kissa <andrew@topdog.za.net>
+ Baruwa Enterprise Edition http://www.baruwa.com
+
+About: License
+ This file is licensed under the LGPL v2+.
+
+About: Configuration files
+ This lens applies to MailScanner rules files
+ The format is described below:
+
+ # NOTE: Fields are separated by TAB characters --- Important!
+ #
+ # Syntax is allow/deny/deny+delete/rename/rename to replacement-text/email-addresses,
+ # then regular expression,
+ # then log text,
+ # then user report text.
+ # The "email-addresses" can be a space or comma-separated list of email
+ # addresses. If the rule hits, the message will be sent to these address(es)
+ # instead of the original recipients.
+
+ # If a rule is a "rename" rule, then the attachment filename will be renamed
+ # according to the "Default Rename Pattern" setting in MailScanner.conf.
+ # If a rule is a "rename" rule and the "to replacement-text" is supplied, then
+ # the text matched by the regular expression in the 2nd field of the line
+ # will be replaced with the "replacement-text" string.
+ # For example, the rule
+ # rename to .ppt \.pps$ Renamed .pps to .ppt Renamed .pps to .ppt
+ # will find all filenames ending in ".pps" and rename them so they end in
+ # ".ppt" instead.
+*)
+
+module Mailscanner_Rules =
+autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = del /\n/ "\n"
+let ws = del /[\t]+/ "\t"
+let comment = Util.comment
+let empty = Util.empty
+let action = /allow|deny|deny\+delete|rename|rename[ ]+to[ ]+[^# \t\n]+|([A-Za-z0-9_+.-]+@[A-Za-z0-9_.-]+[, ]?)+/
+let non_space = /[^# \t\n]+/
+let non_tab = /[^\t\n]+/
+
+let field (l:string) (r:regexp)
+ = [ label l . store r ]
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+let entry = [ seq "rule" . field "action" action
+ . ws . field "regex" non_tab
+ . ws . field "log-text" non_tab
+ . ws . field "user-report" non_tab
+ . eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry)*
+
+let filter = (incl "/etc/MailScanner/filename.rules.conf")
+ . (incl "/etc/MailScanner/filetype.rules.conf")
+ . (incl "/etc/MailScanner/archives.filename.rules.conf")
+ . (incl "/etc/MailScanner/archives.filetype.rules.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/masterpasswd.aug b/Sharp.Augeas.Test/lens/masterpasswd.aug
new file mode 100644
index 0000000..06e4e0f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/masterpasswd.aug
@@ -0,0 +1,148 @@
+(*
+ Module: MasterPasswd
+ Parses /etc/master.passwd
+
+ Author: Matt Dainty <matt@bodgit-n-scarper.com>
+
+ About: Reference
+ - man 5 master.passwd
+
+ Each line in the master.passwd file represents a single user record, whose
+ colon-separated attributes correspond to the members of the passwd struct
+
+*)
+
+module MasterPasswd =
+
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* Group: Comments and empty lines *)
+
+let eol = Util.eol
+let comment = Util.comment
+let empty = Util.empty
+let dels = Util.del_str
+
+let word = Rx.word
+let integer = Rx.integer
+
+let colon = Sep.colon
+
+let sto_to_eol = Passwd.sto_to_eol
+let sto_to_col = Passwd.sto_to_col
+(* Store an empty string if nothing matches *)
+let sto_to_col_or_empty = Passwd.sto_to_col_or_empty
+
+(************************************************************************
+ * Group: ENTRIES
+ *************************************************************************)
+
+let username = /[_.A-Za-z0-9][-_.A-Za-z0-9]*\$?/
+
+(* View: password
+ pw_passwd *)
+let password = [ label "password" . sto_to_col? . colon ]
+
+(* View: uid
+ pw_uid *)
+let uid = [ label "uid" . store integer . colon ]
+
+(* View: gid
+ pw_gid *)
+let gid = [ label "gid" . store integer . colon ]
+
+(* View: class
+ pw_class *)
+let class = [ label "class" . sto_to_col? . colon ]
+
+(* View: change
+ pw_change *)
+let change_date = [ label "change_date" . store integer? . colon ]
+
+(* View: expire
+ pw_expire *)
+let expire_date = [ label "expire_date" . store integer? . colon ]
+
+(* View: name
+ pw_gecos; the user's full name *)
+let name = [ label "name" . sto_to_col? . colon ]
+
+(* View: home
+ pw_dir *)
+let home = [ label "home" . sto_to_col? . colon ]
+
+(* View: shell
+ pw_shell *)
+let shell = [ label "shell" . sto_to_eol? ]
+
+(* View: entry
+ struct passwd *)
+let entry = [ key username
+ . colon
+ . password
+ . uid
+ . gid
+ . class
+ . change_date
+ . expire_date
+ . name
+ . home
+ . shell
+ . eol ]
+
+(* NIS entries *)
+let niscommon = [ label "password" . sto_to_col ]? . colon
+ . [ label "uid" . store integer ]? . colon
+ . [ label "gid" . store integer ]? . colon
+ . [ label "class" . sto_to_col ]? . colon
+ . [ label "change_date" . store integer ]? . colon
+ . [ label "expire_date" . store integer ]? . colon
+ . [ label "name" . sto_to_col ]? . colon
+ . [ label "home" . sto_to_col ]? . colon
+ . [ label "shell" . sto_to_eol ]?
+
+let nisentry =
+ let overrides =
+ colon
+ . niscommon in
+ [ dels "+@" . label "@nis" . store username . overrides . eol ]
+
+let nisuserplus =
+ let overrides =
+ colon
+ . niscommon in
+ [ dels "+" . label "@+nisuser" . store username . overrides . eol ]
+
+let nisuserminus =
+ let overrides =
+ colon
+ . niscommon in
+ [ dels "-" . label "@-nisuser" . store username . overrides . eol ]
+
+let nisdefault =
+ let overrides =
+ colon
+ . [ label "password" . sto_to_col_or_empty . colon ]
+ . [ label "uid" . store integer? . colon ]
+ . [ label "gid" . store integer? . colon ]
+ . [ label "class" . sto_to_col? . colon ]
+ . [ label "change_date" . store integer? . colon ]
+ . [ label "expire_date" . store integer? . colon ]
+ . [ label "name" . sto_to_col? . colon ]
+ . [ label "home" . sto_to_col? . colon ]
+ . [ label "shell" . sto_to_eol? ] in
+ [ dels "+" . label "@nisdefault" . overrides? . eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry|nisentry|nisdefault|nisuserplus|nisuserminus) *
+
+let filter = incl "/etc/master.passwd"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/mcollective.aug b/Sharp.Augeas.Test/lens/mcollective.aug
new file mode 100644
index 0000000..e23b372
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/mcollective.aug
@@ -0,0 +1,41 @@
+(*
+Module: MCollective
+ Parses MCollective's configuration files
+
+Author: Marc Fournier <marc.fournier@camptocamp.com>
+
+About: Reference
+ This lens is based on MCollective's default client.cfg and server.cfg.
+
+About: Usage Example
+(start code)
+ augtool> get /files/etc/mcollective/client.cfg/plugin.psk
+ /files/etc/mcollective/client.cfg/plugin.psk = unset
+
+ augtool> ls /files/etc/mcollective/client.cfg/
+ topicprefix = /topic/
+ main_collective = mcollective
+ collectives = mcollective
+ [...]
+
+ augtool> set /files/etc/mcollective/client.cfg/plugin.stomp.password example123
+ augtool> save
+ Saved 1 file(s)
+(end code)
+ The <Test_MCollective> file also contains various examples.
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+*)
+
+module MCollective =
+autoload xfm
+
+let lns = Simplevars.lns
+
+let filter = incl "/etc/mcollective/client.cfg"
+ . incl "/etc/mcollective/server.cfg"
+ . incl "/etc/puppetlabs/mcollective/client.cfg"
+ . incl "/etc/puppetlabs/mcollective/server.cfg"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/mdadm_conf.aug b/Sharp.Augeas.Test/lens/mdadm_conf.aug
new file mode 100644
index 0000000..3bf5887
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/mdadm_conf.aug
@@ -0,0 +1,279 @@
+(******************************************************************************
+Mdadm_conf module for Augeas
+
+Author: Matthew Booth <mbooth@redhat.com>
+
+Copyright (C):
+ 2011 Red Hat Inc.
+
+Reference:
+ mdadm(5)
+ config.c and policy.c from mdadm-3.2.2
+
+License:
+ This file is licensed under the LGPL v2+.
+
+This is a lens for /etc/mdadm.conf. It aims to parse every valid configuration
+file as of version 3.2.2, and many invalid ones too. This last point is a
+feature, not a bug! madm will generate warnings for invalid configuration which
+do not prevent correct operation of the tool. Wherever possible, we try to
+allow for this behaviour.
+
+Keywords in mdadm.conf are matched with a case-insensitive prefix match of at
+least 3 characters. Keys in key/value pairs are also matched case-insensitively,
+but require a full match. The exception is POLICY and PART-POLICY, where keys
+are matched case-sensitively.
+
+N.B. We can't use case-insensitive regular expressions in most places due to bug
+#147.
+*******************************************************************************)
+
+module Mdadm_conf =
+
+ autoload xfm
+
+
+(******************************************************************************
+ * PRIMITIVES
+ ******************************************************************************)
+
+let eol = Util.comment_or_eol
+let comment = Util.comment
+let empty = Util.empty
+let value = /[^ \t\n#]+/
+let value_no_eq = /[^ \t\n#=]+/
+let value_no_eq_sl = /[^ \t\n#=\/]+/
+
+let continuation = /\n[ \t]+/
+let space = /[ \t]+/
+let value_sep = ( del ( continuation | space . continuation? ) " "
+ | comment . del space " " )
+
+(* We parse specific keys rather than having a catch-all owing to the varying
+case of the syntax. This means the user can rely on 'array/uuid' rather than
+additionally testing for 'array/UUID'.
+
+It would be good to have an additional catchall, but I haven't been able to make
+that work.
+*)
+let keyvalue (r:regexp) (lc:string) (uc:string) =
+ [ del ( r . /=/ ) ( uc . "=" ) . label lc . store value ]
+
+let simplevalue (r:regexp) (lc:string) (uc:string) =
+ [ del r uc . label lc
+ . ( value_sep . [ label "value" . store value ] )* . eol ]
+
+
+(******************************************************************************
+ * DEVICES
+ ******************************************************************************)
+
+let dev_re = /dev(i(ce?)?)?/i
+
+let dev_containers_re = /containers/i
+let dev_partitions_re = /partitions/i
+
+let dev_containers = [ del dev_containers_re "containers" . label "containers" ]
+let dev_partitions = [ del dev_partitions_re "partitions" . label "partitions" ]
+let dev_device = [ label "name". store ( value - (dev_containers_re | dev_partitions_re)) ]
+
+(* Strictly there must be at least 1 device, but we err on the side of parsing
+*)
+let dev_devices = ( value_sep . ( dev_containers
+ | dev_partitions
+ | dev_device ) )*
+
+let device = [ del dev_re "DEVICE" . label "device" . dev_devices . eol ]
+
+
+(******************************************************************************
+ * ARRAY
+ ******************************************************************************)
+
+let array_re = /arr(ay?)?/i
+
+let arr_auto_re = /auto/i
+let arr_bitmap_re = /bitmap/i
+let arr_container_re = /container/i
+let arr_devices_re = /devices/i
+let arr_disks_re = /disks/i (* Undocumented *)
+let arr_level_re = /level/i
+let arr_member_re = /member/i
+let arr_metadata_re = /metadata/i
+let arr_name_re = /name/i
+let arr_num_devices_re = /num-devices/i
+let arr_spare_group_re = /spare-group/i
+let arr_spares_re = /spares/i
+let arr_super_minor_re = /super-minor/i
+let arr_uuid_re = /uuid/i
+
+let arr_devicename = [ store value_no_eq . label "devicename" ]
+
+let arr_auto = keyvalue arr_auto_re "auto" "AUTO"
+let arr_bitmap = keyvalue arr_bitmap_re "bitmap" "BITMAP"
+let arr_container = keyvalue arr_container_re "container" "CONTAINER"
+let arr_devices = keyvalue arr_devices_re "devices" "DEVICES"
+let arr_disks = keyvalue arr_disks_re "disks" "DISKS"
+let arr_level = keyvalue arr_level_re "level" "LEVEL"
+let arr_member = keyvalue arr_member_re "member" "MEMBER"
+let arr_metadata = keyvalue arr_metadata_re "metadata" "METADATA"
+let arr_name = keyvalue arr_name_re "name" "NAME"
+let arr_num_devices = keyvalue arr_num_devices_re "num-devices" "NUM-DEVICES"
+let arr_spare_group = keyvalue arr_spare_group_re "spare-group" "SPARE-GROUP"
+let arr_spares = keyvalue arr_spares_re "spares" "SPARES"
+let arr_super_minor = keyvalue arr_super_minor_re "super-minor" "SUPER-MINOR"
+let arr_uuid = keyvalue arr_uuid_re "uuid" "UUID"
+
+let arr_options = ( value_sep . ( arr_devicename
+ | arr_auto
+ | arr_bitmap
+ | arr_container
+ | arr_devices
+ | arr_disks
+ | arr_level
+ | arr_member
+ | arr_metadata
+ | arr_name
+ | arr_num_devices
+ | arr_spare_group
+ | arr_spares
+ | arr_super_minor
+ | arr_uuid ) )*
+
+let array = [ del array_re "ARRAY" . label "array" . arr_options . eol ]
+
+
+(******************************************************************************
+ * MAILADDR
+ ******************************************************************************)
+
+let mailaddr_re = /mai(l(a(d(dr?)?)?)?)?/i
+
+(* We intentionally allow multiple mailaddr values here, even though this is
+invalid and would produce a warning. This is better than not parsing the file.
+*)
+let mailaddr = simplevalue mailaddr_re "mailaddr" "MAILADDR"
+
+
+(******************************************************************************
+ * MAILFROM
+ ******************************************************************************)
+
+(* N.B. MAILFROM can only be abbreviated to 5 characters *)
+let mailfrom_re = /mailf(r(om?)?)?/i
+
+let mailfrom = [ del mailfrom_re "MAILFROM" . label "mailfrom"
+ . ( value_sep . [ label "value" . store value ] )* . eol ]
+
+
+(******************************************************************************
+ * PROGRAM
+ ******************************************************************************)
+
+let program_re = /pro(g(r(am?)?)?)?/i
+
+let program = simplevalue program_re "program" "PROGRAM"
+
+
+(******************************************************************************
+ * CREATE
+ ******************************************************************************)
+
+let create_re = /cre(a(te?)?)?/i
+
+let cre_auto_re = /auto/i
+let cre_owner_re = /owner/i
+let cre_group_re = /group/i
+let cre_mode_re = /mode/i
+let cre_metadata_re = /metadata/i
+let cre_symlinks_re = /symlinks/i
+
+let cre_auto = keyvalue cre_auto_re "auto" "AUTO"
+let cre_group = keyvalue cre_group_re "group" "GROUP"
+let cre_metadata = keyvalue cre_metadata_re "metadata" "METADATA"
+let cre_mode = keyvalue cre_mode_re "mode" "MODE"
+let cre_owner = keyvalue cre_owner_re "owner" "OWNER"
+let cre_symlinks = keyvalue cre_symlinks_re "symlinks" "SYMLINKS"
+
+let cre_options = ( value_sep . ( arr_auto
+ | cre_owner
+ | cre_group
+ | cre_mode
+ | cre_metadata
+ | cre_symlinks) )*
+
+let create = [ del create_re "CREATE" . label "create" . cre_options . eol ]
+
+
+(******************************************************************************
+ * HOMEHOST
+ ******************************************************************************)
+
+let homehost_re = /hom(e(h(o(st?)?)?)?)?/i
+
+let homehost = simplevalue homehost_re "homehost" "HOMEHOST"
+
+
+(******************************************************************************
+ * AUTO
+ ******************************************************************************)
+
+let auto_re = /auto?/i
+
+let aut_plus = [ key "+" . store value ]
+let aut_minus = [ key "-" . store value ]
+let aut_homehost = [ del /homehost/i "homehost" . label "homehost" ]
+
+let aut_list = ( value_sep . ( aut_plus | aut_minus | aut_homehost ) )*
+
+let auto = [ del auto_re "AUTO" . label "auto" . aut_list . eol ]
+
+
+(******************************************************************************
+ * POLICY and PART-POLICY
+ ******************************************************************************)
+
+(* PART-POLICY is undocumented. A cursory inspection of the parsing code
+suggests it's parsed the same way as POLICY, but treated slightly differently
+thereafter. *)
+
+let policy_re = /pol(i(cy?)?)?/i
+let part_policy_re = /par(t(-(p(o(l(i(cy?)?)?)?)?)?)?)?/i
+
+(* Unlike everything else, policy keys are matched case sensitive. This means we
+don't have to mess around with explicit option matching, as the match string is
+fixed for a working configuration. *)
+
+let pol_option (act:string) =
+ [ del ( act . "=" ) ( act . "=" ) . label act . store value ]
+
+let pol_options = ( value_sep . [ key value_no_eq_sl . del "=" "="
+ . store value ] )*
+
+let policy = [ del policy_re "POLICY" . label "policy"
+ . pol_options . eol ]
+let part_policy = [ del part_policy_re "PART-POLICY" . label "part-policy"
+ . pol_options . eol ]
+
+
+(******************************************************************************
+ * LENS
+ ******************************************************************************)
+
+let lns = (comment
+ | empty
+ | device
+ | array
+ | mailaddr
+ | mailfrom
+ | program
+ | create
+ | homehost
+ | auto
+ | policy
+ | part_policy )*
+
+let filter = incl "/etc/mdadm.conf"
+ . incl "/etc/mdadm/mdadm.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/memcached.aug b/Sharp.Augeas.Test/lens/memcached.aug
new file mode 100644
index 0000000..4688ce9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/memcached.aug
@@ -0,0 +1,47 @@
+(*
+Module: Memcached
+ Parses Memcached's configuration files
+
+Author: Marc Fournier <marc.fournier@camptocamp.com>
+
+About: Reference
+ This lens is based on Memcached's default memcached.conf file.
+
+About: Usage Example
+(start code)
+ augtool> get /files/etc/memcached.conf/u
+ /files/etc/memcached.conf/u = nobody
+
+ augtool> set /files/etc/memcached.conf/m 128
+ augtool> save
+ Saved 1 file(s)
+(end code)
+ The <Test_Memcached> file also contains various examples.
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+*)
+
+module Memcached =
+autoload xfm
+
+let comment = Util.comment
+let comment_eol = Util.comment_generic /[#][ \t]*/ "# "
+let option = /[a-zA-Z]/
+let val = /[^# \n\t]+/
+let empty = Util.empty
+let eol = Util.del_str "\n"
+
+let entry = [ Util.del_str "-" . key option
+ . ( Util.del_ws_spc . (store val) )?
+ . del /[ \t]*/ "" . (eol|comment_eol) ]
+
+let logfile = Build.key_value_line_comment
+ "logfile" Sep.space (store val) comment
+
+let lns = ( entry | logfile | comment | empty )*
+
+let filter = incl "/etc/memcached.conf"
+ . incl "/etc/memcachedb.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/mke2fs.aug b/Sharp.Augeas.Test/lens/mke2fs.aug
new file mode 100644
index 0000000..46a7136
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/mke2fs.aug
@@ -0,0 +1,194 @@
+(*
+Module: Mke2fs
+ Parses /etc/mke2fs.conf
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 mke2fs.conf` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/mke2fs.conf. See <filter>.
+*)
+
+
+module Mke2fs =
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* View: comment *)
+let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
+
+(* View: sep *)
+let sep = IniFile.sep /=[ \t]*/ "="
+
+(* View: empty *)
+let empty = IniFile.empty
+
+(* View: boolean
+ The configuration parser of e2fsprogs recognizes different values
+ for booleans, so list all the recognized values *)
+let boolean = ("y"|"yes"|"true"|"t"|"1"|"on"|"n"|"no"|"false"|"nil"|"0"|"off")
+
+(* View: fspath *)
+let fspath = /[^ \t\n"]+/
+
+
+(************************************************************************
+ * Group: RECORD TYPES
+ *************************************************************************)
+
+
+(* View: entry
+ A generic entry for lens lns *)
+let entry (kw:regexp) (lns:lens) = Build.key_value_line kw sep lns
+
+
+(* View: list_sto
+ A list of values with given lens *)
+let list_sto (kw:regexp) (lns:lens) =
+ entry kw (Quote.do_dquote_opt_nil (Build.opt_list [lns] Sep.comma))
+
+(* View: entry_sto
+ Store a regexp as entry value *)
+let entry_sto (kw:regexp) (val:regexp) =
+ entry kw (Quote.do_dquote_opt_nil (store val))
+ | entry kw (Util.del_str "\"\"")
+
+
+(************************************************************************
+ * Group: COMMON ENTRIES
+ *************************************************************************)
+
+(* View: common_entries_list
+ Entries with a list value *)
+let common_entries_list = ("base_features"|"default_features"|"default_mntopts")
+
+(* View: common_entries_int
+ Entries with an integer value *)
+let common_entries_int = ("cluster_size"|"flex_bg_size"|"force_undo"
+ |"inode_ratio"|"inode_size"|"num_backup_sb")
+
+(* View: common_entries_bool
+ Entries with a boolean value *)
+let common_entries_bool = ("auto_64-bit_support"|"discard"
+ |"enable_periodic_fsck"|"lazy_itable_init"
+ |"lazy_journal_init"|"packed_meta_blocks")
+
+(* View: common_entries_string
+ Entries with a string value *)
+let common_entries_string = ("encoding"|"journal_location")
+
+(* View: common_entries_double
+ Entries with a double value *)
+let common_entries_double = ("reserved_ratio")
+
+(* View: common_entry
+ Entries shared between <defaults> and <fs_types> sections *)
+let common_entry = list_sto common_entries_list (key Rx.word)
+ | entry_sto common_entries_int Rx.integer
+ | entry_sto common_entries_bool boolean
+ | entry_sto common_entries_string Rx.word
+ | entry_sto common_entries_double Rx.decimal
+ | entry_sto "blocksize" ("-"? . Rx.integer)
+ | entry_sto "hash_alg" ("legacy"|"half_md4"|"tea")
+ | entry_sto "errors" ("continue"|"remount-ro"|"panic")
+ | list_sto "features"
+ ([del /\^/ "^" . label "disable"]?
+ . key Rx.word)
+ | list_sto "options"
+ (key Rx.word . Util.del_str "="
+ . store Rx.word)
+
+(************************************************************************
+ * Group: DEFAULTS SECTION
+ *************************************************************************)
+
+(* View: defaults_entry
+ Possible entries under the <defaults> section *)
+let defaults_entry = entry_sto "fs_type" Rx.word
+ | entry_sto "undo_dir" fspath
+
+(* View: defaults_title
+ Title for the <defaults> section *)
+let defaults_title = IniFile.title "defaults"
+
+(* View: defaults
+ A defaults section *)
+let defaults = IniFile.record defaults_title
+ ((Util.indent . (defaults_entry|common_entry)) | comment)
+
+
+(************************************************************************
+ * Group: FS_TYPES SECTION
+ *************************************************************************)
+
+(* View: fs_types_record
+ Fs group records under the <fs_types> section *)
+let fs_types_record = [ label "filesystem"
+ . Util.indent . store Rx.word
+ . del /[ \t]*=[ \t]*\{[ \t]*\n/ " = {\n"
+ . ((Util.indent . common_entry) | empty | comment)*
+ . del /[ \t]*\}[ \t]*\n/ " }\n" ]
+
+(* View: fs_types_title
+ Title for the <fs_types> section *)
+let fs_types_title = IniFile.title "fs_types"
+
+(* View: fs_types
+ A fs_types section *)
+let fs_types = IniFile.record fs_types_title
+ (fs_types_record | comment)
+
+
+(************************************************************************
+ * Group: OPTIONS SECTION
+ *************************************************************************)
+
+(* View: options_entries_int
+ Entries with an integer value *)
+let options_entries_int = ("proceed_delay"|"sync_kludge")
+
+(* View: options_entries_bool
+ Entries with a boolean value *)
+let options_entries_bool = ("old_bitmaps")
+
+(* View: options_entry
+ Possible entries under the <options> section *)
+let options_entry = entry_sto options_entries_int Rx.integer
+ | entry_sto options_entries_bool boolean
+
+(* View: defaults_title
+ Title for the <options> section *)
+let options_title = IniFile.title "options"
+
+(* View: options
+ A options section *)
+let options = IniFile.record options_title
+ ((Util.indent . options_entry) | comment)
+
+
+(************************************************************************
+ * Group: LENS AND FILTER
+ *************************************************************************)
+
+(* View: lns
+ The mke2fs lens
+*)
+let lns = (empty|comment)* . (defaults|fs_types|options)*
+
+(* Variable: filter *)
+let filter = incl "/etc/mke2fs.conf"
+
+let xfm = transform lns filter
+
+
diff --git a/Sharp.Augeas.Test/lens/modprobe.aug b/Sharp.Augeas.Test/lens/modprobe.aug
new file mode 100644
index 0000000..bd897b9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/modprobe.aug
@@ -0,0 +1,111 @@
+(*
+Module: Modprobe
+ Parses /etc/modprobe.conf and /etc/modprobe.d/*
+
+Original Author: David Lutterkort <lutter@redhat.com>
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 modprobe.conf` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/modprobe.conf and /etc/modprobe.d/*. See <filter>.
+*)
+
+module Modprobe =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* View: comment *)
+let comment = Util.comment
+
+(* View: empty *)
+let empty = Util.empty
+
+(* View: sep_space *)
+let sep_space = del /([ \t]|(\\\\\n))+/ " "
+
+(* View: sto_no_spaces *)
+let sto_no_spaces = store /[^# \t\n\\\\]+/
+
+(* View: sto_no_colons *)
+let sto_no_colons = store /[^:# \t\n\\\\]+/
+
+(* View: sto_to_eol *)
+let sto_to_eol = store /(([^# \t\n\\\\][^#\n\\\\]*[ \t]*\\\\[ \t]*\n[ \t]*)*([^# \t\n\\\\][^#\n\\\\]*[^# \t\n\\\\]|[^# \t\n\\\\])|[^# \t\n\\\\])/
+
+(* View: alias *)
+let alias =
+ let modulename = [ label "modulename" . sto_no_spaces ] in
+ Build.key_value_line_comment "alias" sep_space
+ (sto_no_spaces . sep_space . modulename)
+ comment
+
+(************************************************************************
+ * Group: ENTRY TYPES
+ *************************************************************************)
+
+(* View: options *)
+let options =
+ let opt_value = /[^#" \t\n\\\\]+|"[^#"\n\\\\]*"/ in
+ let option = [ key Rx.word . (del /[ \t]*=[ \t]*/ "=" . store opt_value)? ] in
+ [ key "options" . sep_space . sto_no_spaces
+ . (sep_space . option)* . Util.comment_or_eol ]
+
+(* View: install_remove *)
+let kv_line_command (kw:regexp) =
+ let command = [ label "command" . sto_to_eol ] in
+ [ key kw . sep_space . sto_no_spaces
+ . sep_space . command . Util.comment_or_eol ]
+
+(* View: blacklist *)
+let blacklist = Build.key_value_line_comment "blacklist" sep_space
+ sto_no_spaces
+ comment
+
+(* View: config *)
+let config = Build.key_value_line_comment "config" sep_space
+ (store /binary_indexes|yes|no/)
+ comment
+
+(* View: softdep *)
+let softdep =
+ let premod = [ label "pre" . sep_space . sto_no_colons ] in
+ let pre = sep_space . Util.del_str "pre:" . premod+ in
+ let postmod = [ label "post" . sep_space . sto_no_colons ] in
+ let post = sep_space . Util.del_str "post:" . postmod+ in
+ [ key "softdep" . sep_space . sto_no_colons . pre? . post?
+ . Util.comment_or_eol ]
+
+(* View: entry *)
+let entry = alias
+ | options
+ | kv_line_command /install|remove/
+ | blacklist
+ | config
+ | softdep
+
+(************************************************************************
+ * Group: LENS AND FILTER
+ *************************************************************************)
+
+(* View: lns *)
+let lns = (comment|empty|entry)*
+
+(* View: filter *)
+let filter = (incl "/etc/modprobe.conf") .
+ (incl "/etc/modprobe.d/*").
+ (incl "/etc/modprobe.conf.local").
+ Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/modules.aug b/Sharp.Augeas.Test/lens/modules.aug
new file mode 100644
index 0000000..ce598fe
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/modules.aug
@@ -0,0 +1,35 @@
+(*
+Module: Modules
+ Parses /etc/modules
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 modules` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/modules. See <filter>.
+*)
+module Modules =
+autoload xfm
+
+(* View: word *)
+let word = /[^#, \n\t\/]+/
+
+(* View: sto_line *)
+let sto_line = store /[^# \t\n].*[^ \t\n]|[^# \t\n]/
+
+(* View: record *)
+let record = [ key word . (Util.del_ws_tab . sto_line)? . Util.eol ]
+
+(* View: lns *)
+let lns = ( Util.empty | Util.comment | record ) *
+
+(* View: filter *)
+let filter = incl "/etc/modules"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/modules_conf.aug b/Sharp.Augeas.Test/lens/modules_conf.aug
new file mode 100644
index 0000000..e9ab7c1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/modules_conf.aug
@@ -0,0 +1,42 @@
+(*
+Module: Modules_conf
+ Parses /etc/modules.conf and /etc/conf.modules
+
+ Based on the similar Modprobe lens
+
+ Not all directives currently listed in modules.conf(5) are currently
+ supported.
+*)
+module Modules_conf =
+autoload xfm
+
+let comment = Util.comment
+let empty = Util.empty
+let eol = Util.eol | Util.comment
+
+(* Basic file structure is the same as modprobe.conf *)
+let sto_to_eol = Modprobe.sto_to_eol
+let sep_space = Modprobe.sep_space
+
+let path = [ key "path" . Util.del_str "=" . sto_to_eol . eol ]
+let keep = [ key "keep" . eol ]
+let probeall = Build.key_value_line_comment "probeall" sep_space
+ sto_to_eol
+ comment
+
+let entry =
+ Modprobe.alias
+ | Modprobe.options
+ | Modprobe.kv_line_command /install|pre-install|post-install/
+ | Modprobe.kv_line_command /remove|pre-remove|post-remove/
+ | keep
+ | path
+ | probeall
+
+
+let lns = (comment|empty|entry)*
+
+let filter = (incl "/etc/modules.conf") .
+ (incl "/etc/conf.modules")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/mongodbserver.aug b/Sharp.Augeas.Test/lens/mongodbserver.aug
new file mode 100644
index 0000000..77d1aa4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/mongodbserver.aug
@@ -0,0 +1,53 @@
+(*
+Module: MongoDBServer
+ Parses /etc/mongodb.conf
+
+Author: Brian Redbeard <redbeard@dead-city.org>
+
+About: Reference
+ For information on configuration options available to mongod reference one
+ of the following resources:
+ * The Mongo DB Manual - <http://docs.mongodb.org/manual/>
+ * The current options available for your operating system via:
+ > man mongos
+
+About: License
+ This file is licenced under the LGPL v2+, conforming to the other components
+ of Augeas.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Get your current setup
+ > print /files/etc/mongodb.conf
+ ...
+
+ * Change MongoDB port
+ > set /files/etc/mongodb.conf/port 27117
+
+ Saving your file:
+
+ > save
+
+About: Configuration files
+ This lens applies to /etc/mongodb.conf. See <filter>.
+
+About: Examples
+ The <Test_MongoDBServer> file contains various examples and tests.
+*)
+module MongoDBServer =
+
+autoload xfm
+
+(* View: entry *)
+let entry =
+ Build.key_value_line Rx.word Sep.space_equal (store Rx.space_in)
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | entry)*
+
+
+(* Variable: filter *)
+let filter = incl "/etc/mongodb.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/monit.aug b/Sharp.Augeas.Test/lens/monit.aug
new file mode 100644
index 0000000..f2f1e9e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/monit.aug
@@ -0,0 +1,70 @@
+(* Monit module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: man monit (1), section "HOW TO MONITOR"
+
+ "A monit control file consists of a series of service entries and
+ global option statements in a free-format, token-oriented syntax.
+
+ Comments begin with a # and extend through the end of the line. There
+ are three kinds of tokens in the control file: grammar keywords, numbers
+ and strings. On a semantic level, the control file consists of three
+ types of statements:
+
+ 1. Global set-statements
+ A global set-statement starts with the keyword set and the item to
+ configure.
+
+ 2. Global include-statement
+ The include statement consists of the keyword include and a glob
+ string.
+
+ 3. One or more service entry statements.
+ A service entry starts with the keyword check followed by the
+ service type"
+
+*)
+
+module Monit =
+
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let spc = Sep.space
+let comment = Util.comment
+let empty = Util.empty
+
+let sto_to_spc = store Rx.space_in
+let sto_no_spc = store Rx.no_spaces
+
+let word = Rx.word
+let value = Build.key_value_line word spc sto_to_spc
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+(* set statement *)
+let set = Build.key_value "set" spc value
+
+(* include statement *)
+let include = Build.key_value_line "include" spc sto_to_spc
+
+(* service statement *)
+let service = Build.key_value "check" spc (Build.list value spc)
+
+let entry = (set|include|service)
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry) *
+
+let filter = incl "/etc/monit/monitrc"
+ . incl "/etc/monitrc"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/multipath.aug b/Sharp.Augeas.Test/lens/multipath.aug
new file mode 100644
index 0000000..9db27d0
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/multipath.aug
@@ -0,0 +1,136 @@
+(* Process /etc/multipath.conf *)
+(* The lens is based on the multipath.conf(5) man page *)
+module Multipath =
+
+autoload xfm
+
+let comment = Util.comment
+let empty = Util.empty
+let dels = Util.del_str
+let eol = Util.eol
+
+let ws = del /[ \t]+/ " "
+let indent = del /[ \t]*/ ""
+(* We require that braces are always followed by a newline *)
+let obr = del /\{([ \t]*)\n/ "{\n"
+let cbr = del /[ \t]*}[ \t]*\n/ "}\n"
+
+(* Like Rx.fspath, but we disallow quotes at the beginning or end *)
+let fspath = /[^" \t\n]|[^" \t\n][^ \t\n]*[^" \t\n]/
+
+let ikey (k:regexp) = indent . key k
+
+let section (n:regexp) (b:lens) =
+ [ ikey n . ws . obr . (b|empty|comment)* . cbr ]
+
+let kv (k:regexp) (v:regexp) =
+ [ ikey k . ws . del /"?/ "" . store v . del /"?/ "" . eol ]
+
+(* FIXME: it would be much more concise to write *)
+(* [ key k . ws . (bare | quoted) ] *)
+(* but the typechecker trips over that *)
+let qstr (k:regexp) =
+ let delq = del /['"]/ "\"" in
+ let bare = del /["']?/ "" . store /[^"' \t\n]+/ . del /["']?/ "" in
+ let quoted = delq . store /.*[ \t].*/ . delq in
+ [ ikey k . ws . bare . eol ]
+ |[ ikey k . ws . quoted . eol ]
+
+(* Settings that can be changed in various places *)
+let common_setting =
+ qstr "path_selector"
+ |kv "path_grouping_policy" /failover|multibus|group_by_(serial|prio|node_name)/
+ |kv "path_checker" /tur|emc_clariion|hp_sw|rdac|directio|rdb|readsector0/
+ |kv "prio" /const|emc|alua|ontap|rdac|hp_sw|hds|random|weightedpath/
+ |qstr "prio_args"
+ |kv "failback" (Rx.integer | /immediate|manual|followover/)
+ |kv "rr_weight" /priorities|uniform/
+ |kv "flush_on_last_del" /yes|no/
+ |kv "user_friendly_names" /yes|no/
+ |kv "no_path_retry" (Rx.integer | /fail|queue/)
+ |kv /rr_min_io(_q)?/ Rx.integer
+ |qstr "features"
+ |kv "reservation_key" Rx.word
+ |kv "deferred_remove" /yes|no/
+ |kv "delay_watch_checks" (Rx.integer | "no")
+ |kv "delay_wait_checks" (Rx.integer | "no")
+ |kv "skip_kpartx" /yes|no/
+ (* Deprecated settings for backwards compatibility *)
+ |qstr /(getuid|prio)_callout/
+ (* Settings not documented in `man multipath.conf` *)
+ |kv /rr_min_io_rq/ Rx.integer
+ |kv "udev_dir" fspath
+ |qstr "selector"
+ |kv "async_timeout" Rx.integer
+ |kv "pg_timeout" Rx.word
+ |kv "h_on_last_deleassign_maps" /yes|no/
+ |qstr "uid_attribute"
+ |kv "hwtable_regex_match" /yes|no|on|off/
+ |kv "reload_readwrite" /yes|no/
+
+let default_setting =
+ common_setting
+ |kv "polling_interval" Rx.integer
+ |kv "max_polling_interval" Rx.integer
+ |kv "multipath_dir" fspath
+ |kv "find_multipaths" /yes|no/
+ |kv "verbosity" /[0-6]/
+ |kv "reassign_maps" /yes|no/
+ |kv "uid_attrribute" Rx.word
+ |kv "max_fds" (Rx.integer|"max")
+ |kv "checker_timeout" Rx.integer
+ |kv "fast_io_fail_tmo" (Rx.integer|"off")
+ |kv "dev_loss_tmo" (Rx.integer|"infinity")
+ |kv "queue_without_daemon" /yes|no/
+ |kv "bindings_file" fspath
+ |kv "wwids_file" fspath
+ |kv "log_checker_err" /once|always/
+ |kv "retain_attached_hw_handler" /yes|no/
+ |kv "detect_prio" /yes|no/
+ |kv "hw_str_match" /yes|no/
+ |kv "force_sync" /yes|no/
+ |kv "config_dir" fspath
+ |kv "missing_uev_wait_timeout" Rx.integer
+ |kv "ignore_new_boot_devs" /yes|no/
+ |kv "retrigger_tries" Rx.integer
+ |kv "retrigger_delay" Rx.integer
+ |kv "new_bindings_in_boot" /yes|no/
+
+(* A device subsection *)
+let device =
+ let setting =
+ qstr /vendor|product|product_blacklist|hardware_handler|alias_prefix/
+ |default_setting in
+ section "device" setting
+
+(* The defaults section *)
+let defaults =
+ section "defaults" default_setting
+
+(* The blacklist and blacklist_exceptions sections *)
+let blacklist =
+ let setting =
+ qstr /devnode|wwid|property/
+ |device in
+ section /blacklist(_exceptions)?/ setting
+
+(* A multipath subsection *)
+let multipath =
+ let setting =
+ kv "wwid" (Rx.word|"*")
+ |qstr "alias"
+ |common_setting in
+ section "multipath" setting
+
+(* The multipaths section *)
+let multipaths =
+ section "multipaths" multipath
+
+(* The devices section *)
+let devices =
+ section "devices" device
+
+let lns = (comment|empty|defaults|blacklist|devices|multipaths)*
+
+let xfm = transform lns (incl "/etc/multipath.conf" .
+ incl "/etc/multipath/conf.d/*.conf")
diff --git a/Sharp.Augeas.Test/lens/mysql.aug b/Sharp.Augeas.Test/lens/mysql.aug
new file mode 100644
index 0000000..1b8c315
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/mysql.aug
@@ -0,0 +1,47 @@
+(* MySQL module for Augeas *)
+(* Author: Tim Stoop <tim@kumina.nl> *)
+(* Heavily based on php.aug by Raphael Pinson *)
+(* <raphink@gmail.com> *)
+(* *)
+
+module MySQL =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *************************************************************************)
+let comment = IniFile.comment IniFile.comment_re "#"
+
+let sep = IniFile.sep IniFile.sep_re IniFile.sep_default
+
+let entry =
+ let bare = Quote.do_dquote_opt_nil (store /[^#;" \t\r\n]+([ \t]+[^#;" \t\r\n]+)*/)
+ in let quoted = Quote.do_dquote (store /[^"\r\n]*[#;]+[^"\r\n]*/)
+ in [ Util.indent . key IniFile.entry_re . sep . Sep.opt_space . bare . (comment|IniFile.eol) ]
+ | [ Util.indent . key IniFile.entry_re . sep . Sep.opt_space . quoted . (comment|IniFile.eol) ]
+ | [ Util.indent . key IniFile.entry_re . store // . (comment|IniFile.eol) ]
+ | comment
+
+(************************************************************************
+ * sections, led by a "[section]" header
+ * We can't use titles as node names here since they could contain "/"
+ * We remove #comment from possible keys
+ * since it is used as label for comments
+ * We also remove / as first character
+ * because augeas doesn't like '/' keys (although it is legal in INI Files)
+ *************************************************************************)
+let title = IniFile.indented_title_label "target" IniFile.record_label_re
+let record = IniFile.record title entry
+
+let includedir = Build.key_value_line /!include(dir)?/ Sep.space (store Rx.fspath)
+ . (comment|IniFile.empty)*
+
+let lns = (comment|IniFile.empty)* . (record|includedir)*
+
+let filter = (incl "/etc/mysql/my.cnf")
+ . (incl "/etc/mysql/conf.d/*.cnf")
+ . (incl "/etc/my.cnf")
+ . (incl "/etc/my.cnf.d/*.cnf")
+
+let xfm = transform lns filter
+
diff --git a/Sharp.Augeas.Test/lens/nagioscfg.aug b/Sharp.Augeas.Test/lens/nagioscfg.aug
new file mode 100644
index 0000000..c760875
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/nagioscfg.aug
@@ -0,0 +1,74 @@
+(*
+Module: NagiosConfig
+ Parses /etc/{nagios{3,},icinga}/*.cfg
+
+Authors: Sebastien Aperghis-Tramoni <sebastien@aperghis.net>
+ Raphaël Pinson <raphink@gmail.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/{nagios{3,},icinga}/*.cfg. See <filter>.
+*)
+
+module NagiosCfg =
+autoload xfm
+
+(************************************************************************
+ * Group: Utility variables/functions
+ ************************************************************************)
+(* View: param_def
+ define a field *)
+let param_def =
+ let space_in = /[^ \t\n][^\n=]*[^ \t\n]|[^ \t\n]/
+ in key /[A-Za-z0-9_]+/
+ . Sep.opt_space . Sep.equal . Sep.opt_space
+ . store space_in
+
+(* View: macro_def
+ Macro line, as used in resource.cfg *)
+let macro_def =
+ let macro = /\$[A-Za-z0-9]+\$/
+ in let macro_decl = Rx.word | Rx.fspath
+ in key macro . Sep.space_equal . store macro_decl
+
+(************************************************************************
+ * Group: Entries
+ ************************************************************************)
+(* View: param
+ Params can have sub params *)
+let param =
+ [ Util.indent . param_def
+ . [ Sep.space . param_def ]*
+ . Util.eol ]
+
+(* View: macro *)
+let macro = [ Util.indent . macro_def . Util.eol ]
+
+(************************************************************************
+ * Group: Lens
+ ************************************************************************)
+(* View: entry
+ Define the accepted entries, such as param for regular configuration
+ files, and macro for resources.cfg .*)
+let entry = param
+ | macro
+
+(* View: lns
+ main structure *)
+let lns = ( Util.empty | Util.comment | entry )*
+
+(* View: filter *)
+let filter = incl "/etc/nagios3/*.cfg"
+ . incl "/etc/nagios/*.cfg"
+ . incl "/etc/icinga/*.cfg"
+ . excl "/etc/nagios3/commands.cfg"
+ . excl "/etc/nagios/commands.cfg"
+ . excl "/etc/nagios/nrpe.cfg"
+ . incl "/etc/icinga/commands.cfg"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/nagiosobjects.aug b/Sharp.Augeas.Test/lens/nagiosobjects.aug
new file mode 100644
index 0000000..db4e181
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/nagiosobjects.aug
@@ -0,0 +1,62 @@
+(*
+Module: NagiosObjects
+ Parses /etc/{nagios{3,},icinga}/objects/*.cfg
+
+Authors: Sebastien Aperghis-Tramoni <sebastien@aperghis.net>
+ Raphaël Pinson <raphink@gmail.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+
+ This lens applies to /etc/{nagios{3,},icinga}/objects/*.cfg. See <filter>.
+*)
+
+module NagiosObjects =
+ autoload xfm
+
+ (* basic atoms *)
+ let eol = Util.eol
+ let ws = Sep.space
+
+ let keyword = key /[A-Za-z0-9_]+/
+
+ (* optional, but preferred, whitespace *)
+ let opt_ws = del Rx.opt_space " "
+
+ (* define an empty line *)
+ let empty = Util.empty
+
+ (* define a comment *)
+ let comment = Util.comment_generic /[ \t]*[#;][ \t]*/ "# "
+
+ (* define a field *)
+ let object_field =
+ let field_name = keyword in
+ let field_value = store Rx.space_in in
+ [ Util.indent . field_name . ws
+ . field_value . eol ]
+
+ (* define an object *)
+ let object_def =
+ let object_type = keyword in
+ [ Util.indent
+ . Util.del_str "define" . ws
+ . object_type . opt_ws
+ . Util.del_str "{" . eol
+ . ( empty | comment | object_field )*
+ . Util.indent . Util.del_str "}" . eol ]
+
+ (* main structure *)
+ let lns = ( empty | comment | object_def )*
+
+ let filter = incl "/etc/nagios3/objects/*.cfg"
+ . incl "/etc/nagios/objects/*.cfg"
+ . incl "/etc/icinga/objects/*.cfg"
+
+ let xfm = transform lns filter
+
diff --git a/Sharp.Augeas.Test/lens/netmasks.aug b/Sharp.Augeas.Test/lens/netmasks.aug
new file mode 100644
index 0000000..45ea879
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/netmasks.aug
@@ -0,0 +1,65 @@
+(*
+Module: Netmasks
+ Parses /etc/inet/netmasks on Solaris
+
+Author: Dominic Cleal <dcleal@redhat.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 4 netmasks` where possible.
+
+About: Licence
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+
+About: Configuration files
+ This lens applies to /etc/netmasks and /etc/inet/netmasks. See <filter>.
+*)
+
+module Netmasks =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ ************************************************************************)
+
+(* View: comment *)
+let comment = Util.comment
+
+(* View: comment_or_eol *)
+let comment_or_eol = Util.comment_or_eol
+
+(* View: indent *)
+let indent = Util.indent
+
+(* View: empty *)
+let empty = Util.empty
+
+(* View: sep
+ The separator for network/mask entries *)
+let sep = Util.del_ws_tab
+
+(************************************************************************
+ * Group: ENTRIES
+ ************************************************************************)
+
+(* View: entry
+ Network / netmask line *)
+let entry = [ seq "network" . indent .
+ [ label "network" . store Rx.ipv4 ] . sep .
+ [ label "netmask" . store Rx.ipv4 ] . comment_or_eol ]
+
+(************************************************************************
+ * Group: LENS
+ ************************************************************************)
+
+(* View: lns *)
+let lns = ( empty
+ | comment
+ | entry )*
+
+(* Variable: filter *)
+let filter = (incl "/etc/netmasks"
+ . incl "/etc/inet/netmasks")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/networkmanager.aug b/Sharp.Augeas.Test/lens/networkmanager.aug
new file mode 100644
index 0000000..8649168
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/networkmanager.aug
@@ -0,0 +1,67 @@
+(*
+Module: NetworkManager
+ Parses /etc/NetworkManager/system-connections/* files which are GLib
+ key-value setting files.
+
+Author: Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/NetworkManager/system-connections/*. See <filter>.
+
+About: Examples
+ The <Test_NetworkManager> file contains various examples and tests.
+*)
+
+module NetworkManager =
+autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *
+ * GLib only supports "# as commentary and "=" as separator
+ *************************************************************************)
+let comment = IniFile.comment "#" "#"
+let sep = Sep.equal
+let eol = Util.eol
+
+(************************************************************************
+ * ENTRY
+ * GLib entries can contain semicolons, entry names can contain spaces and
+ * brackets
+ *
+ * At least entry for WPA-PSK definition can contain all printable ASCII
+ * characters including '#', ' ' and others. Comments following the entry
+ * are no option for this reason.
+ *************************************************************************)
+(* Variable: entry_re *)
+let entry_re = /[A-Za-z][A-Za-z0-9:._\(\) \t-]+/
+
+(* Lens: entry *)
+let entry = [ key entry_re . sep
+ . IniFile.sto_to_eol? . eol ]
+ | comment
+
+(************************************************************************
+ * RECORD
+ * GLib uses standard INI File records
+ *************************************************************************)
+let title = IniFile.indented_title IniFile.record_re
+let record = IniFile.record title entry
+
+
+(************************************************************************
+ * LENS & FILTER
+ * GLib uses standard INI File records
+ *************************************************************************)
+let lns = IniFile.lns record comment
+
+(* Variable: filter *)
+let filter = incl "/etc/NetworkManager/system-connections/*"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/networks.aug b/Sharp.Augeas.Test/lens/networks.aug
new file mode 100644
index 0000000..db09022
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/networks.aug
@@ -0,0 +1,46 @@
+(*
+Module: Networks
+ Parses /etc/networks
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 networks` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/networks. See <filter>.
+*)
+
+module Networks =
+
+autoload xfm
+
+(* View: ipv4
+ A network IP, trailing .0 may be omitted *)
+let ipv4 =
+ let dot = "." in
+ let digits = /(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/ in
+ digits . (dot . digits . (dot . digits . (dot . digits)?)?)?
+
+(*View: entry *)
+let entry =
+ let alias = [ seq "alias" . store Rx.word ] in
+ [ seq "network" . counter "alias"
+ . [ label "name" . store Rx.word ]
+ . [ Sep.space . label "number" . store ipv4 ]
+ . [ Sep.space . label "aliases" . Build.opt_list alias Sep.space ]?
+ . (Util.eol|Util.comment) ]
+
+(* View: lns *)
+let lns = ( Util.empty | Util.comment | entry )*
+
+(* View: filter *)
+let filter = incl "/etc/networks"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/nginx.aug b/Sharp.Augeas.Test/lens/nginx.aug
new file mode 100644
index 0000000..06989c8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/nginx.aug
@@ -0,0 +1,134 @@
+(* Module: Nginx
+ Nginx module for Augeas
+
+Authors: Ian Berry <iberry@barracuda.com>
+ Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: Reference
+
+ This module was built to support a limited subset of nginx
+ configuration syntax. It works fine with simple blocks and
+ field/value lines.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/nginx/nginx.conf. See <filter>.
+
+About: Examples
+ The <Test_Nginx> file contains various examples and tests.
+
+About: TODO
+ * Convert statement keyworks for a regex
+ * Support more advanced block syntax (location)
+*)
+
+module Nginx =
+
+autoload xfm
+
+(* Variable: word *)
+let word = /[A-Za-z0-9_.:-]+/
+
+(* Variable: block_re
+ The keywords reserved for block entries *)
+let block_re = "http" | "events" | "server" | "mail" | "stream"
+
+(* All block keywords, including the ones we treat specially *)
+let block_re_all = block_re | "if" | "location" | "geo" | "map"
+ | "split_clients" | "upstream"
+
+(* View: simple
+ A simple entry *)
+let simple =
+ let kw = word - block_re_all
+ in let mask = [ label "mask" . Util.del_str "/" . store Rx.integer ]
+ in let sto = store /[^ \t\n;#]([^";#]|"[^"]*\")*/
+ in [ Util.indent .
+ key kw . mask? .
+ (Sep.space . sto)? . Sep.semicolon .
+ (Util.eol|Util.comment_eol) ]
+
+(* View: server
+ A simple server entry *)
+let server =
+ let address = /[A-Za-z0-9_.:\/-]+/
+ in [ Util.indent . label "@server" . Util.del_str "server"
+ . [ Sep.space . label "@address" . store address ]
+ . [ Sep.space . key word . (Sep.equal . store word)? ]*
+ . Sep.semicolon
+ . (Util.eol|Util.comment_eol) ]
+
+let arg (name:string) (rx:regexp) =
+ [ label name . Sep.space . store rx ]
+
+(* Match any argument (as much as possible) *)
+let any_rx =
+ let bare_rx = /[^" \t\n{][^ \t\n{]*/ in
+ let dquote_rx = /"([^\"]|\\.)*"/ in
+ bare_rx | dquote_rx
+
+let any_arg (name:string) = arg name any_rx
+
+(* 'if' conditions are enclosed in matching parens which we can't match
+ precisely with a regular expression. Instead, we gobble up anything that
+ doesn't contain an opening brace. That can of course lead to trouble if
+ a condition actually contains an opening brace *)
+let block_if = key "if"
+ . arg "#cond" /\(([^ \t\n{]|[ \t\n][^{])*\)/
+
+let block_location = key "location"
+ . (arg "#comp" /=|~|~\*|\^~/)?
+ . any_arg "#uri"
+
+let block_geo = key "geo"
+ . (any_arg "#address")?
+ . any_arg "#geo"
+
+let block_map = key "map"
+ . any_arg "#source"
+ . any_arg "#variable"
+
+let block_split_clients = key "split_clients"
+ . any_arg "#string"
+ . any_arg "#variable"
+
+let block_upstream = key "upstream"
+ . any_arg "#name"
+
+let block_head = key block_re
+ | block_if
+ | block_location
+ | block_geo
+ | block_map
+ | block_split_clients
+ | block_upstream
+
+(* View: block
+ A block containing <simple> entries *)
+let block (entry : lens) =
+ [ Util.indent . block_head
+ . Build.block_newlines entry Util.comment
+ . Util.eol ]
+
+let rec directive = simple | server | block directive
+
+(* View: lns *)
+let lns = ( Util.comment | Util.empty | directive )*
+
+(* Variable: filter *)
+let filter = incl "/etc/nginx/nginx.conf"
+ . incl "/etc/nginx/conf.d/*.conf"
+ . incl "/etc/nginx/sites-available/*"
+ . incl "/etc/nginx/sites-enabled/*"
+ . incl "/usr/portage/www-servers/nginx/files/nginx.conf"
+ . incl "/usr/local/etc/nginx/nginx.conf"
+ . incl "/usr/local/etc/nginx/conf.d/*.conf"
+ . incl "/usr/local/etc/nginx/sites-available/*"
+ . incl "/usr/local/etc/nginx/sites-enabled/*"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/nrpe.aug b/Sharp.Augeas.Test/lens/nrpe.aug
new file mode 100644
index 0000000..dedacea
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/nrpe.aug
@@ -0,0 +1,85 @@
+(*
+Module: Nrpe
+ Parses nagios-nrpe configuration files.
+
+Author: Marc Fournier <marc.fournier@camptocamp.com>
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+*)
+
+module Nrpe =
+ autoload xfm
+
+
+let eol = Util.eol
+let eq = Sep.equal
+
+(* View: word *)
+let word = /[^=\n\t ]+/
+
+let words = word . ( / +/ . word )*
+
+(* View: item_re *)
+let item_re = /[^#=\n\t\/ ]+/ - (/command\[[^]\/\n]+\]/ | "include" | "include_dir")
+
+(* View: command
+ nrpe.cfg usually has many entries defining commands to run
+
+ > command[check_foo]=/path/to/nagios/plugin -w 123 -c 456
+ > command[check_bar]=/path/to/another/nagios/plugin --option
+*)
+let command =
+ let obrkt = del /\[/ "[" in
+ let cbrkt = del /\]/ "]" in
+ [ key "command" .
+ [ obrkt . key /[^]\/\n]+/ . cbrkt . eq
+ . store /[^\n]+/ . del /\n/ "\n" ]
+ ]
+
+
+(* View: item
+ regular entries
+
+ > allow_bash_command_substitution=0
+*)
+let item = [ key item_re . eq . store words . eol ]
+
+(* View: include
+ An include entry.
+
+ nrpe.cfg can include more than one file or directory of files
+
+ > include=/path/to/file1.cfg
+ > include=/path/to/file2.cfg
+*)
+let include = [ key "include" .
+ [ label "file" . eq . store word . eol ]
+]
+
+(* View: include_dir
+ > include_dir=/path/to/dir/
+*)
+let include_dir = [ key "include_dir" .
+ [ label "dir" . eq . store word . eol ]
+]
+
+
+(* View: comment
+ Nrpe comments must start at beginning of line *)
+let comment = Util.comment_generic /#[ \t]*/ "# "
+
+(* blank lines and empty comments *)
+let empty = Util.empty
+
+(* View: lns
+ The Nrpe lens *)
+let lns = ( command | include | include_dir | item | comment | empty ) *
+
+(* View: filter
+ File filter *)
+let filter = incl "/etc/nrpe.cfg" .
+ incl "/etc/nagios/nrpe.cfg"
+
+let xfm = transform lns (filter)
+
diff --git a/Sharp.Augeas.Test/lens/nslcd.aug b/Sharp.Augeas.Test/lens/nslcd.aug
new file mode 100644
index 0000000..5e85913
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/nslcd.aug
@@ -0,0 +1,263 @@
+(*
+Module: Nslcd
+ Parses /etc/nslcd.conf
+
+Author: Jose Plana <jplana@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 nslcd.conf` where
+ possible.
+
+License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+
+About: Lens Usage
+
+ Sample usage of this lens in augtool:
+
+ * get uid
+ > get /files/etc/nslcd.conf/threads
+
+ * set ldap URI
+ > set /files/etc/nslcd.conf/uri "ldaps://x.y.z"
+
+ * get cache values
+ > get /files/etc/nslcd.conf/cache
+
+ * change syslog level to debug
+ > set /files/etc/nslcd.conf/log "syslog debug"
+
+ * add/change filter for the passwd map
+ > set /files/etc/nslcd.conf/filter/passwd "(objectClass=posixGroup)"
+
+ * change the default search scope
+ > set /files/etc/nslcd.conf/scope[count( * )] "subtree"
+
+ * get the default search scope
+ > get /files/etc/nslcd.conf/scope[count( * )] "subtree"
+
+ * add/set a scope search value for a specific (host) map
+ > set /files/etc/nslcd.conf/scope[host]/host "subtree"
+
+ * get all default base search
+ > match /files/etc/nslcd.conf/base[count( * ) = 0]
+
+ * get the 3rd base search default value
+ > get /files/etc/nslcd.conf/base[3]
+
+ * add a new base search default value
+ > set /files/etc/nslcd.conf/base[last()+1] "dc=example,dc=com"
+
+ * change a base search default value to a new base value
+ > set /files/etc/nslcd.conf/base[self::* = "dc=example,dc=com"] "dc=test,dc=com"
+
+ * add/change a base search for a specific map (hosts)
+ > set /files/etc/nslcd.conf/base[hosts]/hosts "dc=hosts,dc=example,dc=com"
+
+ * add a base search for a specific map (passwd)
+ > set /files/etc/nslcd.conf/base[last()+1]/passwd "dc=users,dc=example,dc=com"
+
+ * remove all base search value for a map (rpc)
+ > rm /files/etc/nslcd.conf/base/rpc
+
+ * remove a specific search base value for a map (passwd)
+ > rm /files/etc/nslcd.conf/base/passwd[self::* = "dc=users,dc=example,dc=com"]
+
+ * get an attribute mapping value for a map
+ > get /files/etc/nslcd.conf/map/passwd/homeDirectory
+
+ * get all attribute values for a map
+ > match /files/etc/nslcd.conf/map/passwd/*
+
+ * set a specific attribute for a map
+ > set /files/etc/nslcd.conf/map/passwd/homeDirectory "\"${homeDirectory:-/home/$uid}\""
+
+ * add/change a specific attribute for a map (a map that might not be defined before)
+ > set /files/etc/nslcd.conf/map[shadow/userPassword]/shadow/userPassword "*"
+
+ * remove an attribute for a specific map
+ > rm /files/etc/nslcd.conf/map/shadow/userPassword
+
+ * remove all attributes for a specific map
+ > rm /files/etc/nslcd.conf/map/passwd/*
+
+About: Configuration files
+ This lens applies to /etc/nslcd.conf. See <filter>.
+
+About: Examples
+ The <Test_Nslcd> file contains various examples and tests.
+*)
+
+module Nslcd =
+autoload xfm
+
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+
+(* Group: Comments and empty lines *)
+
+(* View: eol *)
+let eol = Util.eol
+(* View: empty *)
+let empty = Util.empty
+(* View: spc *)
+let spc = Util.del_ws_spc
+(* View: comma *)
+let comma = Sep.comma
+(* View: comment *)
+let comment = Util.comment
+(* View: do_dquote *)
+let do_dquote = Quote.do_dquote
+(* View: opt_list *)
+let opt_list = Build.opt_list
+
+(* Group: Ldap related values
+Values that need to be parsed.
+*)
+
+(* Variable: ldap_rdn *)
+let ldap_rdn = /[A-Za-z][A-Za-z]+=[A-Za-z0-9_.-]+/
+(* Variable: ldap_dn *)
+let ldap_dn = ldap_rdn . (/(,)?/ . ldap_rdn)*
+(* Variable: ldap_filter *)
+let ldap_filter = /\(.*\)/
+(* Variable: ldap_scope *)
+let ldap_scope = /sub(tree)?|one(level)?|base/
+(* Variable: map_names *)
+let map_names = /alias(es)?/
+ | /ether(s)?/
+ | /group/
+ | /host(s)?/
+ | /netgroup/
+ | /network(s)?/
+ | /passwd/
+ | /protocol(s)?/
+ | /rpc/
+ | /service(s)?/
+ | /shadow/
+(* Variable: key_name *)
+let key_name = /[^ #\n\t\/][^ #\n\t\/]+/
+
+
+(************************************************************************
+ * Group: CONFIGURATION ENTRIES
+ *************************************************************************)
+
+(* Group: Generic definitions *)
+
+(* View: simple_entry
+The simplest configuration option a key spc value. As in `gid id`
+*)
+let simple_entry (kw:string) = Build.key_ws_value kw
+
+(* View: simple_entry_quoted_value
+Simple entry with quoted value
+*)
+let simple_entry_quoted_value (kw:string) = Build.key_value_line kw spc (do_dquote (store /.*/))
+
+(* View simple_entry_opt_list_comma_value
+Simple entry that contains a optional list separated by commas
+*)
+let simple_entry_opt_list_value (kw:string) (lsep:lens) = Build.key_value_line kw spc (opt_list [ seq kw . store /[^, \t\n\r]+/ ] (lsep))
+(* View: key_value_line_regexp
+A simple configuration option but specifying the regex for the value.
+*)
+let key_value_line_regexp (kw:string) (sto:regexp) = Build.key_value_line kw spc (store sto)
+
+(* View: mapped_entry
+A mapped configuration as in `filter MAP option`.
+*)
+let mapped_entry (kw:string) (sto:regexp) = [ key kw . spc
+ . Build.key_value_line map_names spc (store sto)
+ ]
+(* View: key_value_line_regexp_opt_map
+A mapped configuration but the MAP value is optional as in scope [MAP] value`.
+*)
+let key_value_line_regexp_opt_map (kw:string) (sto:regexp) =
+ ( key_value_line_regexp kw sto | mapped_entry kw sto )
+
+(* View: map_entry
+A map entry as in `map MAP ATTRIBUTE NEWATTRIBUTE`.
+*)
+let map_entry = [ key "map" . spc
+ . [ key map_names . spc
+ . [ key key_name . spc . store Rx.no_spaces ]
+ ] .eol
+ ]
+
+(* Group: Option definitions *)
+
+(* View: Base entry *)
+let base_entry = key_value_line_regexp_opt_map "base" ldap_dn
+
+(* View: Scope entry *)
+let scope_entry = key_value_line_regexp_opt_map "scope" ldap_scope
+
+(* View: Filter entry *)
+let filter_entry = mapped_entry "filter" ldap_filter
+
+(* View: entries
+All the combined entries.
+*)
+let entries = map_entry
+ | base_entry
+ | scope_entry
+ | filter_entry
+ | simple_entry "threads"
+ | simple_entry "uid"
+ | simple_entry "gid"
+ | simple_entry_opt_list_value "uri" spc
+ | simple_entry "ldap_version"
+ | simple_entry "binddn"
+ | simple_entry "bindpw"
+ | simple_entry "rootpwmoddn"
+ | simple_entry "rootpwmodpw"
+ | simple_entry "sasl_mech"
+ | simple_entry "sasl_realm"
+ | simple_entry "sasl_authcid"
+ | simple_entry "sasl_authzid"
+ | simple_entry "sasl_secprops"
+ | simple_entry "sasl_canonicalize"
+ | simple_entry "krb5_ccname"
+ | simple_entry "deref"
+ | simple_entry "referrals"
+ | simple_entry "bind_timelimit"
+ | simple_entry "timelimit"
+ | simple_entry "idle_timelimit"
+ | simple_entry "reconnect_sleeptime"
+ | simple_entry "reconnect_retrytime"
+ | simple_entry "ssl"
+ | simple_entry "tls_reqcert"
+ | simple_entry "tls_cacertdir"
+ | simple_entry "tls_cacertfile"
+ | simple_entry "tls_randfile"
+ | simple_entry "tls_ciphers"
+ | simple_entry "tls_cert"
+ | simple_entry "tls_key"
+ | simple_entry "pagesize"
+ | simple_entry_opt_list_value "nss_initgroups_ignoreusers" comma
+ | simple_entry "nss_min_uid"
+ | simple_entry "nss_nested_groups"
+ | simple_entry "nss_getgrent_skipmembers"
+ | simple_entry "nss_disable_enumeration"
+ | simple_entry "validnames"
+ | simple_entry "ignorecase"
+ | simple_entry "pam_authz_search"
+ | simple_entry_quoted_value "pam_password_prohibit_message"
+ | simple_entry "reconnect_invalidate"
+ | simple_entry "cache"
+ | simple_entry "log"
+ | simple_entry "pam_authc_ppolicy"
+
+(* View: lens *)
+let lns = (entries|empty|comment)+
+
+(* View: filter *)
+let filter = incl "/etc/nslcd.conf"
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/nsswitch.aug b/Sharp.Augeas.Test/lens/nsswitch.aug
new file mode 100644
index 0000000..ed134b3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/nsswitch.aug
@@ -0,0 +1,81 @@
+(*
+Module: Nsswitch
+ Parses /etc/nsswitch.conf
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man nsswitch.conf` where possible.
+
+About: Licence
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+
+About: Configuration files
+ This lens applies to /etc/nsswitch.conf. See <filter>.
+*)
+
+module Nsswitch =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* View: comment *)
+let comment = Util.comment
+
+(* View: empty *)
+let empty = Util.empty
+
+(* View: sep_colon
+ The separator for database entries *)
+let sep_colon = del /:[ \t]*/ ": "
+
+(* View: database_kw
+ The database specification like `passwd', `shadow', or `hosts' *)
+let database_kw = Rx.word
+
+(* View: service
+ The service specification like `files', `db', or `nis' *)
+let service = [ label "service" . store Rx.word ]
+
+(* View: reaction
+ The reaction on lookup result like `[NOTFOUND=return]'
+ TODO: Use case-insensitive regexps when ticket #147 is fixed.
+*)
+let reaction =
+ let status_kw = /[Ss][Uu][Cc][Cc][Ee][Ss][Ss]/
+ | /[Nn][Oo][Tt][Ff][Oo][Uu][Nn][Dd]/
+ | /[Uu][Nn][Aa][Vv][Aa][Ii][Ll]/
+ | /[Tt][Rr][Yy][Aa][Gg][Aa][Ii][Nn]/
+ in let action_kw = /[Rr][Ee][Tt][Uu][Rr][Nn]/
+ | /[Cc][Oo][Nn][Tt][Ii][Nn][Uu][Ee]/
+ | /[Mm][Ee][Rr][Gg][Ee]/
+ in let negate = [ Util.del_str "!" . label "negate" ]
+ in let reaction_entry = [ label "status" . negate?
+ . store status_kw
+ . Util.del_str "="
+ . [ label "action" . store action_kw ] ]
+ in Util.del_str "["
+ . [ label "reaction"
+ . (Build.opt_list reaction_entry Sep.space) ]
+ . Util.del_str "]"
+
+(* View: database *)
+let database =
+ [ label "database" . store database_kw
+ . sep_colon
+ . (Build.opt_list
+ (service|reaction)
+ Sep.space)
+ . Util.comment_or_eol ]
+
+(* View: lns *)
+let lns = ( empty | comment | database )*
+
+(* Variable: filter *)
+let filter = (incl "/etc/nsswitch.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/ntp.aug b/Sharp.Augeas.Test/lens/ntp.aug
new file mode 100644
index 0000000..5a52119
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/ntp.aug
@@ -0,0 +1,139 @@
+(* NTP module for Augeas *)
+(* Author: Raphael Pinson <raphink@gmail.com> *)
+(* *)
+(* Status: basic settings supported *)
+
+module Ntp =
+ autoload xfm
+
+
+ (* Define useful shortcuts *)
+
+ let eol = del /[ \t]*/ "" . [ label "#comment" . store /#.*/]?
+ . Util.del_str "\n"
+ let sep_spc = Util.del_ws_spc
+ let word = /[^,# \n\t]+/
+ let num = /[0-9]+/
+
+
+ (* define comments and empty lines *)
+ let comment = [ label "#comment" . del /#[ \t]*/ "#" .
+ store /([^ \t\n][^\n]*)?/ . del "\n" "\n" ]
+ let empty = [ del /[ \t]*\n/ "\n" ]
+
+
+ let kv (k:regexp) (v:regexp) =
+ [ key k . sep_spc. store v . eol ]
+
+ (* Define generic record *)
+ let record (kw:regexp) (value:lens) =
+ [ key kw . sep_spc . store word . value . eol ]
+
+ (* Define a command record; see confopt.html#cfg in the ntp docs *)
+ let command_record =
+ let opt = [ sep_spc . key /minpoll|maxpoll|ttl|version|key/ .
+ sep_spc . store word ]
+ | [ sep_spc . key (/autokey|burst|iburst|noselect|preempt/ |
+ /prefer|true|dynamic/) ] in
+ let cmd = /pool|server|peer|broadcast|manycastclient/
+ | /multicastclient|manycastserver/ in
+ record cmd opt*
+
+ let broadcastclient =
+ [ key "broadcastclient" . [ sep_spc . key "novolley" ]? . eol ]
+
+ (* Define a fudge record *)
+ let fudge_opt_re = "refid" | "stratum"
+ let fudge_opt = [ sep_spc . key fudge_opt_re . sep_spc . store word ]
+ let fudge_record = record "fudge" fudge_opt?
+
+ (* Define simple settings, see miscopt.html in ntp docs *)
+ let flags =
+ let flags_re = /auth|bclient|calibrate|kernel|monitor|ntp|pps|stats/ in
+ let flag = [ label "flag" . store flags_re ] in
+ [ key /enable|disable/ . (sep_spc . flag)* . eol ]
+
+ let simple_setting (k:regexp) = kv k word
+
+ (* Still incomplete, misses logconfig, phone, setvar, tos,
+ trap, ttl *)
+ let simple_settings =
+ kv "broadcastdelay" Rx.decimal
+ | flags
+ | simple_setting /driftfile|leapfile|logfile|includefile/
+ | simple_setting "statsdir"
+ | simple_setting "ntpsigndsocket"
+
+ (* Misc commands, see miscopt.html in ntp docs *)
+
+ (* Define restrict *)
+ let restrict_record =
+ let ip6_restrict = [ label "ipv6" . sep_spc . Util.del_str "-6" ] in
+ let ip4_restrict = [ label "ipv4" . sep_spc . Util.del_str "-4" ] in
+ let action = [ label "action" . sep_spc . store /[^,# \n\t-][^,# \n\t]*/ ] in
+ [ key "restrict" . (ip6_restrict | ip4_restrict)? . sep_spc . store /[^,# \n\t-][^,# \n\t]*/ . action* . eol ]
+
+ (* Define statistics *)
+ let statistics_flag (kw:string) = [ sep_spc . key kw ]
+
+ let statistics_opts = statistics_flag "loopstats"
+ | statistics_flag "peerstats"
+ | statistics_flag "clockstats"
+ | statistics_flag "rawstats"
+
+ let statistics_record = [ key "statistics" . statistics_opts* . eol ]
+
+
+ (* Define filegen *)
+ let filegen = del /filegen[ \t]+/ "filegen " . store word
+ let filegen_opt (kw:string) = [ sep_spc . key kw . sep_spc . store word ]
+ (* let filegen_flag (kw:string) = [ label kw . sep_spc . store word ] *)
+ let filegen_select (kw:string) (select:regexp) = [ label kw . sep_spc . store select ]
+
+ let filegen_opts = filegen_opt "file"
+ | filegen_opt "type"
+ | filegen_select "enable" /(en|dis)able/
+ | filegen_select "link" /(no)?link/
+
+ let filegen_record = [ label "filegen" . filegen . filegen_opts* . eol ]
+
+ (* Authentication commands, see authopt.html#cmd; incomplete *)
+ let auth_command =
+ [ key /controlkey|keys|keysdir|requestkey|authenticate/ .
+ sep_spc . store word . eol ]
+ | [ key /autokey|revoke/ . [sep_spc . store word]? . eol ]
+ | [ key /trustedkey/ . [ sep_spc . label "key" . store word ]+ . eol ]
+
+ (* tinker [step step | panic panic | dispersion dispersion |
+ stepout stepout | minpoll minpoll | allan allan | huffpuff huffpuff] *)
+ let tinker =
+ let arg_names = /step|panic|dispersion|stepout|minpoll|allan|huffpuff/ in
+ let arg = [ key arg_names . sep_spc . store Rx.decimal ] in
+ [ key "tinker" . (sep_spc . arg)* . eol ]
+
+ (* tos [beacon beacon | ceiling ceiling | cohort {0 | 1} |
+ floor floor | maxclock maxclock | maxdist maxdist |
+ minclock minclock | mindist mindist | minsane minsane |
+ orphan stratum | orphanwait delay] *)
+
+ let tos =
+ let arg_names = /beacon|ceiling|cohort|floor|maxclock|maxdist|
+ minclock|mindist|minsane|orphan|orphanwait/ in
+ let arg = [ key arg_names . sep_spc . store Rx.decimal ] in
+ [ key "tos" . (sep_spc . arg)* . eol ]
+
+ let interface =
+ let action = [ label "action" . store /listen|ignore|drop/ ]
+ in let addresses = [ label "addresses" . store Rx.word ]
+ in [ key "interface" . sep_spc . action . sep_spc . addresses . eol ]
+
+ (* Define lens *)
+
+ let lns = ( comment | empty | command_record | fudge_record
+ | restrict_record | simple_settings | statistics_record
+ | filegen_record | broadcastclient
+ | auth_command | tinker | tos | interface)*
+
+ let filter = (incl "/etc/ntp.conf")
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/ntpd.aug b/Sharp.Augeas.Test/lens/ntpd.aug
new file mode 100644
index 0000000..68b5905
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/ntpd.aug
@@ -0,0 +1,157 @@
+(*
+Module: Ntpd
+ Parses OpenNTPD's ntpd.conf
+
+Author: Jasper Lievisse Adriaanse <jasper@jasper.la>
+
+About: Reference
+ This lens is used to parse OpenNTPD's configuration file, ntpd.conf.
+ http://openntpd.org/
+
+About: Usage Example
+ To be documented
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Configuration files
+ This lens applies to /etc/ntpd.conf.
+See <filter>.
+*)
+
+module Ntpd =
+autoload xfm
+
+(************************************************************************
+ * Group: Utility variables/functions
+ ************************************************************************)
+
+(* View: comment *)
+let comment = Util.comment
+(* View: empty *)
+let empty = Util.empty
+(* View: eol *)
+let eol = Util.eol
+(* View: space *)
+let space = Sep.space
+(* View: word *)
+let word = Rx.word
+(* View: device_re *)
+let device_re = Rx.device_name | /\*/
+
+(* View: address_re *)
+let address_re = Rx.ip | /\*/ | Rx.hostname
+
+(* View: stratum_re
+ value between 1 and 15 *)
+let stratum_re = /1[0-5]|[1-9]/
+
+(* View: refid_re
+ string with length < 5 *)
+let refid_re = /[A-Za-z0-9_.-]{1,5}/
+
+(* View: weight_re
+ value between 1 and 10 *)
+let weight_re = /10|[1-9]/
+
+(* View: rtable_re
+ 0 - RT_TABLE_MAX *)
+let rtable_re = Rx.byte
+
+(* View: correction_re
+ should actually only match between -127000000 and 127000000 *)
+let correction_re = Rx.relinteger_noplus
+
+(************************************************************************
+ * View: key_opt_rtable_line
+ * A subnode with a keyword, an optional routing table id and an end
+ * of line.
+ *
+ * Parameters:
+ * kw:regexp - the pattern to match as key
+ * sto:lens - the storing lens
+ ************************************************************************)
+let key_opt_rtable_line (kw:regexp) (sto:lens) =
+ let rtable = [ Util.del_str "rtable" . space . label "rtable"
+ . store rtable_re ]
+ in [ key kw . space . sto . (space . rtable)? . eol ]
+
+(************************************************************************
+ * View: key_opt_weight_rtable_line
+ * A subnode with a keyword, an optional routing table id, an optional
+ * weight-value and an end of line.
+ * of line.
+ *
+ * Parameters:
+ * kw:regexp - the pattern to match as key
+ * sto:lens - the storing lens
+ ************************************************************************)
+let key_opt_weight_rtable_line (kw:regexp) (sto:lens) =
+ let rtable = [ Util.del_str "rtable" . space . label "rtable" . store rtable_re ]
+ in let weight = [ Util.del_str "weight" . space . label "weight"
+ . store weight_re ]
+ in [ key kw . space . sto . (space . weight)? . (space . rtable)? . eol ]
+
+(************************************************************************
+ * View: opt_value
+ * A subnode for optional values.
+ *
+ * Parameters:
+ * s:string - the option name and subtree label
+ * r:regexp - the pattern to match as store
+ ************************************************************************)
+let opt_value (s:string) (r:regexp) =
+ Build.key_value s space (store r)
+
+(************************************************************************
+ * Group: Keywords
+ ************************************************************************)
+
+(* View: listen
+ listen on address [rtable table-id] *)
+let listen =
+ let addr = [ label "address" . store address_re ]
+ in key_opt_rtable_line "listen on" addr
+
+(* View: server
+ server address [weight weight-value] [rtable table-id] *)
+let server =
+ let addr = [ label "address" . store address_re ]
+ in key_opt_weight_rtable_line "server" addr
+
+(* View: servers
+ servers address [weight weight-value] [rtable table-id] *)
+let servers =
+ let addr = [ label "address" . store address_re ]
+ in key_opt_weight_rtable_line "servers" addr
+
+(* View: sensor
+ sensor device [correction microseconds] [weight weight-value] [refid
+ string] [stratum stratum-value] *)
+let sensor =
+ let device = [ label "device" . store device_re ]
+ in let correction = opt_value "correction" correction_re
+ in let weight = opt_value "weight" weight_re
+ in let refid = opt_value "refid" refid_re
+ in let stratum = opt_value "stratum" stratum_re
+ in [ key "sensor" . space . device
+ . (space . correction)?
+ . (space . weight)?
+ . (space . refid)?
+ . (space . stratum)?
+ . eol ]
+
+(************************************************************************
+ * Group: Lens
+ ************************************************************************)
+
+(* View: keyword *)
+let keyword = listen | server | servers | sensor
+
+(* View: lns *)
+let lns = ( empty | comment | keyword )*
+
+(* View: filter *)
+let filter = (incl "/etc/ntpd.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/odbc.aug b/Sharp.Augeas.Test/lens/odbc.aug
new file mode 100644
index 0000000..633891d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/odbc.aug
@@ -0,0 +1,43 @@
+(*
+ ODBC lens for Augeas
+ Author: Marc Fournier <marc.fournier@camptocamp.com>
+
+ odbc.ini and odbcinst.ini are standard INI files.
+*)
+
+
+module Odbc =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ * odbc.ini only supports "# as commentary and "=" as separator
+ ************************************************************************)
+let comment = IniFile.comment "#" "#"
+let sep = IniFile.sep "=" "="
+
+
+(************************************************************************
+ * ENTRY
+ * odbc.ini uses standard INI File entries
+ ************************************************************************)
+let entry = IniFile.indented_entry IniFile.entry_re sep comment
+
+
+(************************************************************************
+ * RECORD
+ * odbc.ini uses standard INI File records
+ ************************************************************************)
+let title = IniFile.indented_title IniFile.record_re
+let record = IniFile.record title entry
+
+
+(************************************************************************
+ * LENS & FILTER
+ ************************************************************************)
+let lns = IniFile.lns record comment
+
+let filter = incl "/etc/odbc.ini"
+ . incl "/etc/odbcinst.ini"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/opendkim.aug b/Sharp.Augeas.Test/lens/opendkim.aug
new file mode 100644
index 0000000..10fb445
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/opendkim.aug
@@ -0,0 +1,60 @@
+module Opendkim =
+ autoload xfm
+
+ (* Inifile.comment is saner than Util.comment regarding spacing after the # *)
+ let comment = Inifile.comment "#" "#"
+ let eol = Util.eol
+ let empty = Util.empty
+
+ (*
+ The Dataset spec is so broad as to encompass any string (particularly the
+ degenerate 'single literal string' case of a comma separated list with
+ only one item). So treat them as 'String' types, and it's up to the user to
+ format them correctly. Given that many of the variants include file paths
+ etc, it's impossible to validate for 'correctness' anyway
+ *)
+ let stringkv_rx = /ADSPAction|AuthservID|AutoRestartRate|BaseDirectory/
+ | /BogusKey|BogusPolicy|Canonicalization|ChangeRootDirectory/
+ | /DiagnosticDirectory|FinalPolicyScript|IdentityHeader|Include|KeyFile/
+ | /LDAPAuthMechanism|LDAPAuthName|LDAPAuthRealm|LDAPAuthUser/
+ | /LDAPBindPassword|LDAPBindUser|Minimum|Mode|MTACommand|Nameservers/
+ | /On-BadSignature|On-Default|On-DNSError|On-InternalError|On-KeyNotFound/
+ | /On-NoSignature|On-PolicyError|On-Security|On-SignatureError|PidFile/
+ | /ReplaceRules|ReportAddress|ReportBccAddress|ResolverConfiguration/
+ | /ScreenPolicyScript|SelectCanonicalizationHeader|Selector|SelectorHeader/
+ | /SenderMacro|SetupPolicyScript|SignatureAlgorithm|SMTPURI|Socket/
+ | /StatisticsName|StatisticsPrefix|SyslogFacility|TemporaryDirectory/
+ | /TestPublicKeys|TrustAnchorFile|UnprotectedKey|UnprotectedPolicy|UserID/
+ | /VBR-Certifiers|VBR-PurgeFields|VBR-TrustedCertifiers|VBR-Type/
+ | /BodyLengthDB|Domain|DontSignMailTo|ExemptDomains|ExternalIgnoreList/
+ | /InternalHosts|KeyTable|LocalADSP|MacroList|MTA|MustBeSigned|OmitHeaders/
+ | /OversignHeaders|PeerList|POPDBFile|RemoveARFrom|ResignMailTo/
+ | /SenderHeaders|SignHeaders|SigningTable|TrustSignaturesFrom/
+ let stringkv = key stringkv_rx .
+ del /[ \t]+/ " " . store /[0-9a-zA-Z\/][^ \t\n#]+/ . eol
+
+ let integerkv_rx = /AutoRestartCount|ClockDrift|DNSTimeout/
+ | /LDAPKeepaliveIdle|LDAPKeepaliveInterval|LDAPKeepaliveProbes|LDAPTimeout/
+ | /MaximumHeaders|MaximumSignaturesToVerify|MaximumSignedBytes|MilterDebug/
+ | /MinimumKeyBits|SignatureTTL|UMask/
+ let integerkv = key integerkv_rx .
+ del /[ \t]+/ " " . store /[0-9]+/ . eol
+
+ let booleankv_rx = /AddAllSignatureResults|ADSPNoSuchDomain/
+ | /AllowSHA1Only|AlwaysAddARHeader|AuthservIDWithJobID|AutoRestart/
+ | /Background|CaptureUnknownErrors|Diagnostics|DisableADSP/
+ | /DisableCryptoInit|DNSConnect|FixCRLF|IdentityHeaderRemove/
+ | /LDAPDisableCache|LDAPSoftStart|LDAPUseTLS|MultipleSignatures|NoHeaderB/
+ | /Quarantine|QueryCache|RemoveARAll|RemoveOldSignatures|ResolverTracing/
+ | /SelectorHeaderRemove|SendADSPReports|SendReports|SoftwareHeader/
+ | /StrictHeaders|StrictTestMode|SubDomains|Syslog|SyslogSuccess/
+ | /VBR-TrustedCertifiersOnly|WeakSyntaxChecks|LogWhy/
+ let booleankv = key booleankv_rx .
+ del /[ \t]+/ " " . store /([Tt]rue|[Ff]alse|[Yy]es|[Nn]o|1|0)/ . eol
+
+ let entry = [ integerkv ] | [ booleankv ] | [ stringkv ]
+
+ let lns = (comment | empty | entry)*
+
+ let xfm = transform lns (incl "/etc/opendkim.conf")
+
diff --git a/Sharp.Augeas.Test/lens/openshift_config.aug b/Sharp.Augeas.Test/lens/openshift_config.aug
new file mode 100644
index 0000000..416451f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/openshift_config.aug
@@ -0,0 +1,75 @@
+(*
+Module: OpenShift_Config
+ Parses
+ - /etc/openshift/broker.conf
+ - /etc/openshift/broker-dev.conf
+ - /etc/openshift/console.conf
+ - /etc/openshift/console-dev.conf
+ - /etc/openshift/node.conf
+ - /etc/openshift/plugins.d/*.conf
+
+Author: Brian Redbeard <redbeard@dead-city.org>
+
+About: License
+ This file is licenced under the LGPL v2+, conforming to the other components
+ of Augeas.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Get your current setup
+ > print /files/etc/openshift
+ ...
+
+ * Change OpenShift domain
+ > set /files/etc/openshift/broker.conf/CLOUD_DOMAIN ose.example.com
+
+ Saving your file:
+
+ > save
+
+About: Configuration files
+ /etc/openshift/broker.conf - Configuration file for an OpenShift Broker
+ running in production mode.
+ /etc/openshift/broker-dev.conf - Configuration file for an OpenShift
+ Broker running in development mode.
+ /etc/openshift/console.conf - Configuration file for an OpenShift
+ console running in production mode.
+ /etc/openshift/console-dev.conf - Configuration file for an OpenShift
+ console running in development mode.
+ /etc/openshift/node.conf - Configuration file for an OpenShift node
+ /etc/openshift/plugins.d/*.conf - Configuration files for OpenShift
+ plugins (i.e. mcollective configuration, remote auth, dns updates)
+
+About: Examples
+ The <Test_OpenShift_Config> file contains various examples and tests.
+*)
+module OpenShift_Config =
+ autoload xfm
+
+(* Variable: blank_val *)
+let blank_val = del /["']{2}/ "\"\""
+
+(* View: primary_entry *)
+let primary_entry = Build.key_value_line Rx.word Sep.equal Quote.any_opt
+
+(* View: empty_entry *)
+let empty_entry = Build.key_value_line Rx.word Sep.equal blank_val
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | primary_entry | empty_entry )*
+
+(* Variable: filter *)
+let filter = incl "/etc/openshift/broker.conf"
+ . incl "/etc/openshift/broker-dev.conf"
+ . incl "/etc/openshift/console.conf"
+ . incl "/etc/openshift/resource_limits.conf"
+ . incl "/etc/openshift/console-dev.conf"
+ . incl "/etc/openshift/node.conf"
+ . incl "/etc/openshift/plugins.d/*.conf"
+ . incl "/var/www/openshift/broker/conf/broker.conf"
+ . incl "/var/www/openshift/broker/conf/plugins.d/*.conf"
+ . Util.stdexcl
+
+let xfm = transform lns filter
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/openshift_http.aug b/Sharp.Augeas.Test/lens/openshift_http.aug
new file mode 100644
index 0000000..7c54d4a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/openshift_http.aug
@@ -0,0 +1,36 @@
+(*
+Module: OpenShift_Http
+ Parses HTTPD related files specific to openshift
+
+Author: Brian Redbeard <redbeard@dead-city.org>
+
+About: License
+ This file is licenced under the LGPL v2+, conforming to the other components
+ of Augeas.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Get your current setup
+ > print /files/var/www/openshift
+
+About: Examples
+ The <Test_OpenShift_Http> file contains various examples and tests.
+*)
+module OpenShift_Http =
+ autoload xfm
+
+(* Variable: filter *)
+let filter = incl "/var/www/openshift/console/httpd/httpd.conf"
+ . incl "/var/www/openshift/console/httpd/conf.d/*.conf"
+ . incl "/var/www/openshift/broker/httpd/conf.d/*.conf"
+ . incl "/var/www/openshift/broker/httpd/httpd.conf"
+ . incl "/var/www/openshift/console/httpd/console.conf"
+ . incl "/var/www/openshift/broker/httpd/broker.conf"
+ . Util.stdexcl
+
+(* View: lns *)
+let lns = Httpd.lns
+
+let xfm = transform lns filter
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/openshift_quickstarts.aug b/Sharp.Augeas.Test/lens/openshift_quickstarts.aug
new file mode 100644
index 0000000..da248d5
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/openshift_quickstarts.aug
@@ -0,0 +1,43 @@
+(*
+Module: OpenShift_Quickstarts
+ Parses
+ - /etc/openshift/quickstarts.json
+
+Author: Brian Redbeard <redbeard@dead-city.org>
+
+About: License
+ This file is licenced under the LGPL v2+, conforming to the other components
+ of Augeas.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Get your current setup
+ > print /files/etc/openshift/quickstarts.json
+ ...
+
+ * Delete the quickstart named WordPress
+ > rm /files/etc/openshift/quickstarts.json/array/dict[*]/entry/dict/entry[*][string = 'WordPress']/../../../
+
+ Saving your file:
+
+ > save
+
+About: Configuration files
+ /etc/openshift/quickstarts.json - Quickstarts available via the
+ OpenShift Console.
+
+About: Examples
+ The <Test_OpenShift_Quickstarts> file contains various examples and tests.
+*)
+module OpenShift_Quickstarts =
+ autoload xfm
+
+(* View: lns *)
+let lns = Json.lns
+
+(* Variable: filter *)
+let filter = incl "/etc/openshift/quickstarts.json"
+
+let xfm = transform lns filter
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/openvpn.aug b/Sharp.Augeas.Test/lens/openvpn.aug
new file mode 100644
index 0000000..607e1d6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/openvpn.aug
@@ -0,0 +1,655 @@
+(* OpenVPN module for Augeas
+ Author: Raphael Pinson <raphink@gmail.com>
+ Author: Justin Akers <dafugg@gmail.com>
+
+ Reference: http://openvpn.net/index.php/documentation/howto.html
+ Reference: https://community.openvpn.net/openvpn/wiki/Openvpn23ManPage
+
+ TODO: Inline file support
+*)
+
+
+module OpenVPN =
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let indent = Util.indent
+
+(* Define separators *)
+let sep = Util.del_ws_spc
+
+(* Define value regexps.
+ Custom simplified ipv6 used instead of Rx.ipv6 as the augeas Travis instances
+ are limited to 2GB of memory. Using 'ipv6_re = Rx.ipv6' consumes an extra
+ 2GB of memory and thus the test is OOM-killed.
+*)
+let ipv6_re = /[0-9A-Fa-f:]+/
+let ipv4_re = Rx.ipv4
+let ip_re = ipv4_re|ipv6_re
+let num_re = Rx.integer
+let fn_re = /[^#; \t\n][^#;\n]*[^#; \t\n]|[^#; \t\n]/
+let fn_safe_re = /[^#; \t\r\n]+/
+let an_re = /[a-z][a-z0-9_-]*/
+let hn_re = Rx.hostname
+let port_re = /[0-9]+/
+let host_re = ip_re|hn_re
+let proto_re = /(tcp|udp)/
+let proto_ext_re = /(udp|tcp-client|tcp-server)/
+let alg_re = /(none|[A-Za-z][A-Za-z0-9-]+)/
+let ipv6_bits_re = ipv6_re . /\/[0-9]+/
+
+(* Define store aliases *)
+let ip = store ip_re
+let num = store num_re
+let filename = store fn_re
+let filename_safe = store fn_safe_re
+let hostname = store hn_re
+let sto_to_dquote = store /[^"\n]+/ (* " Emacs, relax *)
+let port = store port_re
+let host = store host_re
+let proto = store proto_re
+let proto_ext = store proto_ext_re
+
+(* define comments and empty lines *)
+let comment = Util.comment_generic /[ \t]*[;#][ \t]*/ "# "
+let comment_or_eol = eol | Util.comment_generic /[ \t]*[;#][ \t]*/ " # "
+
+let empty = Util.empty
+
+
+(************************************************************************
+ * SINGLE VALUES
+ *
+ * - local => IP|hostname
+ * - port => num
+ * - proto => udp|tcp-client|tcp-server
+ * - proto-force => udp|tcp
+ * - mode => p2p|server
+ * - dev => (tun|tap)\d*
+ * - dev-node => filename
+ * - ca => filename
+ * - config => filename
+ * - cert => filename
+ * - key => filename
+ * - dh => filename
+ * - ifconfig-pool-persist => filename
+ * - learn-address => filename
+ * - cipher => [A-Z0-9-]+
+ * - max-clients => num
+ * - user => alphanum
+ * - group => alphanum
+ * - status => filename
+ * - log => filename
+ * - log-append => filename
+ * - client-config-dir => filename
+ * - verb => num
+ * - mute => num
+ * - fragment => num
+ * - mssfix => num
+ * - connect-retry num
+ * - connect-retry-max num
+ * - connect-timeout num
+ * - http-proxy-timeout num
+ * - max-routes num
+ * - ns-cert-type => "server"
+ * - resolv-retry => "infinite"
+ * - script-security => [0-3] (execve|system)?
+ * - ipchange => command
+ * - topology => type
+ *************************************************************************)
+
+let single_host = "local" | "tls-remote"
+let single_ip = "lladdr"
+let single_ipv6_bits = "iroute-ipv6"
+ | "server-ipv6"
+ | "ifconfig-ipv6-pool"
+let single_num = "port"
+ | "max-clients"
+ | "verb"
+ | "mute"
+ | "fragment"
+ | "mssfix"
+ | "connect-retry"
+ | "connect-retry-max"
+ | "connect-timeout"
+ | "http-proxy-timeout"
+ | "resolv-retry"
+ | "lport"
+ | "rport"
+ | "max-routes"
+ | "max-routes-per-client"
+ | "route-metric"
+ | "tun-mtu"
+ | "tun-mtu-extra"
+ | "shaper"
+ | "ping"
+ | "ping-exit"
+ | "ping-restart"
+ | "sndbuf"
+ | "rcvbuf"
+ | "txqueuelen"
+ | "link-mtu"
+ | "nice"
+ | "management-log-cache"
+ | "bcast-buffers"
+ | "tcp-queue-limit"
+ | "server-poll-timeout"
+ | "keysize"
+ | "pkcs11-pin-cache"
+ | "tls-timeout"
+ | "reneg-bytes"
+ | "reneg-pkts"
+ | "reneg-sec"
+ | "hand-window"
+ | "tran-window"
+let single_fn = "ca"
+ | "cert"
+ | "extra-certs"
+ | "config"
+ | "key"
+ | "dh"
+ | "log"
+ | "log-append"
+ | "client-config-dir"
+ | "dev-node"
+ | "cd"
+ | "chroot"
+ | "writepid"
+ | "client-config-dir"
+ | "tmp-dir"
+ | "replay-persist"
+ | "ca"
+ | "capath"
+ | "pkcs12"
+ | "pkcs11-id"
+ | "askpass"
+ | "tls-export-cert"
+ | "x509-track"
+let single_an = "user"
+ | "group"
+ | "management-client-user"
+ | "management-client-group"
+let single_cmd = "ipchange"
+ | "iproute"
+ | "route-up"
+ | "route-pre-down"
+ | "mark"
+ | "up"
+ | "down"
+ | "setcon"
+ | "echo"
+ | "client-connect"
+ | "client-disconnect"
+ | "learn-address"
+ | "tls-verify"
+
+let single_entry (kw:regexp) (re:regexp)
+ = [ key kw . sep . store re . comment_or_eol ]
+
+let single_opt_entry (kw:regexp) (re:regexp)
+ = [ key kw . (sep . store re)? .comment_or_eol ]
+
+let single = single_entry single_num num_re
+ | single_entry single_fn fn_re
+ | single_entry single_an an_re
+ | single_entry single_host host_re
+ | single_entry single_ip ip_re
+ | single_entry single_ipv6_bits ipv6_bits_re
+ | single_entry single_cmd fn_re
+ | single_entry "proto" proto_ext_re
+ | single_entry "proto-force" proto_re
+ | single_entry "mode" /(p2p|server)/
+ | single_entry "dev" /(tun|tap)[0-9]*|null/
+ | single_entry "dev-type" /(tun|tap)/
+ | single_entry "topology" /(net30|p2p|subnet)/
+ | single_entry "cipher" alg_re
+ | single_entry "auth" alg_re
+ | single_entry "resolv-retry" "infinite"
+ | single_entry "script-security" /[0-3]( execve| system)?/
+ | single_entry "route-gateway" (host_re|/dhcp/)
+ | single_entry "mtu-disc" /(no|maybe|yes)/
+ | single_entry "remap-usr1" /SIG(HUP|TERM)/
+ | single_entry "socket-flags" /(TCP_NODELAY)/
+ | single_entry "auth-retry" /(none|nointeract|interact)/
+ | single_entry "tls-version-max" Rx.decimal
+ | single_entry "verify-hash" /([A-Za-z0-9]{2}:)+[A-Za-z0-9]{2}/
+ | single_entry "pkcs11-cert-private" /[01]/
+ | single_entry "pkcs11-protected-authentication" /[01]/
+ | single_entry "pkcs11-private-mode" /[A-Za-z0-9]+/
+ | single_entry "key-method" /[12]/
+ | single_entry "ns-cert-type" /(client|server)/
+ | single_entry "remote-cert-tls" /(client|server)/
+
+let single_opt = single_opt_entry "comp-lzo" /(yes|no|adaptive)/
+ | single_opt_entry "syslog" fn_re
+ | single_opt_entry "daemon" fn_re
+ | single_opt_entry "auth-user-pass" fn_re
+ | single_opt_entry "explicit-exit-notify" num_re
+ | single_opt_entry "engine" fn_re
+
+(************************************************************************
+ * DOUBLE VALUES
+ *************************************************************************)
+
+let double_entry (kw:regexp) (a:string) (aval:regexp) (b:string) (bval:regexp)
+ = [ key kw
+ . sep . [ label a . store aval ]
+ . sep . [ label b . store bval ]
+ . comment_or_eol
+ ]
+
+let double_secopt_entry (kw:regexp) (a:string) (aval:regexp) (b:string) (bval:regexp)
+ = [ key kw
+ . sep . [ label a . store aval ]
+ . (sep . [ label b . store bval ])?
+ . comment_or_eol
+ ]
+
+
+let double = double_entry "keepalive" "ping" num_re "timeout" num_re
+ | double_entry "hash-size" "real" num_re "virtual" num_re
+ | double_entry "ifconfig" "local" ip_re "remote" ip_re
+ | double_entry "connect-freq" "num" num_re "sec" num_re
+ | double_entry "verify-x509-name" "name" hn_re "type"
+ /(subject|name|name-prefix)/
+ | double_entry "ifconfig-ipv6" "address" ipv6_bits_re "remote" ipv6_re
+ | double_entry "ifconfig-ipv6-push" "address" ipv6_bits_re "remote" ipv6_re
+ | double_secopt_entry "iroute" "local" ip_re "netmask" ip_re
+ | double_secopt_entry "stale-routes-check" "age" num_re "interval" num_re
+ | double_secopt_entry "ifconfig-pool-persist"
+ "file" fn_safe_re "seconds" num_re
+ | double_secopt_entry "secret" "file" fn_safe_re "direction" /[01]/
+ | double_secopt_entry "prng" "algorithm" alg_re "nsl" num_re
+ | double_secopt_entry "replay-window" "window-size" num_re "seconds" num_re
+
+
+(************************************************************************
+ * FLAGS
+ *************************************************************************)
+
+let flag_words = "client-to-client"
+ | "duplicate-cn"
+ | "persist-key"
+ | "persist-tun"
+ | "client"
+ | "remote-random"
+ | "nobind"
+ | "mute-replay-warnings"
+ | "http-proxy-retry"
+ | "socks-proxy-retry"
+ | "remote-random-hostname"
+ | "show-proxy-settings"
+ | "float"
+ | "bind"
+ | "nobind"
+ | "tun-ipv6"
+ | "ifconfig-noexec"
+ | "ifconfig-nowarn"
+ | "route-noexec"
+ | "route-nopull"
+ | "allow-pull-fqdn"
+ | "mtu-test"
+ | "ping-timer-rem"
+ | "persist-tun"
+ | "persist-local-ip"
+ | "persist-remote-ip"
+ | "mlock"
+ | "up-delay"
+ | "down-pre"
+ | "up-restart"
+ | "disable-occ"
+ | "errors-to-stderr"
+ | "passtos"
+ | "suppress-timestamps"
+ | "fast-io"
+ | "multihome"
+ | "comp-noadapt"
+ | "management-client"
+ | "management-query-passwords"
+ | "management-query-proxy"
+ | "management-query-remote"
+ | "management-forget-disconnect"
+ | "management-hold"
+ | "management-signal"
+ | "management-up-down"
+ | "management-client-auth"
+ | "management-client-pf"
+ | "push-reset"
+ | "push-peer-info"
+ | "disable"
+ | "ifconfig-pool-linear"
+ | "client-to-client"
+ | "duplicate-cn"
+ | "ccd-exclusive"
+ | "tcp-nodelay"
+ | "opt-verify"
+ | "auth-user-pass-optional"
+ | "client-cert-not-required"
+ | "username-as-common-name"
+ | "pull"
+ | "key-direction"
+ | "no-replay"
+ | "mute-replay-warnings"
+ | "no-iv"
+ | "use-prediction-resistance"
+ | "test-crypto"
+ | "tls-server"
+ | "tls-client"
+ | "pkcs11-id-management"
+ | "single-session"
+ | "tls-exit"
+ | "auth-nocache"
+ | "show-ciphers"
+ | "show-digests"
+ | "show-tls"
+ | "show-engines"
+ | "genkey"
+ | "mktun"
+ | "rmtun"
+
+
+let flag_entry (kw:regexp)
+ = [ key kw . comment_or_eol ]
+
+let flag = flag_entry flag_words
+
+
+(************************************************************************
+ * OTHER FIELDS
+ *
+ * - server => IP IP [nopool]
+ * - server-bridge => IP IP IP IP
+ * - route => host host [host [num]]
+ * - push => "string"
+ * - tls-auth => filename [01]
+ * - remote => hostname/IP [num] [(tcp|udp)]
+ * - management => IP num filename
+ * - http-proxy => host port [filename|keyword] [method]
+ * - http-proxy-option => (VERSION decimal|AGENT string)
+ * ...
+ * and many others
+ *
+ *************************************************************************)
+
+let server = [ key "server"
+ . sep . [ label "address" . ip ]
+ . sep . [ label "netmask" . ip ]
+ . (sep . [ key "nopool" ]) ?
+ . comment_or_eol
+ ]
+
+let server_bridge =
+ let ip_params = [ label "address" . ip ] . sep
+ . [ label "netmask" . ip ] . sep
+ . [ label "start" . ip ] . sep
+ . [ label "end" . ip ] in
+ [ key "server-bridge"
+ . sep . (ip_params|store /(nogw)/)
+ . comment_or_eol
+ ]
+
+let route =
+ let route_net_kw = store (/(vpn_gateway|net_gateway|remote_host)/|host_re) in
+ [ key "route" . sep
+ . [ label "address" . route_net_kw ]
+ . (sep . [ label "netmask" . store (ip_re|/default/) ]
+ . (sep . [ label "gateway" . route_net_kw ]
+ . (sep . [ label "metric" . store (/default/|num_re)] )?
+ )?
+ )?
+ . comment_or_eol
+ ]
+
+let route_ipv6 =
+ let route_net_re = /(vpn_gateway|net_gateway|remote_host)/ in
+ [ key "route-ipv6" . sep
+ . [ label "network" . store (route_net_re|ipv6_bits_re) ]
+ . (sep . [ label "gateway" . store (route_net_re|ipv6_re) ]
+ . (sep . [ label "metric" . store (/default/|num_re)] )?
+ )?
+ . comment_or_eol
+ ]
+
+let push = [ key "push" . sep
+ . Quote.do_dquote sto_to_dquote
+ . comment_or_eol
+ ]
+
+let tls_auth = [ key "tls-auth" . sep
+ . [ label "key" . filename ] . sep
+ . [ label "is_client" . store /[01]/ ] . comment_or_eol
+ ]
+
+let remote = [ key "remote" . sep
+ . [ label "server" . host ]
+ . (sep . [label "port" . port]
+ . (sep . [label "proto" . proto]) ? ) ?
+ . comment_or_eol
+ ]
+
+let http_proxy =
+ let auth_method_re = /(none|basic|ntlm)/ in
+ let auth_method = store auth_method_re in
+ [ key "http-proxy"
+ . sep . [ label "server" . host ]
+ . sep . [ label "port" . port ]
+ . (sep . [ label "auth" . filename_safe ]
+ . (sep . [ label "auth-method" . auth_method ]) ? )?
+ . comment_or_eol
+ ]
+
+let http_proxy_option = [ key "http-proxy-option"
+ . sep . [ label "option" . store /(VERSION|AGENT)/ ]
+ . sep . [ label "value" . filename ]
+ . comment_or_eol
+ ]
+
+let socks_proxy = [ key "socks-proxy"
+ . sep . [ label "server" . host ]
+ . (sep . [ label "port" . port ]
+ . (sep . [ label "auth" . filename_safe ])? )?
+ . comment_or_eol
+ ]
+
+let port_share = [ key "port-share"
+ . sep . [ label "host" . host ]
+ . sep . [ label "port" . port ]
+ . (sep . [ label "dir" . filename ])?
+ . comment_or_eol
+ ]
+
+let route_delay = [ key "route-delay"
+ . (sep . [ label "seconds" . num ]
+ . (sep . [ label "win-seconds" . num ] ) ?
+ )?
+ . comment_or_eol
+ ]
+
+let inetd = [ key "inetd"
+ . (sep . [label "mode" . store /(wait|nowait)/ ]
+ . (sep . [ label "progname" . filename ] ) ?
+ )?
+ . comment_or_eol
+ ]
+
+let inactive = [ key "inactive"
+ . sep . [ label "seconds" . num ]
+ . (sep . [ label "bytes" . num ] ) ?
+ . comment_or_eol
+ ]
+
+let client_nat = [ key "client-nat"
+ . sep . [ label "type" . store /(snat|dnat)/ ]
+ . sep . [ label "network" . ip ]
+ . sep . [ label "netmask" . ip ]
+ . sep . [ label "alias" . ip ]
+ . comment_or_eol
+ ]
+
+let status = [ key "status"
+ . sep . [ label "file" . filename_safe ]
+ . (sep . [ label "repeat-seconds" . num ]) ?
+ . comment_or_eol
+ ]
+
+let plugin = [ key "plugin"
+ . sep . [ label "file" . filename_safe ]
+ . (sep . [ label "init-string" . filename ]) ?
+ . comment_or_eol
+ ]
+
+let management = [ key "management" . sep
+ . [ label "server" . ip ]
+ . sep . [ label "port" . port ]
+ . (sep . [ label "pwfile" . filename ] ) ?
+ . comment_or_eol
+ ]
+
+let auth_user_pass_verify = [ key "auth-user-pass-verify"
+ . sep . [ Quote.quote_spaces (label "command") ]
+ . sep . [ label "method" . store /via-(env|file)/ ]
+ . comment_or_eol
+ ]
+
+let static_challenge = [ key "static-challenge"
+ . sep . [ Quote.quote_spaces (label "text") ]
+ . sep . [ label "echo" . store /[01]/ ]
+ . comment_or_eol
+ ]
+
+let cryptoapicert = [ key "cryptoapicert" . sep . Quote.dquote
+ . [ key /[A-Z]+/ . Sep.colon . store /[A-Za-z _-]+/ ]
+ . Quote.dquote . comment_or_eol
+ ]
+
+let setenv =
+ let envvar = /[^#;\/ \t\n][A-Za-z0-9_-]+/ in
+ [ key ("setenv"|"setenv-safe")
+ . sep . [ key envvar . sep . store fn_re ]
+ . comment_or_eol
+ ]
+
+let redirect =
+ let redirect_flag = /(local|autolocal|def1|bypass-dhcp|bypass-dns|block-local)/ in
+ let redirect_key = "redirect-gateway" | "redirect-private" in
+ [ key redirect_key
+ . (sep . [ label "flag" . store redirect_flag ] ) +
+ . comment_or_eol
+ ]
+
+let tls_cipher =
+ let ciphername = /[A-Za-z0-9!_-]+/ in
+ [ key "tls-cipher" . sep
+ . [label "cipher" . store ciphername]
+ . (Sep.colon . [label "cipher" . store ciphername])*
+ . comment_or_eol
+ ]
+
+let remote_cert_ku =
+ let usage = [label "usage" . store /[A-Za-z0-9]{1,2}/] in
+ [ key "remote-cert-ku" . sep . usage . (sep . usage)* . comment_or_eol ]
+
+(* FIXME: Surely there's a nicer way to do this *)
+let remote_cert_eku =
+ let oid = [label "oid" . store /[0-9]+\.([0-9]+\.)*[0-9]+/] in
+ let symbolic = [Quote.do_quote_opt
+ (label "symbol" . store /[A-Za-z0-9][A-Za-z0-9 _-]*[A-Za-z0-9]/)] in
+ [ key "remote-cert-eku" . sep . (oid|symbolic) . comment_or_eol ]
+
+let status_version = [ key "status-version"
+ . (sep . num) ?
+ . comment_or_eol
+ ]
+
+let ifconfig_pool = [ key "ifconfig-pool"
+ . sep . [ label "start" . ip ]
+ . sep . [ label "end" . ip ]
+ . (sep . [ label "netmask" . ip ])?
+ . comment_or_eol
+ ]
+
+let ifconfig_push = [ key "ifconfig-push"
+ . sep . [ label "local" . ip ]
+ . sep . [ label "remote-netmask" . ip ]
+ . (sep . [ label "alias" . store /[A-Za-z0-9_-]+/ ] )?
+ . comment_or_eol
+ ]
+
+let ignore_unknown_option = [ key "ignore-unknown-option"
+ . (sep . [ label "opt" . store /[A-Za-z0-9_-]+/ ] ) +
+ . comment_or_eol
+ ]
+
+let tls_version_min = [ key "tls-version-min"
+ . sep . store Rx.decimal
+ . (sep . [ key "or-highest" ]) ?
+ . comment_or_eol
+ ]
+
+let crl_verify = [ key "crl-verify"
+ . sep . filename_safe
+ . (sep . [ key "dir" ]) ?
+ . comment_or_eol
+ ]
+
+let x509_username_field =
+ let fieldname = /[A-Za-z0-9_-]+/ in
+ let extfield = ([key /ext/ . Sep.colon . store fieldname]) in
+ let subjfield = ([label "subj" . store fieldname]) in
+ [ key "x509-username-field"
+ . sep . (extfield|subjfield)
+ . comment_or_eol
+ ]
+
+let other = server
+ | server_bridge
+ | route
+ | push
+ | tls_auth
+ | remote
+ | http_proxy
+ | http_proxy_option
+ | socks_proxy
+ | management
+ | route_delay
+ | client_nat
+ | redirect
+ | inactive
+ | setenv
+ | inetd
+ | status
+ | status_version
+ | plugin
+ | ifconfig_pool
+ | ifconfig_push
+ | ignore_unknown_option
+ | auth_user_pass_verify
+ | port_share
+ | static_challenge
+ | tls_version_min
+ | tls_cipher
+ | cryptoapicert
+ | x509_username_field
+ | remote_cert_ku
+ | remote_cert_eku
+ | crl_verify
+ | route_ipv6
+
+
+(************************************************************************
+ * LENS & FILTER
+ *************************************************************************)
+
+let lns = ( comment | empty | single | single_opt | double | flag | other )*
+
+let filter = (incl "/etc/openvpn/client.conf")
+ . (incl "/etc/openvpn/server.conf")
+
+let xfm = transform lns filter
+
+
+
diff --git a/Sharp.Augeas.Test/lens/oz.aug b/Sharp.Augeas.Test/lens/oz.aug
new file mode 100644
index 0000000..befacf6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/oz.aug
@@ -0,0 +1,45 @@
+(*
+Module: Oz
+ Oz module for Augeas
+
+ Author: Pat Riehecky <riehecky@fnal.gov>
+
+ oz.cfg is a standard INI File.
+*)
+
+module Oz =
+ autoload xfm
+
+(************************************************************************
+ * Group: INI File settings
+ * avahi-daemon.conf only supports "# as commentary and "=" as separator
+ *************************************************************************)
+(* View: comment *)
+let comment = IniFile.comment "#" "#"
+(* View: sep *)
+let sep = IniFile.sep "=" "="
+
+(************************************************************************
+ * Group: Entry
+ *************************************************************************)
+(* View: entry *)
+let entry = IniFile.indented_entry IniFile.entry_re sep comment
+
+(************************************************************************
+ * Group: Record
+ *************************************************************************)
+(* View: title *)
+let title = IniFile.indented_title IniFile.record_re
+(* View: record *)
+let record = IniFile.record title entry
+
+(************************************************************************
+ * Group: Lens and filter
+ *************************************************************************)
+(* View: lns *)
+let lns = IniFile.lns record comment
+
+(* View: filter *)
+let filter = (incl "/etc/oz/oz.cfg")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/pagekite.aug b/Sharp.Augeas.Test/lens/pagekite.aug
new file mode 100644
index 0000000..83ced80
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/pagekite.aug
@@ -0,0 +1,79 @@
+(*
+Module: Pagekite
+ Parses /etc/pagekite.d/
+
+Author: Michael Pimmer <blubb@fonfon.at>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+*)
+
+module Pagekite =
+autoload xfm
+
+(* View: lns *)
+
+(* Variables *)
+let equals = del /[ \t]*=[ \t]*/ "="
+let neg2 = /[^# \n\t]+/
+let neg3 = /[^# \:\n\t]+/
+let eol = del /\n/ "\n"
+(* Match everything from here to eol, cropping whitespace at both ends *)
+let to_eol = /[^ \t\n](.*[^ \t\n])?/
+
+(* A key followed by comma-separated values
+ k: name of the key
+ key_sep: separator between key and values
+ value_sep: separator between values
+ sto: store for values
+*)
+let key_csv_line (k:string) (key_sep:lens) (value_sep:lens) (sto:lens) =
+ [ key k . key_sep . [ seq k . sto ] .
+ [ seq k . value_sep . sto ]* . Util.eol ]
+
+(* entries for pagekite.d/10_account.rc *)
+let domain = [ key "domain" . equals . store neg2 . Util.comment_or_eol ]
+let frontend = Build.key_value_line ("frontend" | "frontends")
+ equals (store Rx.neg1)
+let host = Build.key_value_line "host" equals (store Rx.ip)
+let ports = key_csv_line "ports" equals Sep.comma (store Rx.integer)
+let protos = key_csv_line "protos" equals Sep.comma (store Rx.word)
+
+(* entries for pagekite.d/20_frontends.rc *)
+let kitesecret = Build.key_value_line "kitesecret" equals (store Rx.space_in)
+let kv_frontend = Build.key_value_line ( "kitename" | "fe_certname" |
+ "ca_certs" | "tls_endpoint" )
+ equals (store Rx.neg1)
+
+(* entries for services like 80_httpd.rc *)
+let service_colon = del /[ \t]*:[ \t]*/ " : "
+let service_on = [ key "service_on" . [ seq "service_on" . equals .
+ [ label "protocol" . store neg3 ] . service_colon .
+ [ label "kitename" . (store neg3) ] . service_colon .
+ [ label "backend_host" . (store neg3) ] . service_colon .
+ [ label "backend_port" . (store neg3) ] . service_colon . (
+ [ label "secret" . (store Rx.no_spaces) . Util.eol ] | eol
+ ) ] ]
+
+let service_cfg = [ key "service_cfg" . equals . store to_eol . eol ]
+
+let flags = ( "defaults" | "isfrontend" | "abort_not_configured" | "insecure" )
+
+let entries = Build.flag_line flags
+ | domain
+ | frontend
+ | host
+ | ports
+ | protos
+ | kv_frontend
+ | kitesecret
+ | service_on
+ | service_cfg
+
+let lns = ( entries | Util.empty | Util.comment )*
+
+(* View: filter *)
+let filter = incl "/etc/pagekite.d/*.rc"
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/pam.aug b/Sharp.Augeas.Test/lens/pam.aug
new file mode 100644
index 0000000..80cdfb4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/pam.aug
@@ -0,0 +1,76 @@
+(*
+Module: Pam
+ Parses /etc/pam.conf and /etc/pam.d/* service files
+
+Author: David Lutterkort <lutter@redhat.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man pam.conf` where
+ possible.
+
+About: Licence
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+
+About: Configuration files
+ This lens autoloads /etc/pam.d/* for service specific files. See <filter>.
+ It provides a lens for /etc/pam.conf, which is used in the PamConf module.
+*)
+module Pam =
+ autoload xfm
+
+ let eol = Util.eol
+ let indent = Util.indent
+ let space = del /([ \t]|\\\\\n)+/ " "
+
+ (* For the control syntax of [key=value ..] we could split the key value *)
+ (* pairs into an array and generate a subtree control/N/KEY = VALUE *)
+ (* The valid control values if the [...] syntax is not used, is *)
+ (* required|requisite|optional|sufficient|include|substack *)
+ (* We allow more than that because this list is not case sensitive and *)
+ (* to be more lenient with typos *)
+ let control = /(\[[^]#\n]*\]|[a-zA-Z]+)/
+ let word = /([^# \t\n\\]|\\\\.)+/
+ (* Allowed types *)
+ let types = /(auth|session|account|password)/i
+
+ (* This isn't entirely right: arguments enclosed in [ .. ] can contain *)
+ (* a ']' if escaped with a '\' and can be on multiple lines ('\') *)
+ let argument = /(\[[^]#\n]+\]|[^[#\n \t\\][^#\n \t\\]*)/
+
+ let comment = Util.comment
+ let comment_or_eol = Util.comment_or_eol
+ let empty = Util.empty
+
+
+ (* Not mentioned in the man page, but Debian uses the syntax *)
+ (* @include module *)
+ (* quite a bit *)
+ let include = [ indent . Util.del_str "@" . key "include" .
+ space . store word . eol ]
+
+ (* Shared with PamConf *)
+ let record = [ label "optional" . del "-" "-" ]? .
+ [ label "type" . store types ] .
+ space .
+ [ label "control" . store control] .
+ space .
+ [ label "module" . store word ] .
+ [ space . label "argument" . store argument ]* .
+ comment_or_eol
+
+ let record_svc = [ seq "record" . indent . record ]
+
+ let lns = ( empty | comment | include | record_svc ) *
+
+ let filter = incl "/etc/pam.d/*"
+ . excl "/etc/pam.d/allow.pamlist"
+ . excl "/etc/pam.d/README"
+ . Util.stdexcl
+
+ let xfm = transform lns filter
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/pamconf.aug b/Sharp.Augeas.Test/lens/pamconf.aug
new file mode 100644
index 0000000..925d197
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/pamconf.aug
@@ -0,0 +1,53 @@
+(*
+Module: PamConf
+ Parses /etc/pam.conf files
+
+Author: Dominic Cleal <dcleal@redhat.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man pam.conf` where
+ possible.
+
+About: Licence
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+
+About: Configuration files
+ This lens applies to /etc/pam.conf. See <filter>.
+*)
+module PamConf =
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+let indent = Util.indent
+
+let comment = Util.comment
+
+let empty = Util.empty
+
+let include = Pam.include
+
+let service = Rx.word
+
+(************************************************************************
+ * Group: LENSES
+ *************************************************************************)
+
+let record = [ seq "record" . indent .
+ [ label "service" . store service ] .
+ Sep.space .
+ Pam.record ]
+
+let lns = ( empty | comment | include | record ) *
+
+let filter = incl "/etc/pam.conf"
+
+let xfm = transform lns filter
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/passwd.aug b/Sharp.Augeas.Test/lens/passwd.aug
new file mode 100644
index 0000000..a2ab4f9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/passwd.aug
@@ -0,0 +1,128 @@
+(*
+ Module: Passwd
+ Parses /etc/passwd
+
+ Author: Free Ekanayaka <free@64studio.com>
+
+ About: Reference
+ - man 5 passwd
+ - man 3 getpwnam
+
+ Each line in the unix passwd file represents a single user record, whose
+ colon-separated attributes correspond to the members of the passwd struct
+
+*)
+
+module Passwd =
+
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* Group: Comments and empty lines *)
+
+let eol = Util.eol
+let comment = Util.comment
+let empty = Util.empty
+let dels = Util.del_str
+
+let word = Rx.word
+let integer = Rx.integer
+
+let colon = Sep.colon
+
+let sto_to_eol = store Rx.space_in
+let sto_to_col = store /[^:\r\n]+/
+(* Store an empty string if nothing matches *)
+let sto_to_col_or_empty = store /[^:\r\n]*/
+
+(************************************************************************
+ * Group: ENTRIES
+ *************************************************************************)
+
+let username = /[_.A-Za-z0-9][-_.A-Za-z0-9]*\$?/
+
+(* View: password
+ pw_passwd *)
+let password = [ label "password" . sto_to_col? . colon ]
+
+(* View: uid
+ pw_uid *)
+let uid = [ label "uid" . store integer . colon ]
+
+(* View: gid
+ pw_gid *)
+let gid = [ label "gid" . store integer . colon ]
+
+(* View: name
+ pw_gecos; the user's full name *)
+let name = [ label "name" . sto_to_col? . colon ]
+
+(* View: home
+ pw_dir *)
+let home = [ label "home" . sto_to_col? . colon ]
+
+(* View: shell
+ pw_shell *)
+let shell = [ label "shell" . sto_to_eol? ]
+
+(* View: entry
+ struct passwd *)
+let entry = [ key username
+ . colon
+ . password
+ . uid
+ . gid
+ . name
+ . home
+ . shell
+ . eol ]
+
+(* NIS entries *)
+let niscommon = [ label "password" . sto_to_col ]? . colon
+ . [ label "uid" . store integer ]? . colon
+ . [ label "gid" . store integer ]? . colon
+ . [ label "name" . sto_to_col ]? . colon
+ . [ label "home" . sto_to_col ]? . colon
+ . [ label "shell" . sto_to_eol ]?
+
+let nisentry =
+ let overrides =
+ colon
+ . niscommon in
+ [ dels "+@" . label "@nis" . store username . overrides . eol ]
+
+let nisuserplus =
+ let overrides =
+ colon
+ . niscommon in
+ [ dels "+" . label "@+nisuser" . store username . overrides . eol ]
+
+let nisuserminus =
+ let overrides =
+ colon
+ . niscommon in
+ [ dels "-" . label "@-nisuser" . store username . overrides . eol ]
+
+let nisdefault =
+ let overrides =
+ colon
+ . [ label "password" . sto_to_col_or_empty . colon ]
+ . [ label "uid" . store integer? . colon ]
+ . [ label "gid" . store integer? . colon ]
+ . [ label "name" . sto_to_col? . colon ]
+ . [ label "home" . sto_to_col? . colon ]
+ . [ label "shell" . sto_to_eol? ] in
+ [ dels "+" . label "@nisdefault" . overrides? . eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry|nisentry|nisdefault|nisuserplus|nisuserminus) *
+
+let filter = incl "/etc/passwd"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/pbuilder.aug b/Sharp.Augeas.Test/lens/pbuilder.aug
new file mode 100644
index 0000000..364643c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/pbuilder.aug
@@ -0,0 +1,31 @@
+(*
+Module: Pbuilder
+ Parses /etc/pbuilderrc, /etc/pbuilder/pbuilderrc
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ Pbuilderrc is a standard shellvars file.
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Configuration files
+ This lens applies to /etc/pbuilderrc and /etc/pbuilder/pbuilderrc.
+ See <filter>.
+*)
+
+module Pbuilder =
+
+autoload xfm
+
+(* View: filter
+ The pbuilder conffiles *)
+let filter = incl "/etc/pbuilder/pbuilderrc"
+ . incl "/etc/pbuilderrc"
+
+(* View: lns
+ The pbuilder lens *)
+let lns = Shellvars.lns
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/pg_hba.aug b/Sharp.Augeas.Test/lens/pg_hba.aug
new file mode 100644
index 0000000..a9d165d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/pg_hba.aug
@@ -0,0 +1,92 @@
+(*
+Module: Pg_Hba
+ Parses PostgreSQL's pg_hba.conf
+
+Author: Aurelien Bompard <aurelien@bompard.org>
+About: Reference
+ The file format is described in PostgreSQL's documentation:
+ http://www.postgresql.org/docs/current/static/auth-pg-hba-conf.html
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Configuration files
+ This lens applies to pg_hba.conf. See <filter> for exact locations.
+*)
+
+
+module Pg_Hba =
+ autoload xfm
+
+ (* Group: Generic primitives *)
+
+ let eol = Util.eol
+ let word = Rx.neg1
+ (* Variable: ipaddr
+ CIDR or ip+netmask *)
+ let ipaddr = /[0-9a-fA-F:.]+(\/[0-9]+|[ \t]+[0-9.]+)/
+ (* Variable: hostname
+ Hostname, FQDN or part of an FQDN possibly
+ starting with a dot. Taken from the syslog lens. *)
+ let hostname = /\.?[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?(\.[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?)*/
+
+ let comma_sep_list (l:string) =
+ let lns = [ label l . store word ] in
+ Build.opt_list lns Sep.comma
+
+ (* Group: Columns definitions *)
+
+ (* View: ipaddr_or_hostname *)
+ let ipaddr_or_hostname = ipaddr | hostname
+ (* View: database
+ TODO: support for quoted strings *)
+ let database = comma_sep_list "database"
+ (* View: user
+ TODO: support for quoted strings *)
+ let user = comma_sep_list "user"
+ (* View: address *)
+ let address = [ label "address" . store ipaddr_or_hostname ]
+ (* View: option
+ part of <method> *)
+ let option =
+ let value_start = label "value" . Sep.equal
+ in [ label "option" . store Rx.word
+ . (Quote.quote_spaces value_start)? ]
+
+ (* View: method
+ can contain an <option> *)
+ let method = [ label "method" . store /[A-Za-z][A-Za-z0-9]+/
+ . ( Sep.tab . option )* ]
+
+ (* Group: Records definitions *)
+
+ (* View: record_local
+ when type is "local", there is no "address" field *)
+ let record_local = [ label "type" . store "local" ] . Sep.tab .
+ database . Sep.tab . user . Sep.tab . method
+
+ (* Variable: remtypes
+ non-local connection types *)
+ let remtypes = "host" | "hostssl" | "hostnossl"
+
+ (* View: record_remote *)
+ let record_remote = [ label "type" . store remtypes ] . Sep.tab .
+ database . Sep.tab . user . Sep.tab .
+ address . Sep.tab . method
+
+ (* View: record
+ A sequence of <record_local> or <record_remote> entries *)
+ let record = [ seq "entries" . (record_local | record_remote) . eol ]
+
+ (* View: filter
+ The pg_hba.conf conf file *)
+ let filter = (incl "/var/lib/pgsql/data/pg_hba.conf" .
+ incl "/var/lib/pgsql/*/data/pg_hba.conf" .
+ incl "/var/lib/postgresql/*/data/pg_hba.conf" .
+ incl "/etc/postgresql/*/*/pg_hba.conf" )
+
+ (* View: lns
+ The pg_hba.conf lens *)
+ let lns = ( record | Util.comment | Util.empty ) *
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/pgbouncer.aug b/Sharp.Augeas.Test/lens/pgbouncer.aug
new file mode 100644
index 0000000..5539587
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/pgbouncer.aug
@@ -0,0 +1,55 @@
+(*
+Module: Pgbouncer
+ Parses Pgbouncer ini configuration files.
+
+Author: Andrew Colin Kissa <andrew@topdog.za.net>
+ Baruwa Enterprise Edition http://www.baruwa.com
+
+About: License
+ This file is licensed under the LGPL v2+.
+
+About: Configuration files
+ This lens applies to /etc/pgbouncer.ini See <filter>.
+
+About: TODO
+ Create a tree for the database options
+*)
+
+module Pgbouncer =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ ************************************************************************)
+
+let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
+
+let sep = IniFile.sep "=" "="
+
+let eol = Util.eol
+
+let entry_re = ( /[A-Za-z][:#A-Za-z0-9._-]+|\*/)
+
+(************************************************************************
+ * Group: ENTRY
+ *************************************************************************)
+
+let non_db_line = [ key entry_re . sep . IniFile.sto_to_eol? . eol ]
+
+let entry = non_db_line|comment
+
+let title = IniFile.title IniFile.record_re
+
+let record = IniFile.record title entry
+
+(******************************************************************
+ * Group: LENS AND FILTER
+ ******************************************************************)
+
+let lns = IniFile.lns record comment
+
+(* Variable: filter *)
+let filter = incl "/etc/pgbouncer.ini"
+
+let xfm = transform lns filter
+
diff --git a/Sharp.Augeas.Test/lens/php.aug b/Sharp.Augeas.Test/lens/php.aug
new file mode 100644
index 0000000..2254bab
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/php.aug
@@ -0,0 +1,61 @@
+(* PHP module for Augeas *)
+(* Author: Raphael Pinson <raphink@gmail.com> *)
+(* *)
+
+module PHP =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *************************************************************************)
+
+let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
+let sep = IniFile.sep IniFile.sep_re IniFile.sep_default
+let empty = IniFile.empty
+
+
+(************************************************************************
+ * ENTRY
+ *
+ * We have to remove the keyword "section" from possible entry keywords
+ * otherwise it would lead to an ambiguity with the "section" label
+ * since PHP allows entries outside of sections.
+ *************************************************************************)
+let entry =
+ let word = IniFile.entry_re
+ in let entry_re = word . ( "[" . word . "]" )?
+ in IniFile.indented_entry entry_re sep comment
+
+
+(************************************************************************
+ * TITLE
+ *
+ * We use IniFile.title_label because there can be entries
+ * outside of sections whose labels would conflict with section names
+ *************************************************************************)
+let title = IniFile.title ( IniFile.record_re - ".anon" )
+let record = IniFile.record title entry
+
+let record_anon = [ label ".anon" . ( entry | empty )+ ]
+
+
+(************************************************************************
+ * LENS & FILTER
+ * There can be entries before any section
+ * IniFile.entry includes comment management, so we just pass entry to lns
+ *************************************************************************)
+let lns = record_anon? . record*
+
+let filter = (incl "/etc/php*/*/*.ini")
+ . (incl "/etc/php/*/*/*.ini")
+ . (incl "/etc/php.ini")
+ . (incl "/etc/php.d/*.ini")
+ (* PHPFPM Support *)
+ . (incl "/etc/php*/fpm/pool.d/*.conf")
+ . (incl "/etc/php/*/fpm/pool.d/*.conf")
+ (* Zend Community edition *)
+ . (incl "/usr/local/zend/etc/php.ini")
+ . (incl "/usr/local/zend/etc/conf.d/*.ini")
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/phpvars.aug b/Sharp.Augeas.Test/lens/phpvars.aug
new file mode 100644
index 0000000..f05b922
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/phpvars.aug
@@ -0,0 +1,119 @@
+(* Phpvars module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: PHP syntax
+
+*)
+
+module Phpvars =
+
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let empty = Util.empty_c_style
+
+let open_php = del /<\?(php)?[ \t]*\n/i "<?php\n"
+let close_php = del /([ \t]*(php)?\?>\n[ \t\n]*)?/i "php?>\n"
+let sep_eq = del /[ \t\n]*=[ \t\n]*/ " = "
+let sep_opt_spc = Sep.opt_space
+let sep_spc = Sep.space
+let sep_dollar = del /\$/ "$"
+let sep_scl = del /[ \t]*;/ ";"
+
+let chr_blank = /[ \t]/
+let chr_nblank = /[^ \t\n]/
+let chr_any = /./
+let chr_star = /\*/
+let chr_nstar = /[^* \t\n]/
+let chr_slash = /\//
+let chr_nslash = /[^\/ \t\n]/
+let chr_variable = /\$[A-Za-z0-9'"_:-]+/
+
+let sto_to_scl = store (/([^ \t\n].*[^ \t\n;]|[^ \t\n;])/ - /.*;[ \t]*(\/\/|#).*/) (* " *)
+let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
+
+(************************************************************************
+ * COMMENTS
+ *************************************************************************)
+
+(* Both c-style and shell-style comments are valid
+ Default to c-style *)
+let comment_one_line = Util.comment_generic /[ \t]*(\/\/|#)[ \t]*/ "// "
+
+let comment_eol = Util.comment_generic /[ \t]*(\/\/|#)[ \t]*/ " // "
+
+let comment = Util.comment_multiline | comment_one_line
+
+let eol_or_comment = eol | comment_eol
+
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+let simple_line (kw:regexp) (lns:lens) = [ key kw
+ . lns
+ . sep_scl
+ . eol_or_comment ]
+
+let global = simple_line "global" (sep_opt_spc . sep_dollar . sto_to_scl)
+
+let assignment =
+ let arraykey = [ label "@arraykey" . store /\[[][A-Za-z0-9'"_:-]+\]/ ] in (* " *)
+ simple_line chr_variable (arraykey? . (sep_eq . sto_to_scl))
+
+let variable = Util.indent . assignment
+
+let classvariable =
+ Util.indent . del /(public|var)/ "public" . Util.del_ws_spc . assignment
+
+let include = simple_line "@include" (sep_opt_spc . sto_to_scl)
+
+let generic_function (kw:regexp) (lns:lens) =
+ let lbracket = del /[ \t]*\([ \t]*/ "(" in
+ let rbracket = del /[ \t]*\)/ ")" in
+ simple_line kw (lbracket . lns . rbracket)
+
+let define =
+ let variable_re = /[A-Za-z0-9'_:-]+/ in
+ let quote = del /["']/ "'" in
+ let sep_comma = del /["'][ \t]*,[ \t]*/ "', " in
+ let sto_to_rbracket = store (/[^ \t\n][^\n]*[^ \t\n\)]|[^ \t\n\)]/
+ - /.*;[ \t]*(\/\/|#).*/) in
+ generic_function "define" (quote . store variable_re . sep_comma
+ . [ label "value" . sto_to_rbracket ])
+
+let simple_function (kw:regexp) =
+ let sto_to_rbracket = store (/[^ \t\n][^\n]*[^ \t\n\)]|[^ \t\n\)]/
+ - /.*;[ \t]*(\/\/|#).*/) in
+ generic_function kw sto_to_rbracket
+
+let entry = Util.indent
+ . ( global
+ | include
+ | define
+ | simple_function "include"
+ | simple_function "include_once"
+ | simple_function "echo" )
+
+
+let class =
+ let classname = key /[A-Za-z0-9'"_:-]+/ in (* " *)
+ del /class[ \t]+/ "class " .
+ [ classname . Util.del_ws_spc . del "{" "{" .
+ (empty|comment|entry|classvariable)*
+ ] . del "}" "}"
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = open_php . (empty|comment|entry|class|variable)* . close_php
+
+let filter = incl "/etc/squirrelmail/config.php"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/postfix_access.aug b/Sharp.Augeas.Test/lens/postfix_access.aug
new file mode 100644
index 0000000..a5654c1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/postfix_access.aug
@@ -0,0 +1,29 @@
+(* Parsing /etc/postfix/access *)
+
+module Postfix_Access =
+ autoload xfm
+
+ let sep_tab = Util.del_ws_tab
+ let sep_spc = Util.del_ws_spc
+
+ let eol = del /[ \t]*\n/ "\n"
+ let indent = del /[ \t]*/ ""
+
+ let comment = Util.comment
+ let empty = Util.empty
+
+ let char = /[^# \n\t]/
+ let text =
+ let cont = /\n[ \t]+/ in
+ let any = /[^#\n]/ in
+ char | (char . (any | cont)* .char)
+
+ let word = char+
+ let record = [ seq "spec" .
+ [ label "pattern" . store word ] . sep_tab .
+ [ label "action" . store word ] .
+ [ label "parameters" . sep_spc . store text ]? . eol ]
+
+ let lns = ( empty | comment | record )*
+
+ let xfm = transform lns (incl "/etc/postfix/access" . incl "/usr/local/etc/postfix/access")
diff --git a/Sharp.Augeas.Test/lens/postfix_main.aug b/Sharp.Augeas.Test/lens/postfix_main.aug
new file mode 100644
index 0000000..2a9de2f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/postfix_main.aug
@@ -0,0 +1,50 @@
+(* Postfix_Main module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference:
+
+
+*)
+
+module Postfix_Main =
+
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let indent = del /[ \t]*(\n[ \t]+)?/ " "
+let comment = Util.comment
+let empty = Util.empty
+let eq = del /[ \t]*=/ " ="
+let word = /[A-Za-z0-9_.-]+/
+
+(* The value of a parameter, after the '=' sign. Postfix allows that
+ * lines are continued by starting continuation lines with spaces.
+ * The definition needs to make sure we don't add indented comment lines
+ * into values *)
+let value =
+ let chr = /[^# \t\n]/ in
+ let any = /.*/ in
+ let line = (chr . any* . chr | chr) in
+ let lines = line . (/[ \t]*\n[ \t]+/ . line)* in
+ store lines
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+let entry = [ key word . eq . (indent . value)? . eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry) *
+
+let filter = incl "/etc/postfix/main.cf"
+ . incl "/usr/local/etc/postfix/main.cf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/postfix_master.aug b/Sharp.Augeas.Test/lens/postfix_master.aug
new file mode 100644
index 0000000..93b7c52
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/postfix_master.aug
@@ -0,0 +1,58 @@
+(* Postfix_Master module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference:
+
+*)
+
+module Postfix_Master =
+
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let ws = del /[ \t\n]+/ " "
+let comment = Util.comment
+let empty = Util.empty
+
+let word = /[A-Za-z0-9_.:-]+/
+let words =
+ let char_start = /[A-Za-z0-9$!(){}=_.,:@-]/
+ in let char_end = char_start | /[]["\/]/
+ in let char_middle = char_end | " "
+ in char_start . char_middle* . char_end
+
+let bool = /y|n|-/
+let integer = /([0-9]+|-)\??/
+let command = words . (/[ \t]*\n[ \t]+/ . words)*
+
+let field (l:string) (r:regexp)
+ = [ label l . store r ]
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+let entry = [ key word . ws
+ . field "type" /inet|unix(-dgram)?|fifo|pass/ . ws
+ . field "private" bool . ws
+ . field "unprivileged" bool . ws
+ . field "chroot" bool . ws
+ . field "wakeup" integer . ws
+ . field "limit" integer . ws
+ . field "command" command
+ . eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry) *
+
+let filter = incl "/etc/postfix/master.cf"
+ . incl "/usr/local/etc/postfix/master.cf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/postfix_passwordmap.aug b/Sharp.Augeas.Test/lens/postfix_passwordmap.aug
new file mode 100644
index 0000000..e35e25f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/postfix_passwordmap.aug
@@ -0,0 +1,52 @@
+(*
+Module: Postfix_Passwordmap
+ Parses /etc/postfix/*passwd
+
+Author: Anton Baranov <abaranov@linuxfoundation.org>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 postconf` and
+ http://www.postfix.org/SASL_README.html#client_sasl_enable where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Configuration files
+ This lens applies to /etc/postfix/*passwd. See <filter>.
+
+About: Examples
+ The <Test_Postfix_Passwordmap> file contains various examples and tests.
+*)
+
+module Postfix_Passwordmap =
+
+autoload xfm
+
+(* View: space_or_eol *)
+let space_or_eol = del /([ \t]*\n)?[ \t]+/ " "
+
+(* View: word *)
+let word = store /[A-Za-z0-9@_\+\*.-]+/
+
+(* View: colon *)
+let colon = Sep.colon
+
+(* View: username *)
+let username = [ label "username" . word ]
+
+(* View: password *)
+let password = [ label "password" . (store Rx.space_in)? ]
+
+(* View: record *)
+let record = [ label "pattern" . store /\[?[A-Za-z0-9@\*.-]+\]?(:?[A-Za-z0-9]*)*/
+ . space_or_eol . username . colon . password
+ . Util.eol ]
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | record)*
+
+(* Variable: filter *)
+let filter = incl "/etc/postfix/*passwd"
+ . incl "/usr/local/etc/postfix/*passwd"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/postfix_sasl_smtpd.aug b/Sharp.Augeas.Test/lens/postfix_sasl_smtpd.aug
new file mode 100644
index 0000000..eb2ae39
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/postfix_sasl_smtpd.aug
@@ -0,0 +1,23 @@
+module Postfix_sasl_smtpd =
+ autoload xfm
+
+ let eol = Util.eol
+ let colon = del /:[ \t]*/ ": "
+ let value_to_eol = store Rx.space_in
+
+ let simple_entry (kw:string) = [ key kw . colon . value_to_eol . eol ]
+
+ let entries = simple_entry "pwcheck_method"
+ | simple_entry "auxprop_plugin"
+ | simple_entry "saslauthd_path"
+ | simple_entry "mech_list"
+ | simple_entry "sql_engine"
+ | simple_entry "log_level"
+ | simple_entry "auto_transition"
+
+ let lns = entries+
+
+ let filter = incl "/etc/postfix/sasl/smtpd.conf"
+ . incl "/usr/local/etc/postfix/sasl/smtpd.conf"
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/postfix_transport.aug b/Sharp.Augeas.Test/lens/postfix_transport.aug
new file mode 100644
index 0000000..6c2c32d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/postfix_transport.aug
@@ -0,0 +1,61 @@
+(*
+Module: Postfix_Transport
+ Parses /etc/postfix/transport
+
+Author: Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 transport` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/postfix/transport. See <filter>.
+
+About: Examples
+ The <Test_Postfix_Transport> file contains various examples and tests.
+*)
+
+module Postfix_Transport =
+
+autoload xfm
+
+(* View: space_or_eol *)
+let space_or_eol = del /([ \t]*\n)?[ \t]+/ " "
+
+(* View: colon *)
+let colon = Sep.colon
+
+(* View: nexthop *)
+let nexthop =
+ let host_re = "[" . Rx.word . "]" | /[A-Za-z]([^\n]*[^ \t\n])?/
+ in [ label "nexthop" . (store host_re)? ]
+
+(* View: transport *)
+let transport = [ label "transport" . (store Rx.word)? ]
+ . colon . nexthop
+
+(* View: nexthop_smtp *)
+let nexthop_smtp =
+ let host_re = "[" . Rx.word . "]" | Rx.word
+ in [ label "host" . store host_re ]
+ . colon
+ . [ label "port" . store Rx.integer ]
+
+(* View: record *)
+let record = [ label "pattern" . store /[A-Za-z0-9@\*._-]+/
+ . space_or_eol . (transport | nexthop_smtp)
+ . Util.eol ]
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | record)*
+
+(* Variable: filter *)
+let filter = incl "/etc/postfix/transport"
+ . incl "/usr/local/etc/postfix/transport"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/postfix_virtual.aug b/Sharp.Augeas.Test/lens/postfix_virtual.aug
new file mode 100644
index 0000000..ef5576f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/postfix_virtual.aug
@@ -0,0 +1,57 @@
+(*
+Module: Postfix_Virtual
+ Parses /etc/postfix/virtual
+
+Author: Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 virtual` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/postfix/virtual. See <filter>.
+
+About: Examples
+ The <Test_Postfix_Virtual> file contains various examples and tests.
+*)
+
+module Postfix_Virtual =
+
+autoload xfm
+
+(* Variable: space_or_eol_re *)
+let space_or_eol_re = /([ \t]*\n)?[ \t]+/
+
+(* View: space_or_eol *)
+let space_or_eol (sep:regexp) (default:string) =
+ del (space_or_eol_re? . sep . space_or_eol_re?) default
+
+(* View: word *)
+let word = store /[A-Za-z0-9@\*.+=_-]+/
+
+(* View: comma *)
+let comma = space_or_eol "," ", "
+
+(* View: destination *)
+let destination = [ label "destination" . word ]
+
+(* View: record *)
+let record =
+ let destinations = Build.opt_list destination comma
+ in [ label "pattern" . word
+ . space_or_eol Rx.space " " . destinations
+ . Util.eol ]
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | record)*
+
+(* Variable: filter *)
+let filter = incl "/etc/postfix/virtual"
+ . incl "/usr/local/etc/postfix/virtual"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/postgresql.aug b/Sharp.Augeas.Test/lens/postgresql.aug
new file mode 100644
index 0000000..1f3a5b4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/postgresql.aug
@@ -0,0 +1,78 @@
+(*
+Module: Postgresql
+ Parses postgresql.conf
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ http://www.postgresql.org/docs/current/static/config-setting.html
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to postgresql.conf. See <filter>.
+
+About: Examples
+ The <Test_Postgresql> file contains various examples and tests.
+*)
+
+
+module Postgresql =
+ autoload xfm
+
+(* View: sep
+ Key and values are separated
+ by either spaces or an equal sign *)
+let sep = del /([ \t]+)|([ \t]*=[ \t]*)/ " = "
+
+(* Variable: word_opt_quot_re
+ Strings that don't require quotes *)
+let word_opt_quot_re = /[A-Za-z][A-Za-z0-9_-]*/
+
+(* View: word_opt_quot
+ Storing a <word_opt_quot_re>, with or without quotes *)
+let word_opt_quot = Quote.do_squote_opt (store word_opt_quot_re)
+
+(* Variable: number_re
+ A relative decimal number, optionally with unit *)
+let number_re = Rx.reldecimal . /[kMG]?B|[m]?s|min|h|d/?
+
+(* View: number
+ Storing <number_re>, with or without quotes *)
+let number = Quote.do_squote_opt (store number_re)
+
+(* View: word_quot
+ Anything other than <word_opt_quot> or <number>
+ Quotes are mandatory *)
+let word_quot =
+ let esc_squot = /\\\\'/
+ in let no_quot = /[^#'\n]/
+ in let forbidden = word_opt_quot_re | number_re
+ in let value = (no_quot|esc_squot)* - forbidden
+ in Quote.do_squote (store value)
+
+(* View: entry_gen
+ Builder to construct entries *)
+let entry_gen (lns:lens) =
+ Util.indent . Build.key_value_line_comment Rx.word sep lns Util.comment_eol
+
+(* View: entry *)
+let entry = entry_gen number
+ | entry_gen word_opt_quot
+ | entry_gen word_quot (* anything else *)
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | entry)*
+
+(* Variable: filter *)
+let filter = (incl "/var/lib/pgsql/data/postgresql.conf" .
+ incl "/var/lib/pgsql/*/data/postgresql.conf" .
+ incl "/var/lib/postgresql/*/data/postgresql.conf" .
+ incl "/etc/postgresql/*/*/postgresql.conf" )
+
+let xfm = transform lns filter
+
diff --git a/Sharp.Augeas.Test/lens/properties.aug b/Sharp.Augeas.Test/lens/properties.aug
new file mode 100644
index 0000000..cf7ef6e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/properties.aug
@@ -0,0 +1,50 @@
+(* Augeas module for editing Java properties files
+ Author: Craig Dunn <craig@craigdunn.org>
+
+ Limitations:
+ - doesn't support \ alone on a line
+ - values are not unescaped
+ - multi-line properties are broken down by line, and can't be replaced with a single line
+
+ See format info: http://docs.oracle.com/javase/6/docs/api/java/util/Properties.html#load(java.io.Reader)
+*)
+
+
+module Properties =
+ (* Define some basic primitives *)
+ let empty = Util.empty_generic_dos /[ \t]*[#!]?[ \t]*/
+ let eol = Util.doseol
+ let hard_eol = del /\r?\n/ "\n"
+ let sepch = del /([ \t]*(=|:)|[ \t])/ "="
+ let sepspc = del /[ \t]/ " "
+ let sepch_ns = del /[ \t]*(=|:)/ "="
+ let sepch_opt = del /[ \t]*(=|:)?[ \t]*/ "="
+ let value_to_eol_ws = store /(:|=)[^\r\n]*[^ \t\r\n\\]/
+ let value_to_bs_ws = store /(:|=)[^\n]*[^\\\n]/
+ let value_to_eol = store /([^ \t\n:=][^\n]*[^ \t\r\n\\]|[^ \t\r\n\\:=])/
+ let value_to_bs = store /([^ \t\n:=][^\n]*[^\\\n]|[^ \t\n\\:=])/
+ let indent = Util.indent
+ let backslash = del /[\\][ \t]*\n/ "\\\n"
+ let opt_backslash = del /([\\][ \t]*\n)?/ ""
+ let entry = /([^ \t\r\n:=!#\\]|[\\]:|[\\]=|[\\][\t ]|[\\][^\/\r\n])+/
+
+ let multi_line_entry =
+ [ indent . value_to_bs? . backslash ] .
+ [ indent . value_to_bs . backslash ] * .
+ [ indent . value_to_eol . eol ] . value " < multi > "
+
+ let multi_line_entry_ws =
+ opt_backslash .
+ [ indent . value_to_bs_ws . backslash ] + .
+ [ indent . value_to_eol . eol ] . value " < multi_ws > "
+
+ (* define comments and properties*)
+ let bang_comment = [ label "!comment" . del /[ \t]*![ \t]*/ "! " . store /([^ \t\n].*[^ \t\r\n]|[^ \t\r\n])/ . eol ]
+ let comment = ( Util.comment | bang_comment )
+ let property = [ indent . key entry . sepch . ( multi_line_entry | indent . value_to_eol . eol ) ]
+ let property_ws = [ indent . key entry . sepch_ns . ( multi_line_entry_ws | indent . value_to_eol_ws . eol ) ]
+ let empty_property = [ indent . key entry . sepch_opt . hard_eol ]
+ let empty_key = [ sepch_ns . ( multi_line_entry | indent . value_to_eol . eol ) ]
+
+ (* setup our lens and filter*)
+ let lns = ( empty | comment | property_ws | property | empty_property | empty_key ) *
diff --git a/Sharp.Augeas.Test/lens/protocols.aug b/Sharp.Augeas.Test/lens/protocols.aug
new file mode 100644
index 0000000..245d466
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/protocols.aug
@@ -0,0 +1,47 @@
+(*
+Module: Protocols
+ Parses /etc/protocols
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 protocols` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/protocols. See <filter>.
+
+About: Examples
+ The <Test_Protocols> file contains various examples and tests.
+*)
+
+
+module Protocols =
+
+autoload xfm
+
+let protoname = /[^# \t\n]+/
+
+(* View: entry *)
+let entry =
+ let protocol = [ label "protocol" . store protoname ]
+ in let number = [ label "number" . store Rx.integer ]
+ in let alias = [ label "alias" . store protoname ]
+ in [ seq "protocol" . protocol
+ . Sep.space . number
+ . (Sep.space . Build.opt_list alias Sep.space)?
+ . Util.comment_or_eol ]
+
+(* View: lns
+ The protocols lens *)
+let lns = (Util.empty | Util.comment | entry)*
+
+(* Variable: filter *)
+let filter = incl "/etc/protocols"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/puppet.aug b/Sharp.Augeas.Test/lens/puppet.aug
new file mode 100644
index 0000000..b1173a0
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/puppet.aug
@@ -0,0 +1,45 @@
+(* Puppet module for Augeas
+ Author: Raphael Pinson <raphink@gmail.com>
+
+ puppet.conf is a standard INI File.
+*)
+
+
+module Puppet =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *
+ * puppet.conf only supports "# as commentary and "=" as separator
+ *************************************************************************)
+let comment = IniFile.comment "#" "#"
+let sep = IniFile.sep "=" "="
+
+
+(************************************************************************
+ * ENTRY
+ * puppet.conf uses standard INI File entries
+ *************************************************************************)
+let entry = IniFile.indented_entry IniFile.entry_re sep comment
+
+
+(************************************************************************
+ * RECORD
+ * puppet.conf uses standard INI File records
+ *************************************************************************)
+let title = IniFile.indented_title IniFile.record_re
+let record = IniFile.record title entry
+
+
+(************************************************************************
+ * LENS & FILTER
+ * puppet.conf uses standard INI File records
+ *************************************************************************)
+let lns = IniFile.lns record comment
+
+let filter = (incl "/etc/puppet/puppet.conf"
+ .incl "/usr/local/etc/puppet/puppet.conf"
+ .incl "/etc/puppetlabs/puppet/puppet.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/puppet_auth.aug b/Sharp.Augeas.Test/lens/puppet_auth.aug
new file mode 100644
index 0000000..a169a14
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/puppet_auth.aug
@@ -0,0 +1,71 @@
+(*
+Module: Puppet_Auth
+ Parses /etc/puppet/auth.conf
+
+Author: Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `http://docs.puppetlabs.com/guides/rest_auth_conf.html` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/puppet/auth.conf. See <filter>.
+
+About: Examples
+ The <Test_Puppet_Auth> file contains various examples and tests.
+*)
+
+module Puppet_Auth =
+
+autoload xfm
+
+(* View: list
+ A list of values *)
+let list (kw:string) (val:regexp) =
+ let item = [ seq kw . store val ]
+ in let comma = del /[ \t]*,[ \t]*/ ", "
+ in [ Util.indent . key kw . Sep.space
+ . Build.opt_list item comma . Util.comment_or_eol ]
+
+(* View: auth
+ An authentication stanza *)
+let auth =
+ [ Util.indent . Build.xchg /auth(enticated)?/ "auth" "auth"
+ . Sep.space . store /yes|no|on|off|any/ . Util.comment_or_eol ]
+
+(* View: reset_counters *)
+let reset_counters =
+ counter "environment" . counter "method"
+ . counter "allow" . counter "allow_ip"
+
+(* View: setting *)
+let setting = list "environment" Rx.word
+ | list "method" /find|search|save|destroy/
+ | list "allow" /[^# \t\n,][^#\n,]*[^# \t\n,]|[^# \t\n,]/
+ | list "allow_ip" /[A-Za-z0-9.:\/]+/
+ | auth
+
+(* View: record *)
+let record =
+ let operator = [ label "operator" . store "~" ]
+ in [ Util.indent . key "path"
+ . (Sep.space . operator)?
+ . Sep.space . store /[^~# \t\n][^#\n]*[^# \t\n]|[^~# \t\n]/ . Util.eol
+ . reset_counters
+ . (Util.empty | Util.comment | setting)*
+ . setting ]
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | record)*
+
+(* Variable: filter *)
+let filter = (incl "/etc/puppet/auth.conf"
+ .incl "/usr/local/etc/puppet/auth.conf"
+ .incl "/etc/puppetlabs/puppet/auth.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/puppetfile.aug b/Sharp.Augeas.Test/lens/puppetfile.aug
new file mode 100644
index 0000000..fbd2e81
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/puppetfile.aug
@@ -0,0 +1,69 @@
+(*
+Module: Puppetfile
+ Parses libarian-puppet's Puppetfile format
+
+Author: Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: Reference
+ See https://github.com/rodjek/librarian-puppet
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to Puppetfiles.
+
+About: Examples
+ The <Test_Puppetfile> file contains various examples and tests.
+*)
+
+module Puppetfile =
+
+(* View: comma
+ a comma, optionally preceded or followed by spaces or newlines *)
+let comma = del /[ \t\n]*,[ \t\n]*/ ", "
+let comma_nospace = del /[ \t\n]*,/ ","
+
+let comment_or_eol = Util.eol | Util.comment_eol
+let quote_to_comment_or_eol = Quote.do_quote (store /[^#\n]*/) . comment_or_eol
+
+(* View: moduledir
+ The moduledir setting specifies where modules from the Puppetfile will be installed *)
+let moduledir = [ Util.indent . key "moduledir" . Sep.space
+ . quote_to_comment_or_eol ]
+
+(* View: forge
+ a forge entry *)
+let forge = [ Util.indent . key "forge" . Sep.space
+ . quote_to_comment_or_eol ]
+
+(* View: metadata
+ a metadata entry *)
+let metadata = [ Util.indent . key "metadata" . comment_or_eol ]
+
+(* View: mod
+ a module entry, with optional version and options *)
+let mod =
+ let mod_name = Quote.do_quote (store ((Rx.word . /[\/-]/)? . Rx.word))
+ in let version = [ label "@version" . Quote.do_quote (store /[^#:\n]+/) . Util.comment_eol? ]
+ in let sto_opt_val = store /[^#"', \t\n][^#"',\n]*[^#"', \t\n]|[^#"', \t\n]/
+ in let opt = [
+ Util.del_str ":" . key Rx.word
+ . (del /[ \t]*=>[ \t]*/ " => " . Quote.do_quote_opt sto_opt_val)?
+ ]
+ in let opt_eol = del /([ \t\n]*\n)?/ ""
+ in let opt_space_or_eol = del /[ \t\n]*/ " "
+ in let comma_opt_eol_comment = comma_nospace . (opt_eol . Util.comment_eol)*
+ . opt_space_or_eol
+ in let opts = Build.opt_list opt comma_opt_eol_comment
+ in [ Util.indent . Util.del_str "mod" . seq "mod" . Sep.space . mod_name
+ . (comma_opt_eol_comment . version)?
+ . (comma_opt_eol_comment . opts . Util.comment_eol?)?
+ . Util.eol ]
+
+(* View: lns
+ the Puppetfile lens *)
+let lns = (Util.empty | Util.comment | forge | metadata | mod | moduledir )*
diff --git a/Sharp.Augeas.Test/lens/puppetfileserver.aug b/Sharp.Augeas.Test/lens/puppetfileserver.aug
new file mode 100644
index 0000000..225a1de
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/puppetfileserver.aug
@@ -0,0 +1,112 @@
+(* -*- coding: utf-8 -*-
+Module: PuppetFileserver
+ Parses /etc/puppet/fileserver.conf used by puppetmasterd daemon.
+
+Author: Frédéric Lespez <frederic.lespez@free.fr>
+
+About: Reference
+ This lens tries to keep as close as possible to puppet documentation
+ for this file:
+ http://docs.puppetlabs.com/guides/file_serving.html
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ Sample usage of this lens in augtool
+
+ * Create a new mount point
+ > ins test_mount after /files/etc/puppet/fileserver.conf/*[last()]
+ > defvar test_mount /files/etc/puppet/fileserver.conf/test_mount
+ > set $test_mount/path /etc/puppet/files
+ > set $test_mount/allow *.example.com
+ > ins allow after $test_mount/*[last()]
+ > set $test_mount/allow[last()] server.domain.com
+ > set $test_mount/deny dangerous.server.com
+ * List the definition of a mount point
+ > print /files/etc/puppet/fileserver.conf/files
+ * Remove a mount point
+ > rm /files/etc/puppet/fileserver.conf/test_mount
+
+About: Configuration files
+ This lens applies to /etc/puppet/fileserver.conf. See <filter>.
+*)
+
+
+module PuppetFileserver =
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* Group: INI File settings *)
+
+(* Variable: eol *)
+let eol = IniFile.eol
+
+(* Variable: sep
+ Only treat one space as the sep, extras are stripped by IniFile *)
+let sep = Util.del_str " "
+
+(*
+Variable: comment
+ Only supports "#" as commentary
+*)
+let comment = IniFile.comment "#" "#"
+
+(*
+Variable: entry_re
+ Regexp for possible <entry> keyword (path, allow, deny)
+*)
+let entry_re = /path|allow|deny/
+
+
+(************************************************************************
+ * Group: ENTRY
+ *************************************************************************)
+
+(*
+View: entry
+ - It might be indented with an arbitrary amount of whitespace
+ - It does not have any separator between keywords and their values
+ - It can only have keywords with the following values (path, allow, deny)
+*)
+let entry = IniFile.indented_entry entry_re sep comment
+
+
+(************************************************************************
+ * Group: RECORD
+ *************************************************************************)
+
+(* Group: Title definition *)
+
+(*
+View: title
+ Uses standard INI File title
+*)
+let title = IniFile.indented_title IniFile.record_re
+
+(*
+View: title
+ Uses standard INI File record
+*)
+let record = IniFile.record title entry
+
+
+(************************************************************************
+ * Group: LENS
+ *************************************************************************)
+
+(*
+View: lns
+ Uses standard INI File lens
+*)
+let lns = IniFile.lns record comment
+
+(* Variable: filter *)
+let filter = (incl "/etc/puppet/fileserver.conf"
+ .incl "/usr/local/etc/puppet/fileserver.conf"
+ .incl "/etc/puppetlabs/puppet/fileserver.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/pylonspaste.aug b/Sharp.Augeas.Test/lens/pylonspaste.aug
new file mode 100644
index 0000000..0b56ddd
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/pylonspaste.aug
@@ -0,0 +1,78 @@
+(*
+Module: PylonsPaste
+ Parses Pylons Paste ini configuration files.
+
+Author: Andrew Colin Kissa <andrew@topdog.za.net>
+ Baruwa Enterprise Edition http://www.baruwa.com
+
+About: License
+ This file is licensed under the LGPL v2+.
+
+About: Configuration files
+ This lens applies to /etc/baruwa See <filter>.
+*)
+
+module Pylonspaste =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
+
+let sep = IniFile.sep "=" "="
+
+let eol = Util.eol
+
+let optspace = del /\n/ "\n"
+
+let entry_re = ( /[A-Za-z][:#A-Za-z0-9._-]+/)
+
+let plugin_re = /[A-Za-z][;:#A-Za-z0-9._-]+/
+
+let plugins_kw = /plugins/
+
+let debug_kw = /debug/
+
+let normal_opts = entry_re - (debug_kw|plugins_kw)
+
+let del_opt_ws = del /[\t ]*/ ""
+
+let new_ln_sep = optspace . del_opt_ws . store plugin_re
+
+let plugins_multiline = sep . counter "items" . [ seq "items" . new_ln_sep]*
+
+let sto_multiline = optspace . Sep.opt_space . store (Rx.space_in . (/[ \t]*\n/ . Rx.space . Rx.space_in)*)
+
+(************************************************************************
+ * Group: ENTRY
+ *************************************************************************)
+
+let set_option = Util.del_str "set "
+let no_inline_comment_entry (kw:regexp) (sep:lens) (comment:lens) =
+ [ set_option . key debug_kw . sep . IniFile.sto_to_eol . eol ]
+ | [ key plugins_kw . plugins_multiline . eol]
+ | [ key kw . sep . IniFile.sto_to_eol? . eol ]
+ | comment
+
+let entry = no_inline_comment_entry normal_opts sep comment
+
+(************************************************************************
+ * RECORD
+ *************************************************************************)
+
+let title = IniFile.title IniFile.record_re
+
+let record = IniFile.record title entry
+
+(************************************************************************
+ * Group: LENS & FILTER
+ *************************************************************************)
+
+let lns = IniFile.lns record comment
+
+let filter = incl "/etc/baruwa/*.ini"
+
+let xfm = transform lns filter
+
diff --git a/Sharp.Augeas.Test/lens/pythonpaste.aug b/Sharp.Augeas.Test/lens/pythonpaste.aug
new file mode 100644
index 0000000..e9a1f78
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/pythonpaste.aug
@@ -0,0 +1,56 @@
+(* Python paste config file lens for Augeas
+ Author: Dan Prince <dprince@redhat.com>
+*)
+module PythonPaste =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *************************************************************************)
+
+let comment = IniFile.comment "#" "#"
+
+let sep = IniFile.sep "=" "="
+
+let eol = Util.eol
+
+(************************************************************************
+ * ENTRY
+ *************************************************************************)
+
+let url_entry = /\/[\/A-Za-z0-9.-_]* ?[:|=] [A-Za-z0-9.-_]+/
+
+let set_kw = [ Util.del_str "set" . Util.del_ws_spc . label "@set" ]
+
+let no_inline_comment_entry (kw:regexp) (sep:lens) (comment:lens)
+ = [ set_kw? . key kw . sep . IniFile.sto_to_eol? . eol ]
+ | comment
+ | [ seq "urls" . store url_entry . eol ]
+
+let entry_re = ( /[A-Za-z][:#A-Za-z0-9._-]+/ )
+
+let entry = no_inline_comment_entry entry_re sep comment
+
+(************************************************************************
+ * RECORD
+ *************************************************************************)
+
+let title = IniFile.title IniFile.record_re
+
+let record = IniFile.record title entry
+
+(************************************************************************
+ * LENS & FILTER
+ *************************************************************************)
+let lns = IniFile.lns record comment
+
+let filter = ((incl "/etc/glance/*.ini")
+ . (incl "/etc/keystone/keystone.conf")
+ . (incl "/etc/nova/api-paste.ini")
+ . (incl "/etc/swift/swift.conf")
+ . (incl "/etc/swift/proxy-server.conf")
+ . (incl "/etc/swift/account-server/*.conf")
+ . (incl "/etc/swift/container-server/*.conf")
+ . (incl "/etc/swift/object-server/*.conf"))
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/qpid.aug b/Sharp.Augeas.Test/lens/qpid.aug
new file mode 100644
index 0000000..93dea09
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/qpid.aug
@@ -0,0 +1,32 @@
+(*
+Module: Qpid
+ Parses Apache Qpid daemon/client configuration files
+
+Author: Andrew Replogle <areplogl@redhat.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Examples
+ The <Test_Qpid> file contains various examples and tests.
+*)
+
+module Qpid =
+
+autoload xfm
+
+(* View: entry *)
+let entry = Build.key_value_line Rx.word Sep.equal
+ (store Rx.space_in)
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | entry)*
+
+(* Variable: filter *)
+let filter = incl "/etc/qpidd.conf"
+ . incl "/etc/qpid/qpidc.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/quote.aug b/Sharp.Augeas.Test/lens/quote.aug
new file mode 100644
index 0000000..32e56ac
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/quote.aug
@@ -0,0 +1,264 @@
+(*
+Module: Quote
+ Generic module providing useful primitives for quoting
+
+Author: Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ This is a generic module which doesn't apply to files directly.
+ You can use its definitions to build lenses that require quoted values.
+ It provides several levels of definitions, allowing to define more or less fine-grained quoted values:
+
+ - the quote separators are separators that are useful to define quoted values;
+ - the quoting functions are useful wrappers to easily enclose a lens in various kinds of quotes (single, double, any, optional or not);
+ - the quoted values definitions are common quoted patterns. They use the quoting functions in order to provide useful shortcuts for commonly met needs. In particular, the <quote_spaces> (and similar) function force values that contain spaces to be quoted, but allow values without spaces to be unquoted.
+
+About: Examples
+ The <Test_Quote> file contains various examples and tests.
+*)
+
+module Quote =
+
+(* Group: QUOTE SEPARATORS *)
+
+(* Variable: dquote
+ A double quote *)
+let dquote = Util.del_str "\""
+
+(* Variable: dquote_opt
+ An optional double quote, default to double *)
+let dquote_opt = del /"?/ "\""
+
+(* Variable: dquote_opt_nil
+ An optional double quote, default to nothing *)
+let dquote_opt_nil = del /"?/ ""
+
+(* Variable: squote
+ A single quote *)
+let squote = Util.del_str "'"
+
+(* Variable: squote_opt
+ An optional single quote, default to single *)
+let squote_opt = del /'?/ "'"
+
+(* Variable: squote_opt_nil
+ An optional single quote, default to nothing *)
+let squote_opt_nil = del /'?/ ""
+
+(* Variable: quote
+ A quote, either double or single, default to double *)
+let quote = del /["']/ "\""
+
+(* Variable: quote_opt
+ An optional quote, either double or single, default to double *)
+let quote_opt = del /["']?/ "\""
+
+(* Variable: quote_opt_nil
+ An optional quote, either double or single, default to nothing *)
+let quote_opt_nil = del /["']?/ ""
+
+
+(* Group: QUOTING FUNCTIONS *)
+
+(*
+View: do_dquote
+ Enclose a lens in <dquote>s
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_dquote (body:lens) =
+ square dquote body dquote
+
+(*
+View: do_dquote_opt
+ Enclose a lens in optional <dquote>s,
+ use <dquote>s by default.
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_dquote_opt (body:lens) =
+ square dquote_opt body dquote_opt
+
+(*
+View: do_dquote_opt_nil
+ Enclose a lens in optional <dquote>s,
+ default to no quotes.
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_dquote_opt_nil (body:lens) =
+ square dquote_opt_nil body dquote_opt_nil
+
+(*
+View: do_squote
+ Enclose a lens in <squote>s
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_squote (body:lens) =
+ square squote body squote
+
+(*
+View: do_squote_opt
+ Enclose a lens in optional <squote>s,
+ use <squote>s by default.
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_squote_opt (body:lens) =
+ square squote_opt body squote_opt
+
+(*
+View: do_squote_opt_nil
+ Enclose a lens in optional <squote>s,
+ default to no quotes.
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_squote_opt_nil (body:lens) =
+ square squote_opt_nil body squote_opt_nil
+
+(*
+View: do_quote
+ Enclose a lens in <quote>s.
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_quote (body:lens) =
+ square quote body quote
+
+(*
+View: do_quote
+ Enclose a lens in options <quote>s.
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_quote_opt (body:lens) =
+ square quote_opt body quote_opt
+
+(*
+View: do_quote
+ Enclose a lens in options <quote>s,
+ default to no quotes.
+
+ Parameters:
+ body:lens - the lens to be enclosed
+*)
+let do_quote_opt_nil (body:lens) =
+ square quote_opt_nil body quote_opt_nil
+
+
+(* Group: QUOTED VALUES *)
+
+(* View: double
+ A double-quoted value *)
+let double =
+ let body = store /[^\n]*/
+ in do_dquote body
+
+(* Variable: double_opt_re
+ The regexp to store when value
+ is optionally double-quoted *)
+let double_opt_re = /[^\n\t "]([^\n"]*[^\n\t "])?/
+
+(* View: double_opt
+ An optionally double-quoted value
+ Double quotes are not allowed in value
+ Value cannot begin or end with spaces *)
+let double_opt =
+ let body = store double_opt_re
+ in do_dquote_opt body
+
+(* View: single
+ A single-quoted value *)
+let single =
+ let body = store /[^\n]*/
+ in do_squote body
+
+(* Variable: single_opt_re
+ The regexp to store when value
+ is optionally single-quoted *)
+let single_opt_re = /[^\n\t ']([^\n']*[^\n\t '])?/
+
+(* View: single_opt
+ An optionally single-quoted value
+ Single quotes are not allowed in value
+ Value cannot begin or end with spaces *)
+let single_opt =
+ let body = store single_opt_re
+ in do_squote_opt body
+
+(* View: any
+ A quoted value *)
+let any =
+ let body = store /[^\n]*/
+ in do_quote body
+
+(* Variable: any_opt_re
+ The regexp to store when value
+ is optionally single- or double-quoted *)
+let any_opt_re = /[^\n\t "']([^\n"']*[^\n\t "'])?/
+
+(* View: any_opt
+ An optionally quoted value
+ Double or single quotes are not allowed in value
+ Value cannot begin or end with spaces *)
+let any_opt =
+ let body = store any_opt_re
+ in do_quote_opt body
+
+(*
+View: quote_spaces
+ Make quotes mandatory if value contains spaces,
+ and optional if value doesn't contain spaces.
+
+Parameters:
+ lns:lens - the lens to be enclosed
+*)
+let quote_spaces (lns:lens) =
+ (* bare has no spaces, and is optionally quoted *)
+ let bare = Quote.do_quote_opt (store /[^"' \t\n]+/)
+ (* quoted has at least one space, and must be quoted *)
+ in let quoted = Quote.do_quote (store /[^"'\n]*[ \t]+[^"'\n]*/)
+ in [ lns . bare ] | [ lns . quoted ]
+
+(*
+View: dquote_spaces
+ Make double quotes mandatory if value contains spaces,
+ and optional if value doesn't contain spaces.
+
+Parameters:
+ lns:lens - the lens to be enclosed
+*)
+let dquote_spaces (lns:lens) =
+ (* bare has no spaces, and is optionally quoted *)
+ let bare = Quote.do_dquote_opt (store /[^" \t\n]+/)
+ (* quoted has at least one space, and must be quoted *)
+ in let quoted = Quote.do_dquote (store /[^"\n]*[ \t]+[^"\n]*/)
+ in [ lns . bare ] | [ lns . quoted ]
+
+(*
+View: squote_spaces
+ Make single quotes mandatory if value contains spaces,
+ and optional if value doesn't contain spaces.
+
+Parameters:
+ lns:lens - the lens to be enclosed
+*)
+let squote_spaces (lns:lens) =
+ (* bare has no spaces, and is optionally quoted *)
+ let bare = Quote.do_squote_opt (store /[^' \t\n]+/)
+ (* quoted has at least one space, and must be quoted *)
+ in let quoted = Quote.do_squote (store /[^'\n]*[ \t]+[^'\n]*/)
+ in [ lns . bare ] | [ lns . quoted ]
diff --git a/Sharp.Augeas.Test/lens/rabbitmq.aug b/Sharp.Augeas.Test/lens/rabbitmq.aug
new file mode 100644
index 0000000..7543de6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/rabbitmq.aug
@@ -0,0 +1,125 @@
+(*
+Module: Rabbitmq
+ Parses Rabbitmq configuration files
+
+Author: Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `http://www.rabbitmq.com/configure.html` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to Rabbitmq configuration files. See <filter>.
+
+About: Examples
+ The <Test_Rabbitmq> file contains various examples and tests.
+*)
+module Rabbitmq =
+
+autoload xfm
+
+(* View: listeners
+ A tcp/ssl listener *)
+let listeners =
+ let value = Erlang.make_value Erlang.integer
+ | Erlang.tuple Erlang.quoted Erlang.integer
+ in Erlang.list /(tcp|ssl)_listeners/ value
+
+
+(* View: ssl_options
+ (Incomplete) list of SSL options *)
+let ssl_options =
+ let versions_list = Erlang.opt_list (Erlang.make_value Erlang.quoted)
+ in let option = Erlang.value /((ca)?cert|key)file/ Erlang.path
+ | Erlang.value "verify" Erlang.bare
+ | Erlang.value "verify_fun" Erlang.boolean
+ | Erlang.value /fail_if_no_peer_cert|reuse_sessions/ Erlang.boolean
+ | Erlang.value "depth" Erlang.integer
+ | Erlang.value "password" Erlang.quoted
+ | Erlang.value "versions" versions_list
+ in Erlang.list "ssl_options" option
+
+(* View: disk_free_limit *)
+let disk_free_limit =
+ let value = Erlang.integer | Erlang.tuple Erlang.bare Erlang.decimal
+ in Erlang.value "disk_free_limit" value
+
+(* View: log_levels *)
+let log_levels =
+ let category = Erlang.tuple Erlang.bare Erlang.bare
+ in Erlang.list "log_levels" category
+
+(* View: cluster_nodes
+ Can be a tuple `(nodes, node_type)` or simple `nodes` *)
+let cluster_nodes =
+ let nodes = Erlang.opt_list (Erlang.make_value Erlang.quoted)
+ in let value = Erlang.tuple nodes Erlang.bare
+ | nodes
+ in Erlang.value "cluster_nodes" value
+
+(* View: cluster_partition_handling
+ Can be single value or
+ `{pause_if_all_down, [nodes], ignore | autoheal}` *)
+let cluster_partition_handling =
+ let nodes = Erlang.opt_list (Erlang.make_value Erlang.quoted)
+ in let value = Erlang.tuple3 Erlang.bare nodes Erlang.bare
+ | Erlang.bare
+ in Erlang.value "cluster_partition_handling" value
+
+(* View: tcp_listen_options *)
+let tcp_listen_options =
+ let value = Erlang.make_value Erlang.bare
+ | Erlang.tuple Erlang.bare Erlang.bare
+ in Erlang.list "tcp_listen_options" value
+
+(* View: parameters
+ Top-level parameters for the lens *)
+let parameters = listeners
+ | ssl_options
+ | disk_free_limit
+ | log_levels
+ | Erlang.value /vm_memory_high_watermark(_paging_ratio)?/ Erlang.decimal
+ | Erlang.value "frame_max" Erlang.integer
+ | Erlang.value "heartbeat" Erlang.integer
+ | Erlang.value /default_(vhost|user|pass)/ Erlang.glob
+ | Erlang.value_list "default_user_tags" Erlang.bare
+ | Erlang.value_list "default_permissions" Erlang.glob
+ | cluster_nodes
+ | Erlang.value_list "server_properties" Erlang.bare
+ | Erlang.value "collect_statistics" Erlang.bare
+ | Erlang.value "collect_statistics_interval" Erlang.integer
+ | Erlang.value_list "auth_mechanisms" Erlang.quoted
+ | Erlang.value_list "auth_backends" Erlang.bare
+ | Erlang.value "delegate_count" Erlang.integer
+ | Erlang.value_list "trace_vhosts" Erlang.bare
+ | tcp_listen_options
+ | Erlang.value "hipe_compile" Erlang.boolean
+ | Erlang.value "msg_store_index_module" Erlang.bare
+ | Erlang.value "backing_queue_module" Erlang.bare
+ | Erlang.value "msg_store_file_size_limit" Erlang.integer
+ | Erlang.value /queue_index_(max_journal_entries|embed_msgs_below)/ Erlang.integer
+ | cluster_partition_handling
+ | Erlang.value /(ssl_)?handshake_timeout/ Erlang.integer
+ | Erlang.value "channel_max" Erlang.integer
+ | Erlang.value_list "loopback_users" Erlang.glob
+ | Erlang.value "reverse_dns_lookups" Erlang.boolean
+ | Erlang.value "cluster_keepalive_interval" Erlang.integer
+ | Erlang.value "mnesia_table_loading_timeout" Erlang.integer
+
+(* View: rabbit
+ The rabbit <Erlang.application> config *)
+let rabbit = Erlang.application "rabbit" parameters
+
+(* View: lns
+ A top-level <Erlang.config> *)
+let lns = Erlang.config rabbit
+
+(* Variable: filter *)
+let filter = incl "/etc/rabbitmq/rabbitmq.config"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/radicale.aug b/Sharp.Augeas.Test/lens/radicale.aug
new file mode 100644
index 0000000..7e50e69
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/radicale.aug
@@ -0,0 +1,44 @@
+(* Radicale module for Augeas
+ Based on Puppet lens.
+
+ Manage config file for http://radicale.org/
+ /etc/radicale/config is a standard INI File.
+*)
+
+
+module Radicale =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *
+ * /etc/radicale/config only supports "#" as commentary and "=" as separator
+ *************************************************************************)
+let comment = IniFile.comment "#" "#"
+let sep = IniFile.sep "=" "="
+
+
+(************************************************************************
+ * ENTRY
+ * /etc/radicale/config uses standard INI File entries
+ *************************************************************************)
+let entry = IniFile.indented_entry IniFile.entry_re sep comment
+
+
+(************************************************************************
+ * RECORD
+ * /etc/radicale/config uses standard INI File records
+ *************************************************************************)
+let title = IniFile.indented_title IniFile.record_re
+let record = IniFile.record title entry
+
+
+(************************************************************************
+ * LENS & FILTER
+ * /etc/radicale/config uses standard INI File records
+ *************************************************************************)
+let lns = IniFile.lns record comment
+
+let filter = (incl "/etc/radicale/config")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/rancid.aug b/Sharp.Augeas.Test/lens/rancid.aug
new file mode 100644
index 0000000..a582b32
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/rancid.aug
@@ -0,0 +1,34 @@
+(*
+Module: Rancid
+ Parses RANCiD router database
+
+Author: Matt Dainty <matt@bodgit-n-scarper.com>
+
+About: Reference
+ - man 5 router.db
+
+Each line represents a record consisting of a number of ';'-separated fields
+the first of which is the IP/Hostname of the device, followed by the type, its
+state and optionally a comment.
+
+*)
+
+module Rancid =
+ autoload xfm
+
+ let sep = Util.del_str ";"
+ let field = /[^;#\n]+/
+ let comment = [ label "comment" . store /[^;#\n]*/ ]
+ let eol = Util.del_str "\n"
+ let record = [ label "device" . store field . sep . [ label "type" . store field ] . sep . [ label "state" . store field ] . ( sep . comment )? . eol ]
+
+ let lns = ( Util.empty | Util.comment_generic /#[ \t]*/ "# " | record )*
+
+ let filter = incl "/var/rancid/*/router.db"
+ . Util.stdexcl
+
+ let xfm = transform lns filter
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/redis.aug b/Sharp.Augeas.Test/lens/redis.aug
new file mode 100644
index 0000000..eb6c5ff
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/redis.aug
@@ -0,0 +1,172 @@
+(*
+Module: Redis
+ Parses Redis's configuration files
+
+Author: Marc Fournier <marc.fournier@camptocamp.com>
+
+About: Reference
+ This lens is based on Redis's default redis.conf
+
+About: Usage Example
+(start code)
+augtool> set /augeas/load/Redis/incl "/etc/redis/redis.conf"
+augtool> set /augeas/load/Redis/lens "Redis.lns"
+augtool> load
+
+augtool> get /files/etc/redis/redis.conf/vm-enabled
+/files/etc/redis/redis.conf/vm-enabled = no
+augtool> print /files/etc/redis/redis.conf/rename-command[1]/
+/files/etc/redis/redis.conf/rename-command
+/files/etc/redis/redis.conf/rename-command/from = "CONFIG"
+/files/etc/redis/redis.conf/rename-command/to = "CONFIG2"
+
+augtool> set /files/etc/redis/redis.conf/activerehashing no
+augtool> save
+Saved 1 file(s)
+augtool> set /files/etc/redis/redis.conf/save[1]/seconds 123
+augtool> set /files/etc/redis/redis.conf/save[1]/keys 456
+augtool> save
+Saved 1 file(s)
+(end code)
+ The <Test_Redis> file also contains various examples.
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+*)
+
+module Redis =
+autoload xfm
+
+let k = Rx.word
+let v = /[^ \t\n'"]+/
+let comment = Util.comment
+let empty = Util.empty
+let indent = Util.indent
+let eol = Util.eol
+let del_ws_spc = Util.del_ws_spc
+let dquote = Util.del_str "\""
+
+(* View: standard_entry
+A standard entry is a key-value pair, separated by blank space, with optional
+blank spaces at line beginning & end. The value part can be optionnaly enclosed
+in single or double quotes. Comments at end-of-line ar NOT allowed by
+redis-server.
+*)
+let standard_entry =
+ let reserved_k = "save" | "rename-command" | "replicaof" | "slaveof"
+ | "bind" | "client-output-buffer-limit"
+ | "sentinel"
+ in let entry_noempty = [ indent . key (k - reserved_k) . del_ws_spc
+ . Quote.do_quote_opt_nil (store v) . eol ]
+ in let entry_empty = [ indent . key (k - reserved_k) . del_ws_spc
+ . dquote . store "" . dquote . eol ]
+ in entry_noempty | entry_empty
+
+let save = /save/
+let seconds = [ label "seconds" . Quote.do_quote_opt_nil (store Rx.integer) ]
+let keys = [ label "keys" . Quote.do_quote_opt_nil (store Rx.integer) ]
+(* View: save_entry
+Entries identified by the "save" keyword can be found more than once. They have
+2 mandatory parameters, both integers. The same rules as standard_entry apply
+for quoting, comments and whitespaces.
+*)
+let save_entry = [ indent . key save . del_ws_spc . seconds . del_ws_spc . keys . eol ]
+
+let replicaof = /replicaof|slaveof/
+let ip = [ label "ip" . Quote.do_quote_opt_nil (store Rx.ip) ]
+let port = [ label "port" . Quote.do_quote_opt_nil (store Rx.integer) ]
+(* View: replicaof_entry
+Entries identified by the "replicaof" keyword can be found more than once. They
+have 2 mandatory parameters, the 1st one is an IP address, the 2nd one is a
+port number. The same rules as standard_entry apply for quoting, comments and
+whitespaces.
+*)
+let replicaof_entry = [ indent . key replicaof . del_ws_spc . ip . del_ws_spc . port . eol ]
+
+let sentinel_global_entry =
+ let keys = "deny-scripts-reconfig" | "current-epoch" | "myid"
+ in store keys .
+ del_ws_spc . [ label "value" . store ( Rx.word | Rx.integer ) ]
+
+let sentinel_cluster_setup =
+ let keys = "config-epoch" | "leader-epoch"
+ in store keys .
+ del_ws_spc . [ label "cluster" . store Rx.word ] .
+ del_ws_spc . [ label "epoch" . store Rx.integer ]
+
+let sentinel_cluster_instance_setup =
+ let keys = "monitor" | "known-replica"
+ in store keys .
+ del_ws_spc . [ label "cluster" . store Rx.word ] .
+ del_ws_spc. [ label "ip" . store Rx.ip ] .
+ del_ws_spc . [ label "port" . store Rx.integer ] .
+ (del_ws_spc . [ label "quorum" . store Rx.integer ])?
+
+let sentinel_clustering =
+ let keys = "known-sentinel"
+ in store keys .
+ del_ws_spc . [ label "cluster" . store Rx.word ] .
+ del_ws_spc . [ label "ip" . store Rx.ip ] .
+ del_ws_spc . [ label "port" . store Rx.integer ] .
+ del_ws_spc . [ label "id" . store Rx.word ]
+
+(* View: sentinel_entry
+*)
+let sentinel_entry =
+ indent . [ key "sentinel" . del_ws_spc .
+ (sentinel_global_entry | sentinel_cluster_setup | sentinel_cluster_instance_setup | sentinel_clustering)
+ ] . eol
+
+(* View: bind_entry
+The "bind" entry can be passed one or several ip addresses. A bind
+statement "bind ip1 ip2 .. ipn" results in a tree
+{ "bind" { "ip" = ip1 } { "ip" = ip2 } ... { "ip" = ipn } }
+*)
+let bind_entry =
+ let ip = del_ws_spc . Quote.do_quote_opt_nil (store Rx.ip) in
+ indent . [ key "bind" . [ label "ip" . ip ]+ ] . eol
+
+let renamecmd = /rename-command/
+let from = [ label "from" . Quote.do_quote_opt_nil (store Rx.word) ]
+let to = [ label "to" . Quote.do_quote_opt_nil (store Rx.word) ]
+(* View: save_entry
+Entries identified by the "rename-command" keyword can be found more than once.
+They have 2 mandatory parameters, both strings. The same rules as
+standard_entry apply for quoting, comments and whitespaces.
+*)
+let renamecmd_entry = [ indent . key renamecmd . del_ws_spc . from . del_ws_spc . to . eol ]
+
+let cobl_cmd = /client-output-buffer-limit/
+let class = [ label "class" . Quote.do_quote_opt_nil (store Rx.word) ]
+let hard_limit = [ label "hard_limit" . Quote.do_quote_opt_nil (store Rx.word) ]
+let soft_limit = [ label "soft_limit" . Quote.do_quote_opt_nil (store Rx.word) ]
+let soft_seconds = [ label "soft_seconds" . Quote.do_quote_opt_nil (store Rx.integer) ]
+(* View: client_output_buffer_limit_entry
+Entries identified by the "client-output-buffer-limit" keyword can be found
+more than once. They have four mandatory parameters, of which the first is a
+string, the last one is an integer and the others are either integers or words,
+although redis is very liberal and takes "4242yadayadabytes" as a valid limit.
+The same rules as standard_entry apply for quoting, comments and whitespaces.
+*)
+let client_output_buffer_limit_entry =
+ [ indent . key cobl_cmd . del_ws_spc . class . del_ws_spc . hard_limit .
+ del_ws_spc . soft_limit . del_ws_spc . soft_seconds . eol ]
+
+let entry = standard_entry
+ | save_entry
+ | renamecmd_entry
+ | replicaof_entry
+ | bind_entry
+ | sentinel_entry
+ | client_output_buffer_limit_entry
+
+(* View: lns
+The Redis lens
+*)
+let lns = (comment | empty | entry )*
+
+let filter =
+ incl "/etc/redis.conf"
+ . incl "/etc/redis/redis.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/reprepro_uploaders.aug b/Sharp.Augeas.Test/lens/reprepro_uploaders.aug
new file mode 100644
index 0000000..b8acef8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/reprepro_uploaders.aug
@@ -0,0 +1,200 @@
+(*
+Module: Reprepro_Uploaders
+ Parses reprepro's uploaders files
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 1 reprepro` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+About: Lens Usage
+ See <lns>.
+
+About: Configuration files
+ This lens applies to reprepro's uploaders files.
+
+About: Examples
+ The <Test_Reprepro_Uploaders> file contains various examples and tests.
+*)
+
+module Reprepro_Uploaders =
+
+(* View: logic_construct_condition
+ A logical construction for <condition> and <condition_list> *)
+let logic_construct_condition (kw:string) (lns:lens) =
+ [ label kw . lns ]
+ . [ Sep.space . key kw . Sep.space . lns ]*
+
+(* View: logic_construct_field
+ A generic definition for <condition_field> *)
+let logic_construct_field (kw:string) (sep:string) (lns:lens) =
+ [ label kw . lns ]
+ . [ Build.xchgs sep kw . lns ]*
+
+(* View: condition_re
+ A condition can be of several types:
+
+ - source
+ - byhand
+ - sections
+ - sections contain
+ - binaries
+ - binaries contain
+ - architectures
+ - architectures contain
+
+ While the lens technically also accepts "source contain"
+ and "byhand contain", these are not understood by reprepro.
+
+ The "contain" types are built by adding a "contain" subnode.
+ See the <condition_field> definition.
+
+ *)
+let condition_re =
+ "source"
+ | "byhand"
+ | "sections"
+ | "binaries"
+ | "architectures"
+ | "distribution"
+
+(* View: condition_field
+ A single condition field is an 'or' node.
+ It may contain several values, listed in 'or' subnodes:
+
+ > $reprepro/allow[1]/and/or = "architectures"
+ > $reprepro/allow[1]/and/or/or[1] = "i386"
+ > $reprepro/allow[1]/and/or/or[2] = "amd64"
+ > $reprepro/allow[1]/and/or/or[3] = "all"
+
+ *)
+let condition_field =
+ let sto_condition = Util.del_str "'" . store /[^'\n]+/ . Util.del_str "'" in
+ [ key "not" . Sep.space ]? .
+ store condition_re
+ . [ Sep.space . key "contain" ]?
+ . Sep.space
+ . logic_construct_field "or" "|" sto_condition
+
+(* View: condition
+ A condition is an 'and' node,
+ representing a union of <condition_fields>,
+ listed under 'or' subnodes:
+
+ > $reprepro/allow[1]/and
+ > $reprepro/allow[1]/and/or = "architectures"
+ > $reprepro/allow[1]/and/or/or[1] = "i386"
+ > $reprepro/allow[1]/and/or/or[2] = "amd64"
+ > $reprepro/allow[1]/and/or/or[3] = "all"
+
+ *)
+let condition =
+ logic_construct_condition "or" condition_field
+
+(* View: condition_list
+ A list of <conditions>, inspired by Debctrl.dependency_list
+ An upload condition list is either the wildcard '*', stored verbatim,
+ or an intersection of conditions listed under 'and' subnodes:
+
+ > $reprepro/allow[1]/and[1]
+ > $reprepro/allow[1]/and[1]/or = "architectures"
+ > $reprepro/allow[1]/and[1]/or/or[1] = "i386"
+ > $reprepro/allow[1]/and[1]/or/or[2] = "amd64"
+ > $reprepro/allow[1]/and[1]/or/or[3] = "all"
+ > $reprepro/allow[1]/and[2]
+ > $reprepro/allow[1]/and[2]/or = "sections"
+ > $reprepro/allow[1]/and[2]/or/contain
+ > $reprepro/allow[1]/and[2]/or/or = "main"
+
+ *)
+let condition_list =
+ store "*"
+ | logic_construct_condition "and" condition
+
+(* View: by_key
+ When a key is used to authenticate packages,
+ the value can either be a key ID or "any":
+
+ > $reprepro/allow[1]/by/key = "ABCD1234"
+ > $reprepro/allow[2]/by/key = "any"
+
+ *)
+let by_key =
+ let any_key = [ store "any" . Sep.space
+ . key "key" ] in
+ let named_key = [ key "key" . Sep.space
+ . store (Rx.word - "any") ] in
+ value "key" . (any_key | named_key)
+
+(* View: by_group
+ Authenticate packages by a groupname.
+
+ > $reprepro/allow[1]/by/group = "groupname"
+
+ *)
+let by_group = value "group"
+ . [ key "group" . Sep.space
+ . store Rx.word ]
+
+(* View: by
+ <by> statements define who is allowed to upload.
+ It can be simple keywords, like "anybody" or "unsigned",
+ or a key ID, in which case a "key" subnode is added:
+
+ > $reprepro/allow[1]/by/key = "ABCD1234"
+ > $reprepro/allow[2]/by/key = "any"
+ > $reprepro/allow[3]/by = "anybody"
+ > $reprepro/allow[4]/by = "unsigned"
+
+ *)
+let by =
+ [ key "by" . Sep.space
+ . ( store ("anybody"|"unsigned")
+ | by_key | by_group ) ]
+
+(* View: allow
+ An allow entry, e.g.:
+
+ > $reprepro/allow[1]
+ > $reprepro/allow[1]/and[1]
+ > $reprepro/allow[1]/and[1]/or = "architectures"
+ > $reprepro/allow[1]/and[1]/or/or[1] = "i386"
+ > $reprepro/allow[1]/and[1]/or/or[2] = "amd64"
+ > $reprepro/allow[1]/and[1]/or/or[3] = "all"
+ > $reprepro/allow[1]/and[2]
+ > $reprepro/allow[1]/and[2]/or = "sections"
+ > $reprepro/allow[1]/and[2]/or/contain
+ > $reprepro/allow[1]/and[2]/or/or = "main"
+ > $reprepro/allow[1]/by = "key"
+ > $reprepro/allow[1]/by/key = "ABCD1234"
+
+ *)
+let allow =
+ [ key "allow" . Sep.space
+ . condition_list . Sep.space
+ . by . Util.eol ]
+
+(* View: group
+ A group declaration *)
+let group =
+ let add = [ key "add" . Sep.space
+ . store Rx.word ]
+ in let contains = [ key "contains" . Sep.space
+ . store Rx.word ]
+ in let empty = [ key "empty" ]
+ in let unused = [ key "unused" ]
+ in [ key "group" . Sep.space
+ . store Rx.word . Sep.space
+ . (add | contains | empty | unused) . Util.eol ]
+
+(* View: entry
+ An entry is either an <allow> statement
+ or a <group> definition.
+ *)
+let entry = allow | group
+
+(* View: lns
+ The lens is made of <Util.empty>, <Util.comment> and <entry> lines *)
+let lns = (Util.empty|Util.comment|entry)*
diff --git a/Sharp.Augeas.Test/lens/resolv.aug b/Sharp.Augeas.Test/lens/resolv.aug
new file mode 100644
index 0000000..ffa260e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/resolv.aug
@@ -0,0 +1,137 @@
+(*
+Module: Resolv
+ Parses /etc/resolv.conf
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man resolv.conf` where possible.
+
+About: Licence
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+
+About: Configuration files
+ This lens applies to /etc/resolv.conf. See <filter>.
+*)
+
+module Resolv =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* View: comment *)
+let comment = Util.comment_generic /[ \t]*[;#][ \t]*/ "# "
+
+(* View: comment_eol *)
+let comment_eol = Util.comment_generic /[ \t]*[;#][ \t]*/ " # "
+
+(* View: empty *)
+let empty = Util.empty_generic_dos /[ \t]*[#;]?[ \t]*/
+
+
+(************************************************************************
+ * Group: MAIN OPTIONS
+ *************************************************************************)
+
+(* View: netmask
+A network mask for IP addresses *)
+let netmask = [ label "netmask" . Util.del_str "/" . store Rx.ip ]
+
+(* View: ipaddr
+An IP address or range with an optional mask *)
+let ipaddr = [label "ipaddr" . store Rx.ip . netmask?]
+
+
+(* View: nameserver
+ A nameserver entry *)
+let nameserver = Build.key_value_line_comment
+ "nameserver" Sep.space (store Rx.ip) comment_eol
+
+(* View: domain *)
+let domain = Build.key_value_line_comment
+ "domain" Sep.space (store Rx.word) comment_eol
+
+(* View: search *)
+let search = Build.key_value_line_comment
+ "search" Sep.space
+ (Build.opt_list
+ [label "domain" . store Rx.word]
+ Sep.space)
+ comment_eol
+
+(* View: sortlist *)
+let sortlist = Build.key_value_line_comment
+ "sortlist" Sep.space
+ (Build.opt_list
+ ipaddr
+ Sep.space)
+ comment_eol
+
+(* View: lookup *)
+let lookup =
+ let lookup_entry = Build.flag("bind"|"file"|"yp")
+ in Build.key_value_line_comment
+ "lookup" Sep.space
+ (Build.opt_list
+ lookup_entry
+ Sep.space)
+ comment_eol
+
+(* View: family *)
+let family =
+ let family_entry = Build.flag("inet4"|"inet6")
+ in Build.key_value_line_comment
+ "family" Sep.space
+ (Build.opt_list
+ family_entry
+ Sep.space)
+ comment_eol
+
+(************************************************************************
+ * Group: SPECIAL OPTIONS
+ *************************************************************************)
+
+(* View: ip6_dotint
+ ip6-dotint option, which supports negation *)
+let ip6_dotint =
+ let negate = [ del "no-" "no-" . label "negate" ]
+ in [ negate? . key "ip6-dotint" ]
+
+(* View: options
+ Options values *)
+let options =
+ let options_entry = Build.key_value ("ndots"|"timeout"|"attempts")
+ (Util.del_str ":") (store Rx.integer)
+ | Build.flag ("debug"|"rotate"|"no-check-names"
+ |"inet6"|"ip6-bytestring"|"edns0"
+ |"single-request"|"single-request-reopen"
+ |"no-tld-query"|"use-vc"|"no-reload")
+ | ip6_dotint
+
+ in Build.key_value_line_comment
+ "options" Sep.space
+ (Build.opt_list
+ options_entry
+ Sep.space)
+ comment_eol
+
+(* View: entry *)
+let entry = nameserver
+ | domain
+ | search
+ | sortlist
+ | options
+ | lookup
+ | family
+
+(* View: lns *)
+let lns = ( empty | comment | entry )*
+
+(* Variable: filter *)
+let filter = (incl "/etc/resolv.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/rhsm.aug b/Sharp.Augeas.Test/lens/rhsm.aug
new file mode 100644
index 0000000..56cc82e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/rhsm.aug
@@ -0,0 +1,42 @@
+(*
+Module: Rhsm
+ Parses subscription-manager config files
+
+Author: Dominic Cleal <dcleal@redhat.com>
+
+About: Reference
+ This lens tries to keep as close as possible to rhsm.conf(5) and
+ Python's SafeConfigParser. All settings must be in sections without
+ indentation. Semicolons and hashes are permitted for comments.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to:
+ /etc/rhsm/rhsm.conf
+
+ See <filter>.
+*)
+
+module Rhsm =
+ autoload xfm
+
+(* Semicolons and hashes are permitted for comments *)
+let comment = IniFile.comment IniFile.comment_re "#"
+(* Equals and colons are permitted for separators *)
+let sep = IniFile.sep IniFile.sep_re IniFile.sep_default
+
+(* All settings must be in sections without indentation *)
+let entry = IniFile.entry_multiline IniFile.entry_re sep comment
+let title = IniFile.title IniFile.record_re
+let record = IniFile.record title entry
+
+let lns = IniFile.lns record comment
+
+let filter = incl "/etc/rhsm/rhsm.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/rmt.aug b/Sharp.Augeas.Test/lens/rmt.aug
new file mode 100644
index 0000000..36ed2d3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/rmt.aug
@@ -0,0 +1,30 @@
+(*
+Module: Rmt
+ Parses rmt's configuration file
+
+Author: Dominic Cleal <dcleal@redhat.com>
+
+About: Reference
+ This lens is based on rmt(1)
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+*)
+
+module Rmt =
+ autoload xfm
+
+let sto_to_tab = store Rx.no_spaces
+
+let debug = Build.key_value_line "DEBUG" Sep.equal ( store Rx.fspath )
+let user = Build.key_value_line "USER" Sep.equal sto_to_tab
+let access = Build.key_value_line "ACCESS" Sep.equal
+ ( [ label "name" . sto_to_tab ] . Sep.tab .
+ [ label "host" . sto_to_tab ] . Sep.tab .
+ [ label "path" . sto_to_tab ] )
+
+let lns = ( debug | user | access | Util.comment | Util.empty )*
+
+let filter = incl "/etc/default/rmt"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/rsyncd.aug b/Sharp.Augeas.Test/lens/rsyncd.aug
new file mode 100644
index 0000000..713cb23
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/rsyncd.aug
@@ -0,0 +1,54 @@
+(* Rsyncd module for Augeas
+ Author: Marc Fournier <marc.fournier@camptocamp.com>
+
+ Reference: man rsyncd.conf(5)
+
+*)
+
+module Rsyncd =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *************************************************************************)
+let comment = IniFile.comment IniFile.comment_re "#"
+let sep = IniFile.sep IniFile.sep_re IniFile.sep_default
+let indent = del /[ \t]*/ " "
+
+(* Import useful INI File primitives *)
+let eol = IniFile.eol
+let empty = IniFile.empty
+let sto_to_comment
+ = Util.del_opt_ws " "
+ . store /[^;# \t\n][^;#\n]*[^;# \t\n]|[^;# \t\n]/
+
+
+(************************************************************************
+ * ENTRY
+ * rsyncd.conf allows indented entries, but by default entries outside
+ * sections are unindented
+ *************************************************************************)
+let entry_re = /[A-Za-z0-9_.-][A-Za-z0-9 _.-]*[A-Za-z0-9_.-]/
+
+let entry = IniFile.indented_entry entry_re sep comment
+
+(************************************************************************
+ * RECORD & TITLE
+ * We use IniFile.title_label because there can be entries
+ * outside of sections whose labels would conflict with section names
+ *************************************************************************)
+let title = IniFile.indented_title ( IniFile.record_re - ".anon" )
+let record = IniFile.record title entry
+
+let record_anon = [ label ".anon" . ( entry | empty )+ ]
+
+(************************************************************************
+ * LENS & FILTER
+ * There can be entries before any section
+ * IniFile.entry includes comment management, so we just pass entry to lns
+ *************************************************************************)
+let lns = record_anon? . record*
+
+let filter = (incl "/etc/rsyncd.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/rsyslog.aug b/Sharp.Augeas.Test/lens/rsyslog.aug
new file mode 100644
index 0000000..29ff9b1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/rsyslog.aug
@@ -0,0 +1,98 @@
+(*
+Module: Rsyslog
+ Parses /etc/rsyslog.conf
+
+Author: Raphael Pinson <raphael.pinsons@camptocamp.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 rsyslog.conf` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/rsyslog.conf. See <filter>.
+
+About: Examples
+ The <Test_Rsyslog> file contains various examples and tests.
+*)
+module Rsyslog =
+
+autoload xfm
+
+let macro_rx = /[^,# \n\t][^#\n]*[^,# \n\t]|[^,# \n\t]/
+let macro = [ key /$[A-Za-z0-9]+/ . Sep.space . store macro_rx . Util.comment_or_eol ]
+
+let config_object_param = [ key /[A-Za-z.]+/ . Sep.equal . Quote.dquote
+ . store /[^"]+/ . Quote.dquote ]
+(* Inside config objects, we allow embedded comments; we don't surface them
+ * in the tree though *)
+let config_sep = del /[ \t]+|[ \t]*#.*\n[ \t]*/ " "
+
+let config_object =
+ [ key /action|global|input|module|parser|timezone|include/ .
+ Sep.lbracket .
+ config_object_param . ( config_sep . config_object_param )* .
+ Sep.rbracket . Util.comment_or_eol ]
+
+(* View: users
+ Map :omusrmsg: and a list of users, or a single *
+*)
+let omusrmsg = Util.del_str ":omusrmsg:" .
+ Syslog.label_opt_list_or "omusrmsg" (store Syslog.word)
+ Syslog.comma "*"
+
+(* View: file_tmpl
+ File action with a specified template *)
+let file_tmpl = Syslog.file . [ label "template" . Util.del_str ";" . store Rx.word ]
+
+let dynamic = [ Util.del_str "?" . label "dynamic" . store Rx.word ]
+
+let namedpipe = Syslog.pipe . Sep.space . [ label "pipe" . store Syslog.file_r ]
+
+let action = Syslog.action | omusrmsg | file_tmpl | dynamic | namedpipe
+
+(* Cannot use syslog program because rsyslog does not suppport #! *)
+let program = [ label "program" . Syslog.bang .
+ ( Syslog.opt_plus | [ Build.xchgs "-" "reverse" ] ) .
+ Syslog.programs . Util.eol . Syslog.entries ]
+
+(* Cannot use syslog hostname because rsyslog does not suppport #+/- *)
+let hostname = [ label "hostname" .
+ ( Syslog.plus | [ Build.xchgs "-" "reverse" ] ) .
+ Syslog.hostnames . Util.eol . Syslog.entries ]
+
+(* View: actions *)
+let actions =
+ let prop_act = [ label "action" . action ]
+ in let act_sep = del /[ \t]*\n&[ \t]*/ "\n& "
+ in Build.opt_list prop_act act_sep
+
+(* View: entry
+ An entry contains selectors and an action
+*)
+let entry = [ label "entry" . Syslog.selectors . Syslog.sep_tab .
+ actions . Util.eol ]
+
+(* View: prop_filter
+ Parses property-based filters, which start with ":" and the property name *)
+let prop_filter =
+ let sep = Sep.comma . Util.del_opt_ws " "
+ in let prop_name = [ Util.del_str ":" . label "property" . store Rx.word ]
+ in let prop_oper = [ label "operation" . store /[A-Za-z!-]+/ ]
+ in let prop_val = [ label "value" . Quote.do_dquote (store /[^\n"]*/) ]
+ in [ label "filter" . prop_name . sep . prop_oper . sep . prop_val .
+ Sep.space . actions . Util.eol ]
+
+let entries = ( Syslog.empty | Util.comment | entry | macro | config_object | prop_filter )*
+
+let lns = entries . ( program | hostname )*
+
+let filter = incl "/etc/rsyslog.conf"
+ . incl "/etc/rsyslog.d/*"
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/rtadvd.aug b/Sharp.Augeas.Test/lens/rtadvd.aug
new file mode 100644
index 0000000..4f39d22
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/rtadvd.aug
@@ -0,0 +1,34 @@
+(*
+Module: Rtadvd
+ Parses rtadvd configuration file
+
+Author: Matt Dainty <matt@bodgit-n-scarper.com>
+
+About: Reference
+ - man 5 rtadvd.conf
+
+Each line represents a record consisting of a number of ':'-separated fields
+the first of which is the name or identifier for the record. The name can
+optionally be split by '|' and each subsequent value is considered an alias
+of the first. Records can be split across multiple lines with '\'.
+
+*)
+
+module Rtadvd =
+ autoload xfm
+
+ let empty = Util.empty
+
+ (* field must not contain ':' unless quoted *)
+ let cfield = /[a-zA-Z0-9-]+(#?@|#[0-9]+|=("[^"]*"|[^:"]*))?/
+
+ let lns = ( empty | Getcap.comment | Getcap.record cfield )*
+
+ let filter = incl "/etc/rtadvd.conf"
+ . Util.stdexcl
+
+ let xfm = transform lns filter
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/rx.aug b/Sharp.Augeas.Test/lens/rx.aug
new file mode 100644
index 0000000..13b8d84
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/rx.aug
@@ -0,0 +1,167 @@
+(*
+Module: Rx
+ Generic regexps to build lenses
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+*)
+
+
+module Rx =
+
+(* Group: Spaces *)
+(* Variable: space
+ A mandatory space or tab *)
+let space = /[ \t]+/
+
+(* Variable: opt_space
+ An optional space or tab *)
+let opt_space = /[ \t]*/
+
+(* Variable: cl
+ A continued line with a backslash *)
+let cl = /[ \t]*\\\\\n[ \t]*/
+
+(* Variable: cl_or_space
+ A <cl> or a <space> *)
+let cl_or_space = cl | space
+
+(* Variable: cl_or_opt_space
+ A <cl> or a <opt_space> *)
+let cl_or_opt_space = cl | opt_space
+
+(* Group: General strings *)
+
+(* Variable: space_in
+ A string which does not start or end with a space *)
+let space_in = /[^ \r\t\n].*[^ \r\t\n]|[^ \t\n\r]/
+
+(* Variable: no_spaces
+ A string with no spaces *)
+let no_spaces = /[^ \t\r\n]+/
+
+(* Variable: word
+ An alphanumeric string *)
+let word = /[A-Za-z0-9_.-]+/
+
+(* Variable: integer
+ One or more digits *)
+let integer = /[0-9]+/
+
+(* Variable: relinteger
+ A relative <integer> *)
+let relinteger = /[-+]?[0-9]+/
+
+(* Variable: relinteger_noplus
+ A relative <integer>, without explicit plus sign *)
+let relinteger_noplus = /[-]?[0-9]+/
+
+(* Variable: decimal
+ A decimal value (using ',' or '.' as a separator) *)
+let decimal = /[0-9]+([.,][0-9]+)?/
+
+(* Variable: reldecimal
+ A relative <decimal> *)
+let reldecimal = /[+-]?[0-9]+([.,][0-9]+)?/
+
+(* Variable: byte
+ A byte (0 - 255) *)
+let byte = /25[0-5]?|2[0-4][0-9]|1[0-9]{2}|[1-9]?[0-9]/
+
+(* Variable: hex
+ A hex value *)
+let hex = /0x[0-9a-fA-F]+/
+
+(* Variable: octal
+ An octal value *)
+let octal = /0[0-7]+/
+
+(* Variable: fspath
+ A filesystem path *)
+let fspath = /[^ \t\n]+/
+
+(* Group: All but... *)
+(* Variable: neg1
+ Anything but a space, a comma or a comment sign *)
+let neg1 = /[^,# \n\t]+/
+
+(*
+ * Group: IPs
+ * Cf. http://blog.mes-stats.fr/2008/10/09/regex-ipv4-et-ipv6/ (in fr)
+ *)
+
+(* Variable: ipv4 *)
+let ipv4 =
+ let dot = "." in
+ byte . dot . byte . dot . byte . dot . byte
+
+(* Variable: ipv6 *)
+let ipv6 =
+ /(([0-9A-Fa-f]{1,4}:){7}[0-9A-Fa-f]{1,4})/
+ | /(([0-9A-Fa-f]{1,4}:){6}:[0-9A-Fa-f]{1,4})/
+ | /(([0-9A-Fa-f]{1,4}:){5}:([0-9A-Fa-f]{1,4}:)?[0-9A-Fa-f]{1,4})/
+ | /(([0-9A-Fa-f]{1,4}:){4}:([0-9A-Fa-f]{1,4}:){0,2}[0-9A-Fa-f]{1,4})/
+ | /(([0-9A-Fa-f]{1,4}:){3}:([0-9A-Fa-f]{1,4}:){0,3}[0-9A-Fa-f]{1,4})/
+ | /(([0-9A-Fa-f]{1,4}:){2}:([0-9A-Fa-f]{1,4}:){0,4}[0-9A-Fa-f]{1,4})/
+ | ( /([0-9A-Fa-f]{1,4}:){6}/
+ . /((((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))\.){3}/
+ . /(((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))/
+ )
+ | ( /([0-9A-Fa-f]{1,4}:){0,5}:/
+ . /((((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))\.){3}/
+ . /(((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))/
+ )
+ | ( /::([0-9A-Fa-f]{1,4}:){0,5}/
+ . /((((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))\.){3}/
+ . /(((25[0-5])|(1[0-9]{2})|(2[0-4][0-9])|([0-9]{1,2})))/
+ )
+ | ( /[0-9A-Fa-f]{1,4}::([0-9A-Fa-f]{1,4}:){0,5}/
+ . /[0-9A-Fa-f]{1,4}/
+ )
+ | /(::([0-9A-Fa-f]{1,4}:){0,6}[0-9A-Fa-f]{1,4})/
+ | /(([0-9A-Fa-f]{1,4}:){1,7}:)/
+
+
+(* Variable: ip
+ An <ipv4> or <ipv6> *)
+let ip = ipv4 | ipv6
+
+
+(* Variable: hostname
+ A valid RFC 1123 hostname *)
+let hostname = /(([a-zA-Z0-9]|[a-zA-Z0-9][a-zA-Z0-9\-]*[a-zA-Z0-9])\.)*(
+ [A-Za-z0-9]|[A-Za-z0-9][A-Za-z0-9\-]*[A-Za-z0-9])/
+
+(*
+ * Variable: device_name
+ * A Linux device name like eth0 or i2c-0. Might still be too restrictive
+ *)
+
+let device_name = /[a-zA-Z0-9_?.+:!-]+/
+
+(*
+ * Variable: email_addr
+ * To be refined
+ *)
+let email_addr = /[A-Za-z0-9_+.-]+@[A-Za-z0-9_.-]+/
+
+(*
+ * Variable: iso_8601
+ * ISO 8601 date time format
+ *)
+let year = /[0-9]{4}/
+let relyear = /[-+]?/ . year
+let monthday = /W?[0-9]{2}(-?[0-9]{1,2})?/
+let time =
+ let sep = /[T \t]/
+ in let digits = /[0-9]{2}(:?[0-9]{2}(:?[0-9]{2})?)?/
+ in let precis = /[.,][0-9]+/
+ in let zone = "Z" | /[-+]?[0-9]{2}(:?[0-9]{2})?/
+ in sep . digits . precis? . zone?
+let iso_8601 = year . ("-"? . monthday . time?)?
+
+(* Variable: url_3986
+ A valid RFC 3986 url - See Appendix B *)
+let url_3986 = /(([^:\/?#]+):)?(\/\/([^\/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?/
diff --git a/Sharp.Augeas.Test/lens/samba.aug b/Sharp.Augeas.Test/lens/samba.aug
new file mode 100644
index 0000000..affe616
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/samba.aug
@@ -0,0 +1,56 @@
+(* Samba module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: man smb.conf(5)
+
+*)
+
+
+module Samba =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *************************************************************************)
+
+let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
+let sep = del /[ \t]*=/ " ="
+let indent = del /[ \t]*/ " "
+
+(* Import useful INI File primitives *)
+let eol = IniFile.eol
+let empty = IniFile.empty
+let sto_to_comment
+ = Util.del_opt_ws " "
+ . store /[^;# \t\r\n][^;#\r\n]*[^;# \t\r\n]|[^;# \t\r\n]/
+
+(************************************************************************
+ * ENTRY
+ * smb.conf allows indented entries
+ *************************************************************************)
+
+let entry_re = /[A-Za-z0-9_.-][A-Za-z0-9 _.:\*-]*[A-Za-z0-9_.\*-]/
+let entry = let kw = entry_re in
+ [ indent
+ . key kw
+ . sep
+ . sto_to_comment?
+ . (comment|eol) ]
+ | comment
+
+(************************************************************************
+ * TITLE
+ *************************************************************************)
+
+let title = IniFile.title_label "target" IniFile.record_label_re
+let record = IniFile.record title entry
+
+(************************************************************************
+ * LENS & FILTER
+ *************************************************************************)
+
+let lns = IniFile.lns record comment
+
+let filter = (incl "/etc/samba/smb.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/schroot.aug b/Sharp.Augeas.Test/lens/schroot.aug
new file mode 100644
index 0000000..c53ea17
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/schroot.aug
@@ -0,0 +1,69 @@
+(*
+Module: Schroot
+ Parses /etc/schroot/schroot.conf
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 schroot.conf` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/schroot/schroot.conf. See <filter>.
+*)
+
+
+module Schroot =
+autoload xfm
+
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* View: comment
+ An <IniFile.comment> entry *)
+let comment = IniFile.comment "#" "#"
+
+(* View: sep
+ An <IniFile.sep> entry *)
+let sep = IniFile.sep "=" "="
+
+
+(************************************************************************
+ * Group: ENTRIES
+ *************************************************************************)
+
+(* View: description
+ Descriptions are special entries, which can have an optional lang parameter *)
+let description =
+ let lang = [ Util.del_str "[" . label "lang"
+ . store IniFile.entry_re . Util.del_str "]" ]
+ in IniFile.entry_generic_nocomment (key "description" . lang?) sep "#" comment
+
+(* View: entry
+ An <IniFile.entry>, or <description> *)
+let entry = IniFile.entry (IniFile.entry_re - "description") sep comment
+ | description
+
+(* View: title
+ An <IniFile.title> *)
+let title = IniFile.title IniFile.record_re
+
+(* View: record
+ An <IniFile.record> *)
+let record = IniFile.record title entry
+
+(* View: lns
+ An <IniFile.lns> *)
+let lns = IniFile.lns record comment
+
+(* View: filter *)
+let filter = (incl "/etc/schroot/schroot.conf")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/securetty.aug b/Sharp.Augeas.Test/lens/securetty.aug
new file mode 100644
index 0000000..80ba097
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/securetty.aug
@@ -0,0 +1,18 @@
+(* Parses entries in /etc/securetty
+
+ Author: Simon Josi <josi@yokto.net>
+*)
+module Securetty =
+ autoload xfm
+
+ let word = /[^ \t\n#]+/
+ let eol = Util.eol
+ let empty = Util.empty
+ let comment = Util.comment
+ let comment_or_eol = Util.comment_or_eol
+
+ let record = [ seq "securetty" . store word . comment_or_eol ]
+ let lns = ( empty | comment | record )*
+
+ let filter = (incl "/etc/securetty")
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/semanage.aug b/Sharp.Augeas.Test/lens/semanage.aug
new file mode 100644
index 0000000..46f93b3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/semanage.aug
@@ -0,0 +1,37 @@
+(*
+Module: Semanage
+ Parses /etc/selinux/semanage.conf
+
+Author:
+ Pino Toscano <ptoscano@redhat.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Configuration files
+ This lens applies to /etc/selinux/semanage.conf. See <filter>.
+
+About: Examples
+ The <Test_Semanage> file contains various examples and tests.
+*)
+
+module Semanage =
+ autoload xfm
+
+let comment = IniFile.comment "#" "#"
+let sep = IniFile.sep "=" "="
+let empty = IniFile.empty
+let eol = IniFile.eol
+
+let entry = IniFile.entry IniFile.entry_re sep comment
+ | empty
+
+let title = IniFile.title_label "@group" (IniFile.record_re - /^end$/)
+let record = [ title . entry+ . Util.del_str "[end]" . eol ]
+
+let lns = (entry | record)*
+
+(* Variable: filter *)
+let filter = incl "/etc/selinux/semanage.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/sep.aug b/Sharp.Augeas.Test/lens/sep.aug
new file mode 100644
index 0000000..6798e10
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/sep.aug
@@ -0,0 +1,57 @@
+(*
+Module: Sep
+ Generic separators to build lenses
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+*)
+
+
+module Sep =
+
+(* Variable: colon *)
+let colon = Util.del_str ":"
+
+(* Variable: semicolon *)
+let semicolon = Util.del_str ";"
+
+(* Variable: comma *)
+let comma = Util.del_str ","
+
+(* Variable: equal *)
+let equal = Util.del_str "="
+
+(* Variable: space_equal *)
+let space_equal = Util.delim "="
+
+(* Variable: space
+ Deletes a <Rx.space> and default to a single space *)
+let space = del Rx.space " "
+
+(* Variable: tab
+ Deletes a <Rx.space> and default to a tab *)
+let tab = del Rx.space "\t"
+
+(* Variable: opt_space
+ Deletes a <Rx.opt_space> and default to an empty string *)
+let opt_space = del Rx.opt_space ""
+
+(* Variable: opt_tab
+ Deletes a <Rx.opt_space> and default to a tab *)
+let opt_tab = del Rx.opt_space "\t"
+
+(* Variable: cl_or_space
+ Deletes a <Rx.cl_or_space> and default to a single space *)
+let cl_or_space = del Rx.cl_or_space " "
+
+(* Variable: cl_or_opt_space
+ Deletes a <Rx.cl_or_opt_space> and default to a single space *)
+let cl_or_opt_space = del Rx.cl_or_opt_space " "
+
+(* Variable: lbracket *)
+let lbracket = Util.del_str "("
+
+(* Variable: rbracket *)
+let rbracket = Util.del_str ")"
diff --git a/Sharp.Augeas.Test/lens/services.aug b/Sharp.Augeas.Test/lens/services.aug
new file mode 100644
index 0000000..bad590f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/services.aug
@@ -0,0 +1,93 @@
+(*
+Module: Services
+ Parses /etc/services
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to 'man services' where possible.
+
+The definitions from 'man services' are put as commentaries for reference
+throughout the file. More information can be found in the manual.
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ Sample usage of this lens in augtool
+
+ * Get the name of the service running on port 22 with protocol tcp
+ > match "/files/etc/services/service-name[port = '22'][protocol = 'tcp']"
+ * Remove the tcp entry for "domain" service
+ > rm "/files/etc/services/service-name[. = 'domain'][protocol = 'tcp']"
+ * Add a tcp service named "myservice" on port 55234
+ > ins service-name after /files/etc/services/service-name[last()]
+ > set /files/etc/services/service-name[last()] "myservice"
+ > set "/files/etc/services/service-name[. = 'myservice']/port" "55234"
+ > set "/files/etc/services/service-name[. = 'myservice']/protocol" "tcp"
+
+About: Configuration files
+ This lens applies to /etc/services. See <filter>.
+*)
+
+module Services =
+ autoload xfm
+
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* Group: Generic primitives *)
+
+(* Variable: eol *)
+let eol = del /[ \t]*(#)?[ \t]*\n/ "\n"
+let indent = Util.indent
+let comment = Util.comment
+let comment_or_eol = Util.comment_or_eol
+let empty = Util.empty
+let protocol_re = /[a-zA-Z]+/
+let word_re = /[a-zA-Z0-9_.+*\/:-]+/
+let num_re = /[0-9]+/
+
+(* Group: Separators *)
+let sep_spc = Util.del_ws_spc
+
+
+(************************************************************************
+ * Group: LENSES
+ *************************************************************************)
+
+(* View: port *)
+let port = [ label "port" . store num_re ]
+
+(* View: port_range *)
+let port_range = [ label "start" . store num_re ]
+ . Util.del_str "-"
+ . [ label "end" . store num_re ]
+
+(* View: protocol *)
+let protocol = [ label "protocol" . store protocol_re ]
+
+(* View: alias *)
+let alias = [ label "alias" . store word_re ]
+
+(*
+ * View: record
+ * A standard /etc/services record
+ * TODO: make sure a space is added before a comment on new nodes
+ *)
+let record = [ label "service-name" . store word_re
+ . sep_spc . (port | port_range)
+ . del "/" "/" . protocol . ( sep_spc . alias )*
+ . comment_or_eol ]
+
+(* View: lns
+ The services lens is either <empty>, <comment> or <record> *)
+let lns = ( empty | comment | record )*
+
+
+(* View: filter *)
+let filter = (incl "/etc/services")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/shadow.aug b/Sharp.Augeas.Test/lens/shadow.aug
new file mode 100644
index 0000000..959cb3a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/shadow.aug
@@ -0,0 +1,81 @@
+(*
+ Module: Shadow
+ Parses /etc/shadow
+
+ Author: Lorenzo M. Catucci <catucci@ccd.uniroma2.it>
+
+ Original Author: Free Ekanayaka <free@64studio.com>
+
+ About: Reference
+
+ - man 5 shadow
+ - man 3 getspnam
+
+ About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+ About:
+
+ Each line in the shadow files represents the additional shadow-defined attributes
+ for the corresponding user, as defined in the passwd file.
+
+*)
+
+module Shadow =
+
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let comment = Util.comment
+let empty = Util.empty
+let dels = Util.del_str
+
+let colon = Sep.colon
+
+let word = Rx.word
+let integer = Rx.integer
+
+let sto_to_col = Passwd.sto_to_col
+let sto_to_eol = Passwd.sto_to_eol
+
+(************************************************************************
+ * Group: ENTRIES
+ *************************************************************************)
+(* Common for entry and nisdefault *)
+let common = [ label "lastchange_date" . store integer? . colon ]
+ . [ label "minage_days" . store integer? . colon ]
+ . [ label "maxage_days" . store integer? . colon ]
+ . [ label "warn_days" . store integer? . colon ]
+ . [ label "inactive_days" . store integer? . colon ]
+ . [ label "expire_date" . store integer? . colon ]
+ . [ label "flag" . store integer? ]
+
+(* View: entry *)
+let entry = [ key word
+ . colon
+ . [ label "password" . sto_to_col? . colon ]
+ . common
+ . eol ]
+
+let nisdefault =
+ let overrides =
+ colon
+ . [ label "password" . store word? . colon ]
+ . common in
+ [ dels "+" . label "@nisdefault" . overrides? . eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry|nisdefault) *
+
+let filter
+ = incl "/etc/shadow"
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/shells.aug b/Sharp.Augeas.Test/lens/shells.aug
new file mode 100644
index 0000000..87a4842
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/shells.aug
@@ -0,0 +1,37 @@
+(*
+Module: Shells
+ Parses /etc/shells
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 shells` where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/shells. See <filter>.
+*)
+
+
+module Shells =
+ autoload xfm
+
+let empty = Util.empty
+let comment = Util.comment
+let comment_or_eol = Util.comment_or_eol
+let shell = [ seq "shell" . store /[^# \t\n]+/ . comment_or_eol ]
+
+(* View: lns
+ The shells lens
+*)
+let lns = ( empty | comment | shell )*
+
+(* Variable: filter *)
+let filter = incl "/etc/shells"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/shellvars.aug b/Sharp.Augeas.Test/lens/shellvars.aug
new file mode 100644
index 0000000..3a4c5c5
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/shellvars.aug
@@ -0,0 +1,338 @@
+(*
+Module: Shellvars
+ Generic lens for shell-script config files like the ones found
+ in /etc/sysconfig
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+*)
+
+module Shellvars =
+ autoload xfm
+
+ (* Delete a blank line, rather than mapping it *)
+ let del_empty = del (Util.empty_generic_re . "\n") "\n"
+
+ let empty = Util.empty
+ let empty_part_re = Util.empty_generic_re . /\n+/
+ let eol = del (/[ \t]+|[ \t]*[;\n]/ . empty_part_re*) "\n"
+ let semicol_eol = del (/[ \t]*[;\n]/ . empty_part_re*) "\n"
+ let brace_eol = del /[ \t\n]+/ "\n"
+
+ let key_re = /[A-Za-z0-9_][-A-Za-z0-9_]*(\[[0-9A-Za-z_,]+\])?/ - ("unset" | "export")
+ let matching_re = "${!" . key_re . /[\*@]\}/
+ let eq = Util.del_str "="
+
+ let eol_for_comment = del /([ \t]*\n)([ \t]*(#[ \t]*)?\n)*/ "\n"
+ let comment = Util.comment_generic_seteol /[ \t]*#[ \t]*/ " # " eol_for_comment
+ (* comment_eol in shell MUST begin with a space *)
+ let comment_eol = Util.comment_generic_seteol /[ \t]+#[ \t]*/ " # " eol_for_comment
+ let comment_or_eol = comment_eol | semicol_eol
+
+ let xchgs = Build.xchgs
+ let semicol = del /;?/ ""
+
+ let char = /[^`;()'"&|\n\\# \t]#*|\\\\./
+ let dquot =
+ let char = /[^"\\]|\\\\./ | Rx.cl
+ in "\"" . char* . "\"" (* " Emacs, relax *)
+ let squot = /'[^']*'/
+ let bquot = /`[^`\n]+`/
+ (* dbquot don't take spaces or semi-colons *)
+ let dbquot = /``[^` \t\n;]+``/
+ let dollar_assign = /\$\([^\(\)#\n]*\)/
+ let dollar_arithm = /\$\(\([^\)#\n]*\)\)/
+
+ let anyquot = (char|dquot|squot|dollar_assign|dollar_arithm)+ | bquot | dbquot
+ let sto_to_semicol = store (anyquot . (Rx.cl_or_space . anyquot)*)
+
+ (* Array values of the form '(val1 val2 val3)'. We do not handle empty *)
+ (* arrays here because of typechecking headaches. Instead, they are *)
+ (* treated as a simple value *)
+ let array =
+ let array_value = store anyquot in
+ del /\([ \t]*/ "(" . counter "values" .
+ [ seq "values" . array_value ] .
+ [ del /[ \t\n]+/ " " . seq "values" . array_value ] *
+ . del /[ \t]*\)/ ")"
+
+ (* Treat an empty list () as a value '()'; that's not quite correct *)
+ (* but fairly close. *)
+ let simple_value =
+ let empty_array = /\([ \t]*\)/ in
+ store (anyquot | empty_array)?
+
+ let export = [ key "export" . Util.del_ws_spc ]
+ let kv = Util.indent . export? . key key_re
+ . eq . (simple_value | array)
+
+ let var_action (name:string) =
+ Util.indent . del name name . Util.del_ws_spc
+ . label ("@" . name) . counter "var_action"
+ . Build.opt_list [ seq "var_action" . store (key_re | matching_re) ] Util.del_ws_spc
+
+ let unset = var_action "unset"
+ let bare_export = var_action "export"
+
+ let source =
+ Util.indent
+ . del /\.|source/ "." . label ".source"
+ . Util.del_ws_spc . store /[^;=# \t\n]+/
+
+ let shell_builtin_cmds = "ulimit" | "shift" | "exit"
+
+ let eval =
+ Util.indent . Util.del_str "eval" . Util.del_ws_spc
+ . label "@eval" . store anyquot
+
+ let alias =
+ Util.indent . Util.del_str "alias" . Util.del_ws_spc
+ . label "@alias" . store key_re . eq
+ . [ label "value" . store anyquot ]
+
+ let builtin =
+ Util.indent . label "@builtin"
+ . store shell_builtin_cmds
+ . (Sep.cl_or_space
+ . [ label "args" . sto_to_semicol ])?
+
+ let keyword (kw:string) = Util.indent . Util.del_str kw
+ let keyword_label (kw:string) (lbl:string) = keyword kw . label lbl
+
+ let return =
+ Util.indent . label "@return"
+ . Util.del_str "return"
+ . ( Util.del_ws_spc . store Rx.integer )?
+
+ let action (operator:string) (lbl:string) (sto:lens) =
+ let sp = Rx.cl_or_opt_space | /[ \t\n]+/
+ in [ del (sp . operator . sp) (" " . operator . " ")
+ . label ("@".lbl) . sto ]
+
+ let action_pipe = action "|" "pipe"
+ let action_and = action "&&" "and"
+ let action_or = action "||" "or"
+
+ let condition =
+ let cond (start:string) (end:string) = [ label "type" . store start ]
+ . Util.del_ws_spc . sto_to_semicol
+ . Util.del_ws_spc . Util.del_str end
+ . ( action_and sto_to_semicol | action_or sto_to_semicol )*
+ in Util.indent . label "@condition" . (cond "[" "]" | cond "[[" "]]")
+
+ (* Entry types *)
+ let entry_eol_item (item:lens) = [ item . comment_or_eol ]
+ let entry_item (item:lens) = [ item ]
+
+ let entry_eol_nocommand =
+ entry_eol_item source
+ | entry_eol_item kv
+ | entry_eol_item unset
+ | entry_eol_item bare_export
+ | entry_eol_item builtin
+ | entry_eol_item return
+ | entry_eol_item condition
+ | entry_eol_item eval
+ | entry_eol_item alias
+
+ let entry_noeol_nocommand =
+ entry_item source
+ | entry_item kv
+ | entry_item unset
+ | entry_item bare_export
+ | entry_item builtin
+ | entry_item return
+ | entry_item condition
+ | entry_item eval
+ | entry_item alias
+
+ (* Command *)
+ let rec command =
+ let env = [ key key_re . eq . store anyquot . Sep.cl_or_space ]
+ in let reserved_key = /exit|shift|return|ulimit|unset|export|source|\.|if|for|select|while|until|then|else|fi|done|case|eval|alias/
+ in let word = /\$?[-A-Za-z0-9_.\/]+/
+ in let entry_eol = entry_eol_nocommand | entry_eol_item command
+ in let entry_noeol = entry_noeol_nocommand | entry_item command
+ in let entry = entry_eol | entry_noeol
+ in let pipe = action_pipe (entry_eol_item command | entry_item command)
+ in let and = action_and entry
+ in let or = action_or entry
+ in Util.indent . label "@command" . env* . store (word - reserved_key)
+ . [ Sep.cl_or_space . label "@arg" . sto_to_semicol]?
+ . ( pipe | and | or )?
+
+ let entry_eol = entry_eol_nocommand
+ | entry_eol_item command
+
+ let entry_noeol = entry_noeol_nocommand
+ | entry_item command
+
+(************************************************************************
+ * Group: CONDITIONALS AND LOOPS
+ *************************************************************************)
+
+ let generic_cond_start (start_kw:string) (lbl:string)
+ (then_kw:string) (contents:lens) =
+ keyword_label start_kw lbl . Sep.space
+ . sto_to_semicol
+ . ( action_and sto_to_semicol | action_or sto_to_semicol )*
+ . semicol_eol
+ . keyword then_kw . eol
+ . contents
+
+ let generic_cond (start_kw:string) (lbl:string)
+ (then_kw:string) (contents:lens) (end_kw:string) =
+ [ generic_cond_start start_kw lbl then_kw contents
+ . keyword end_kw . comment_or_eol ]
+
+ let cond_if (entry:lens) =
+ let elif = [ generic_cond_start "elif" "@elif" "then" entry+ ] in
+ let else = [ keyword_label "else" "@else" . eol . entry+ ] in
+ generic_cond "if" "@if" "then" (entry+ . elif* . else?) "fi"
+
+ let loop_for (entry:lens) =
+ generic_cond "for" "@for" "do" entry+ "done"
+
+ let loop_while (entry:lens) =
+ generic_cond "while" "@while" "do" entry+ "done"
+
+ let loop_until (entry:lens) =
+ generic_cond "until" "@until" "do" entry+ "done"
+
+ let loop_select (entry:lens) =
+ generic_cond "select" "@select" "do" entry+ "done"
+
+ let case (entry:lens) (entry_noeol:lens) =
+ let pattern = [ label "@pattern" . sto_to_semicol . Sep.opt_space ]
+ in let case_entry = [ label "@case_entry"
+ . Util.indent . pattern
+ . (Util.del_str "|" . Sep.opt_space . pattern)*
+ . Util.del_str ")" . eol
+ . entry* . entry_noeol?
+ . Util.indent . Util.del_str ";;" . eol ] in
+ [ keyword_label "case" "@case" . Sep.space
+ . store (char+ | ("\"" . char+ . "\""))
+ . del /[ \t\n]+/ " " . Util.del_str "in" . eol
+ . (empty* . comment* . case_entry)*
+ . empty* . comment*
+ . keyword "esac" . comment_or_eol ]
+
+ let subshell (entry:lens) =
+ [ Util.indent . label "@subshell"
+ . Util.del_str "{" . brace_eol
+ . entry+
+ . Util.indent . Util.del_str "}" . eol ]
+
+ let function (entry:lens) (start_kw:string) (end_kw:string) =
+ [ Util.indent . label "@function"
+ . del /(function[ \t]+)?/ ""
+ . store Rx.word . del /[ \t]*\(\)/ "()"
+ . (comment_eol|brace_eol) . Util.del_str start_kw . brace_eol
+ . entry+
+ . Util.indent . Util.del_str end_kw . eol ]
+
+ let rec rec_entry =
+ let entry = comment | entry_eol | rec_entry in
+ cond_if entry
+ | loop_for entry
+ | loop_select entry
+ | loop_while entry
+ | loop_until entry
+ | case entry entry_noeol
+ | function entry "{" "}"
+ | function entry "(" ")"
+ | subshell entry
+
+ let lns_norec = del_empty* . (comment | entry_eol) *
+
+ let lns = del_empty* . (comment | entry_eol | rec_entry) *
+
+ let sc_incl (n:string) = (incl ("/etc/sysconfig/" . n))
+ let sc_excl (n:string) = (excl ("/etc/sysconfig/" . n))
+
+ let filter_sysconfig =
+ sc_incl "*" .
+ sc_excl "anaconda" .
+ sc_excl "bootloader" .
+ sc_excl "hw-uuid" .
+ sc_excl "hwconf" .
+ sc_excl "ip*tables" .
+ sc_excl "ip*tables.save" .
+ sc_excl "kernel" .
+ sc_excl "*.pub" .
+ sc_excl "sysstat.ioconf" .
+ sc_excl "system-config-firewall" .
+ sc_excl "system-config-securitylevel" .
+ sc_incl "network/config" .
+ sc_incl "network/dhcp" .
+ sc_incl "network/dhcp6r" .
+ sc_incl "network/dhcp6s" .
+ sc_incl "network/ifcfg-*" .
+ sc_incl "network/if-down.d/*" .
+ sc_incl "network/ifroute-*" .
+ sc_incl "network/if-up.d/*" .
+ sc_excl "network/if-up.d/SuSEfirewall2" .
+ sc_incl "network/providers/*" .
+ sc_excl "network-scripts" .
+ sc_incl "network-scripts/ifcfg-*" .
+ sc_excl "rhn" .
+ sc_incl "rhn/allowed-actions/*" .
+ sc_excl "rhn/allowed-actions/script" .
+ sc_incl "rhn/allowed-actions/script/*" .
+ sc_incl "rhn/rhnsd" .
+ sc_excl "SuSEfirewall2.d" .
+ sc_incl "SuSEfirewall2.d/cobbler" .
+ sc_incl "SuSEfirewall2.d/services/*" .
+ sc_excl "SuSEfirewall2.d/services/TEMPLATE" .
+ sc_excl "*.systemd"
+
+ let filter_default = incl "/etc/default/*"
+ . excl "/etc/default/grub_installdevice*"
+ . excl "/etc/default/rmt"
+ . excl "/etc/default/star"
+ . excl "/etc/default/whoopsie"
+ . incl "/etc/profile"
+ . incl "/etc/profile.d/*"
+ . excl "/etc/profile.d/*.csh"
+ . excl "/etc/profile.d/*.tcsh"
+ . excl "/etc/profile.d/csh.local"
+ let filter_misc = incl "/etc/arno-iptables-firewall/debconf.cfg"
+ . incl "/etc/conf.d/*"
+ . incl "/etc/cron-apt/config"
+ . incl "/etc/environment"
+ . incl "/etc/firewalld/firewalld.conf"
+ . incl "/etc/blkid.conf"
+ . incl "/etc/adduser.conf"
+ . incl "/etc/cowpoke.conf"
+ . incl "/etc/cvs-cron.conf"
+ . incl "/etc/cvs-pserver.conf"
+ . incl "/etc/devscripts.conf"
+ . incl "/etc/kamailio/kamctlrc"
+ . incl "/etc/lbu/lbu.conf"
+ . incl "/etc/lintianrc"
+ . incl "/etc/lsb-release"
+ . incl "/etc/os-release"
+ . incl "/etc/periodic.conf"
+ . incl "/etc/popularity-contest.conf"
+ . incl "/etc/rc.conf"
+ . incl "/etc/rc.conf.d/*"
+ . incl "/etc/rc.conf.local"
+ . incl "/etc/selinux/config"
+ . incl "/etc/ucf.conf"
+ . incl "/etc/locale.conf"
+ . incl "/etc/vconsole.conf"
+ . incl "/etc/byobu/*"
+
+ let filter = filter_sysconfig
+ . filter_default
+ . filter_misc
+ . Util.stdexcl
+
+ let xfm = transform lns filter
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/shellvars_list.aug b/Sharp.Augeas.Test/lens/shellvars_list.aug
new file mode 100644
index 0000000..105939c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/shellvars_list.aug
@@ -0,0 +1,59 @@
+(* Generic lens for shell-script config files like the ones found *)
+(* in /etc/sysconfig, where a string needs to be split into *)
+(* single words. *)
+module Shellvars_list =
+ autoload xfm
+
+ let eol = Util.eol
+
+ let key_re = /[A-Za-z0-9_]+/
+ let eq = Util.del_str "="
+ let comment = Util.comment
+ let comment_or_eol = Util.comment_or_eol
+ let empty = Util.empty
+ let indent = Util.indent
+
+ let sqword = /[^ '\t\n]+/
+ let dqword = /([^ "\\\t\n]|\\\\.)+/
+ let uqword = /([^ `"'\\\t\n]|\\\\.)+/
+ let bqword = /`[^`\n]*`/
+ let space_or_nl = /[ \t\n]+/
+ let space_or_cl = space_or_nl | Rx.cl
+
+ (* lists values of the form ... val1 val2 val3 ... *)
+ let list (word:regexp) (sep:regexp) =
+ let list_value = store word in
+ indent .
+ [ label "value" . list_value ] .
+ [ del sep " " . label "value" . list_value ]* . indent
+
+
+ (* handle single quoted lists *)
+ let squote_arr = [ label "quote" . store /'/ ]
+ . (list sqword space_or_nl)? . del /'/ "'"
+
+ (* similarly handle double quoted lists *)
+ let dquote_arr = [ label "quote" . store /"/ ]
+ . (list dqword space_or_cl)? . del /"/ "\""
+
+ (* handle unquoted single value *)
+ let unquot_val = [ label "quote" . store "" ]
+ . [ label "value" . store (uqword+ | bqword)]?
+
+
+ (* lens for key value pairs *)
+ let kv = [ key key_re . eq .
+ ( (squote_arr | dquote_arr) . comment_or_eol
+ | unquot_val . eol )
+ ]
+
+ let lns = ( comment | empty | kv )*
+
+ let filter = incl "/etc/sysconfig/bootloader"
+ . incl "/etc/sysconfig/kernel"
+
+ let xfm = transform lns filter
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/simplelines.aug b/Sharp.Augeas.Test/lens/simplelines.aug
new file mode 100644
index 0000000..8ff25fb
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/simplelines.aug
@@ -0,0 +1,48 @@
+(*
+Module: Simplelines
+ Parses simple lines conffiles
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ See <filter>.
+
+About: Examples
+ The <Test_Simplelines> file contains various examples and tests.
+*)
+
+module Simplelines =
+
+autoload xfm
+
+(* View: line
+ A simple, uncommented, line *)
+let line =
+ let line_re = /[^# \t\n].*[^ \t\n]|[^# \t\n]/
+ in [ seq "line" . Util.indent
+ . store line_re . Util.eol ]
+
+(* View: lns
+ The simplelines lens *)
+let lns = (Util.empty | Util.comment | line)*
+
+(* Variable: filter *)
+let filter = incl "/etc/at.allow"
+ . incl "/etc/at.deny"
+ . incl "/etc/cron.allow"
+ . incl "/etc/cron.deny"
+ . incl "/etc/cron.d/at.allow"
+ . incl "/etc/cron.d/at.deny"
+ . incl "/etc/cron.d/cron.allow"
+ . incl "/etc/cron.d/cron.deny"
+ . incl "/etc/default/grub_installdevice"
+ . incl "/etc/pam.d/allow.pamlist"
+ . incl "/etc/hostname.*"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/simplevars.aug b/Sharp.Augeas.Test/lens/simplevars.aug
new file mode 100644
index 0000000..1863564
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/simplevars.aug
@@ -0,0 +1,51 @@
+(*
+Module: Simplevars
+ Parses simple key = value conffiles
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Examples
+ The <Test_Simplevars> file contains various examples and tests.
+*)
+
+module Simplevars =
+
+autoload xfm
+
+(* Variable: to_comment_re
+ The regexp to match the value *)
+let to_comment_re =
+ let to_comment_squote = /'[^\n']*'/
+ in let to_comment_dquote = /"[^\n"]*"/
+ in let to_comment_noquote = /[^\n \t'"#][^\n#]*[^\n \t#]|[^\n \t'"#]/
+ in to_comment_squote | to_comment_dquote | to_comment_noquote
+
+(* View: entry *)
+let entry =
+ let some_value = Sep.space_equal . store to_comment_re
+ (* Avoid ambiguity in tree by making a subtree here *)
+ in let empty_value = [del /[ \t]*=/ "="] . store ""
+ in [ Util.indent . key Rx.word
+ . (some_value? | empty_value)
+ . (Util.eol | Util.comment_eol) ]
+
+(* View: lns *)
+let lns = (Util.empty | Util.comment | entry)*
+
+(* Variable: filter *)
+let filter = incl "/etc/kernel-img.conf"
+ . incl "/etc/kerneloops.conf"
+ . incl "/etc/wgetrc"
+ . incl "/etc/zabbix/*.conf"
+ . incl "/etc/audit/auditd.conf"
+ . incl "/etc/mixerctl.conf"
+ . incl "/etc/wsconsctlctl.conf"
+ . incl "/etc/ocsinventory/ocsinventory-agent.cfg"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/sip_conf.aug b/Sharp.Augeas.Test/lens/sip_conf.aug
new file mode 100644
index 0000000..2674558
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/sip_conf.aug
@@ -0,0 +1,57 @@
+(*
+Module: Sip_Conf
+ Parses /etc/asterisk/sip.conf
+
+Author: Rob Tucker <rtucker@mozilla.com>
+
+About: Reference
+ Lens parses the sip.conf with support for template structure
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/asterisk/sip.conf. See <filter>.
+*)
+
+module Sip_Conf =
+ autoload xfm
+
+(************************************************************************
+ * INI File settings
+ *************************************************************************)
+
+let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
+let sep = IniFile.sep IniFile.sep_re IniFile.sep_default
+let empty = IniFile.empty
+let eol = IniFile.eol
+let comment_or_eol = comment | eol
+
+
+let entry = IniFile.indented_entry IniFile.entry_re sep comment
+
+let text_re = Rx.word
+let tmpl =
+ let is_tmpl = [ label "@is_template" . Util.del_str "!" ]
+ in let use_tmpl = [ label "@use_template" . store Rx.word ]
+ in let comma = Util.delim ","
+ in Util.del_str "(" . Sep.opt_space
+ . Build.opt_list (is_tmpl|use_tmpl) comma
+ . Sep.opt_space . Util.del_str ")"
+let title_comment_re = /[ \t]*[#;].*$/
+
+let title_comment = [ label "#title_comment"
+ . store title_comment_re ]
+let title = label "title" . Util.del_str "["
+ . store text_re . Util.del_str "]"
+ . tmpl? . title_comment? . eol
+let record = IniFile.record title entry
+
+let lns = IniFile.lns record comment
+
+let filter = incl "/etc/asterisk/sip.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/slapd.aug b/Sharp.Augeas.Test/lens/slapd.aug
new file mode 100644
index 0000000..12725b6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/slapd.aug
@@ -0,0 +1,162 @@
+(* Slapd module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: man slapd.conf(5), man slapd.access (5)
+
+*)
+
+module Slapd =
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let spc = Util.del_ws_spc
+let sep = del /[ \t\n]+/ " "
+
+let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
+let sto_to_spc = store /[^\\# \t\n]+/
+
+let comment = Util.comment
+let empty = Util.empty
+
+(************************************************************************
+ * ACCESS TO
+ *************************************************************************)
+
+let access_re = "access to"
+let control_re = "stop" | "continue" | "break"
+let what = [ spc . label "access"
+ . store (/[^\\# \t\n]+/ - ("by" | control_re)) ]
+
+(* TODO: parse the control field, see man slapd.access (5) *)
+let control = [ spc . label "control" . store control_re ]
+let by = [ sep . key "by" . spc . sto_to_spc
+ . what? . control? ]
+
+let access = [ key access_re . spc. sto_to_spc . by+ . eol ]
+
+(************************************************************************
+ * GLOBAL
+ *************************************************************************)
+
+(* TODO: parse special field separately, see man slapd.conf (5) *)
+let global_re = "allow"
+ | "argsfile"
+ | "attributeoptions"
+ | "attributetype"
+ | "authz-policy"
+ | "ldap"
+ | "dn"
+ | "concurrency"
+ | "cron_max_pending"
+ | "conn_max_pending_auth"
+ | "defaultsearchbase"
+ | "disallow"
+ | "ditcontentrule"
+ | "gentlehup"
+ | "idletimeout"
+ | "include"
+ | "index_substr_if_minlen"
+ | "index_substr_if_maxlen"
+ | "index_substr_any_len"
+ | "index_substr_any_step"
+ | "localSSF"
+ | "loglevel"
+ | "moduleload"
+ | "modulepath"
+ | "objectclass"
+ | "objectidentifier"
+ | "password-hash"
+ | "password-crypt-salt-format"
+ | "pidfile"
+ | "referral"
+ | "replica-argsfile"
+ | "replica-pidfile"
+ | "replicationinterval"
+ | "require"
+ | "reverse-lookup"
+ | "rootDSE"
+ | "sasl-host"
+ | "sasl-realm"
+ | "sasl-secprops"
+ | "schemadn"
+ | "security"
+ | "sizelimit"
+ | "sockbuf_max_incoming "
+ | "sockbuf_max_incoming_auth"
+ | "threads"
+ | "timelimit time"
+ | "tool-threads"
+ | "TLSCipherSuite"
+ | "TLSCACertificateFile"
+ | "TLSCACertificatePath"
+ | "TLSCertificateFile"
+ | "TLSCertificateKeyFile"
+ | "TLSDHParamFile"
+ | "TLSRandFile"
+ | "TLSVerifyClient"
+ | "TLSCRLCheck"
+ | "backend"
+
+let global = Build.key_ws_value global_re
+
+(************************************************************************
+ * DATABASE
+ *************************************************************************)
+
+(* TODO: support all types of database backend *)
+let database_hdb = "cachesize"
+ | "cachefree"
+ | "checkpoint"
+ | "dbconfig"
+ | "dbnosync"
+ | "directory"
+ | "dirtyread"
+ | "idlcachesize"
+ | "index"
+ | "linearindex"
+ | "lockdetect"
+ | "mode"
+ | "searchstack"
+ | "shm_key"
+
+let database_re = "suffix"
+ | "lastmod"
+ | "limits"
+ | "maxderefdepth"
+ | "overlay"
+ | "readonly"
+ | "replica uri"
+ | "replogfile"
+ | "restrict"
+ | "rootdn"
+ | "rootpw"
+ | "subordinate"
+ | "syncrepl rid"
+ | "updatedn"
+ | "updateref"
+ | database_hdb
+
+let database_entry =
+ let val = Quote.double_opt
+ in Build.key_value_line database_re Sep.space val
+
+let database = [ key "database"
+ . spc
+ . sto_to_eol
+ . eol
+ . (comment|empty|database_entry|access)* ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|global|access)* . (database)*
+
+let filter = incl "/etc/ldap/slapd.conf"
+ . incl "/etc/openldap/slapd.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/smbusers.aug b/Sharp.Augeas.Test/lens/smbusers.aug
new file mode 100644
index 0000000..aa70dc1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/smbusers.aug
@@ -0,0 +1,34 @@
+(*
+Module: SmbUsers
+ Parses Samba username maps
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Examples
+ The <Test_SmbUsers> file contains various examples and tests.
+*)
+
+module SmbUsers =
+
+autoload xfm
+
+(* View: entry *)
+let entry =
+ let username = [ label "username" . store Rx.no_spaces ]
+ in let usernames = Build.opt_list username Sep.space
+ in Build.key_value_line Rx.word Sep.space_equal usernames
+
+(* View: lns *)
+let lns = (Util.empty | (Util.comment_generic /[ \t]*[#;][ \t]*/ "# ") | entry)*
+
+(* Variable: filter *)
+let filter = incl "/etc/samba/smbusers"
+ . incl "/etc/samba/usermap.txt"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/solaris_system.aug b/Sharp.Augeas.Test/lens/solaris_system.aug
new file mode 100644
index 0000000..bb528dc
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/solaris_system.aug
@@ -0,0 +1,109 @@
+(*
+Module: Solaris_System
+ Parses /etc/system on Solaris
+
+Author: Dominic Cleal <dcleal@redhat.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 4 system` where possible.
+
+About: Licence
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+
+About: Configuration files
+ This lens applies to /etc/system on Solaris. See <filter>.
+*)
+
+module Solaris_System =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ ************************************************************************)
+
+(* View: comment *)
+let comment = Util.comment_generic /[ \t]*\*[ \t]*/ "* "
+
+(* View: empty
+ Map empty lines, including empty asterisk comments *)
+let empty = [ del /[ \t]*\*?[ \t]*\n/ "\n" ]
+
+(* View: sep_colon
+ The separator for key/value entries *)
+let sep_colon = del /:[ \t]*/ ": "
+
+(* View: sep_moddir
+ The separator of directories in a moddir search path *)
+let sep_moddir = del /[: ]+/ " "
+
+(* View: modpath
+ Individual moddir search path entry *)
+let modpath = [ seq "modpath" . store /[^ :\t\n]+/ ]
+
+(* Variable: set_operator
+ Valid set operators: equals, bitwise AND and OR *)
+let set_operators = /[=&|]/
+
+(* View: set_value
+ Sets an integer value or char pointer *)
+let set_value = [ label "value" . store Rx.no_spaces ]
+
+(************************************************************************
+ * Group: COMMANDS
+ ************************************************************************)
+
+(* View: cmd_kv
+ Function for simple key/value setting commands such as rootfs *)
+let cmd_kv (cmd:string) (value:regexp) =
+ Build.key_value_line cmd sep_colon (store value)
+
+(* View: cmd_moddir
+ The moddir command for specifying module search paths *)
+let cmd_moddir =
+ Build.key_value_line "moddir" sep_colon
+ (Build.opt_list modpath sep_moddir)
+
+(* View: set_var
+ Loads the variable name from a set command, no module *)
+let set_var = [ label "variable" . store Rx.word ]
+
+(* View: set_var
+ Loads the module and variable names from a set command *)
+let set_varmod = [ label "module" . store Rx.word ]
+ . Util.del_str ":" . set_var
+
+(* View: set_sep_spc *)
+let set_sep_spc = Util.del_opt_ws " "
+
+(* View: cmd_set
+ The set command for individual kernel/module parameters *)
+let cmd_set = [ key "set"
+ . Util.del_ws_spc
+ . ( set_var | set_varmod )
+ . set_sep_spc
+ . [ label "operator" . store set_operators ]
+ . set_sep_spc
+ . set_value
+ . Util.eol ]
+
+(************************************************************************
+ * Group: LENS
+ ************************************************************************)
+
+(* View: lns *)
+let lns = ( empty
+ | comment
+ | cmd_moddir
+ | cmd_kv "rootdev" Rx.fspath
+ | cmd_kv "rootfs" Rx.word
+ | cmd_kv "exclude" Rx.fspath
+ | cmd_kv "include" Rx.fspath
+ | cmd_kv "forceload" Rx.fspath
+ | cmd_set )*
+
+(* Variable: filter *)
+let filter = (incl "/etc/system")
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/soma.aug b/Sharp.Augeas.Test/lens/soma.aug
new file mode 100644
index 0000000..93181ea
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/soma.aug
@@ -0,0 +1,43 @@
+(* Soma module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: man 5 soma.cfg
+
+*)
+
+module Soma =
+
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let comment = Util.comment
+let empty = Util.empty
+
+let sep_eq = del /[ \t]*=[ \t]*/ " = "
+
+let sto_to_eol = store /([^ \t\n].*[^ \t\n]|[^ \t\n])/
+
+let word = /[A-Za-z0-9_.-]+/
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+let entry = [ key word
+ . sep_eq
+ . sto_to_eol
+ . eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry) *
+
+let filter = incl "/etc/somad/soma.cfg"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/spacevars.aug b/Sharp.Augeas.Test/lens/spacevars.aug
new file mode 100644
index 0000000..9f70b06
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/spacevars.aug
@@ -0,0 +1,44 @@
+(* Spacevars module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: man interfaces
+ This is a generic lens for simple key/value configuration files where
+ keys and values are separated by a sequence of spaces or tabs.
+
+*)
+
+module Spacevars =
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let comment = Util.comment
+let empty = Util.empty
+
+(************************************************************************
+ * ENTRIES
+ *************************************************************************)
+
+
+let entry = Build.key_ws_value /[A-Za-z0-9._-]+(\[[0-9]+\])?/
+
+let flag = [ key /[A-Za-z0-9._-]+(\[[0-9]+\])?/ . Util.doseol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry|flag)*
+
+let simple_lns = lns (* An alias for compatibility reasons *)
+
+(* configuration files that can be parsed without customizing the lens *)
+let filter = incl "/etc/havp/havp.config"
+ . incl "/etc/ldap.conf"
+ . incl "/etc/ldap/ldap.conf"
+ . incl "/etc/libnss-ldap.conf"
+ . incl "/etc/pam_ldap.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/splunk.aug b/Sharp.Augeas.Test/lens/splunk.aug
new file mode 100644
index 0000000..f209bb5
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/splunk.aug
@@ -0,0 +1,45 @@
+(*
+Module: Splunk
+ Parses /opt/splunk/etc/*, /opt/splunkforwarder/etc/system/local/*.conf and /opt/splunkforwarder/etc/apps/*/(default|local)/*.conf
+
+Author: Tim Brigham, Jason Antman
+
+About: Reference
+ https://docs.splunk.com/Documentation/Splunk/6.5.0/Admin/AboutConfigurationFiles
+
+About: License
+ This file is licenced under the LGPL v2+
+
+About: Lens Usage
+ Works like IniFile lens, with anonymous section for entries without enclosing section and allowing underscore-prefixed keys.
+
+About: Configuration files
+ This lens applies to conf files under /opt/splunk/etc and /opt/splunkforwarder/etc See <filter>.
+
+About: Examples
+ The <Test_Splunk> file contains various examples and tests.
+*)
+
+module Splunk =
+ autoload xfm
+
+ let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
+ let sep = IniFile.sep IniFile.sep_re IniFile.sep_default
+ let empty = IniFile.empty
+
+ let entry_re = ( /[A-Za-z_][A-Za-z0-9._-]*/ )
+ let setting = entry_re
+ let title = IniFile.indented_title_label "target" IniFile.record_label_re
+ let entry = [ key entry_re . sep . IniFile.sto_to_eol? . IniFile.eol ] | comment
+
+
+ let record = IniFile.record title entry
+ let anon = [ label ".anon" . (entry|empty)+ ]
+ let lns = anon . (record)* | (record)*
+
+ let filter = incl "/opt/splunk/etc/system/local/*.conf"
+ . incl "/opt/splunk/etc/apps/*/local/*.conf"
+ . incl "/opt/splunkforwarder/etc/system/local/*.conf"
+ . incl "/opt/splunkforwarder/etc/apps/*/default/*.conf"
+ . incl "/opt/splunkforwarder/etc/apps/*/local/*.conf"
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/squid.aug b/Sharp.Augeas.Test/lens/squid.aug
new file mode 100644
index 0000000..aacf787
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/squid.aug
@@ -0,0 +1,438 @@
+(* Squid module for Augeas
+ Author: Free Ekanayaka <free@64studio.com>
+
+ Reference: the self-documented default squid.conf file
+
+*)
+
+module Squid =
+ autoload xfm
+
+(************************************************************************
+ * USEFUL PRIMITIVES
+ *************************************************************************)
+
+let eol = Util.eol
+let spc = Util.del_ws_spc
+let indent = Util.indent
+
+let word = /[A-Za-z0-9!_.-]+(\[[0-9]+\])?/
+let sto_to_spc = store /[^# \t\n]+/
+let sto_to_eol = store /([^# \t\n][^#\n]*[^# \t\n])|[^# \t\n]/
+
+let comment = Util.comment
+let empty = Util.empty
+let comment_or_eol = Util.comment_or_eol
+let value (kw:string)
+ = [ spc . label kw . sto_to_spc ]
+
+let value_space_in (kw:string)
+ = [ spc . label kw . sto_to_eol ]
+
+let parameters = [ label "parameters"
+ . counter "parameters"
+ . [ spc . seq "parameters" . sto_to_spc ]+ ]
+
+(************************************************************************
+ * SPACEVARS SETTINGS
+ *************************************************************************)
+
+let entry_re = "accept_filter"
+ | "access_log"
+ | "acl_uses_indirect_client"
+ | "adaptation_access"
+ | "adaptation_service_set"
+ | "allow_underscore"
+ | "always_direct"
+ | "announce_file"
+ | "announce_host"
+ | "announce_period"
+ | "announce_port"
+ | "append_domain"
+ | "as_whois_server"
+ | "authenticate_cache_garbage_interval"
+ | "authenticate_ip_shortcircuit_access"
+ | "authenticate_ip_shortcircuit_ttl"
+ | "authenticate_ip_ttl"
+ | "authenticate_ttl"
+ | "background_ping_rate"
+ | "balance_on_multiple_ip"
+ | "broken_posts"
+ | "buffered_logs"
+ | "cache"
+ | "cache_dir"
+ | "cache_dns_program"
+ | "cache_effective_group"
+ | "cache_effective_user"
+ | "cache_log"
+ | "cache_mem"
+ | "cache_mgr"
+ | "cachemgr_passwd"
+ | "cache_peer"
+ | "cache_peer_access"
+ | "cache_peer_domain"
+ | "cache_replacement_policy"
+ | "cache_store_log"
+ | "cache_swap_high"
+ | "cache_swap_low"
+ | "cache_swap_state"
+ | "cache_vary"
+ | "check_hostnames"
+ | "chroot"
+ | "client_db"
+ | "client_lifetime"
+ | "client_netmask"
+ | "client_persistent_connections"
+ | "clientside_tos"
+ | "collapsed_forwarding"
+ | "connect_timeout"
+ | "coredump_dir"
+ | "dead_peer_timeout"
+ | "debug_options"
+ | "delay_access"
+ | "delay_class"
+ | "delay_initial_bucket_level"
+ | "delay_parameters"
+ | "delay_pools"
+ | "delay_pool_uses_indirect_client"
+ | "deny_info"
+ | "detect_broken_pconn"
+ | "digest_bits_per_entry"
+ | "digest_generation"
+ | "digest_rebuild_chunk_percentage"
+ | "digest_rebuild_period"
+ | "digest_rewrite_period"
+ | "digest_swapout_chunk_size"
+ | "diskd_program"
+ | "dns_children"
+ | "dns_defnames"
+ | "dns_nameservers"
+ | "dns_retransmit_interval"
+ | "dns_testnames"
+ | "dns_timeout"
+ | "dns_v4_fallback"
+ | "ecap_enable"
+ | "ecap_service"
+ | "email_err_data"
+ | "emulate_httpd_log"
+ | "err_html_text"
+ | "error_default_language"
+ | "error_directory"
+ | "error_log_languages"
+ | "error_map"
+ | "err_page_stylesheet"
+ | "esi_parser"
+ | "external_acl_type"
+ | "external_refresh_check"
+ | "follow_x_forwarded_for"
+ | "forwarded_for"
+ | "forward_log"
+ | "forward_timeout"
+ | "fqdncache_size"
+ | "ftp_epsv_all"
+ | "ftp_list_width"
+ | "ftp_passive"
+ | "ftp_sanitycheck"
+ | "ftp_telnet_protocol"
+ | "ftp_user"
+ | "global_internal_static"
+ | "half_closed_clients"
+ | "header_access"
+ | "header_replace"
+ | "hierarchy_stoplist"
+ | "high_memory_warning"
+ | "high_page_fault_warning"
+ | "high_response_time_warning"
+ | "hostname_aliases"
+ | "hosts_file"
+ | "htcp_access"
+ | "htcp_clr_access"
+ | "htcp_port"
+ | "http_accel_surrogate_remote"
+ | "http_access2"
+ | "httpd_accel_no_pmtu_disc"
+ | "httpd_accel_surrogate_id"
+ | "httpd_suppress_version_string"
+ | "http_port"
+ | "http_reply_access"
+ | "https_port"
+ | "icap_access"
+ | "icap_class"
+ | "icap_client_username_encode"
+ | "icap_client_username_header"
+ | "icap_connect_timeout"
+ | "icap_default_options_ttl"
+ | "icap_enable"
+ | "icap_io_timeout"
+ | "icap_persistent_connections"
+ | "icap_preview_enable"
+ | "icap_preview_size"
+ | "icap_send_client_ip"
+ | "icap_send_client_username"
+ | "icap_service"
+ | "icap_service_failure_limit"
+ | "icap_service_revival_delay"
+ | "icon_directory"
+ | "icp_access"
+ | "icp_hit_stale"
+ | "icp_port"
+ | "icp_query_timeout"
+ | "ident_lookup_access"
+ | "ident_timeout"
+ | "ie_refresh"
+ | "ignore_expect_100"
+ | "ignore_ims_on_miss"
+ | "ignore_unknown_nameservers"
+ | "incoming_dns_average"
+ | "incoming_http_average"
+ | "incoming_icp_average"
+ | "incoming_rate"
+ | "ipcache_high"
+ | "ipcache_low"
+ | "ipcache_size"
+ | "loadable_modules"
+ | "location_rewrite_access"
+ | "location_rewrite_children"
+ | "location_rewrite_concurrency"
+ | "location_rewrite_program"
+ | "log_access"
+ | "logfile_daemon"
+ | "logfile_rotate"
+ | "logformat"
+ | "log_fqdn"
+ | "log_icp_queries"
+ | "log_ip_on_direct"
+ | "log_mime_hdrs"
+ | "log_uses_indirect_client"
+ | "mail_from"
+ | "mail_program"
+ | "max_filedescriptors"
+ | "maximum_icp_query_timeout"
+ | "maximum_object_size"
+ | "maximum_object_size_in_memory"
+ | "maximum_single_addr_tries"
+ | "max_open_disk_fds"
+ | "max_stale"
+ | "mcast_groups"
+ | "mcast_icp_query_timeout"
+ | "mcast_miss_addr"
+ | "mcast_miss_encode_key"
+ | "mcast_miss_port"
+ | "mcast_miss_ttl"
+ | "memory_pools"
+ | "memory_pools_limit"
+ | "memory_replacement_policy"
+ | "mime_table"
+ | "min_dns_poll_cnt"
+ | "min_http_poll_cnt"
+ | "min_icp_poll_cnt"
+ | "minimum_direct_hops"
+ | "minimum_direct_rtt"
+ | "minimum_expiry_time"
+ | "minimum_icp_query_timeout"
+ | "minimum_object_size"
+ | "miss_access"
+ | "negative_dns_ttl"
+ | "negative_ttl"
+ | "neighbor_type_domain"
+ | "netdb_filename"
+ | "netdb_high"
+ | "netdb_low"
+ | "netdb_ping_period"
+ | "never_direct"
+ | "no_cache"
+ | "nonhierarchical_direct"
+ | "offline_mode"
+ | "pconn_timeout"
+ | "peer_connect_timeout"
+ | "persistent_connection_after_error"
+ | "persistent_request_timeout"
+ | "pid_filename"
+ | "pinger_enable"
+ | "pinger_program"
+ | "pipeline_prefetch"
+ | "positive_dns_ttl"
+ | "prefer_direct"
+ | "qos_flows"
+ | "query_icmp"
+ | "quick_abort_max"
+ | "quick_abort_min"
+ | "quick_abort_pct"
+ | "range_offset_limit"
+ | "read_ahead_gap"
+ | "read_timeout"
+ | "redirector_bypass"
+ | "referer_log"
+ | "refresh_all_ims"
+ | "refresh_stale_hit"
+ | "relaxed_header_parser"
+ | "reload_into_ims"
+ | "reply_body_max_size"
+ | "reply_header_access"
+ | "reply_header_max_size"
+ | "request_body_max_size"
+ | "request_entities"
+ | "request_header_access"
+ | "request_header_max_size"
+ | "request_timeout"
+ | "retry_on_error"
+ | "server_http11"
+ | "server_persistent_connections"
+ | "short_icon_urls"
+ | "shutdown_lifetime"
+ | "sleep_after_fork"
+ | "snmp_access"
+ | "snmp_incoming_address"
+ | "snmp_outgoing_address"
+ | "snmp_port"
+ | "ssl_bump"
+ | "ssl_engine"
+ | "sslpassword_program"
+ | "sslproxy_cafile"
+ | "sslproxy_capath"
+ | "sslproxy_cert_error"
+ | "sslproxy_cipher"
+ | "sslproxy_client_certificate"
+ | "sslproxy_client_key"
+ | "sslproxy_flags"
+ | "sslproxy_options"
+ | "sslproxy_version"
+ | "ssl_unclean_shutdown"
+ | "store_avg_object_size"
+ | "store_dir_select_algorithm"
+ | "store_objects_per_bucket"
+ | "storeurl_access"
+ | "storeurl_rewrite_children"
+ | "storeurl_rewrite_concurrency"
+ | "storeurl_rewrite_program"
+ | "strip_query_terms"
+ | "tcp_outgoing_address"
+ | "tcp_outgoing_tos"
+ | "tcp_recv_bufsize"
+ | "test_reachability"
+ | "udp_incoming_address"
+ | "udp_outgoing_address"
+ | "umask"
+ | "unique_hostname"
+ | "unlinkd_program"
+ | "update_headers"
+ | "uri_whitespace"
+ | "url_rewrite_access"
+ | "url_rewrite_bypass"
+ | "url_rewrite_children"
+ | "url_rewrite_concurrency"
+ | "url_rewrite_host_header"
+ | "url_rewrite_program"
+ | "useragent_log"
+ | "vary_ignore_expire"
+ | "via"
+ | "visible_hostname"
+ | "wccp2_address"
+ | "wccp2_assignment_method"
+ | "wccp2_forwarding_method"
+ | "wccp2_rebuild_wait"
+ | "wccp2_return_method"
+ | "wccp2_router"
+ | "wccp2_service"
+ | "wccp2_service_info"
+ | "wccp2_weight"
+ | "wccp_address"
+ | "wccp_router"
+ | "wccp_version"
+ | "windows_ipaddrchangemonitor"
+ | "zero_buffers"
+ | "zph_local"
+ | "zph_mode"
+ | "zph_option"
+ | "zph_parent"
+ | "zph_sibling"
+
+let entry = indent . (Build.key_ws_value entry_re)
+
+(************************************************************************
+ * AUTH
+ *************************************************************************)
+
+let auth_re = "auth_param"
+let auth = indent
+ . [ key "auth_param"
+ . value "scheme"
+ . value "parameter"
+ . (value_space_in "setting") ?
+ . comment_or_eol ]
+
+(************************************************************************
+ * ACL
+ *************************************************************************)
+
+let acl_re = "acl"
+let acl = indent
+ . [ key acl_re . spc
+ . [ key word
+ . value "type"
+ . value "setting"
+ . parameters?
+ . comment_or_eol ] ]
+
+(************************************************************************
+ * HTTP ACCESS
+ *************************************************************************)
+
+let http_access_re
+ = "http_access"
+ | "upgrade_http0.9"
+ | "broken_vary_encoding"
+
+let http_access
+ = indent
+ . [ key http_access_re
+ . spc
+ . [ key /allow|deny/
+ . spc
+ . sto_to_spc
+ . parameters? ]
+ . comment_or_eol ]
+
+(************************************************************************
+ * REFRESH PATTERN
+ *************************************************************************)
+
+let refresh_pattern_option_re = "override-expire"
+ | "override-lastmod"
+ | "reload-into-ims"
+ | "ignore-reload"
+ | "ignore-no-cache"
+ | "ignore-no-store"
+ | "ignore-must-revalidate"
+ | "ignore-private"
+ | "ignore-auth"
+ | "refresh-ims"
+ | "store-stale"
+
+let refresh_pattern = indent . [ key "refresh_pattern" . spc
+ . [ label "case_insensitive" . Util.del_str "-i" . spc ]?
+ . store /[^ \t\n]+/ . spc
+ . [ label "min" . store Rx.integer ] . spc
+ . [ label "percent" . store Rx.integer . Util.del_str "%" ] . spc
+ . [ label "max" . store Rx.integer ]
+ . (spc . Build.opt_list [ label "option" . store refresh_pattern_option_re ] spc)?
+ . comment_or_eol ]
+
+(************************************************************************
+ * EXTENSION METHODS
+ *************************************************************************)
+
+let extension_methods = indent . [ key "extension_methods" . spc
+ . Build.opt_list [ seq "extension_method" . store Rx.word ] spc
+ . comment_or_eol ]
+
+(************************************************************************
+ * LENS
+ *************************************************************************)
+
+let lns = (comment|empty|entry|auth|acl|http_access|refresh_pattern|extension_methods)*
+
+let filter = incl "/etc/squid/squid.conf"
+ . incl "/etc/squid3/squid.conf"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/ssh.aug b/Sharp.Augeas.Test/lens/ssh.aug
new file mode 100644
index 0000000..e9585d3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/ssh.aug
@@ -0,0 +1,134 @@
+(*
+Module: Ssh
+ Parses ssh client configuration
+
+Author: Jiri Suchomel <jsuchome@suse.cz>
+
+About: Reference
+ ssh_config man page
+
+About: License
+ This file is licensed under the GPL.
+
+About: Lens Usage
+ Sample usage of this lens in augtool
+
+(start code)
+augtool> set /files/etc/ssh/ssh_config/Host example.com
+augtool> set /files/etc/ssh/ssh_config/Host[.='example.com']/RemoteForward/machine1:1234 machine2:5678
+augtool> set /files/etc/ssh/ssh_config/Host[.='example.com']/Ciphers/1 aes128-ctr
+augtool> set /files/etc/ssh/ssh_config/Host[.='example.com']/Ciphers/2 aes192-ctr
+(end code)
+
+*)
+
+module Ssh =
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+ let eol = Util.doseol
+ let spc = Util.del_ws_spc
+ let spc_eq = del /[ \t]+|[ \t]*=[ \t]*/ " "
+ let comment = Util.comment
+ let empty = Util.empty
+ let comma = Util.del_str ","
+ let indent = Util.indent
+ let value_to_eol = store Rx.space_in
+ let value_to_spc = store /[^ \t\r\n=][^ \t\r\n]*/
+ let value_to_comma = store /[^, \t\r\n=][^, \t\r\n]*/
+
+
+(************************************************************************
+ * Group: ENTRIES
+ *************************************************************************)
+
+ let array_entry (k:regexp) =
+ [ indent . key k . counter "array_entry"
+ . [ spc . seq "array_entry" . value_to_spc]* . eol ]
+
+ let commas_entry (k:regexp) =
+ let value = [ seq "commas_entry" . value_to_comma]
+ in [ indent . key k . counter "commas_entry" . spc_eq .
+ Build.opt_list value comma . eol ]
+
+ let spaces_entry (k:regexp) =
+ let value = [ seq "spaces_entry" . value_to_spc ]
+ in [ indent . key k . counter "spaces_entry" . spc_eq .
+ Build.opt_list value spc . eol ]
+
+ let fw_entry (k:regexp) = [ indent . key k . spc_eq .
+ [ key /[^ \t\r\n\/=][^ \t\r\n\/]*/ . spc . value_to_eol . eol ]]
+
+ let send_env = array_entry /SendEnv/i
+
+ let proxy_command = [ indent . key /ProxyCommand/i . spc . value_to_eol . eol ]
+
+ let remote_fw = fw_entry /RemoteForward/i
+ let local_fw = fw_entry /LocalForward/i
+
+ let ciphers = commas_entry /Ciphers/i
+ let macs = commas_entry /MACs/i
+ let algorithms = commas_entry /(HostKey|Kex)Algorithms/i
+ let pubkey_accepted_key_types = commas_entry /PubkeyAcceptedKeyTypes/i
+
+ let global_knownhosts_file = spaces_entry /GlobalKnownHostsFile/i
+
+ let rekey_limit = [ indent . key /RekeyLimit/i . spc_eq .
+ [ label "amount" . value_to_spc ] .
+ [ spc . label "duration" . value_to_spc ]? . eol ]
+
+ let special_entry = send_env
+ | proxy_command
+ | remote_fw
+ | local_fw
+ | macs
+ | ciphers
+ | algorithms
+ | pubkey_accepted_key_types
+ | global_knownhosts_file
+ | rekey_limit
+
+ let key_re = /[A-Za-z0-9]+/
+ - /SendEnv|Host|Match|ProxyCommand|RemoteForward|LocalForward|MACs|Ciphers|(HostKey|Kex)Algorithms|PubkeyAcceptedKeyTypes|GlobalKnownHostsFile|RekeyLimit/i
+
+
+ let other_entry = [ indent . key key_re
+ . spc_eq . value_to_spc . eol ]
+
+ let entry = comment | empty
+ | special_entry
+ | other_entry
+
+ let host = [ key /Host/i . spc . value_to_eol . eol . entry* ]
+
+
+ let condition_entry =
+ let k = /[A-Za-z0-9]+/ in
+ let no_spc = Quote.do_dquote_opt (store /[^"' \t\r\n=]+/) in
+ let with_spc = Quote.do_quote (store /[^"'\t\r\n]* [^"'\t\r\n]*/) in
+ [ spc . key k . spc . no_spc ]
+ | [ spc . key k . spc . with_spc ]
+
+ let match_cond =
+ [ label "Condition" . condition_entry+ . eol ]
+
+ let match_entry = entry
+
+ let match =
+ [ key /Match/i . match_cond
+ . [ label "Settings" . match_entry+ ]
+ ]
+
+
+(************************************************************************
+ * Group: LENS
+ *************************************************************************)
+
+ let lns = entry* . (host | match)*
+
+ let xfm = transform lns (incl "/etc/ssh/ssh_config" .
+ incl (Sys.getenv("HOME") . "/.ssh/config") .
+ incl "/etc/ssh/ssh_config.d/*.conf")
diff --git a/Sharp.Augeas.Test/lens/sshd.aug b/Sharp.Augeas.Test/lens/sshd.aug
new file mode 100644
index 0000000..398f836
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/sshd.aug
@@ -0,0 +1,151 @@
+(*
+Module: Sshd
+ Parses /etc/ssh/sshd_config
+
+Author: David Lutterkort lutter@redhat.com
+ Dominique Dumont dominique.dumont@hp.com
+
+About: Reference
+ sshd_config man page.
+ See http://www.openbsd.org/cgi-bin/man.cgi?query=sshd_config&sektion=5
+
+About: License
+ This file is licensed under the LGPL v2+.
+
+About: Lens Usage
+ Sample usage of this lens in augtool:
+
+ * Get your current setup
+ > print /files/etc/ssh/sshd_config
+ ...
+
+ * Set X11Forwarding to "no"
+ > set /files/etc/ssh/sshd_config/X11Forwarding "no"
+
+ More advanced usage:
+
+ * Set a Match section
+ > set /files/etc/ssh/sshd_config/Match[1]/Condition/User "foo"
+ > set /files/etc/ssh/sshd_config/Match[1]/Settings/X11Forwarding "yes"
+
+ Saving your file:
+
+ > save
+
+
+About: CAVEATS
+
+ In sshd_config, Match blocks must be located at the end of the file.
+ This means that any new "global" parameters (i.e. outside of a Match
+ block) must be written before the first Match block. By default,
+ Augeas will write new parameters at the end of the file.
+
+ I.e. if you have a Match section and no ChrootDirectory parameter,
+ this command:
+
+ > set /files/etc/ssh/sshd_config/ChrootDirectory "foo"
+
+ will be stored in a new node after the Match section and Augeas will
+ refuse to save sshd_config file.
+
+ To create a new parameter as the right place, you must first create
+ a new Augeas node before the Match section:
+
+ > ins ChrootDirectory before /files/etc/ssh/sshd_config/Match
+
+ Then, you can set the parameter
+
+ > set /files/etc/ssh/sshd_config/ChrootDirectory "foo"
+
+
+About: Configuration files
+ This lens applies to /etc/ssh/sshd_config
+
+*)
+
+module Sshd =
+ autoload xfm
+
+ let eol = del /[ \t]*\n/ "\n"
+
+ let sep = del /[ \t=]+/ " "
+
+ let indent = del /[ \t]*/ " "
+
+ let key_re = /[A-Za-z0-9]+/
+ - /MACs|Match|AcceptEnv|Subsystem|Ciphers|(Kex|HostKey)Algorithms|(Allow|Deny)(Groups|Users)/i
+
+ let comment = Util.comment
+ let comment_noindent = Util.comment_noindent
+ let empty = Util.empty
+
+ let array_entry (kw:regexp) (sq:string) =
+ let bare = Quote.do_quote_opt_nil (store /[^"' \t\n=]+/) in
+ let quoted = Quote.do_quote (store /[^"'\n]*[ \t]+[^"'\n]*/) in
+ [ key kw
+ . ( [ sep . seq sq . bare ] | [ sep . seq sq . quoted ] )*
+ . eol ]
+
+ let other_entry =
+ let value = store /[^ \t\n=]+([ \t=]+[^ \t\n=]+)*/ in
+ [ key key_re . sep . value . eol ]
+
+ let accept_env = array_entry /AcceptEnv/i "AcceptEnv"
+
+ let allow_groups = array_entry /AllowGroups/i "AllowGroups"
+ let allow_users = array_entry /AllowUsers/i "AllowUsers"
+ let deny_groups = array_entry /DenyGroups/i "DenyGroups"
+ let deny_users = array_entry /DenyUsers/i "DenyUsers"
+
+ let subsystemvalue =
+ let value = store (/[^ \t\n=](.*[^ \t\n=])?/) in
+ [ key /[A-Za-z0-9\-]+/ . sep . value . eol ]
+
+ let subsystem =
+ [ key /Subsystem/i . sep . subsystemvalue ]
+
+ let list (kw:regexp) (sq:string) =
+ let value = store /[^, \t\n=]+/ in
+ [ key kw . sep .
+ [ seq sq . value ] .
+ ([ seq sq . Util.del_str "," . value])* .
+ eol ]
+
+ let macs = list /MACs/i "MACs"
+
+ let ciphers = list /Ciphers/i "Ciphers"
+
+ let kexalgorithms = list /KexAlgorithms/i "KexAlgorithms"
+
+ let hostkeyalgorithms = list /HostKeyAlgorithms/i "HostKeyAlgorithms"
+
+ let entry = accept_env | allow_groups | allow_users
+ | deny_groups | subsystem | deny_users
+ | macs | ciphers | kexalgorithms | hostkeyalgorithms
+ | other_entry
+
+ let condition_entry =
+ let k = /[A-Za-z0-9]+/ in
+ let no_spc = Quote.do_dquote_opt (store /[^"' \t\n=]+/) in
+ let spc = Quote.do_quote (store /[^"'\t\n]* [^"'\t\n]*/) in
+ [ sep . key k . sep . no_spc ]
+ | [ sep . key k . sep . spc ]
+
+ let match_cond =
+ [ label "Condition" . condition_entry+ . eol ]
+
+ let match_entry = indent . (entry | comment_noindent)
+ | empty
+
+ let match =
+ [ key /Match/i . match_cond
+ . [ label "Settings" . match_entry+ ]
+ ]
+
+ let lns = (entry | comment | empty)* . match*
+
+ let xfm = transform lns (incl "/etc/ssh/sshd_config")
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/sssd.aug b/Sharp.Augeas.Test/lens/sssd.aug
new file mode 100644
index 0000000..d854554
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/sssd.aug
@@ -0,0 +1,39 @@
+(*
+Module Sssd
+ Lens for parsing sssd.conf
+
+Author: Erinn Looney-Triggs <erinn.looneytriggs@gmail.com>
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+About: Configuration files
+ This lens applies to /etc/sssd/sssd.conf. See <filter>.
+*)
+
+module Sssd =
+ autoload xfm
+
+let comment = IniFile.comment /[#;]/ "#"
+
+let sep = IniFile.sep "=" "="
+
+let entry = IniFile.indented_entry IniFile.entry_re sep comment
+
+(* View: title
+ An sssd.conf section title *)
+let title = IniFile.indented_title_label "target" IniFile.record_label_re
+
+(* View: record
+ An sssd.conf record *)
+let record = IniFile.record title entry
+
+(* View: lns
+ The sssd.conf lens *)
+let lns = ( comment | IniFile.empty )* . (record)*
+
+(* View: filter *)
+let filter = (incl "/etc/sssd/sssd.conf")
+
+let xfm = transform lns filter
+
diff --git a/Sharp.Augeas.Test/lens/star.aug b/Sharp.Augeas.Test/lens/star.aug
new file mode 100644
index 0000000..b8c0a44
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/star.aug
@@ -0,0 +1,31 @@
+(*
+Module: Star
+ Parses star's configuration file
+
+Author: Cedric Bosdonnat <cbosdonnat@suse.com>
+
+About: Reference
+ This lens is based on star(1)
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+*)
+
+module Star =
+ autoload xfm
+
+let sto_to_tab = store Rx.no_spaces
+
+let size = Build.key_value_line "STAR_FIFOSIZE" Sep.space_equal ( store /[0-9x*.a-z]+/ )
+let size_max = Build.key_value_line "STAR_FIFOSIZE_MAX" Sep.space_equal ( store /[0-9x*.a-z]+/ )
+let archive = Build.key_value_line ( "archive". /[0-7]/ ) Sep.equal
+ ( [ label "device" . sto_to_tab ] . Sep.tab .
+ [ label "block" . sto_to_tab ] . Sep.tab .
+ [ label "size" . sto_to_tab ] . ( Sep.tab .
+ [ label "istape" . sto_to_tab ] )? )
+
+let lns = ( size | size_max | archive | Util.comment | Util.empty )*
+
+let filter = incl "/etc/default/star"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/strongswan.aug b/Sharp.Augeas.Test/lens/strongswan.aug
new file mode 100644
index 0000000..32b79fa
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/strongswan.aug
@@ -0,0 +1,51 @@
+(*
+Module: Strongswan
+ Lens for parsing strongSwan configuration files
+
+Authors:
+ Kaarle Ritvanen <kaarle.ritvanen@datakunkku.fi>
+
+About: Reference
+ strongswan.conf(5), swanctl.conf(5)
+
+About: License
+ This file is licensed under the LGPL v2+
+*)
+
+module Strongswan =
+
+autoload xfm
+
+let ws = del /[\n\t ]*(#[\t ]*\n[\n\t ]*)*/
+
+let rec conf =
+ let keys = /[^\/.\{\}#\n\t ]+/ - /include/
+ in let lists = /(crl|oscp)_uris|(local|remote)_(addrs|ts)|vips|pools|(ca)?certs|pubkeys|groups|cert_policy|dns|nbns|dhcp|netmask|server|subnet|split_(in|ex)clude|interfaces_(ignore|use)|preferred/
+ in let proposals = /((ah|esp)_)?proposals/
+ in let name (pat:lens) (sep:string) =
+ pat . Util.del_ws_spc . Util.del_str sep
+ in let val = store /[^\n\t ].*/ . Util.del_str "\n" . ws ""
+ in let sval = Util.del_ws_spc . val
+ in let ival (pat:lens) (end:string) =
+ Util.del_opt_ws " " . seq "item" . pat . Util.del_str end
+ in let list (l:string) (k:regexp) (v:lens) =
+ [ label l . name (store k) "=" . counter "item" .
+ [ ival v "," ]* . [ ival v "\n" ] . ws "" ]
+ in let alg = seq "alg" . store /[a-z0-9]+/
+in (
+ [ Util.del_str "#" . label "#comment" . Util.del_opt_ws " " . val ] |
+ [ key "include" . sval ] |
+ [ name (key (keys - lists - proposals)) "=" . sval ] |
+ list "#list" lists (store /[^\n\t ,][^\n,]*/) |
+ list "#proposals" proposals (counter "alg" . [ alg ] . [ Util.del_str "-" . alg ]*) |
+ [ name (key keys) "{" . ws "\n" . conf . Util.del_str "}" . ws "\n" ]
+)*
+
+let lns = ws "" . conf
+
+let xfm = transform lns (
+ incl "/etc/strongswan.d/*.conf" .
+ incl "/etc/strongswan.d/**/*.conf" .
+ incl "/etc/swanctl/conf.d/*.conf" .
+ incl "/etc/swanctl/swanctl.conf"
+)
diff --git a/Sharp.Augeas.Test/lens/stunnel.aug b/Sharp.Augeas.Test/lens/stunnel.aug
new file mode 100644
index 0000000..59a816a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/stunnel.aug
@@ -0,0 +1,80 @@
+(* Stunnel configuration file module for Augeas *)
+
+module Stunnel =
+ autoload xfm
+
+ let comment = IniFile.comment IniFile.comment_re IniFile.comment_default
+ let sep = IniFile.sep "=" "="
+
+ let setting = "chroot"
+ | "compression"
+ | "debug"
+ | "EGD"
+ | "engine"
+ | "engineCtrl"
+ | "fips"
+ | "foreground"
+ | "output"
+ | "pid"
+ | "RNDbytes"
+ | "RNDfile"
+ | "RNDoverwrite"
+ | "service"
+ | "setgid"
+ | "setuid"
+ | "socket"
+ | "syslog"
+ | "taskbar"
+ | "accept"
+ | "CApath"
+ | "CAfile"
+ | "cert"
+ | "ciphers"
+ | "client"
+ | "connect"
+ | "CRLpath"
+ | "CRLfile"
+ | "curve"
+ | "delay"
+ | "engineNum"
+ | "exec"
+ | "execargs"
+ | "failover"
+ | "ident"
+ | "key"
+ | "local"
+ | "OCSP"
+ | "OCSPflag"
+ | "options"
+ | "protocol"
+ | "protocolAuthentication"
+ | "protocolHost"
+ | "protocolPassword"
+ | "protocolUsername"
+ | "pty"
+ | "retry"
+ | "session"
+ | "sessiond"
+ | "sni"
+ | "sslVersion"
+ | "stack"
+ | "TIMEOUTbusy"
+ | "TIMEOUTclose"
+ | "TIMEOUTconnect"
+ | "TIMEOUTidle"
+ | "transparent"
+ | "verify"
+
+ let entry = IniFile.indented_entry setting sep comment
+ let empty = IniFile.empty
+
+ let title = IniFile.indented_title ( IniFile.record_re - ".anon" )
+ let record = IniFile.record title entry
+
+ let rc_anon = [ label ".anon" . ( entry | empty )+ ]
+
+ let lns = rc_anon? . record*
+
+ let filter = (incl "/etc/stunnel/stunnel.conf")
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/subversion.aug b/Sharp.Augeas.Test/lens/subversion.aug
new file mode 100644
index 0000000..57d4393
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/subversion.aug
@@ -0,0 +1,96 @@
+(*
+Module: Subversion
+ Parses subversion's INI files
+
+Authors:
+ Marc Fournier <marc.fournier@camptocamp.com>
+ Raphael Pinson <raphael.pinson@camptocamp.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Examples
+ The <Test_Subversion> file contains various examples and tests.
+
+*)
+
+module Subversion =
+autoload xfm
+
+(************************************************************************
+ * Group: INI File settings
+ *
+ * subversion only supports comments starting with "#"
+ *
+ *************************************************************************)
+
+(* View: comment *)
+let comment = IniFile.comment_noindent "#" "#"
+
+(* View: empty
+ An empty line or a non-indented empty comment *)
+let empty = IniFile.empty_noindent
+
+(* View: sep *)
+let sep = IniFile.sep IniFile.sep_default IniFile.sep_default
+
+(************************************************************************
+ * Group: ENTRY
+ *
+ * subversion doesn't support indented entries
+ *
+ *************************************************************************)
+
+(* Variable: comma_list_re *)
+let comma_list_re = "password-stores"
+
+(* Variable: space_list_re *)
+let space_list_re = "global-ignores" | "preserved-conflict-file-exts"
+
+(* Variable: std_re *)
+let std_re = /[^ \t\r\n\/=#]+/ - (comma_list_re | space_list_re)
+
+(* View: entry_std
+ A standard entry
+ Similar to a <IniFile.entry_multiline_nocomment> entry,
+ but allows ';' *)
+let entry_std =
+ IniFile.entry_multiline_generic (key std_re) sep "#" comment IniFile.eol
+
+(* View: entry *)
+let entry =
+ let comma_list_re = "password-stores"
+ in let space_list_re = "global-ignores" | "preserved-conflict-file-exts"
+ in let std_re = /[^ \t\r\n\/=#]+/ - (comma_list_re | space_list_re)
+ in entry_std
+ | IniFile.entry_list_nocomment comma_list_re sep Rx.word Sep.comma
+ | IniFile.entry_list_nocomment space_list_re sep Rx.no_spaces (del /(\r?\n)?[ \t]+/ " ")
+
+
+
+(************************************************************************
+ * Group: TITLE
+ *
+ * subversion doesn't allow anonymous entries (outside sections)
+ *
+ *************************************************************************)
+
+(* View: title *)
+let title = IniFile.title IniFile.entry_re
+
+(* View: record
+ Use the non-indented <empty> *)
+let record = IniFile.record_noempty title (entry|empty)
+
+(************************************************************************
+ * Group: LENS & FILTER
+ *************************************************************************)
+
+(* View: lns *)
+let lns = IniFile.lns record comment
+
+(* Variable: filter *)
+let filter = incl "/etc/subversion/config"
+ . incl "/etc/subversion/servers"
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/sudoers.aug b/Sharp.Augeas.Test/lens/sudoers.aug
new file mode 100644
index 0000000..f90b629
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/sudoers.aug
@@ -0,0 +1,549 @@
+(*
+Module: Sudoers
+ Parses /etc/sudoers
+
+Author: Raphael Pinson <raphink@gmail.com>
+
+About: Reference
+ This lens tries to keep as close as possible to `man sudoers` where possible.
+
+For example, recursive definitions such as
+
+ > Cmnd_Spec_List ::= Cmnd_Spec |
+ > Cmnd_Spec ',' Cmnd_Spec_List
+
+are replaced by
+
+ > let cmnd_spec_list = cmnd_spec . ( sep_com . cmnd_spec )*
+
+since Augeas cannot deal with recursive definitions.
+The definitions from `man sudoers` are put as commentaries for reference
+throughout the file. More information can be found in the manual.
+
+About: License
+ This file is licensed under the LGPL v2+, like the rest of Augeas.
+
+
+About: Lens Usage
+ Sample usage of this lens in augtool
+
+ * Set first Defaults to apply to the "LOCALNET" network alias
+ > set /files/etc/sudoers/Defaults[1]/type "@LOCALNET"
+ * List all user specifications applying explicitly to the "admin" Unix group
+ > match /files/etc/sudoers/spec/user "%admin"
+ * Remove the full 3rd user specification
+ > rm /files/etc/sudoers/spec[3]
+
+About: Configuration files
+ This lens applies to /etc/sudoers. See <filter>.
+*)
+
+
+
+module Sudoers =
+ autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* Group: Generic primitives *)
+(* Variable: eol *)
+let eol = Util.eol
+
+(* Variable: indent *)
+let indent = Util.indent
+
+
+(* Group: Separators *)
+
+(* Variable: sep_spc *)
+let sep_spc = Sep.space
+
+(* Variable: sep_cont *)
+let sep_cont = Sep.cl_or_space
+
+(* Variable: sep_cont_opt *)
+let sep_cont_opt = Sep.cl_or_opt_space
+
+(* Variable: sep_cont_opt_build *)
+let sep_cont_opt_build (sep:string) =
+ del (Rx.cl_or_opt_space . sep . Rx.cl_or_opt_space) (" " . sep . " ")
+
+(* Variable: sep_com *)
+let sep_com = sep_cont_opt_build ","
+
+(* Variable: sep_eq *)
+let sep_eq = sep_cont_opt_build "="
+
+(* Variable: sep_col *)
+let sep_col = sep_cont_opt_build ":"
+
+(* Variable: sep_dquote *)
+let sep_dquote = Util.del_str "\""
+
+(* Group: Negation expressions *)
+
+(************************************************************************
+ * View: del_negate
+ * Delete an even number of '!' signs
+ *************************************************************************)
+let del_negate = del /(!!)*/ ""
+
+(************************************************************************
+ * View: negate_node
+ * Negation of boolean values for <defaults>. Accept one optional '!'
+ * and produce a 'negate' node if there is one.
+ *************************************************************************)
+let negate_node = [ del "!" "!" . label "negate" ]
+
+(************************************************************************
+ * View: negate_or_value
+ * A <del_negate>, followed by either a negated key, or a key/value pair
+ *************************************************************************)
+let negate_or_value (key:lens) (value:lens) =
+ [ del_negate . (negate_node . key | key . value) ]
+
+(* Group: Stores *)
+
+(* Variable: sto_to_com_cmnd
+sto_to_com_cmnd does not begin or end with a space *)
+
+let sto_to_com_cmnd = del_negate . negate_node? . (
+ let alias = Rx.word - /(NO)?(PASSWD|EXEC|SETENV)/
+ in let non_alias = /[\/a-z]([^,:#()\n\\]|\\\\[=:,\\])*[^,=:#() \t\n\\]|[^,=:#() \t\n\\]/
+ in store (alias | non_alias))
+
+(* Variable: sto_to_com
+
+There could be a \ in the middle of a command *)
+let sto_to_com = store /([^,=:#() \t\n\\][^,=:#()\n]*[^,=:#() \t\n\\])|[^,=:#() \t\n\\]/
+
+(* Variable: sto_to_com_host *)
+let sto_to_com_host = store /[^,=:#() \t\n\\]+/
+
+
+(* Variable: sto_to_com_user
+Escaped spaces and NIS domains and allowed*)
+let sto_to_com_user =
+ let nis_re = /([A-Z]([-A-Z0-9]|(\\\\[ \t]))*+\\\\\\\\)/
+ in let user_re = /[%+@a-z]([-A-Za-z0-9._+]|(\\\\[ \t])|\\\\\\\\[A-Za-z0-9])*/ - /@include(dir)?/
+ in let alias_re = /[A-Z_]+/
+ in store ((nis_re? . user_re) | alias_re)
+
+(* Variable: to_com_chars *)
+let to_com_chars = /[^",=#() \t\n\\]+/ (* " relax emacs *)
+
+(* Variable: to_com_dquot *)
+let to_com_dquot = /"[^",=#()\n\\]+"/ (* " relax emacs *)
+
+(* Variable: sto_to_com_dquot *)
+let sto_to_com_dquot = store (to_com_chars|to_com_dquot)
+
+(* Variable: sto_to_com_col *)
+let sto_to_com_col = store to_com_chars
+
+(* Variable: sto_to_eq *)
+let sto_to_eq = store /[^,=:#() \t\n\\]+/
+
+(* Variable: sto_to_spc *)
+let sto_to_spc = store /[^", \t\n\\]+|"[^", \t\n\\]+"/
+
+(* Variable: sto_to_spc_no_dquote *)
+let sto_to_spc_no_dquote = store /[^",# \t\n\\]+/ (* " relax emacs *)
+
+(* Variable: sto_integer *)
+let sto_integer = store /-?[0-9]+/
+
+
+(* Group: Comments and empty lines *)
+
+(* View: comment
+Map comments in "#comment" nodes *)
+let comment =
+ let sto_to_eol = store (/([^ \t\n].*[^ \t\n]|[^ \t\n])/ - /include(dir)?.*/) in
+ [ label "#comment" . del /[ \t]*#[ \t]*/ "# " . sto_to_eol . eol ]
+
+(* View: comment_eol
+Requires a space before the # *)
+let comment_eol = Util.comment_generic /[ \t]+#[ \t]*/ " # "
+
+(* View: comment_or_eol
+A <comment_eol> or <eol> *)
+let comment_or_eol = comment_eol | (del /([ \t]+#\n|[ \t]*\n)/ "\n")
+
+(* View: empty
+Map empty lines *)
+let empty = [ del /[ \t]*#?[ \t]*\n/ "\n" ]
+
+(* View: includedir *)
+let includedir =
+ [ key /(#|@)include(dir)?/ . Sep.space . store Rx.fspath . eol ]
+
+
+(************************************************************************
+ * Group: ALIASES
+ *************************************************************************)
+
+(************************************************************************
+ * View: alias_field
+ * Generic alias field to gather all Alias definitions
+ *
+ * Definition:
+ * > User_Alias ::= NAME '=' User_List
+ * > Runas_Alias ::= NAME '=' Runas_List
+ * > Host_Alias ::= NAME '=' Host_List
+ * > Cmnd_Alias ::= NAME '=' Cmnd_List
+ *
+ * Parameters:
+ * kw:string - the label string
+ * sto:lens - the store lens
+ *************************************************************************)
+let alias_field (kw:string) (sto:lens) = [ label kw . sto ]
+
+(* View: alias_list
+ List of <alias_fields>, separated by commas *)
+let alias_list (kw:string) (sto:lens) =
+ Build.opt_list (alias_field kw sto) sep_com
+
+(************************************************************************
+ * View: alias_name
+ * Name of an <alias_entry_single>
+ *
+ * Definition:
+ * > NAME ::= [A-Z]([A-Z][0-9]_)*
+ *************************************************************************)
+let alias_name
+ = [ label "name" . store /[A-Z][A-Z0-9_]*/ ]
+
+(************************************************************************
+ * View: alias_entry_single
+ * Single <alias_entry>, named using <alias_name> and listing <alias_list>
+ *
+ * Definition:
+ * > Alias_Type NAME = item1, item2, ...
+ *
+ * Parameters:
+ * field:string - the field name, passed to <alias_list>
+ * sto:lens - the store lens, passed to <alias_list>
+ *************************************************************************)
+let alias_entry_single (field:string) (sto:lens)
+ = [ label "alias" . alias_name . sep_eq . alias_list field sto ]
+
+(************************************************************************
+ * View: alias_entry
+ * Alias entry, a list of comma-separated <alias_entry_single> fields
+ *
+ * Definition:
+ * > Alias_Type NAME = item1, item2, item3 : NAME = item4, item5
+ *
+ * Parameters:
+ * kw:string - the alias keyword string
+ * field:string - the field name, passed to <alias_entry_single>
+ * sto:lens - the store lens, passed to <alias_entry_single>
+ *************************************************************************)
+let alias_entry (kw:string) (field:string) (sto:lens)
+ = [ indent . key kw . sep_cont . alias_entry_single field sto
+ . ( sep_col . alias_entry_single field sto )* . comment_or_eol ]
+
+(* TODO: go further in user definitions *)
+(* View: user_alias
+ User_Alias, see <alias_field> *)
+let user_alias = alias_entry "User_Alias" "user" sto_to_com
+(* View: runas_alias
+ Run_Alias, see <alias_field> *)
+let runas_alias = alias_entry "Runas_Alias" "runas_user" sto_to_com
+(* View: host_alias
+ Host_Alias, see <alias_field> *)
+let host_alias = alias_entry "Host_Alias" "host" sto_to_com
+(* View: cmnd_alias
+ Cmnd_Alias, see <alias_field> *)
+let cmnd_alias = alias_entry "Cmnd_Alias" "command" sto_to_com_cmnd
+
+
+(************************************************************************
+ * View: alias
+ * Every kind of Alias entry,
+ * see <user_alias>, <runas_alias>, <host_alias> and <cmnd_alias>
+ *
+ * Definition:
+ * > Alias ::= 'User_Alias' User_Alias (':' User_Alias)* |
+ * > 'Runas_Alias' Runas_Alias (':' Runas_Alias)* |
+ * > 'Host_Alias' Host_Alias (':' Host_Alias)* |
+ * > 'Cmnd_Alias' Cmnd_Alias (':' Cmnd_Alias)*
+ *************************************************************************)
+let alias = user_alias | runas_alias | host_alias | cmnd_alias
+
+(************************************************************************
+ * Group: DEFAULTS
+ *************************************************************************)
+
+
+(************************************************************************
+ * View: default_type
+ * Type definition for <defaults>
+ *
+ * Definition:
+ * > Default_Type ::= 'Defaults' |
+ * > 'Defaults' '@' Host_List |
+ * > 'Defaults' ':' User_List |
+ * > 'Defaults' '!' Cmnd_List |
+ * > 'Defaults' '>' Runas_List
+ *************************************************************************)
+let default_type =
+ let value = store /[@:!>][^ \t\n\\]+/ in
+ [ label "type" . value ]
+
+(************************************************************************
+ * View: parameter_flag
+ * A flag parameter for <defaults>
+ *
+ * Flags are implicitly boolean and can be turned off via the '!' operator.
+ * Some integer, string and list parameters may also be used in a boolean
+ * context to disable them.
+ *************************************************************************)
+let parameter_flag_kw = "always_set_home" | "authenticate" | "env_editor"
+ | "env_reset" | "fqdn" | "ignore_dot"
+ | "ignore_local_sudoers" | "insults" | "log_host"
+ | "log_year" | "long_otp_prompt" | "mail_always"
+ | "mail_badpass" | "mail_no_host" | "mail_no_perms"
+ | "mail_no_user" | "noexec" | "path_info"
+ | "passprompt_override" | "preserve_groups"
+ | "requiretty" | "root_sudo" | "rootpw" | "runaspw"
+ | "set_home" | "set_logname" | "setenv"
+ | "shell_noargs" | "stay_setuid" | "targetpw"
+ | "tty_tickets" | "visiblepw" | "closefrom_override"
+ | "closefrom_override" | "compress_io" | "fast_glob"
+ | "log_input" | "log_output" | "pwfeedback"
+ | "umask_override" | "use_pty" | "match_group_by_gid"
+ | "always_query_group_plugin"
+
+let parameter_flag = [ del_negate . negate_node?
+ . key parameter_flag_kw ]
+
+(************************************************************************
+ * View: parameter_integer
+ * An integer parameter for <defaults>
+ *************************************************************************)
+let parameter_integer_nobool_kw = "passwd_tries"
+
+let parameter_integer_nobool = [ key parameter_integer_nobool_kw . sep_eq
+ . del /"?/ "" . sto_integer
+ . del /"?/ "" ]
+
+
+let parameter_integer_bool_kw = "loglinelen" | "passwd_timeout"
+ | "timestamp_timeout" | "umask"
+
+let parameter_integer_bool =
+ negate_or_value
+ (key parameter_integer_bool_kw)
+ (sep_eq . del /"?/ "" . sto_integer . del /"?/ "")
+
+let parameter_integer = parameter_integer_nobool
+ | parameter_integer_bool
+
+(************************************************************************
+ * View: parameter_string
+ * A string parameter for <defaults>
+ *
+ * An odd number of '!' operators negate the value of the item;
+ * an even number just cancel each other out.
+ *************************************************************************)
+let parameter_string_nobool_kw = "badpass_message" | "editor" | "mailsub"
+ | "noexec_file" | "passprompt" | "runas_default"
+ | "syslog_badpri" | "syslog_goodpri"
+ | "timestampdir" | "timestampowner" | "secure_path"
+
+let parameter_string_nobool = [ key parameter_string_nobool_kw . sep_eq
+ . sto_to_com_dquot ]
+
+let parameter_string_bool_kw = "exempt_group" | "lecture" | "lecture_file"
+ | "listpw" | "logfile" | "mailerflags"
+ | "mailerpath" | "mailto" | "mailfrom"
+ | "syslog" | "verifypw"
+
+let parameter_string_bool =
+ negate_or_value
+ (key parameter_string_bool_kw)
+ (sep_eq . sto_to_com_dquot)
+
+let parameter_string = parameter_string_nobool
+ | parameter_string_bool
+
+(************************************************************************
+ * View: parameter_lists
+ * A single list parameter for <defaults>
+ *
+ * All lists can be used in a boolean context
+ * The argument may be a double-quoted, space-separated list or a single
+ * value without double-quotes.
+ * The list can be replaced, added to, deleted from, or disabled
+ * by using the =, +=, -=, and ! operators respectively.
+ * An odd number of '!' operators negate the value of the item;
+ * an even number just cancel each other out.
+ *************************************************************************)
+let parameter_lists_kw = "env_check" | "env_delete" | "env_keep"
+let parameter_lists_value = [ label "var" . sto_to_spc_no_dquote ]
+let parameter_lists_value_dquote = [ label "var"
+ . del /"?/ "" . sto_to_spc_no_dquote
+ . del /"?/ "" ]
+
+let parameter_lists_values = parameter_lists_value_dquote
+ | ( sep_dquote . parameter_lists_value
+ . ( sep_cont . parameter_lists_value )+
+ . sep_dquote )
+
+let parameter_lists_sep = sep_cont_opt
+ . ( [ del "+" "+" . label "append" ]
+ | [ del "-" "-" . label "remove" ] )?
+ . del "=" "=" . sep_cont_opt
+
+let parameter_lists =
+ negate_or_value
+ (key parameter_lists_kw)
+ (parameter_lists_sep . parameter_lists_values)
+
+(************************************************************************
+ * View: parameter
+ * A single parameter for <defaults>
+ *
+ * Definition:
+ * > Parameter ::= Parameter '=' Value |
+ * > Parameter '+=' Value |
+ * > Parameter '-=' Value |
+ * > '!'* Parameter
+ *
+ * Parameters may be flags, integer values, strings, or lists.
+ *
+ *************************************************************************)
+let parameter = parameter_flag | parameter_integer
+ | parameter_string | parameter_lists
+
+(************************************************************************
+ * View: parameter_list
+ * A list of comma-separated <parameters> for <defaults>
+ *
+ * Definition:
+ * > Parameter_List ::= Parameter |
+ * > Parameter ',' Parameter_List
+ *************************************************************************)
+let parameter_list = parameter . ( sep_com . parameter )*
+
+(************************************************************************
+ * View: defaults
+ * A Defaults entry
+ *
+ * Definition:
+ * > Default_Entry ::= Default_Type Parameter_List
+ *************************************************************************)
+let defaults = [ indent . key "Defaults" . default_type? . sep_cont
+ . parameter_list . comment_or_eol ]
+
+
+
+(************************************************************************
+ * Group: USER SPECIFICATION
+ *************************************************************************)
+
+(************************************************************************
+ * View: runas_spec
+ * A runas specification for <spec>, using <alias_list> for listing
+ * users and/or groups used to run a command
+ *
+ * Definition:
+ * > Runas_Spec ::= '(' Runas_List ')' |
+ * > '(:' Runas_List ')' |
+ * > '(' Runas_List ':' Runas_List ')'
+ *************************************************************************)
+let runas_spec_user = alias_list "runas_user" sto_to_com
+let runas_spec_group = Util.del_str ":" . indent
+ . alias_list "runas_group" sto_to_com
+
+let runas_spec_usergroup = runas_spec_user . indent . runas_spec_group
+
+let runas_spec = Util.del_str "("
+ . (runas_spec_user
+ | runas_spec_group
+ | runas_spec_usergroup )
+ . Util.del_str ")" . sep_cont_opt
+
+(************************************************************************
+ * View: tag_spec
+ * Tag specification for <spec>
+ *
+ * Definition:
+ * > Tag_Spec ::= ('NOPASSWD:' | 'PASSWD:' | 'NOEXEC:' | 'EXEC:' |
+ * > 'SETENV:' | 'NOSETENV:')
+ *************************************************************************)
+let tag_spec =
+ [ label "tag" . store /(NO)?(PASSWD|EXEC|SETENV)/ . sep_col ]
+
+(************************************************************************
+ * View: cmnd_spec
+ * Command specification for <spec>,
+ * with optional <runas_spec> and any amount of <tag_specs>
+ *
+ * Definition:
+ * > Cmnd_Spec ::= Runas_Spec? Tag_Spec* Cmnd
+ *************************************************************************)
+let cmnd_spec =
+ [ label "command" . runas_spec? . tag_spec* . sto_to_com_cmnd ]
+
+(************************************************************************
+ * View: cmnd_spec_list
+ * A list of comma-separated <cmnd_specs>
+ *
+ * Definition:
+ * > Cmnd_Spec_List ::= Cmnd_Spec |
+ * > Cmnd_Spec ',' Cmnd_Spec_List
+ *************************************************************************)
+let cmnd_spec_list = Build.opt_list cmnd_spec sep_com
+
+
+(************************************************************************
+ * View: spec_list
+ * Group of hosts with <cmnd_spec_list>
+ *************************************************************************)
+let spec_list = [ label "host_group" . alias_list "host" sto_to_com_host
+ . sep_eq . cmnd_spec_list ]
+
+(************************************************************************
+ * View: spec
+ * A user specification, listing colon-separated <spec_lists>
+ *
+ * Definition:
+ * > User_Spec ::= User_List Host_List '=' Cmnd_Spec_List \
+ * > (':' Host_List '=' Cmnd_Spec_List)*
+ *************************************************************************)
+let spec = [ label "spec" . indent
+ . alias_list "user" sto_to_com_user . sep_cont
+ . Build.opt_list spec_list sep_col
+ . comment_or_eol ]
+
+
+(************************************************************************
+ * Group: LENS & FILTER
+ *************************************************************************)
+
+(* View: lns
+ The sudoers lens, any amount of
+ * <empty> lines
+ * <comments>
+ * <includedirs>
+ * <aliases>
+ * <defaults>
+ * <specs>
+*)
+let lns = ( empty | comment | includedir | alias | defaults | spec )*
+
+(* View: filter *)
+let filter = (incl "/etc/sudoers")
+ . (incl "/usr/local/etc/sudoers")
+ . (incl "/etc/sudoers.d/*")
+ . (incl "/usr/local/etc/sudoers.d/*")
+ . (incl "/opt/csw/etc/sudoers")
+ . (incl "/etc/opt/csw/sudoers")
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/sysconfig.aug b/Sharp.Augeas.Test/lens/sysconfig.aug
new file mode 100644
index 0000000..5fd6c38
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/sysconfig.aug
@@ -0,0 +1,74 @@
+(* Variation of the Shellvars lens *)
+(* Supports only what's needed to handle sysconfig files *)
+(* Modified to strip quotes. In the put direction, add double quotes *)
+(* around values that need them *)
+(* To keep things simple, we also do not support shell variable arrays *)
+module Sysconfig =
+
+ let eol = Shellvars.eol
+ let semicol_eol = Shellvars.semicol_eol
+
+ let key_re = Shellvars.key_re
+ let eq = Util.del_str "="
+
+ let eol_for_comment = del /([ \t]*\n)([ \t]*(#[ \t]*)?\n)*/ "\n"
+ let comment = Util.comment_generic_seteol /[ \t]*#[ \t]*/ "# " eol_for_comment
+ let comment_or_eol = Shellvars.comment_or_eol
+
+ let empty = Util.empty
+
+ let bchar = /[^; \t\n"'\\]|\\\\./ (* " Emacs, relax *)
+ let qchar = /["']/ (* " Emacs, relax *)
+
+ (* We split the handling of right hand sides into a few cases:
+ * bare - strings that contain no spaces, optionally enclosed in
+ * single or double quotes
+ * quot - strings that must be enclosed in single or double quotes
+ * dquot - strings that contain at least one space or apostrophe,
+ * which must be enclosed in double quotes
+ * squot - strings that contain an unescaped double quote
+ *)
+ let bare = Quote.do_quote_opt (store bchar+)
+
+ let quot =
+ let word = bchar* . /[; \t]/ . bchar* in
+ Quote.do_quote (store word+)
+
+ let dquot =
+ let char = /[^"\\]|\\\\./ in (* " *)
+ let word = char* . "'" . char* in
+ Quote.do_dquote (store word+)
+
+ let squot =
+ (* We do not allow escaped double quotes in single quoted strings, as *)
+ (* that leads to a put ambiguity with bare, e.g. for the string '\"'. *)
+ let char = /[^'\\]|\\\\[^"]/ in (* " *)
+ let word = char* . "\"" . char* in
+ Quote.do_squote (store word+)
+
+ let kv (value:lens) =
+ let export = Shellvars.export in
+ let indent = Util.del_opt_ws "" in
+ [ indent . export? . key key_re . eq . value . comment_or_eol ]
+
+ let assign =
+ let nothing = del /(""|'')?/ "" . value "" in
+ kv nothing | kv bare | kv quot | kv dquot | kv squot
+
+ let var_action = Shellvars.var_action
+
+ let unset = [ var_action "unset" . comment_or_eol ]
+ let bare_export = [ var_action "export" . comment_or_eol ]
+
+ let source = [ Shellvars.source . comment_or_eol ]
+
+ let lns = empty* . (comment | source | assign | unset | bare_export)*
+
+(*
+ Examples:
+
+ abc -> abc -> abc
+ "abc" -> abc -> abc
+ "a b" -> a b -> "a b"
+ 'a"b' -> a"b -> 'a"b'
+*)
diff --git a/Sharp.Augeas.Test/lens/sysconfig_route.aug b/Sharp.Augeas.Test/lens/sysconfig_route.aug
new file mode 100644
index 0000000..d3222e8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/sysconfig_route.aug
@@ -0,0 +1,78 @@
+(*
+Module: Sysconfig_Route
+ Parses /etc/sysconfig/network-scripts/route-${device}
+
+Author: Stephen P. Schaefer
+
+About: Reference
+ This lens allows manipulation of *one* IPv4 variant of the
+/etc/sysconfig/network-scripts/route-${device} script found in RHEL5+, CentOS5+
+and Fedora.
+
+ The variant handled consists of lines like
+ "destination_subnet/cidr via router_ip", e.g.,
+ "10.132.11.0/24 via 10.10.2.1"
+
+ There are other variants; if you use them, please enhance this lens.
+
+ The natural key would be "10.132.11.0/24" with value "10.10.2.1", but since
+ augeas cannot deal with slashes in the key value, I reverse them, so that the
+ key is "10.10.2.1[1]" (and "10.10.2.1[2]"... if multiple subnets are reachable
+ via that router).
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ Sample usage of this lens in augtool
+
+ * Set the first subnet reachable by a router reachable on the eth0 subnet
+ > set /files/etc/sysconfig/network-scripts/route-eth0/10.10.2.1[1] 172.16.254.0/24
+ * List all the subnets reachable by a router reachable on eth0 subnet
+ > match /files/etc/sysconfig/network-scripts/route-eth0/10.10.2.1
+
+About: Configuration files
+ This lens applies to /etc/sysconfig/network-scripts/route-*
+
+About: Examples
+ The <Test_Sysconfig_Route> file contains various examples and tests.
+*)
+
+module Sysconfig_Route =
+ autoload xfm
+
+(******************************************************************************
+ * Group: USEFUL PRIMITIVES
+ ******************************************************************************)
+
+(* Variable: router
+ A router *)
+let router = Rx.ipv4
+(* Variable: cidr
+ A subnet mask can be 0 to 32 bits *)
+let cidr = /(3[012]|[12][0-9]|[0-9])/
+(* Variable: subnet
+ Subnet specification *)
+let subnet = Rx.ipv4 . "/" . cidr
+
+(******************************************************************************
+ * Group: ENTRY TYPES
+ ******************************************************************************)
+
+(* View: entry
+ One route *)
+let entry = [ store subnet . del /[ \t]*via[ \t]*/ " via "
+ . key router . Util.del_str "\n" ]
+
+(******************************************************************************
+ * Group: LENS AND FILTER
+ ******************************************************************************)
+
+(* View: lns *)
+let lns = entry+
+
+(* View: filter *)
+let filter = incl "/etc/sysconfig/network-scripts/route-*"
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/sysctl.aug b/Sharp.Augeas.Test/lens/sysctl.aug
new file mode 100644
index 0000000..2803145
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/sysctl.aug
@@ -0,0 +1,40 @@
+(*
+Module: Sysctl
+ Parses /etc/sysctl.conf and /etc/sysctl.d/*
+
+Author: David Lutterkort <lutter@redhat.com>
+
+About: Reference
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/sysctl.conf and /etc/sysctl.d/*. See <filter>.
+
+About: Examples
+ The <Test_Sysctl> file contains various examples and tests.
+*)
+
+module Sysctl =
+autoload xfm
+
+(* Variable: filter *)
+let filter = incl "/boot/loader.conf"
+ . incl "/etc/sysctl.conf"
+ . incl "/etc/sysctl.d/*"
+ . excl "/etc/sysctl.d/README"
+ . excl "/etc/sysctl.d/README.sysctl"
+ . Util.stdexcl
+
+(* View: comment *)
+let comment = Util.comment_generic /[ \t]*[#;][ \t]*/ "# "
+
+(* View: lns
+ The sysctl lens *)
+let lns = (Util.empty | comment | Simplevars.entry)*
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/syslog.aug b/Sharp.Augeas.Test/lens/syslog.aug
new file mode 100644
index 0000000..bf5f7b4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/syslog.aug
@@ -0,0 +1,269 @@
+(*
+Module: Syslog
+ parses /etc/syslog.conf
+
+Author: Mathieu Arnold <mat@FreeBSD.org>
+
+About: Reference
+ This lens tries to keep as close as possible to `man 5 resolv.conf` where possible.
+ An online source being :
+ http://www.freebsd.org/cgi/man.cgi?query=syslog.conf&sektion=5
+
+About: Licence
+ This file is licensed under the BSD License.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /etc/syslog.conf. See <filter>.
+
+ *)
+module Syslog =
+ autoload xfm
+
+ (************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+ (* Group: Comments and empty lines *)
+
+ (* Variable: empty *)
+ let empty = Util.empty
+ (* Variable: eol *)
+ let eol = Util.eol
+ (* Variable: sep_tab *)
+ let sep_tab = del /([ \t]+|[ \t]*\\\\\n[ \t]*)/ "\t"
+
+ (* Variable: sep_tab_opt *)
+ let sep_tab_opt = del /([ \t]*|[ \t]*\\\\\n[ \t]*)/ ""
+
+ (* View: comment
+ Map comments into "#comment" nodes
+ Can't use Util.comment as #+ and #! have a special meaning.
+ However, '# !' and '# +' have no special meaning so they should be allowed.
+ *)
+
+ let comment_gen (space:regexp) (sto:regexp) =
+ [ label "#comment" . del (Rx.opt_space . "#" . space) "# "
+ . store sto . eol ]
+
+ let comment =
+ let comment_withsign = comment_gen Rx.space /([!+-].*[^ \t\n]|[!+-])/
+ in let comment_nosign = comment_gen Rx.opt_space /([^ \t\n+!-].*[^ \t\n]|[^ \t\n+!-])/
+ in comment_withsign | comment_nosign
+
+ (* Group: single characters macro *)
+
+ (* Variable: comma
+ Deletes a comma and default to it
+ *)
+ let comma = sep_tab_opt . Util.del_str "," . sep_tab_opt
+ (* Variable: colon
+ Deletes a colon and default to it
+ *)
+ let colon = sep_tab_opt . Util.del_str ":" . sep_tab_opt
+ (* Variable: semicolon
+ Deletes a semicolon and default to it
+ *)
+ let semicolon = sep_tab_opt . Util.del_str ";" . sep_tab_opt
+ (* Variable: dot
+ Deletes a dot and default to it
+ *)
+ let dot = Util.del_str "."
+ (* Variable: pipe
+ Deletes a pipe and default to it
+ *)
+ let pipe = Util.del_str "|"
+ (* Variable: plus
+ Deletes a plus and default to it
+ *)
+ let plus = Util.del_str "+"
+ (* Variable: bang
+ Deletes a bang and default to it
+ *)
+ let bang = Util.del_str "!"
+
+ (* Variable: opt_hash
+ deletes an optional # sign
+ *)
+ let opt_hash = del /#?/ ""
+ (* Variable: opt_plus
+ deletes an optional + sign
+ *)
+ let opt_plus = del /\+?/ ""
+
+ (* Group: various macros *)
+
+ (* Variable: word
+ our version can't start with [_.-] because it would mess up the grammar
+ *)
+ let word = /[A-Za-z0-9][A-Za-z0-9_.-]*/
+
+ (* Variable: comparison
+ a comparison is an optional ! with optionally some of [<=>]
+ *)
+ let comparison = /(!|[<=>]+|![<=>]+)/
+
+ (* Variable: protocol
+ @ means UDP
+ @@ means TCP
+ *)
+ let protocol = /@{1,2}/
+
+ (* Variable: token
+ alphanum or "*"
+ *)
+ let token = /([A-Za-z0-9]+|\*)/
+
+ (* Variable: file_r
+ a file begins with a / and get almost anything else after
+ *)
+ let file_r = /\/[^ \t\n;]+/
+
+ (* Variable: loghost_r
+ Matches a hostname, that is labels speparated by dots, labels can't
+ start or end with a "-". maybe a bit too complicated for what it's worth *)
+ let loghost_r = /[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?(\.[a-zA-Z0-9]([a-zA-Z0-9-]*[a-zA-Z0-9])?)*/ |
+ "[" . Rx.ipv6 . "]"
+
+ (* Group: Function *)
+
+ (* View: label_opt_list
+ Uses Build.opt_list to generate a list of labels
+
+ Parameters:
+ l:string - the label name
+ r:lens - the lens going after the label
+ s:lens - the separator lens passed to Build.opt_list
+ *)
+ let label_opt_list (l:string) (r:lens) (s:lens) = Build.opt_list [ label l . r ] s
+
+ (* View: label_opt_list_or
+ Either label_opt_list matches something or it emits a single label
+ with the "or" string.
+
+ Parameters:
+ l:string - the label name
+ r:lens - the lens going after the label
+ s:lens - the separator lens passed to Build.opt_list
+ or:string - the string used if the label_opt_list does not match anything
+ *)
+ let label_opt_list_or (l:string) (r:lens) (s:lens) (or:string) =
+ ( label_opt_list l r s | [ label l . store or ] )
+
+
+ (************************************************************************
+ * Group: LENSE DEFINITION
+ *************************************************************************)
+
+ (* Group: selector *)
+
+ (* View: facilities
+ a list of facilities, separated by commas
+ *)
+ let facilities = label_opt_list "facility" (store token) comma
+
+ (* View: selector
+ a selector is a list of facilities, an optional comparison and a level
+ *)
+ let selector = facilities . dot .
+ [ label "comparison" . store comparison]? .
+ [ label "level" . store token ]
+
+ (* View: selectors
+ a list of selectors, separated by semicolons
+ *)
+ let selectors = label_opt_list "selector" selector semicolon
+
+ (* Group: action *)
+
+ (* View: file
+ a file may start with a "-" meaning it does not gets sync'ed everytime
+ *)
+ let file = [ Build.xchgs "-" "no_sync" ]? . [ label "file" . store file_r ]
+
+ (* View: loghost
+ a loghost is an @ sign followed by the hostname and a possible port
+ *)
+ let loghost = [label "protocol" . store protocol] . [ label "hostname" . store loghost_r ] .
+ (colon . [ label "port" . store /[0-9]+/ ] )?
+
+ (* View: users
+ a list of users or a "*"
+ *)
+ let users = label_opt_list_or "user" (store word) comma "*"
+
+ (* View: logprogram
+ a log program begins with a pipe
+ *)
+ let logprogram = pipe . [ label "program" . store /[^ \t\n][^\n]+[^ \t\n]/ ]
+
+ (* View: discard
+ discards matching messages
+ *)
+ let discard = [ label "discard" . Util.del_str "~" ]
+
+ (* View: action
+ an action is either a file, a host, users, a program, or discard
+ *)
+ let action = (file | loghost | users | logprogram | discard)
+
+ (* Group: Entry *)
+
+ (* View: entry
+ an entry contains selectors and an action
+ *)
+ let entry = [ label "entry" .
+ selectors . sep_tab .
+ [ label "action" . action ] . eol ]
+
+ (* View: entries
+ entries are either comments/empty lines or entries
+ *)
+ let entries = (empty | comment | entry )*
+
+ (* Group: Program matching *)
+
+ (* View: programs
+ a list of programs
+ *)
+ let programs = label_opt_list_or "program" (store word) comma "*"
+
+ (* View: program
+ a program begins with an optional hash, a bang, and an optional + or -
+ *)
+ let program = [ label "program" . opt_hash . bang .
+ ( opt_plus | [ Build.xchgs "-" "reverse" ] ) .
+ programs . eol . entries ]
+
+ (* Group: Hostname maching *)
+
+ (* View: hostnames
+ a list of hostnames
+ *)
+ let hostnames = label_opt_list_or "hostname" (store Rx.word) comma "*"
+
+ (* View: hostname
+ a program begins with an optional hash, and a + or -
+ *)
+ let hostname = [ label "hostname" . opt_hash .
+ ( plus | [ Build.xchgs "-" "reverse" ] ) .
+ hostnames . eol . entries ]
+
+ (* Group: Top of the tree *)
+
+ let include =
+ [ key "include" . sep_tab . store file_r . eol ]
+
+ (* View: lns
+ generic entries then programs or hostnames matching blocs
+ *)
+ let lns = entries . ( program | hostname | include )*
+
+ (* Variable: filter
+ all you need is /etc/syslog.conf
+ *)
+ let filter = incl "/etc/syslog.conf"
+
+ let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/systemd.aug b/Sharp.Augeas.Test/lens/systemd.aug
new file mode 100644
index 0000000..42258d9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/systemd.aug
@@ -0,0 +1,184 @@
+(*
+Module: Systemd
+ Parses systemd unit files.
+
+Author: Dominic Cleal <dcleal@redhat.com>
+
+About: Reference
+ This lens tries to keep as close as possible to systemd.unit(5) and
+ systemd.service(5) etc where possible.
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+
+About: Lens Usage
+ To be documented
+
+About: Configuration files
+ This lens applies to /lib/systemd/system/* and /etc/systemd/system/*.
+ See <filter>.
+*)
+
+module Systemd =
+autoload xfm
+
+(************************************************************************
+ * Group: USEFUL PRIMITIVES
+ *************************************************************************)
+
+(* View: eol *)
+let eol = Util.eol
+
+(* View: eol_comment
+ An <IniFile.comment> entry for standalone comment lines (; or #) *)
+let comment = IniFile.comment IniFile.comment_re "#"
+
+(* View: eol_comment
+ An <IniFile.comment> entry for end of line comments (# only) *)
+let eol_comment = IniFile.comment "#" "#"
+
+(* View: sep
+ An <IniFile.sep> entry *)
+let sep = IniFile.sep "=" "="
+
+(* Variable: entry_single_kw *)
+let entry_single_kw = "Description"
+
+(* Variable: entry_command_kw *)
+let entry_command_kw = /Exec[A-Za-z][A-Za-z0-9._-]+/
+
+(* Variable: entry_env_kw *)
+let entry_env_kw = "Environment"
+
+(* Variable: entry_multi_kw *)
+let entry_multi_kw =
+ let forbidden = entry_single_kw | entry_command_kw | entry_env_kw
+ in /[A-Za-z][A-Za-z0-9._-]+/ - forbidden
+
+(* Variable: value_single_re *)
+let value_single_re = /[^# \t\n\\][^#\n\\]*[^# \t\n\\]|[^# \t\n\\]/
+
+(* View: sto_value_single
+ Support multiline values with a backslash *)
+let sto_value_single = Util.del_opt_ws ""
+ . store (value_single_re
+ . (/\\\\\n/ . value_single_re)*)
+
+(* View: sto_value *)
+let sto_value = store /[^# \t\n]*[^# \t\n\\]/
+
+(* Variable: value_sep
+ Multi-value entries separated by whitespace or backslash and newline *)
+let value_sep = del /[ \t]+|[ \t]*\\\\[ \t]*\n[ \t]*/ " "
+
+(* Variable: value_cmd_re
+ Don't parse @ and - prefix flags *)
+let value_cmd_re = /[^#@ \t\n\\-][^#@ \t\n\\-][^# \t\n\\]*/
+
+(* Variable: env_key *)
+let env_key = /[A-Za-z0-9_]+(\[[0-9]+\])?/
+
+(************************************************************************
+ * Group: ENTRIES
+ *************************************************************************)
+
+(*
+Supported entry features, selected by key names:
+ * multi-value space separated attrs (the default)
+ * single-value attrs (Description)
+ * systemd.service: Exec* attrs with flags, command and arguments
+ * systemd.service: Environment NAME=arg
+*)
+
+(* View: entry_fn
+ Prototype for our various key=value lines, with optional comment *)
+let entry_fn (kw:regexp) (val:lens) =
+ [ key kw . sep . val . (eol_comment|eol) ]
+
+(* View: entry_value
+ Store a value that doesn't contain spaces *)
+let entry_value = [ label "value" . sto_value ]
+
+(* View: entry_single
+ Entry that takes a single value containing spaces *)
+let entry_single = entry_fn entry_single_kw
+ [ label "value" . sto_value_single ]?
+
+(* View: entry_command
+ Entry that takes a space separated set of values (the default) *)
+let entry_multi = entry_fn entry_multi_kw
+ ( Util.del_opt_ws ""
+ . Build.opt_list entry_value value_sep )?
+
+(* View: entry_command_flags
+ Exec* flags "@" and "-". Order is important, see systemd.service(8) *)
+let entry_command_flags =
+ let exit = [ label "ignoreexit" . Util.del_str "-" ]
+ in let arg0 = [ label "arg0" . Util.del_str "@" ]
+ in exit? . arg0?
+
+(* View: entry_command
+ Entry that takes a command, arguments and the optional prefix flags *)
+let entry_command =
+ let cmd = [ label "command" . store value_cmd_re ]
+ in let arg = [ seq "args" . sto_value ]
+ in let args = [ counter "args" . label "arguments"
+ . (value_sep . arg)+ ]
+ in entry_fn entry_command_kw ( entry_command_flags . cmd . args? )?
+
+(* View: entry_env
+ Entry that takes a space separated set of ENV=value key/value pairs *)
+let entry_env =
+ let envkv (env_val:lens) = key env_key . Util.del_str "=" . env_val
+ (* bare has no spaces, and is optionally quoted *)
+ in let bare = Quote.do_quote_opt (envkv (store /[^#'" \t\n]*[^#'" \t\n\\]/)?)
+ in let bare_dqval = envkv (store /"[^#"\t\n]*[^#"\t\n\\]"/)
+ in let bare_sqval = envkv (store /'[^#'\t\n]*[^#'\t\n\\]'/)
+ (* quoted has at least one space, and must be quoted *)
+ in let quoted = Quote.do_quote (envkv (store /[^#"'\n]*[ \t]+[^#"'\n]*/))
+ in let envkv_quoted = [ bare ] | [ bare_dqval ] | [ bare_sqval ] | [ quoted ]
+ in entry_fn entry_env_kw ( Build.opt_list envkv_quoted value_sep )
+
+
+(************************************************************************
+ * Group: LENS
+ *************************************************************************)
+
+(* View: entry
+ An <IniFile.entry> *)
+let entry = entry_single | entry_multi | entry_command | entry_env | comment
+
+(* View: include
+ Includes another file at this position *)
+let include = [ key ".include" . Util.del_ws_spc . sto_value
+ . (eol_comment|eol) ]
+
+(* View: title
+ An <IniFile.title> *)
+let title = IniFile.title IniFile.record_re
+
+(* View: record
+ An <IniFile.record> *)
+let record = IniFile.record title (entry|include)
+
+(* View: lns
+ An <IniFile.lns> *)
+let lns = IniFile.lns record (comment|include)
+
+(* View: filter *)
+let filter = incl "/lib/systemd/system/*"
+ . incl "/lib/systemd/system/*/*"
+ . incl "/etc/systemd/system/*"
+ . incl "/etc/systemd/system/*/*"
+ . incl "/etc/systemd/logind.conf"
+ . incl "/etc/sysconfig/*.systemd"
+ . incl "/lib/systemd/network/*"
+ . incl "/usr/local/lib/systemd/network/*"
+ . incl "/etc/systemd/network/*"
+ . excl "/lib/systemd/system/*.d"
+ . excl "/etc/systemd/system/*.d"
+ . excl "/lib/systemd/system/*.wants"
+ . excl "/etc/systemd/system/*.wants"
+ . Util.stdexcl
+
+let xfm = transform lns filter
diff --git a/Sharp.Augeas.Test/lens/termcap.aug b/Sharp.Augeas.Test/lens/termcap.aug
new file mode 100644
index 0000000..13e96d2
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/termcap.aug
@@ -0,0 +1,34 @@
+(*
+Module: Termcap
+ Parses termcap capability database
+
+Author: Matt Dainty <matt@bodgit-n-scarper.com>
+
+About: Reference
+ - man 5 termcap
+
+Each line represents a record consisting of a number of ':'-separated fields
+the first of which is the name or identifier for the record. The name can
+optionally be split by '|' and each subsequent value is considered an alias
+of the first. Records can be split across multiple lines with '\'.
+
+*)
+
+module Termcap =
+ autoload xfm
+
+ (* All termcap capabilities are two characters, optionally preceded by *)
+ (* upto two periods and the only types are boolean, numeric or string *)
+ let cfield = /\.{0,2}([a-zA-Z0-9]{2}|[@#%&*!][a-zA-Z0-9]|k;)(#?@|#[0-9]+|=([^:\\\\^]|\\\\[0-7]{3}|\\\\[:bBcCeEfFnNrRstT0\\^]|\^.)*)?/
+
+ let lns = ( Util.empty | Getcap.comment | Getcap.record cfield )*
+
+ let filter = incl "/etc/termcap"
+ . incl "/usr/share/misc/termcap"
+ . Util.stdexcl
+
+ let xfm = transform lns filter
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_access.aug b/Sharp.Augeas.Test/lens/tests/test_access.aug
new file mode 100644
index 0000000..2dcd8c8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_access.aug
@@ -0,0 +1,120 @@
+(*
+Module: Test_Access
+ Provides unit tests and examples for the <Access> lens.
+*)
+
+module Test_access =
+
+(* Variable: conf
+ A full configuration *)
+let conf = "+ : ALL : LOCAL
++ : root : localhost.localdomain
+- : root : 127.0.0.1 .localdomain
++ : root alice@server1 @admins (wheel) : cron crond :0 tty1 tty2 tty3 tty4 tty5 tty6
+# IP v6 support
++ : john foo : 2001:4ca0:0:101::1 2001:4ca0:0:101::/64
+# Except
++ : ALL EXCEPT john @wheel : ALL EXCEPT LOCAL .win.tue.nl
+# No spaces
++:root:.example.com
+"
+
+(* Test: Access.lns
+ Test the full <conf> *)
+test Access.lns get conf =
+ { "access" = "+"
+ { "user" = "ALL" }
+ { "origin" = "LOCAL" } }
+ { "access" = "+"
+ { "user" = "root" }
+ { "origin" = "localhost.localdomain" } }
+ { "access" = "-"
+ { "user" = "root" }
+ { "origin" = "127.0.0.1" }
+ { "origin" = ".localdomain" } }
+ { "access" = "+"
+ { "user" = "root" }
+ { "user" = "alice"
+ { "host" = "server1" } }
+ { "netgroup" = "admins" }
+ { "group" = "wheel" }
+ { "origin" = "cron" }
+ { "origin" = "crond" }
+ { "origin" = ":0" }
+ { "origin" = "tty1" }
+ { "origin" = "tty2" }
+ { "origin" = "tty3" }
+ { "origin" = "tty4" }
+ { "origin" = "tty5" }
+ { "origin" = "tty6" } }
+ { "#comment" = "IP v6 support" }
+ { "access" = "+"
+ { "user" = "john" }
+ { "user" = "foo" }
+ { "origin" = "2001:4ca0:0:101::1" }
+ { "origin" = "2001:4ca0:0:101::/64" } }
+ { "#comment" = "Except" }
+ { "access" = "+"
+ { "user" = "ALL" }
+ { "except"
+ { "user" = "john" }
+ { "netgroup" = "wheel" } }
+ { "origin" = "ALL" }
+ { "except"
+ { "origin" = "LOCAL" }
+ { "origin" = ".win.tue.nl" } } }
+ { "#comment" = "No spaces" }
+ { "access" = "+"
+ { "user" = "root" }
+ { "origin" = ".example.com" } }
+
+test Access.lns put conf after
+ insa "access" "access[last()]" ;
+ set "access[last()]" "-" ;
+ set "access[last()]/user" "ALL" ;
+ set "access[last()]/origin" "ALL"
+ = "+ : ALL : LOCAL
++ : root : localhost.localdomain
+- : root : 127.0.0.1 .localdomain
++ : root alice@server1 @admins (wheel) : cron crond :0 tty1 tty2 tty3 tty4 tty5 tty6
+# IP v6 support
++ : john foo : 2001:4ca0:0:101::1 2001:4ca0:0:101::/64
+# Except
++ : ALL EXCEPT john @wheel : ALL EXCEPT LOCAL .win.tue.nl
+# No spaces
++:root:.example.com
+- : ALL : ALL
+"
+
+(* Test: Access.lns
+ - netgroups (starting with '@') are mapped as "netgroup" nodes;
+ - nisdomains (starting with '@@') are mapped as "nisdomain" nodes.
+
+ This closes <ticket #190 at https://fedorahosted.org/augeas/ticket/190>.
+ *)
+test Access.lns get "+ : @group@@domain : ALL \n" =
+ { "access" = "+"
+ { "netgroup" = "group"
+ { "nisdomain" = "domain" } }
+ { "origin" = "ALL" } }
+
+(* Test Access.lns
+ Put test for netgroup and nisdomain *)
+test Access.lns put "+ : @group : ALL \n" after
+ set "/access/netgroup[. = 'group']/nisdomain" "domain" =
+"+ : @group@@domain : ALL \n"
+
+(* Check DOMAIN\user style entry *)
+test Access.lns get "+ : root : foo1.bar.org foo3.bar.org
++ : (DOMAIN\linux_users) : ALL
++ : DOMAIN\linux_user : ALL\n" =
+ { "access" = "+"
+ { "user" = "root" }
+ { "origin" = "foo1.bar.org" }
+ { "origin" = "foo3.bar.org" } }
+ { "access" = "+"
+ { "group" = "DOMAIN\linux_users" }
+ { "origin" = "ALL" } }
+ { "access" = "+"
+ { "user" = "DOMAIN\linux_user" }
+ { "origin" = "ALL" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_activemq_conf.aug b/Sharp.Augeas.Test/lens/tests/test_activemq_conf.aug
new file mode 100644
index 0000000..8443e2f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_activemq_conf.aug
@@ -0,0 +1,35 @@
+(*
+Module: Test_ActiveMQ_Conf
+ Provides unit tests and examples for the <ActiveMQ_Conf> lens.
+*)
+
+module Test_ActiveMQ_Conf =
+
+(* Variable: conf *)
+let conf = "
+ACTIVEMQ_HOME=/usr/share/activemq
+ACTIVEMQ_BASE=${ACTIVEMQ_HOME}
+"
+
+(* Variable: new_conf *)
+let new_conf = "
+ACTIVEMQ_HOME=/usr/local/share/activemq
+ACTIVEMQ_BASE=${ACTIVEMQ_HOME}
+"
+
+let lns = ActiveMQ_Conf.lns
+
+(* Test: ActiveMQ_Conf.lns
+ * Get test against tree structure
+*)
+test lns get conf =
+ { }
+ { "ACTIVEMQ_HOME" = "/usr/share/activemq" }
+ { "ACTIVEMQ_BASE" = "${ACTIVEMQ_HOME}" }
+
+(* Test: ActiveMQ_Conf.lns
+ * Put test changing user to nobody
+*)
+test lns put conf after set "/ACTIVEMQ_HOME" "/usr/local/share/activemq" = new_conf
+
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_activemq_xml.aug b/Sharp.Augeas.Test/lens/tests/test_activemq_xml.aug
new file mode 100644
index 0000000..c31a5b6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_activemq_xml.aug
@@ -0,0 +1,65 @@
+(*
+Module: Test_ActiveMQ_XML
+ Provides unit tests and examples for the <ActiveMQ_XML> lens.
+*)
+
+module Test_ActiveMQ_XML =
+
+(* Variable: conf *)
+let conf = "<beans>
+ <broker xmlns=\"http://activemq.apache.org/schema/core\" brokerName=\"localhost\" dataDirectory=\"${activemq.data}\">
+ <transportConnectors>
+ <transportConnector name=\"openwire\" uri=\"tcp://0.0.0.0:61616\"/>
+ </transportConnectors>
+ </broker>
+</beans>
+"
+
+(* Variable: new_conf *)
+let new_conf = "<beans>
+ <broker xmlns=\"http://activemq.apache.org/schema/core\" brokerName=\"localhost\" dataDirectory=\"${activemq.data}\">
+ <transportConnectors>
+ <transportConnector name=\"openwire\" uri=\"tcp://127.0.0.1:61616\"/>
+ </transportConnectors>
+ </broker>
+</beans>
+"
+
+let lns = ActiveMQ_XML.lns
+
+(* Test: ActiveMQ_XML.lns
+ * Get test against tree structure
+*)
+test lns get conf =
+ { "beans"
+ { "#text" = "
+ " }
+ { "broker"
+ { "#attribute"
+ { "xmlns" = "http://activemq.apache.org/schema/core" }
+ { "brokerName" = "localhost" }
+ { "dataDirectory" = "${activemq.data}" }
+ }
+ { "#text" = "
+ " }
+ { "transportConnectors"
+ { "#text" = "
+ " }
+ { "transportConnector" = "#empty"
+ { "#attribute"
+ { "name" = "openwire" }
+ { "uri" = "tcp://0.0.0.0:61616" }
+ }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = " " }
+ }
+ }
+
+(* Test: ActiveMQ_XML.lns
+ * Put test changing transport connector to localhost
+*)
+test lns put conf after set "/beans/broker/transportConnectors/transportConnector/#attribute/uri" "tcp://127.0.0.1:61616" = new_conf
+
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_afs_cellalias.aug b/Sharp.Augeas.Test/lens/tests/test_afs_cellalias.aug
new file mode 100644
index 0000000..891a346
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_afs_cellalias.aug
@@ -0,0 +1,42 @@
+(*
+Module: Test_AFS_cellalias
+ Provides unit tests and examples for the <AFS_cellalias> lens.
+*)
+
+module Test_AFS_cellalias =
+
+(* Variable: conf
+ A full configuration *)
+let conf = "# Cell Aliases are meant to act like symlinks like '/afs/openafs.org -> oao'
+# in root.afs, so sites relying on such a link for their cell can use dynroot.
+# These aliases are set with 'fs newalias', or read from
+# /usr/vice/etc/CellAlias
+#
+# Formatting for /usr/vice/etc/CellAlias is in the form
+# <target> <alias>
+# an example would be
+# fnal.gov/common/usr usr
+
+fnal.gov fnal
+fnal.gov/files fnal-files
+"
+
+(* Test: AFS_cellalias.lns
+ Test the full <conf> *)
+test AFS_cellalias.lns get conf = { "#comment" = "Cell Aliases are meant to act like symlinks like '/afs/openafs.org -> oao'" }
+ { "#comment" = "in root.afs, so sites relying on such a link for their cell can use dynroot." }
+ { "#comment" = "These aliases are set with 'fs newalias', or read from" }
+ { "#comment" = "/usr/vice/etc/CellAlias" }
+ { }
+ { "#comment" = "Formatting for /usr/vice/etc/CellAlias is in the form" }
+ { "#comment" = "<target> <alias>" }
+ { "#comment" = "an example would be" }
+ { "#comment" = "fnal.gov/common/usr usr" }
+ { }
+ { "target" = "fnal.gov"
+ { "linkname" = "fnal" }
+ }
+ { "target" = "fnal.gov/files"
+ { "linkname" = "fnal-files" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_aliases.aug b/Sharp.Augeas.Test/lens/tests/test_aliases.aug
new file mode 100644
index 0000000..6db14dd
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_aliases.aug
@@ -0,0 +1,111 @@
+(*
+Module: Test_Aliases
+ Provides unit tests and examples for the <Aliases> lens.
+*)
+
+module Test_aliases =
+
+(* Variable: file
+ A full configuration file *)
+ let file = "#
+# Aliases in this file will NOT be expanded in the header from
+# Mail, but WILL be visible over networks or from /bin/mail.
+
+# Basic system aliases -- these MUST be present.
+mailer-daemon: postmaster
+postmaster: root
+
+# General redirections for pseudo accounts.
+bin: root , adm,
+ bob
+daemon: root
+adm: root
+file: /var/foo
+pipe1: |/bin/ls
+pipe2 : |\"/usr/bin/ls args,\"
+"
+
+(* Test: Aliases.lns
+ Testing <Aliases.lns> on <file> *)
+ test Aliases.lns get file =
+ { }
+ { "#comment" = "Aliases in this file will NOT be expanded in the header from" }
+ { "#comment" = "Mail, but WILL be visible over networks or from /bin/mail." }
+ {}
+ { "#comment" = "Basic system aliases -- these MUST be present." }
+ { "1" { "name" = "mailer-daemon" }
+ { "value" = "postmaster" } }
+ { "2" { "name" = "postmaster" }
+ { "value" = "root" } }
+ {}
+ { "#comment" = "General redirections for pseudo accounts." }
+ { "3" { "name" = "bin" }
+ { "value" = "root" }
+ { "value" = "adm" }
+ { "value" = "bob" } }
+ { "4" { "name" = "daemon" }
+ { "value" = "root" } }
+ { "5" { "name" = "adm" }
+ { "value" = "root" } }
+ { "6" { "name" = "file" }
+ { "value" = "/var/foo" } }
+ { "7" { "name" = "pipe1" }
+ { "value" = "|/bin/ls" } }
+ { "8" { "name" = "pipe2" }
+ { "value" = "|\"/usr/bin/ls args,\"" } }
+
+(* Test: Aliases.lns
+ Put test for <Aliases.lns> on <file> *)
+ test Aliases.lns put file after
+ rm "/4" ; rm "/5" ; rm "/6" ; rm "/7" ; rm "/8" ;
+ set "/1/value[2]" "barbar" ;
+ set "/3/value[2]" "ruth"
+ = "#
+# Aliases in this file will NOT be expanded in the header from
+# Mail, but WILL be visible over networks or from /bin/mail.
+
+# Basic system aliases -- these MUST be present.
+mailer-daemon: postmaster, barbar
+postmaster: root
+
+# General redirections for pseudo accounts.
+bin: root , ruth,
+ bob
+"
+
+ (* Test: Aliases.lns
+ Schema violation, no 3/name *)
+ test Aliases.lns put file after
+ rm "/3" ;
+ set "/3/value/2" "ruth"
+ = *
+
+ (* Variable: nocomma
+ Don't have to have whitespace after a comma *)
+ let nocomma = "alias: target1,target2\n"
+
+ (* Test: Aliases.lns
+ Testing <Aliases.lns> on <nocomma> *)
+ test Aliases.lns get nocomma =
+ { "1"
+ { "name" = "alias" }
+ { "value" = "target1" }
+ { "value" = "target2" } }
+
+ (* Test: Aliases.lns
+ Ticket #229: commands can be fully enclosed in quotes *)
+ test Aliases.lns get "somebody: \"|exit 67\"\n" =
+ { "1"
+ { "name" = "somebody" }
+ { "value" = "\"|exit 67\"" } }
+
+ (* Test: Aliases.lns
+ Don't have to have whitespace after the colon *)
+ test Aliases.lns get "alias:target\n" =
+ { "1"
+ { "name" = "alias" }
+ { "value" = "target" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_anaconda.aug b/Sharp.Augeas.Test/lens/tests/test_anaconda.aug
new file mode 100644
index 0000000..50b0ac2
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_anaconda.aug
@@ -0,0 +1,89 @@
+(*
+Module: Test_Anaconda
+ Provides unit tests and examples for the <Anaconda> lens.
+
+ - 'exampleN' snippets are taken from the documentation:
+ https://anaconda-installer.readthedocs.io/en/latest/user-interaction-config-file-spec.html
+ - 'installedN' snippets are taken from the resulting files after
+ a successful installation
+*)
+
+module Test_Anaconda =
+
+let example1 = "# comment example - before the section headers
+
+[section_1]
+# comment example - inside section 1
+key_a_in_section1=some_value
+key_b_in_section1=some_value
+
+[section_2]
+# comment example - inside section 2
+key_a_in_section2=some_value
+"
+
+test Anaconda.lns get example1 =
+ { "#comment" = "comment example - before the section headers" }
+ { }
+ { "section_1"
+ { "#comment" = "comment example - inside section 1" }
+ { "key_a_in_section1" = "some_value" }
+ { "key_b_in_section1" = "some_value" }
+ { }
+ }
+ { "section_2"
+ { "#comment" = "comment example - inside section 2" }
+ { "key_a_in_section2" = "some_value" }
+ }
+
+let example2 = "# this is the user interaction config file
+
+[General]
+post_install_tools_disabled=0
+
+[DatetimeSpoke]
+# the date and time spoke has been visited
+visited=1
+changed_timezone=1
+changed_ntp=0
+changed_timedate=1
+
+[KeyboardSpoke]
+# the keyboard spoke has not been visited
+visited=0
+"
+
+test Anaconda.lns get example2 =
+ { "#comment" = "this is the user interaction config file" }
+ { }
+ { "General"
+ { "post_install_tools_disabled" = "0" }
+ { }
+ }
+ { "DatetimeSpoke"
+ { "#comment" = "the date and time spoke has been visited" }
+ { "visited" = "1" }
+ { "changed_timezone" = "1" }
+ { "changed_ntp" = "0" }
+ { "changed_timedate" = "1" }
+ { }
+ }
+ { "KeyboardSpoke"
+ { "#comment" = "the keyboard spoke has not been visited" }
+ { "visited" = "0" }
+ }
+
+let installed1 = "# This file has been generated by the Anaconda Installer 21.48.22.134-1
+
+[ProgressSpoke]
+visited = 1
+
+"
+
+test Anaconda.lns get installed1 =
+ { "#comment" = "This file has been generated by the Anaconda Installer 21.48.22.134-1" }
+ { }
+ { "ProgressSpoke"
+ { "visited" = "1" }
+ { }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_anacron.aug b/Sharp.Augeas.Test/lens/tests/test_anacron.aug
new file mode 100644
index 0000000..9339855
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_anacron.aug
@@ -0,0 +1,39 @@
+(*
+Module: Test_Anacron
+ Provides unit tests and examples for the <Anacron> lens.
+*)
+
+module Test_anacron =
+
+(* Variable: conf *)
+let conf = "# /etc/anacrontab: configuration file for anacron
+
+SHELL=/bin/sh
+PATH=/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin
+
+# These replace cron's entries
+1 5 cron.daily nice run-parts --report /etc/cron.daily
+7 10 cron.weekly nice run-parts --report /etc/cron.weekly
+@monthly 15 cron.monthly nice run-parts --report /etc/cron.monthly
+"
+
+(* Test: Anacron.lns *)
+test Anacron.lns get conf =
+ { "#comment" = "/etc/anacrontab: configuration file for anacron" }
+ { }
+ { "SHELL" = "/bin/sh" }
+ { "PATH" = "/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin" }
+ { }
+ { "#comment" = "These replace cron's entries" }
+ { "entry" = "nice run-parts --report /etc/cron.daily"
+ { "period" = "1" }
+ { "delay" = "5" }
+ { "job-identifier" = "cron.daily" } }
+ { "entry" = "nice run-parts --report /etc/cron.weekly"
+ { "period" = "7" }
+ { "delay" = "10" }
+ { "job-identifier" = "cron.weekly" } }
+ { "entry" = "nice run-parts --report /etc/cron.monthly"
+ { "period_name" = "monthly" }
+ { "delay" = "15" }
+ { "job-identifier" = "cron.monthly" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_approx.aug b/Sharp.Augeas.Test/lens/tests/test_approx.aug
new file mode 100644
index 0000000..3e8aa0f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_approx.aug
@@ -0,0 +1,48 @@
+(*
+Module: Test_Approx
+ Provides unit tests and examples for the <Approx> lens.
+*)
+
+module Test_approx =
+
+(* Variable: default_approx
+ A full configuration *)
+ let default_approx = "# The following are the defaults, so there is no need
+# to uncomment them unless you want a different value.
+# See approx.conf(5) for details.
+
+$interface any
+$port 9999
+$interval 720
+$max_wait 10
+$max_rate unlimited
+$debug false
+
+# Here are some examples of remote repository mappings.
+# See http://www.debian.org/mirror/list for mirror sites.
+
+debian http://ftp.nl.debian.org/debian
+debian-volatile http://ftp.nl.debian.org/debian-volatile
+security http://security.debian.org
+"
+
+(* Test: Approx.lns
+ Testing <Approx.lns> on <default_approx> *)
+ test Approx.lns get default_approx =
+ { "#comment" = "The following are the defaults, so there is no need" }
+ { "#comment" = "to uncomment them unless you want a different value." }
+ { "#comment" = "See approx.conf(5) for details." }
+ { }
+ { "$interface" = "any" }
+ { "$port" = "9999" }
+ { "$interval" = "720" }
+ { "$max_wait" = "10" }
+ { "$max_rate" = "unlimited" }
+ { "$debug" = "false" }
+ { }
+ { "#comment" = "Here are some examples of remote repository mappings." }
+ { "#comment" = "See http://www.debian.org/mirror/list for mirror sites." }
+ { }
+ { "debian" = "http://ftp.nl.debian.org/debian" }
+ { "debian-volatile" = "http://ftp.nl.debian.org/debian-volatile" }
+ { "security" = "http://security.debian.org" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_apt_update_manager.aug b/Sharp.Augeas.Test/lens/tests/test_apt_update_manager.aug
new file mode 100644
index 0000000..1921a95
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_apt_update_manager.aug
@@ -0,0 +1,41 @@
+(*
+Module: Test_Apt_Update_Manager
+ Provides unit tests and examples for the <Apt_Update_Manager> lens.
+*)
+module Test_Apt_Update_Manager =
+
+(* Variable: meta_release *)
+let meta_release = "# default location for the meta-release file
+
+[METARELEASE]
+URI = http://changelogs.ubuntu.com/meta-release
+URI_LTS = http://changelogs.ubuntu.com/meta-release-lts
+URI_UNSTABLE_POSTFIX = -development
+URI_PROPOSED_POSTFIX = -proposed
+"
+
+(* Test: Apt_Update_Manager.lns *)
+test Apt_Update_Manager.lns get meta_release =
+ { "#comment" = "default location for the meta-release file" }
+ { }
+ { "METARELEASE"
+ { "URI" = "http://changelogs.ubuntu.com/meta-release" }
+ { "URI_LTS" = "http://changelogs.ubuntu.com/meta-release-lts" }
+ { "URI_UNSTABLE_POSTFIX" = "-development" }
+ { "URI_PROPOSED_POSTFIX" = "-proposed" }
+ }
+
+(* Variable: release_upgrades *)
+let release_upgrades = "# Default behavior for the release upgrader.
+
+[DEFAULT]
+Prompt=lts
+"
+
+(* Test: Apt_Update_Manager.lns *)
+test Apt_Update_Manager.lns get release_upgrades =
+ { "#comment" = "Default behavior for the release upgrader." }
+ { }
+ { "DEFAULT"
+ { "Prompt" = "lts" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_aptcacherngsecurity.aug b/Sharp.Augeas.Test/lens/tests/test_aptcacherngsecurity.aug
new file mode 100644
index 0000000..a10d5d3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_aptcacherngsecurity.aug
@@ -0,0 +1,34 @@
+(* Test for AptCacherNGSecurity lens.
+
+About: License
+ Copyright 2013 Erik B. Andersen; this file is licenced under the LGPL v2+.
+
+*)
+module Test_AptCacherNGSecurity =
+ let conf = "
+# This file contains confidential data and should be protected with file
+# permissions from being read by untrusted users.
+#
+# NOTE: permissions are fixated with dpkg-statoverride on Debian systems.
+# Read its manual page for details.
+
+# Basic authentication with username and password, required to
+# visit pages with administrative functionality. Format: username:password
+
+AdminAuth: mooma:moopa
+"
+
+ test AptCacherNGSecurity.lns get conf =
+ {}
+ { "#comment" = "This file contains confidential data and should be protected with file" }
+ { "#comment" = "permissions from being read by untrusted users." }
+ {}
+ { "#comment" = "NOTE: permissions are fixated with dpkg-statoverride on Debian systems." }
+ { "#comment" = "Read its manual page for details." }
+ {}
+ { "#comment" = "Basic authentication with username and password, required to" }
+ { "#comment" = "visit pages with administrative functionality. Format: username:password" }
+ {}
+ { "AdminAuth"
+ { "mooma" = "moopa" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_aptconf.aug b/Sharp.Augeas.Test/lens/tests/test_aptconf.aug
new file mode 100644
index 0000000..6c11ace
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_aptconf.aug
@@ -0,0 +1,181 @@
+module Test_aptconf =
+
+ (* Test multiline C-style comments *)
+ let comment_multiline = "/* This is a long
+/* multiline
+comment
+*/
+"
+
+ test AptConf.comment get comment_multiline =
+ { "#mcomment"
+ { "1" = "This is a long" }
+ { "2" = "/* multiline" }
+ { "3" = "comment" } }
+
+
+ (* Test empty multiline C-style comments *)
+ let comment_multiline_empty = "/* */\n"
+
+ test AptConf.empty get comment_multiline_empty = { }
+
+
+ (* Test a simple entry *)
+ let simple_entry = "APT::Clean-Installed \"true\";\n"
+
+ test AptConf.entry get simple_entry =
+ { "APT" { "Clean-Installed" = "true" } }
+
+ (* Test simple recursivity *)
+ let simple_recursion = "APT { Clean-Installed \"true\"; };\n"
+
+ test AptConf.entry get simple_recursion =
+ { "APT" { "Clean-Installed" = "true" } }
+
+ (* Test simple recursivity with several entries *)
+ let simple_recursion_multi =
+ "APT {
+ Clean-Installed \"true\";
+ Get::Assume-Yes \"true\";
+ }\n"
+
+ test AptConf.entry get simple_recursion_multi =
+ { "APT"
+ { "Clean-Installed" = "true" }
+ { "Get" { "Assume-Yes" = "true" } } }
+
+ (* Test multiple recursivity *)
+ let multiple_recursion =
+ "APT { Get { Assume-Yes \"true\"; } };\n"
+
+ test AptConf.entry get multiple_recursion =
+ { "APT" { "Get" { "Assume-Yes" = "true" } } }
+
+ (* Test simple list *)
+ let simple_list = "DPKG::options { \"--force-confold\"; }\n"
+
+ test AptConf.entry get simple_list =
+ { "DPKG" { "options" { "@elem" = "--force-confold" } } }
+
+
+ (* Test list elements with spaces *)
+ let list_spaces = "Unattended-Upgrade::Allowed-Origins {
+ \"Ubuntu lucid-security\"; };\n"
+
+ test AptConf.entry get list_spaces =
+ { "Unattended-Upgrade" { "Allowed-Origins"
+ { "@elem" = "Ubuntu lucid-security" } } }
+
+ (* Test recursive list *)
+ let recursive_list =
+ "DPKG {
+ options {
+ \"--force-confold\";
+ \"--nocheck\";
+ } };\n"
+
+ test AptConf.entry get recursive_list =
+ { "DPKG"
+ { "options"
+ { "@elem" = "--force-confold" }
+ { "@elem" = "--nocheck" } } }
+
+ (* Test empty group *)
+ let empty_group =
+ "APT\n{\n};\n"
+
+ test AptConf.entry get empty_group = { "APT" }
+
+ (* Test #include *)
+ let include = " #include /path/to/file\n"
+
+ test AptConf.include get include =
+ { "#include" = "/path/to/file" }
+
+ (* Test #clear *)
+ let clear = "#clear Dpkg::options Apt::Get::Assume-Yes\n"
+
+ test AptConf.clear get clear =
+ { "#clear"
+ { "name" = "Dpkg::options" }
+ { "name" = "Apt::Get::Assume-Yes" } }
+
+
+ (* Test put simple value *)
+ test AptConf.entry put "APT::Clean-Installed \"true\";\n"
+ after set "/APT/Clean-Installed" "false" =
+ "APT {\nClean-Installed \"false\";\n};\n"
+
+ (* Test rm everything *)
+ test AptConf.entry put "APT { Clean-Installed \"true\"; }\n"
+ after rm "/APT" = ""
+
+ (* Test rm on recursive value *)
+ test AptConf.entry put "APT { Clean-Installed \"true\"; }\n"
+ after rm "/APT/Clean-Installed" = "APT { }\n"
+
+ (* Test put recursive value *)
+ test AptConf.entry put "APT { Clean-Installed \"true\"; }\n"
+ after set "/APT/Clean-Installed" "false" =
+ "APT { Clean-Installed \"false\"; }\n"
+
+ (* Test multiple lens *)
+ let multiple_entries =
+ "APT { Clean-Installed \"true\"; }\n
+ APT::Clean-Installed \"true\";\n"
+
+ test AptConf.lns get multiple_entries =
+ { "APT" { "Clean-Installed" = "true" } }
+ {}
+ { "APT" { "Clean-Installed" = "true" } }
+
+ (* Test with full lens *)
+ test AptConf.lns put "APT { Clean-Installed \"true\"; }\n"
+ after set "/APT/Clean-Installed" "false" =
+ "APT { Clean-Installed \"false\"; }\n"
+
+ (* Test single commented entry *)
+ let commented_entry =
+ "Unattended-Upgrade::Allowed-Origins {
+ \"Ubuntu lucid-security\";
+// \"Ubuntu lucid-updates\";
+ };\n"
+
+ test AptConf.lns get commented_entry =
+ { "Unattended-Upgrade" { "Allowed-Origins"
+ { "@elem" = "Ubuntu lucid-security" }
+ { "#comment" = "\"Ubuntu lucid-updates\";" } } }
+
+ (* Test multiple commented entries *)
+ let commented_entries =
+ "// List of packages to not update
+Unattended-Upgrade::Package-Blacklist {
+// \"vim\";
+// \"libc6\";
+// \"libc6-dev\";
+// \"libc6-i686\"
+};
+"
+
+ test AptConf.lns get commented_entries =
+ { "#comment" = "List of packages to not update" }
+ { "Unattended-Upgrade" { "Package-Blacklist"
+ { "#comment" = "\"vim\";" }
+ { "#comment" = "\"libc6\";" }
+ { "#comment" = "\"libc6-dev\";" }
+ { "#comment" = "\"libc6-i686\"" }
+ } }
+
+ (* Test complex elem *)
+ let complex_elem = "DPkg::Post-Invoke {\"if [ -d /var/lib/update-notifier ]; then touch /var/lib/update-notifier/dpkg-run-stamp; fi; if [ -e /var/lib/update-notifier/updates-available ]; then echo > /var/lib/update-notifier/updates-available; fi \"};\n"
+
+ test AptConf.lns get complex_elem =
+ { "DPkg" { "Post-Invoke"
+ { "@elem" = "if [ -d /var/lib/update-notifier ]; then touch /var/lib/update-notifier/dpkg-run-stamp; fi; if [ -e /var/lib/update-notifier/updates-available ]; then echo > /var/lib/update-notifier/updates-available; fi " } } }
+
+ (* Accept hash comments *)
+ test AptConf.lns get "# a comment\n" =
+ { "#comment" = "a comment" }
+
+ (* Accept empty hash comments *)
+ test AptConf.lns get "# \n" = { }
diff --git a/Sharp.Augeas.Test/lens/tests/test_aptpreferences.aug b/Sharp.Augeas.Test/lens/tests/test_aptpreferences.aug
new file mode 100644
index 0000000..bf26348
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_aptpreferences.aug
@@ -0,0 +1,66 @@
+module Test_aptpreferences =
+
+ let conf ="Explanation: Backport packages are never prioritary
+Package: *
+Pin: release a=backports
+Pin-Priority: 100
+
+# This is a comment
+Explanation: My packages are the most prioritary
+Package: *
+Pin: release l=Raphink, v=3.0
+Pin-Priority: 700
+
+Package: liferea-data
+Pin: version 1.4.26-4
+Pin-Priority: 600
+
+Package: *
+Pin: origin packages.linuxmint.com
+Pin-Priority: 700
+"
+
+ test AptPreferences.lns get conf =
+ { "1"
+ { "Explanation" = "Backport packages are never prioritary" }
+ { "Package" = "*" }
+ { "Pin" = "release"
+ { "a" = "backports" } }
+ { "Pin-Priority" = "100" } }
+ { "2"
+ { "#comment" = "This is a comment" }
+ { "Explanation" = "My packages are the most prioritary" }
+ { "Package" = "*" }
+ { "Pin" = "release"
+ { "l" = "Raphink" }
+ { "v" = "3.0" } }
+ { "Pin-Priority" = "700" } }
+ { "3"
+ { "Package" = "liferea-data" }
+ { "Pin" = "version"
+ { "version" = "1.4.26-4" } }
+ { "Pin-Priority" = "600" } }
+ { "4"
+ { "Package" = "*" }
+ { "Pin" = "origin"
+ { "origin" = "packages.linuxmint.com" } }
+ { "Pin-Priority" = "700" } }
+
+(*************************************************************************)
+
+ test AptPreferences.lns put "\n" after
+ set "/1/Package" "something-funny";
+ set "/1/Pin" "version";
+ set "/1/Pin/version" "1.2.3-4";
+ set "/1/Pin-Priority" "2000"
+ = "
+Package: something-funny
+Pin: version 1.2.3-4
+Pin-Priority: 2000
+"
+
+(* Test: AptPreferences.pin
+ Spaces in origins are valid *)
+test AptPreferences.pin get "Pin: release o=Quantum GIS project\n" =
+ { "Pin" = "release"
+ { "o" = "Quantum GIS project" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_aptsources.aug b/Sharp.Augeas.Test/lens/tests/test_aptsources.aug
new file mode 100644
index 0000000..7546393
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_aptsources.aug
@@ -0,0 +1,102 @@
+module Test_aptsources =
+
+ let simple_source = "deb ftp://mirror.bytemark.co.uk/debian/ etch main\n"
+ let multi_components = "deb http://security.debian.org/ etch/updates main contrib non-free\n"
+
+ test Aptsources.lns get simple_source =
+ { "1"
+ { "type" = "deb" }
+ { "uri" = "ftp://mirror.bytemark.co.uk/debian/" }
+ { "distribution" = "etch" }
+ { "component" = "main" }
+ }
+
+ test Aptsources.lns get multi_components =
+ { "1"
+ { "type" = "deb" }
+ { "uri" = "http://security.debian.org/" }
+ { "distribution" = "etch/updates" }
+ { "component" = "main" }
+ { "component" = "contrib" }
+ { "component" = "non-free" }
+ }
+
+
+let multi_line = "#deb http://www.backports.org/debian/ sarge postfix
+ # deb http://people.debian.org/~adconrad sarge subversion
+
+deb ftp://mirror.bytemark.co.uk/debian/ etch main non-free contrib
+ deb http://security.debian.org/ etch/updates main contrib non-free # security line
+ deb-src http://mirror.bytemark.co.uk/debian etch main contrib non-free\n"
+
+ test Aptsources.lns get multi_line =
+ { "#comment" = "deb http://www.backports.org/debian/ sarge postfix" }
+ { "#comment" = "deb http://people.debian.org/~adconrad sarge subversion" }
+ {}
+ { "1"
+ { "type" = "deb" }
+ { "uri" = "ftp://mirror.bytemark.co.uk/debian/" }
+ { "distribution" = "etch" }
+ { "component" = "main" }
+ { "component" = "non-free" }
+ { "component" = "contrib" }
+ }
+ { "2"
+ { "type" = "deb" }
+ { "uri" = "http://security.debian.org/" }
+ { "distribution" = "etch/updates" }
+ { "component" = "main" }
+ { "component" = "contrib" }
+ { "component" = "non-free" }
+ }
+ { "3"
+ { "type" = "deb-src" }
+ { "uri" = "http://mirror.bytemark.co.uk/debian" }
+ { "distribution" = "etch" }
+ { "component" = "main" }
+ { "component" = "contrib" }
+ { "component" = "non-free" }
+ }
+
+ let trailing_comment = "deb ftp://server/debian/ etch main # comment\n"
+
+ (* Should be a noop; makes sure that we preserve the trailing comment *)
+ test Aptsources.lns put trailing_comment after
+ set "/1/type" "deb"
+ = trailing_comment
+
+ (* Support options, GH #295 *)
+ test Aptsources.lns get "deb [arch=amd64] tor+http://ftp.us.debian.org/debian sid main contrib
+deb [ arch+=amd64 trusted-=true ] http://ftp.us.debian.org/debian sid main contrib\n" =
+ { "1"
+ { "type" = "deb" }
+ { "options"
+ { "arch" = "amd64" }
+ }
+ { "uri" = "tor+http://ftp.us.debian.org/debian" }
+ { "distribution" = "sid" }
+ { "component" = "main" }
+ { "component" = "contrib" } }
+ { "2"
+ { "type" = "deb" }
+ { "options"
+ { "arch" = "amd64" { "operation" = "+" } }
+ { "trusted" = "true" { "operation" = "-" } }
+ }
+ { "uri" = "http://ftp.us.debian.org/debian" }
+ { "distribution" = "sid" }
+ { "component" = "main" }
+ { "component" = "contrib" } }
+
+ (* cdrom entries may have spaces, GH #296 *)
+ test Aptsources.lns get "deb cdrom:[Debian GNU/Linux 7.5.0 _Wheezy_ - Official amd64 CD Binary-1 20140426-13:37]/ wheezy main\n" =
+ { "1"
+ { "type" = "deb" }
+ { "uri" = "cdrom:[Debian GNU/Linux 7.5.0 _Wheezy_ - Official amd64 CD Binary-1 20140426-13:37]/" }
+ { "distribution" = "wheezy" }
+ { "component" = "main" } }
+
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_authinfo2.aug b/Sharp.Augeas.Test/lens/tests/test_authinfo2.aug
new file mode 100644
index 0000000..8da1bdc
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_authinfo2.aug
@@ -0,0 +1,44 @@
+module Test_authinfo2 =
+
+let conf = "# Comment
+[s3]
+storage-url: s3://
+backend-login: joe
+backend-password: notquitesecret
+
+[fs1]
+storage-url: s3://joes-first-bucket
+fs-passphrase: neitheristhis
+
+[fs2]
+
+storage-url: s3://joes-second-bucket
+fs-passphrase: swordfish
+[fs3]
+storage-url: s3://joes-second-bucket/with-prefix
+backend-login: bill
+backend-password: bi23ll
+fs-passphrase: ll23bi
+"
+
+
+test Authinfo2.lns get conf =
+ { "#comment" = "Comment" }
+ { "s3"
+ { "storage-url" = "s3://" }
+ { "backend-login" = "joe" }
+ { "backend-password" = "notquitesecret" }
+ {} }
+ { "fs1"
+ { "storage-url" = "s3://joes-first-bucket" }
+ { "fs-passphrase" = "neitheristhis" }
+ {} }
+ { "fs2"
+ {}
+ { "storage-url" = "s3://joes-second-bucket" }
+ { "fs-passphrase" = "swordfish" } }
+ { "fs3"
+ { "storage-url" = "s3://joes-second-bucket/with-prefix" }
+ { "backend-login" = "bill" }
+ { "backend-password" = "bi23ll" }
+ { "fs-passphrase" = "ll23bi" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_authorized_keys.aug b/Sharp.Augeas.Test/lens/tests/test_authorized_keys.aug
new file mode 100644
index 0000000..69f2f3c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_authorized_keys.aug
@@ -0,0 +1,128 @@
+(*
+Module: Test_Authorized_Keys
+ Provides unit tests and examples for the <Authorized_Keys> lens.
+*)
+
+module Test_Authorized_Keys =
+
+(* Test: Authorized_Keys *)
+test Authorized_Keys.lns get "tunnel=\"0\",no-agent-forwarding,command=\"sh /etc/netstart tun0\",permitopen=\"192.0.2.1:80\",permitopen=\"192.0.2.2:25\" ssh-rsa AAAAB3NzaC1yc2EAAAABIwAAAQEA3RC8whKGFx+b7BMTFtnIWl6t/qyvOvnuqIrMNI9J8+1sEYv8Y/pJRh0vAe2RaSKAgB2hyzXwSJ1Fh+ooraUAJ+q7P2gg2kQF1nCFeGVjtV9m4ZrV5kZARcQMhp0Bp67tPo2TCtnthPYZS/YQG6u/6Aco1XZjPvuKujAQMGSgqNskhKBO9zfhhkAMIcKVryjKYHDfqbDUCCSNzlwFLts3nJ0Hfno6Hz+XxuBIfKOGjHfbzFyUQ7smYnzF23jFs4XhvnjmIGQJcZT4kQAsRwQubyuyDuqmQXqa+2SuQfkKTaPOlVqyuEWJdG2weIF8g3YP12czsBgNppz3jsnhEgstnQ== rpinson on rpinson\n" =
+ { "key" = "AAAAB3NzaC1yc2EAAAABIwAAAQEA3RC8whKGFx+b7BMTFtnIWl6t/qyvOvnuqIrMNI9J8+1sEYv8Y/pJRh0vAe2RaSKAgB2hyzXwSJ1Fh+ooraUAJ+q7P2gg2kQF1nCFeGVjtV9m4ZrV5kZARcQMhp0Bp67tPo2TCtnthPYZS/YQG6u/6Aco1XZjPvuKujAQMGSgqNskhKBO9zfhhkAMIcKVryjKYHDfqbDUCCSNzlwFLts3nJ0Hfno6Hz+XxuBIfKOGjHfbzFyUQ7smYnzF23jFs4XhvnjmIGQJcZT4kQAsRwQubyuyDuqmQXqa+2SuQfkKTaPOlVqyuEWJdG2weIF8g3YP12czsBgNppz3jsnhEgstnQ=="
+ { "options"
+ { "tunnel" = "0" }
+ { "no-agent-forwarding" }
+ { "command" = "sh /etc/netstart tun0" }
+ { "permitopen" = "192.0.2.1:80" }
+ { "permitopen" = "192.0.2.2:25" }
+ }
+ { "type" = "ssh-rsa" }
+ { "comment" = "rpinson on rpinson" } }
+
+(* Variable: keys *)
+let keys = "# Example keys, one of each type
+#
+ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQDpWrKYsEsVUyuwMN4ReBN/TMGsaUWzDKDz/uQr6MlNNM95MDK/BPyJ+DiBiNMFVLpRt3gH3eCJBLJKMuUDaTNy5uym2zNgAaAIVct6M2GHI68W3iY3Ja8/MaRPbyTpMh1O74S+McpAW1SGL2YzFchYMjTnu/kOD3lxiWNiDLvdLFZu0wPOi7CYG37VXR4Thb0cC92zqnCjaP1TwfhpEYUZoowElYkoV2vG+19O6cRm/zduYcf8hmegZKB4GFUJTtZ2gZ18XJDSQd0ykK3KPt/+bKskdrtfiOwSZAmUZmd2YuAlY6+CBn1T3UBdQntueukd0z1xhd6SX7Bl8+qyqLQ3 user@example
+ssh-dsa AAAA user@example
+ecdsa-sha2-nistp256 AAAA user@example
+ssh-ed25519 AAAA user@example
+
+# Example comments
+ssh-dsa AAAA
+ssh-dsa AAAA user@example
+"
+
+(* Test: Authorized_Keys.lns *)
+test Authorized_Keys.lns get keys =
+ { "#comment" = "Example keys, one of each type" }
+ { }
+ { "key" =
+"AAAAB3NzaC1yc2EAAAADAQABAAABAQDpWrKYsEsVUyuwMN4ReBN/TMGsaUWzDKDz/uQr6MlNNM95MDK/BPyJ+DiBiNMFVLpRt3gH3eCJBLJKMuUDaTNy5uym2zNgAaAIVct6M2GHI68W3iY3Ja8/MaRPbyTpMh1O74S+McpAW1SGL2YzFchYMjTnu/kOD3lxiWNiDLvdLFZu0wPOi7CYG37VXR4Thb0cC92zqnCjaP1TwfhpEYUZoowElYkoV2vG+19O6cRm/zduYcf8hmegZKB4GFUJTtZ2gZ18XJDSQd0ykK3KPt/+bKskdrtfiOwSZAmUZmd2YuAlY6+CBn1T3UBdQntueukd0z1xhd6SX7Bl8+qyqLQ3"
+ { "type" = "ssh-rsa" }
+ { "comment" = "user@example" }
+ }
+ { "key" = "AAAA"
+ { "type" = "ssh-dsa" }
+ { "comment" = "user@example" }
+ }
+ { "key" = "AAAA"
+ { "type" = "ecdsa-sha2-nistp256" }
+ { "comment" = "user@example" }
+ }
+ { "key" = "AAAA"
+ { "type" = "ssh-ed25519" }
+ { "comment" = "user@example" }
+ }
+ { }
+ { "#comment" = "Example comments" }
+ { "key" = "AAAA"
+ { "type" = "ssh-dsa" }
+ }
+ { "key" = "AAAA"
+ { "type" = "ssh-dsa" }
+ { "comment" = "user@example" }
+ }
+
+(* Variable: options *)
+let options = "# Example options
+no-pty ssh-dsa AAAA
+no-pty ssh-ed25519 AAAA
+no-pty,command=\"foo\" ssh-dsa AAAA
+no-pty,command=\"foo bar\" ssh-dsa AAAA
+no-pty,from=\"example.com,10.1.1.0/16\" ssh-dsa AAAA
+no-pty,environment=\"LANG=en_GB.UTF8\" ssh-dsa AAAA
+"
+
+(* Test: Authorized_Keys.lns *)
+test Authorized_Keys.lns get options =
+ { "#comment" = "Example options" }
+ { "key" = "AAAA"
+ { "options"
+ { "no-pty" }
+ }
+ { "type" = "ssh-dsa" }
+ }
+ { "key" = "AAAA"
+ { "options"
+ { "no-pty" }
+ }
+ { "type" = "ssh-ed25519" }
+ }
+ { "key" = "AAAA"
+ { "options"
+ { "no-pty" }
+ { "command" = "foo" }
+ }
+ { "type" = "ssh-dsa" }
+ }
+ { "key" = "AAAA"
+ { "options"
+ { "no-pty" }
+ { "command" = "foo bar" }
+ }
+ { "type" = "ssh-dsa" }
+ }
+ { "key" = "AAAA"
+ { "options"
+ { "no-pty" }
+ { "from" = "example.com,10.1.1.0/16" }
+ }
+ { "type" = "ssh-dsa" }
+ }
+ { "key" = "AAAA"
+ { "options"
+ { "no-pty" }
+ { "environment" = "LANG=en_GB.UTF8" }
+ }
+ { "type" = "ssh-dsa" }
+ }
+
+(* Test: Authorized_keys.lns
+ GH 165 *)
+test Authorized_keys.lns get "command=\"echo 'Please login as the user \\\"blaauser\\\" rather than the user \\\"root\\\".';echo;sleep 10\" ssh-rsa DEADBEEF== username1\n" =
+ { "key" = "DEADBEEF=="
+ { "options"
+ { "command" = "echo 'Please login as the user \\\"blaauser\\\" rather than the user \\\"root\\\".';echo;sleep 10" }
+ }
+ { "type" = "ssh-rsa" }
+ { "comment" = "username1" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_authselectpam.aug b/Sharp.Augeas.Test/lens/tests/test_authselectpam.aug
new file mode 100644
index 0000000..78506d0
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_authselectpam.aug
@@ -0,0 +1,37 @@
+module Test_AuthselectPam =
+
+let example ="auth required pam_env.so
+auth required pam_faildelay.so delay=2000000
+auth required pam_faillock.so preauth silent {include if \"with-faillock\"}
+auth required pam_u2f.so cue {if not \"without-pam-u2f-nouserok\":nouserok} {include if \"with-pam-u2f-2fa\"}
+"
+
+test AuthselectPam.lns get example =
+ { "1"
+ { "type" = "auth" }
+ { "control" = "required" }
+ { "module" = "pam_env.so" } }
+ { "2"
+ { "type" = "auth" }
+ { "control" = "required" }
+ { "module" = "pam_faildelay.so" }
+ { "argument" = "delay=2000000" } }
+ { "3"
+ { "type" = "auth" }
+ { "control" = "required" }
+ { "module" = "pam_faillock.so" }
+ { "argument" = "preauth" }
+ { "argument" = "silent" }
+ { "authselect_conditional" = "include if"
+ { "feature" = "with-faillock" } } }
+ { "4"
+ { "type" = "auth" }
+ { "control" = "required" }
+ { "module" = "pam_u2f.so" }
+ { "argument" = "cue" }
+ { "authselect_conditional" = "if"
+ { "not" }
+ { "feature" = "without-pam-u2f-nouserok" }
+ { "on_true" = "nouserok" } }
+ { "authselect_conditional" = "include if"
+ { "feature" = "with-pam-u2f-2fa" } } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_automaster.aug b/Sharp.Augeas.Test/lens/tests/test_automaster.aug
new file mode 100644
index 0000000..696acb9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_automaster.aug
@@ -0,0 +1,64 @@
+module Test_automaster =
+
+ let example = "#
+# Sample auto.master file
+#
+
+/- auto.data
+/net -hosts ro
+/misc /etc/auto.misc
+/home /etc/auto.home
+/home ldap:example.com:ou=auto.home,dc=example,dc=com
+/mnt yp:mnt.map -strict,-Dfoo=bar,uid=1000
+/mnt yp,sun:mnt.map
+/auto /etc/auto.HD --timeout=15 --ghost
+
++dir:/etc/auto.master.d
++ auto.master
+"
+
+ test Automaster.lns get example =
+ { }
+ { "#comment" = "Sample auto.master file" }
+ { }
+ { }
+ { "1" = "/-"
+ { "map" = "auto.data" } }
+ { "2" = "/net"
+ { "map" = "-hosts" }
+ { "opt" = "ro" } }
+ { "3" = "/misc"
+ { "map" = "/etc/auto.misc" } }
+ { "4" = "/home"
+ { "map" = "/etc/auto.home" } }
+ { "5" = "/home"
+ { "type" = "ldap" }
+ { "host" = "example.com" }
+ { "map" = "ou=auto.home,dc=example,dc=com" } }
+ { "6" = "/mnt"
+ { "type" = "yp" }
+ { "map" = "mnt.map" }
+ { "opt" = "-strict" }
+ { "opt" = "-Dfoo"
+ { "value" = "bar" } }
+ { "opt" = "uid"
+ { "value" = "1000" } } }
+ { "7" = "/mnt"
+ { "type" = "yp" }
+ { "format" = "sun" }
+ { "map" = "mnt.map" } }
+ { "8" = "/auto"
+ { "map" = "/etc/auto.HD" }
+ { "opt" = "--timeout"
+ { "value" = "15" } }
+ { "opt" = "--ghost" } }
+ { }
+ { "9" = "+"
+ { "type" = "dir" }
+ { "map" = "/etc/auto.master.d" } }
+ { "10" = "+"
+ { "map" = "auto.master" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_automounter.aug b/Sharp.Augeas.Test/lens/tests/test_automounter.aug
new file mode 100644
index 0000000..c84fc0a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_automounter.aug
@@ -0,0 +1,171 @@
+module Test_automounter =
+
+ let example = "#
+# This is an automounter map and it has the following format
+# key [ -mount-options-separated-by-comma ] location
+# Details may be found in the autofs(5) manpage
+
+# indirect map
+cd -fstype=iso9660,ro,nosuid,nodev :/dev/cdrom
+kernel -ro,soft,intr ftp.kernel.org:/pub/linux
+* -fstype=auto,loop,ro :/srv/distros/isos/&.iso
+
+# direct map
+/nfs/apps/mozilla bogus:/usr/local/moxill
+
+# replicated server
+path host1,host2,hostn:/path/path
+path host1,host2:/blah host3(1):/some/other/path
+path host1(5),host2(6),host3(1):/path/path
+
+# multi-mount map
+server -rw,hard,intr / -ro myserver.me.org:/
+server -rw,hard,intr / -ro myserver.me.org:/ /usr myserver.me.org:/usr
+server -rw,hard,intr / -ro myserver.me.org:/ \
+ /usr myserver.me.org:/usr \
+ /home myserver.me.org:/home
+
+server -rw,hard,intr / -ro my-with-dash-server.me.org:/
+
+# included maps
++auto_home
+"
+
+ test Automounter.lns get example =
+ { }
+ { "#comment" = "This is an automounter map and it has the following format" }
+ { "#comment" = "key [ -mount-options-separated-by-comma ] location" }
+ { "#comment" = "Details may be found in the autofs(5) manpage" }
+ { }
+ { "#comment" = "indirect map" }
+ { "1" = "cd"
+ { "opt" = "fstype"
+ { "value" = "iso9660" } }
+ { "opt" = "ro" }
+ { "opt" = "nosuid" }
+ { "opt" = "nodev" }
+ { "location"
+ { "1"
+ { "path" = "/dev/cdrom" } } } }
+ { "2" = "kernel"
+ { "opt" = "ro" }
+ { "opt" = "soft" }
+ { "opt" = "intr" }
+ { "location"
+ { "1"
+ { "host" = "ftp.kernel.org" }
+ { "path" = "/pub/linux" } } } }
+ { "3" = "*"
+ { "opt" = "fstype"
+ { "value" = "auto" } }
+ { "opt" = "loop" }
+ { "opt" = "ro" }
+ { "location"
+ { "1"
+ { "path" = "/srv/distros/isos/&.iso" } } } }
+ { }
+ { "#comment" = "direct map" }
+ { "4" = "/nfs/apps/mozilla"
+ { "location"
+ { "1"
+ { "host" = "bogus" }
+ { "path" = "/usr/local/moxill" } } } }
+ { }
+ { "#comment" = "replicated server" }
+ { "5" = "path"
+ { "location"
+ { "1"
+ { "host" = "host1" }
+ { "host" = "host2" }
+ { "host" = "hostn" }
+ { "path" = "/path/path" } } } }
+ { "6" = "path"
+ { "location"
+ { "1"
+ { "host" = "host1" }
+ { "host" = "host2" }
+ { "path" = "/blah" } }
+ { "2"
+ { "host" = "host3"
+ { "weight" = "1" } }
+ { "path" = "/some/other/path" } } } }
+ { "7" = "path"
+ { "location"
+ { "1"
+ { "host" = "host1"
+ { "weight" = "5" } }
+ { "host" = "host2"
+ { "weight" = "6" } }
+ { "host" = "host3"
+ { "weight" = "1" } }
+ { "path" = "/path/path" } } } }
+ { }
+ { "#comment" = "multi-mount map" }
+ { "8" = "server"
+ { "opt" = "rw" }
+ { "opt" = "hard" }
+ { "opt" = "intr" }
+ { "mount"
+ { "1" = "/"
+ { "opt" = "ro" }
+ { "location"
+ { "1"
+ { "host" = "myserver.me.org" }
+ { "path" = "/" } } } } } }
+ { "9" = "server"
+ { "opt" = "rw" }
+ { "opt" = "hard" }
+ { "opt" = "intr" }
+ { "mount"
+ { "1" = "/"
+ { "opt" = "ro" }
+ { "location"
+ { "1"
+ { "host" = "myserver.me.org" }
+ { "path" = "/" } } } }
+ { "2" = "/usr"
+ { "location"
+ { "1"
+ { "host" = "myserver.me.org" }
+ { "path" = "/usr" } } } } } }
+ { "10" = "server"
+ { "opt" = "rw" }
+ { "opt" = "hard" }
+ { "opt" = "intr" }
+ { "mount"
+ { "1" = "/"
+ { "opt" = "ro" }
+ { "location"
+ { "1"
+ { "host" = "myserver.me.org" }
+ { "path" = "/" } } } }
+ { "2" = "/usr"
+ { "location"
+ { "1"
+ { "host" = "myserver.me.org" }
+ { "path" = "/usr" } } } }
+ { "3" = "/home"
+ { "location"
+ { "1"
+ { "host" = "myserver.me.org" }
+ { "path" = "/home" } } } } } }
+ { }
+ { "11" = "server"
+ { "opt" = "rw" }
+ { "opt" = "hard" }
+ { "opt" = "intr" }
+ { "mount"
+ { "1" = "/"
+ { "opt" = "ro" }
+ { "location"
+ { "1"
+ { "host" = "my-with-dash-server.me.org" }
+ { "path" = "/" } } } } } }
+ { }
+ { "#comment" = "included maps" }
+ { "12" = "+"
+ { "map" = "auto_home" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_avahi.aug b/Sharp.Augeas.Test/lens/tests/test_avahi.aug
new file mode 100644
index 0000000..cd417a2
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_avahi.aug
@@ -0,0 +1,34 @@
+module Test_avahi =
+
+ let conf = "
+[server]
+host-name=web
+domain=example.com
+
+[wide-area]
+enable-wide-area=yes
+"
+
+ test Avahi.lns get conf =
+ {}
+ { "server"
+ { "host-name" = "web" }
+ { "domain" = "example.com" }
+ {} }
+ { "wide-area"
+ { "enable-wide-area" = "yes" } }
+
+ test Avahi.lns put conf after
+ set "server/use-ipv4" "yes";
+ set "server/clients-max" "4096"
+ = "
+[server]
+host-name=web
+domain=example.com
+
+use-ipv4=yes
+clients-max=4096
+[wide-area]
+enable-wide-area=yes
+"
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_backuppchosts.aug b/Sharp.Augeas.Test/lens/tests/test_backuppchosts.aug
new file mode 100644
index 0000000..b1c145d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_backuppchosts.aug
@@ -0,0 +1,26 @@
+module Test_BackupPCHosts =
+
+let conf = "host dhcp user moreUsers
+hostname1 0 user1 anotheruser,athirduser
+hostname2 1 user2 stillanotheruser\n"
+
+test BackupPCHosts.lns get conf =
+ { "1"
+ { "host" = "host" }
+ { "dhcp" = "dhcp" }
+ { "user" = "user" }
+ { "moreusers" = "moreUsers" }
+ }
+ { "2"
+ { "host" = "hostname1" }
+ { "dhcp" = "0" }
+ { "user" = "user1" }
+ { "moreusers" = "anotheruser" }
+ { "moreusers" = "athirduser" }
+ }
+ { "3"
+ { "host" = "hostname2" }
+ { "dhcp" = "1" }
+ { "user" = "user2" }
+ { "moreusers" = "stillanotheruser" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_bbhosts.aug b/Sharp.Augeas.Test/lens/tests/test_bbhosts.aug
new file mode 100644
index 0000000..48ff7d7
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_bbhosts.aug
@@ -0,0 +1,131 @@
+module Test_bbhosts =
+
+ let conf = "
+# A comment
+
+page firstpage My first page
+
+group-compress A group
+1.2.3.4 amachine # http://url.to/monitor https://another.url/to/monitor cont;http://a.cont.url/to/monitor;wordtofind
+1.2.3.5 amachine2 # http://url.to/monitor https://another.url/to/monitor !cont;http://a.cont.url/to/monitor;wordtofind
+
+group-only dns VIP DNS
+10.50.25.48 mydnsmachine.network #
+10.50.25.49 myotherdnsmachine.network #noping noconn !ssh dns;mydnstocheck
+# a comment in a group
+
+
+page anotherpage A new page
+
+# a comment in a page
+
+group-compress My test
+192.168.0.2 myhost # https://myurl.com:1256 noconn pop3 imap2 ssh
+192.168.0.3 myhost2 # !imap2 telnet dns
+
+group-compress DownTime
+0.0.0.0 myhost3 # DOWNTIME=fping,http:*:1800:1015:\"Frontal 01 Redirect Amazon eteint entre 18h et 10h\"
+0.0.0.0 myhost4 # ftps imaps imap4 pop-3 pop2s pop smtp smtps ssh ssh1 ssh2 telnet telnets
+"
+
+ test BBhosts.lns get conf =
+ {}
+ { "#comment" = "A comment" }
+ {}
+ { "page" = "firstpage"
+ { "title" = "My first page" }
+ {}
+ { "group-compress" = "A group"
+ { "host"
+ { "ip" = "1.2.3.4" }
+ { "fqdn" = "amachine" }
+ { "probes"
+ { "url" = "http://url.to/monitor" }
+ { "url" = "https://another.url/to/monitor" }
+ { "cont" = ""
+ { "url" = "http://a.cont.url/to/monitor" }
+ { "keyword" = "wordtofind" } } } }
+ { "host"
+ { "ip" = "1.2.3.5" }
+ { "fqdn" = "amachine2" }
+ { "probes"
+ { "url" = "http://url.to/monitor" }
+ { "url" = "https://another.url/to/monitor" }
+ { "cont" = "!"
+ { "url" = "http://a.cont.url/to/monitor" }
+ { "keyword" = "wordtofind" } } } }
+ {} }
+ { "group-only" = "VIP DNS"
+ { "col" = "dns" }
+ { "host"
+ { "ip" = "10.50.25.48" }
+ { "fqdn" = "mydnsmachine.network" }
+ { "probes" } }
+ { "host"
+ { "ip" = "10.50.25.49" }
+ { "fqdn" = "myotherdnsmachine.network" }
+ { "probes"
+ { "noping" = "" }
+ { "noconn" = "" }
+ { "ssh" = "!" }
+ { "dns" = ""
+ { "url" = "mydnstocheck" } } } }
+ { "#comment" = "a comment in a group" }
+ {}
+ {} } }
+ { "page" = "anotherpage"
+ { "title" = "A new page" }
+ {}
+ { "#comment" = "a comment in a page" }
+ {}
+ { "group-compress" = "My test"
+ { "host"
+ { "ip" = "192.168.0.2" }
+ { "fqdn" = "myhost" }
+ { "probes"
+ { "url" = "https://myurl.com:1256" }
+ { "noconn" = "" }
+ { "pop3" = "" }
+ { "imap2" = "" }
+ { "ssh" = "" } } }
+ { "host"
+ { "ip" = "192.168.0.3" }
+ { "fqdn" = "myhost2" }
+ { "probes"
+ { "imap2" = "!" }
+ { "telnet" = "" }
+ { "dns" = "" } } }
+ {}
+ }
+ { "group-compress" = "DownTime"
+ { "host"
+ { "ip" = "0.0.0.0" }
+ { "fqdn" = "myhost3" }
+ { "probes"
+ { "DOWNTIME"
+ { "probe" = "fping" }
+ { "probe" = "http" }
+ { "day" = "*" }
+ { "starttime" = "1800" }
+ { "endtime" = "1015" }
+ { "cause" = "Frontal 01 Redirect Amazon eteint entre 18h et 10h" }
+ } } }
+ { "host"
+ { "ip" = "0.0.0.0" }
+ { "fqdn" = "myhost4" }
+ { "probes"
+ { "ftps" = "" }
+ { "imaps" = "" }
+ { "imap4" = "" }
+ { "pop-3" = "" }
+ { "pop2s" = "" }
+ { "pop" = "" }
+ { "smtp" = "" }
+ { "smtps" = "" }
+ { "ssh" = "" }
+ { "ssh1" = "" }
+ { "ssh2" = "" }
+ { "telnet" = "" }
+ { "telnets" = "" }
+ } } } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_bootconf.aug b/Sharp.Augeas.Test/lens/tests/test_bootconf.aug
new file mode 100644
index 0000000..577760f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_bootconf.aug
@@ -0,0 +1,47 @@
+(*
+Module: Test_BootConf
+ Provides unit tests for the <BootConf> lens.
+*)
+
+module Test_bootconf =
+
+test BootConf.boot get "boot /bsd -s\n" =
+ { "boot"
+ { "image" = "/bsd" }
+ { "arg" = "-s" } }
+
+test BootConf.echo get "echo 42\n" =
+ { "echo" = "42" }
+
+test BootConf.ls get "ls /\n" =
+ { "ls" = "/" }
+
+test BootConf.ls get "ls //\n" =
+ { "ls" = "//" }
+
+test BootConf.ls get "ls /some/path/\n" =
+ { "ls" = "/some/path/" }
+
+test BootConf.machine get "machine diskinfo\n" =
+ { "machine"
+ { "diskinfo" } }
+
+test BootConf.machine get "machine comaddr 0xdeadbeef\n" =
+ { "machine"
+ { "comaddr" = "0xdeadbeef" } }
+
+test BootConf.set get "set tty com0\n" =
+ { "set"
+ { "tty" = "com0" } }
+
+test BootConf.single_command get "help\n" =
+ { "help" }
+
+test BootConf.stty get "stty /dev/cuaU0 115200\n" =
+ { "stty"
+ { "device" = "/dev/cuaU0" }
+ { "speed" = "115200" } }
+
+test BootConf.stty get "stty /dev/cuaU0\n" =
+ { "stty"
+ { "device" = "/dev/cuaU0" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_build.aug b/Sharp.Augeas.Test/lens/tests/test_build.aug
new file mode 100644
index 0000000..be7d897
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_build.aug
@@ -0,0 +1,319 @@
+(*
+Module: Test_Build
+ Provides unit tests and examples for the <Build> lens.
+*)
+
+module Test_Build =
+
+(************************************************************************
+ * Group: GENERIC CONSTRUCTIONS
+ ************************************************************************)
+
+(* View: brackets
+ Test brackets *)
+let brackets = [ Build.brackets Sep.lbracket Sep.rbracket (key Rx.word) ]
+
+(* Test: brackets *)
+test brackets get "(foo)" = { "foo" }
+
+
+(************************************************************************
+ * Group: LIST CONSTRUCTIONS
+ ************************************************************************)
+
+(* View: list *)
+let list = Build.list [ key Rx.word ] Sep.space
+
+(* Test: list *)
+test list get "foo bar baz" = { "foo" } { "bar" } { "baz" }
+
+(* Test: list *)
+test list get "foo" = *
+
+(* View: opt_list *)
+let opt_list = Build.opt_list [ key Rx.word ] Sep.space
+
+(* Test: opt_list *)
+test opt_list get "foo bar baz" = { "foo" } { "bar" } { "baz" }
+
+
+(************************************************************************
+ * Group: LABEL OPERATIONS
+ ************************************************************************)
+
+(* View: xchg *)
+let xchg = [ Build.xchg Rx.space " " "space" ]
+
+(* Test: xchg *)
+test xchg get " \t " = { "space" }
+
+(* View: xchgs *)
+let xchgs = [ Build.xchgs " " "space" ]
+
+(* Test: xchgs *)
+test xchgs get " " = { "space" }
+
+
+(************************************************************************
+ * Group: SUBNODE CONSTRUCTIONS
+ ************************************************************************)
+
+(* View: key_value_line *)
+let key_value_line = Build.key_value_line Rx.word Sep.equal (store Rx.word)
+
+(* Test: key_value_line *)
+test key_value_line get "foo=bar\n" = { "foo" = "bar" }
+
+(* View: key_value_line_comment *)
+let key_value_line_comment = Build.key_value_line_comment Rx.word
+ Sep.equal (store Rx.word) Util.comment
+
+(* Test: key_value_line_comment *)
+test key_value_line_comment get "foo=bar # comment\n" =
+ { "foo" = "bar" { "#comment" = "comment" } }
+
+(* View: key_value *)
+let key_value = Build.key_value Rx.word Sep.equal (store Rx.word)
+
+(* Test: key_value *)
+test key_value get "foo=bar" = { "foo" = "bar" }
+
+(* View: key_ws_value *)
+let key_ws_value = Build.key_ws_value Rx.word
+
+(* Test: key_ws_value *)
+test key_ws_value get "foo bar\n" = { "foo" = "bar" }
+
+(* View: flag *)
+let flag = Build.flag Rx.word
+
+(* Test: flag *)
+test flag get "foo" = { "foo" }
+
+(* View: flag_line *)
+let flag_line = Build.flag_line Rx.word
+
+(* Test: flag_line *)
+test flag_line get "foo\n" = { "foo" }
+
+
+(************************************************************************
+ * Group: BLOCK CONSTRUCTIONS
+ ************************************************************************)
+
+(* View: block_entry
+ The block entry used for testing *)
+let block_entry = Build.key_value "test" Sep.equal (store Rx.word)
+
+(* View: block
+ The block used for testing *)
+let block = Build.block block_entry
+
+(* Test: block
+ Simple test for <block> *)
+test block get " {test=1}" =
+ { "test" = "1" }
+
+(* Test: block
+ Simple test for <block> with newlines *)
+test block get " {\n test=1\n}" =
+ { "test" = "1" }
+
+(* Test: block
+ Simple test for <block> two indented entries *)
+test block get " {\n test=1 \n test=2 \n}" =
+ { "test" = "1" }
+ { "test" = "2" }
+
+(* Test: block
+ Test <block> with a comment *)
+test block get " { # This is a comment\n}" =
+ { "#comment" = "This is a comment" }
+
+(* Test: block
+ Test <block> with comments and newlines *)
+test block get " { # This is a comment\n# Another comment\n}" =
+ { "#comment" = "This is a comment" }
+ { "#comment" = "Another comment" }
+
+(* Test: block
+ Test defaults for blocks *)
+test block put " { test=1 }" after
+ set "/#comment" "a comment";
+ rm "/test";
+ set "/test" "2" =
+ " { # a comment\ntest=2 }"
+
+(* View: named_block
+ The named block used for testing *)
+let named_block = Build.named_block "foo" block_entry
+
+(* Test: named_block
+ Simple test for <named_block> *)
+test named_block get "foo {test=1}\n" =
+ { "foo" { "test" = "1" } }
+
+(* View: logrotate_block
+ A minimalistic logrotate block *)
+let logrotate_block =
+ let entry = [ key Rx.word ]
+ in let filename = [ label "file" . store /\/[^,#= \n\t{}]+/ ]
+ in let filename_sep = del /[ \t\n]+/ " "
+ in let filenames = Build.opt_list filename filename_sep
+ in [ label "rule" . filenames . Build.block entry ]
+
+(* Test: logrotate_block *)
+test logrotate_block get "/var/log/wtmp\n/var/log/wtmp2\n{
+ missingok
+ monthly
+}" =
+ { "rule"
+ { "file" = "/var/log/wtmp" }
+ { "file" = "/var/log/wtmp2" }
+ { "missingok" }
+ { "monthly" }
+ }
+
+
+(************************************************************************
+ * Group: COMBINATORICS
+ ************************************************************************)
+
+(* View: combine_two
+ A minimalistic combination lens *)
+let combine_two =
+ let entry (k:string) = [ key k ]
+ in Build.combine_two (entry "a") (entry "b")
+
+(* Test: combine_two
+ Should parse ab *)
+test combine_two get "ab" = { "a" } { "b" }
+
+(* Test: combine_two
+ Should parse ba *)
+test combine_two get "ba" = { "b" } { "a" }
+
+(* Test: combine_two
+ Should not parse a *)
+test combine_two get "a" = *
+
+(* Test: combine_two
+ Should not parse b *)
+test combine_two get "b" = *
+
+(* Test: combine_two
+ Should not parse aa *)
+test combine_two get "aa" = *
+
+(* Test: combine_two
+ Should not parse bb *)
+test combine_two get "bb" = *
+
+
+(* View: combine_two_opt
+ A minimalistic optional combination lens *)
+let combine_two_opt =
+ let entry (k:string) = [ key k ]
+ in Build.combine_two_opt (entry "a") (entry "b")
+
+(* Test: combine_two_opt
+ Should parse ab *)
+test combine_two_opt get "ab" = { "a" } { "b" }
+
+(* Test: combine_two_opt
+ Should parse ba *)
+test combine_two_opt get "ba" = { "b" } { "a" }
+
+(* Test: combine_two_opt
+ Should parse a *)
+test combine_two_opt get "a" = { "a" }
+
+(* Test: combine_two_opt
+ Should parse b *)
+test combine_two_opt get "b" = { "b" }
+
+(* Test: combine_two_opt
+ Should not parse aa *)
+test combine_two_opt get "aa" = *
+
+(* Test: combine_two_opt
+ Should not parse bb *)
+test combine_two_opt get "bb" = *
+
+
+(* View: combine_three
+ A minimalistic optional combination lens *)
+let combine_three =
+ let entry (k:string) = [ key k ]
+ in Build.combine_three (entry "a") (entry "b") (entry "c")
+
+(* Test: combine_three
+ Should not parse ab *)
+test combine_three get "ab" = *
+
+(* Test: combine_three
+ Should not parse ba *)
+test combine_three get "ba" = *
+
+(* Test: combine_three
+ Should not parse a *)
+test combine_three get "a" = *
+
+(* Test: combine_three
+ Should not parse b *)
+test combine_three get "b" = *
+
+(* Test: combine_three
+ Should not parse aa *)
+test combine_three get "aa" = *
+
+(* Test: combine_three
+ Should not parse bbc *)
+test combine_three get "bbc" = *
+
+(* Test: combine_three
+ Should parse abc *)
+test combine_three get "abc" = { "a" } { "b" } { "c" }
+
+(* Test: combine_three
+ Should parse cab *)
+test combine_three get "cab" = { "c" } { "a" } { "b" }
+
+
+(* View: combine_three_opt
+ A minimalistic optional combination lens *)
+let combine_three_opt =
+ let entry (k:string) = [ key k ]
+ in Build.combine_three_opt (entry "a") (entry "b") (entry "c")
+
+(* Test: combine_three_opt
+ Should parse ab *)
+test combine_three_opt get "ab" = { "a" } { "b" }
+
+(* Test: combine_three_opt
+ Should parse ba *)
+test combine_three_opt get "ba" = { "b" } { "a" }
+
+(* Test: combine_three_opt
+ Should parse a *)
+test combine_three_opt get "a" = { "a" }
+
+(* Test: combine_three_opt
+ Should parse b *)
+test combine_three_opt get "b" = { "b" }
+
+(* Test: combine_three_opt
+ Should not parse aa *)
+test combine_three_opt get "aa" = *
+
+(* Test: combine_three_opt
+ Should not parse bbc *)
+test combine_three_opt get "bbc" = *
+
+(* Test: combine_three_opt
+ Should parse abc *)
+test combine_three_opt get "abc" = { "a" } { "b" } { "c" }
+
+(* Test: combine_three_opt
+ Should parse cab *)
+test combine_three_opt get "cab" = { "c" } { "a" } { "b" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_cachefilesd.aug b/Sharp.Augeas.Test/lens/tests/test_cachefilesd.aug
new file mode 100644
index 0000000..2ddb7b7
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cachefilesd.aug
@@ -0,0 +1,30 @@
+module Test_Cachefilesd =
+
+ let conf = "
+# I am a comment
+dir /var/cache/fscache
+tAg mycache
+brun 10%
+bcull 7%
+bstop 3%
+frun 10%
+fcull 7%
+fstop 3%
+nocull
+
+secctx system_u:system_r:cachefiles_kernel_t:s0
+"
+ test Cachefilesd.lns get conf =
+ { }
+ { "#comment" = "I am a comment" }
+ { "dir" = "/var/cache/fscache" }
+ { "tAg" = "mycache" }
+ { "brun" = "10%" }
+ { "bcull" = "7%" }
+ { "bstop" = "3%" }
+ { "frun" = "10%" }
+ { "fcull" = "7%" }
+ { "fstop" = "3%" }
+ { "nocull" }
+ { }
+ { "secctx" = "system_u:system_r:cachefiles_kernel_t:s0" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_carbon.aug b/Sharp.Augeas.Test/lens/tests/test_carbon.aug
new file mode 100644
index 0000000..b124bf3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_carbon.aug
@@ -0,0 +1,84 @@
+(*
+Module: Test_Carbon
+ Provides unit tests and examples for the <Carbon> lens.
+*)
+
+module Test_Carbon =
+
+let carbon_conf = "[cache]
+# Configure carbon directories.
+
+# Specify the user to drop privileges to
+# If this is blank carbon runs as the user that invokes it
+# This user must have write access to the local data directory
+USER =
+
+MAX_CACHE_SIZE = inf # comment at EOL
+LINE_RECEIVER_INTERFACE=0.0.0.0
+LINE_RECEIVER_PORT = 2003
+ENABLE_UDP_LISTENER = False
+
+[relay]
+LINE_RECEIVER_INTERFACE = 0.0.0.0
+LINE_RECEIVER_PORT = 2013
+PICKLE_RECEIVER_INTERFACE = 0.0.0.0
+PICKLE_RECEIVER_PORT = 2014
+"
+
+test Carbon.lns get carbon_conf =
+ { "cache"
+ { "#comment" = "Configure carbon directories." }
+ { }
+ { "#comment" = "Specify the user to drop privileges to" }
+ { "#comment" = "If this is blank carbon runs as the user that invokes it" }
+ { "#comment" = "This user must have write access to the local data directory" }
+ { "USER" }
+ { }
+ { "MAX_CACHE_SIZE" = "inf"
+ { "#comment" = "comment at EOL" }
+ }
+ { "LINE_RECEIVER_INTERFACE" = "0.0.0.0" }
+ { "LINE_RECEIVER_PORT" = "2003" }
+ { "ENABLE_UDP_LISTENER" = "False" }
+ { }
+ }
+ { "relay"
+ { "LINE_RECEIVER_INTERFACE" = "0.0.0.0" }
+ { "LINE_RECEIVER_PORT" = "2013" }
+ { "PICKLE_RECEIVER_INTERFACE" = "0.0.0.0" }
+ { "PICKLE_RECEIVER_PORT" = "2014" }
+ }
+
+let relay_rules_conf = "# You must have exactly one section with 'default = true'
+# Note that all destinations listed must also exist in carbon.conf
+# in the DESTINATIONS setting in the [relay] section
+[default]
+default = true
+destinations = 127.0.0.1:2004:a, 127.0.0.1:2104:b
+"
+
+test Carbon.lns get relay_rules_conf =
+ { "#comment" = "You must have exactly one section with 'default = true'" }
+ { "#comment" = "Note that all destinations listed must also exist in carbon.conf" }
+ { "#comment" = "in the DESTINATIONS setting in the [relay] section" }
+ { "default"
+ { "default" = "true" }
+ { "destinations" = "127.0.0.1:2004:a, 127.0.0.1:2104:b" }
+ }
+
+let storage_aggregation_conf = "# Aggregation methods for whisper files. Entries are scanned in order,
+# and first match wins. This file is scanned for changes every 60 seconds
+[max]
+pattern = \.max$
+xFilesFactor = 0.1
+aggregationMethod = max
+"
+
+test Carbon.lns get storage_aggregation_conf =
+ { "#comment" = "Aggregation methods for whisper files. Entries are scanned in order," }
+ { "#comment" = "and first match wins. This file is scanned for changes every 60 seconds" }
+ { "max"
+ { "pattern" = "\.max$" }
+ { "xFilesFactor" = "0.1" }
+ { "aggregationMethod" = "max" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_ceph.aug b/Sharp.Augeas.Test/lens/tests/test_ceph.aug
new file mode 100644
index 0000000..4f4bf37
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_ceph.aug
@@ -0,0 +1,180 @@
+
+module Test_ceph =
+
+ let ceph_simple = "[global]
+### http://ceph.com/docs/master/rados/configuration/general-config-ref/
+
+ fsid = b4b2e571-fbbf-4ff3-a9f8-ab80f08b7fe6 # use `uuidgen` to generate your own UUID
+ public network = 192.168.0.0/24
+ cluster network = 192.168.0.0/24
+"
+
+ let ceph_extended = "##
+# Sample ceph ceph.conf file.
+##
+# This file defines cluster membership, the various locations
+# that Ceph stores data, and any other runtime options.
+
+[global]
+ ; Start-line comment
+ log file = /var/log/ceph/$cluster-$name.log ; End-line comment
+
+ [mon.alpha]
+ host = alpha
+ mon addr = 192.168.0.10:6789
+
+ [mon.beta]
+ host = beta
+ mon addr = 192.168.0.11:6789
+
+[mon.gamma]
+ host = gamma
+ mon addr = 192.168.0.12:6789
+
+
+[mon]
+mon initial members = mycephhost
+
+mon host = cephhost01,cephhost02
+ mon addr = 192.168.0.101,192.168.0.102
+
+mon osd nearfull ratio = .85
+
+ # logging, for debugging monitor crashes, in order of
+ # their likelihood of being helpful :)
+ debug ms = 1
+ debug mon = 20
+ debug paxos = 20
+ debug auth = 20
+
+[mds]
+
+ osd max backfills = 5
+
+ #osd mkfs type = {fs-type}
+ #osd mkfs options {fs-type} = {mkfs options} # default for xfs is \"-f\"
+ #osd mount options {fs-type} = {mount options} # default mount option is \"rw, noatime\"
+ osd mkfs type = btrfs
+ osd mount options btrfs = noatime,nodiratime
+ journal dio = false
+
+ debug ms = 1
+ debug osd = 20
+ debug filestore = 20
+ debug journal = 20
+
+ filestore merge threshold = 10
+
+ osd crush update on start = false
+
+[osd.0]
+ host = delta
+
+[osd.1]
+ host = epsilon
+
+[osd.2]
+ host = zeta
+
+[osd.3]
+ host = eta
+
+ rgw dns name = radosgw.ceph.internal
+"
+
+ test Ceph.lns get ceph_simple =
+ { "global"
+ { "#comment" = "## http://ceph.com/docs/master/rados/configuration/general-config-ref/" }
+ { }
+ { "fsid" = "b4b2e571-fbbf-4ff3-a9f8-ab80f08b7fe6"
+ { "#comment" = "use `uuidgen` to generate your own UUID" }
+ }
+ { "public network" = "192.168.0.0/24" }
+ { "cluster network" = "192.168.0.0/24" }
+ }
+
+ test Ceph.lns get ceph_extended =
+ { "#comment" = "#" }
+ { "#comment" = "Sample ceph ceph.conf file." }
+ { "#comment" = "#" }
+ { "#comment" = "This file defines cluster membership, the various locations" }
+ { "#comment" = "that Ceph stores data, and any other runtime options." }
+ { }
+ { "global"
+ { "#comment" = "Start-line comment" }
+ { "log file" = "/var/log/ceph/$cluster-$name.log"
+ { "#comment" = "End-line comment" }
+ }
+ { }
+ }
+ { "mon.alpha"
+ { "host" = "alpha" }
+ { "mon addr" = "192.168.0.10:6789" }
+ { }
+ }
+ { "mon.beta"
+ { "host" = "beta" }
+ { "mon addr" = "192.168.0.11:6789" }
+ { }
+ }
+ { "mon.gamma"
+ { "host" = "gamma" }
+ { "mon addr" = "192.168.0.12:6789" }
+ { }
+ { }
+ }
+ { "mon"
+ { "mon initial members" = "mycephhost" }
+ { }
+ { "mon host" = "cephhost01,cephhost02" }
+ { "mon addr" = "192.168.0.101,192.168.0.102" }
+ { }
+ { "mon osd nearfull ratio" = ".85" }
+ { }
+ { "#comment" = "logging, for debugging monitor crashes, in order of" }
+ { "#comment" = "their likelihood of being helpful :)" }
+ { "debug ms" = "1" }
+ { "debug mon" = "20" }
+ { "debug paxos" = "20" }
+ { "debug auth" = "20" }
+ { }
+ }
+ { "mds"
+ { }
+ { "osd max backfills" = "5" }
+ { }
+ { "#comment" = "osd mkfs type = {fs-type}" }
+ { "#comment" = "osd mkfs options {fs-type} = {mkfs options} # default for xfs is \"-f\"" }
+ { "#comment" = "osd mount options {fs-type} = {mount options} # default mount option is \"rw, noatime\"" }
+ { "osd mkfs type" = "btrfs" }
+ { "osd mount options btrfs" = "noatime,nodiratime" }
+ { "journal dio" = "false" }
+ { }
+ { "debug ms" = "1" }
+ { "debug osd" = "20" }
+ { "debug filestore" = "20" }
+ { "debug journal" = "20" }
+ { }
+ { "filestore merge threshold" = "10" }
+ { }
+ { "osd crush update on start" = "false" }
+ { }
+ }
+ { "osd.0"
+ { "host" = "delta" }
+ { }
+ }
+ { "osd.1"
+ { "host" = "epsilon" }
+ { }
+ }
+ { "osd.2"
+ { "host" = "zeta" }
+ { }
+ }
+ { "osd.3"
+ { "host" = "eta" }
+ { }
+ { "rgw dns name" = "radosgw.ceph.internal" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_cgconfig.aug b/Sharp.Augeas.Test/lens/tests/test_cgconfig.aug
new file mode 100644
index 0000000..84fd2de
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cgconfig.aug
@@ -0,0 +1,365 @@
+module Test_cgconfig =
+
+let conf="#cgconfig test cofiguration file
+mount { 123 = 456; 456 = 789;}
+"
+
+test Cgconfig.lns get conf =
+ { "#comment" = "cgconfig test cofiguration file" }
+ { "mount"
+ { "123" = "456" }
+ { "456" = "789" } }
+ {}
+
+(* white spaces before mount sign *)
+let conf2="
+ mount { 123 = 456;}
+ mount { 123 = 456;}
+
+mount { 123 = 456;}mount { 123 = 456;}
+"
+
+test Cgconfig.lns get conf2 =
+ { }
+ { "mount" { "123" = "456"} }
+ { }
+ { "mount" { "123" = "456"} }
+ { }
+ { }
+ { "mount" { "123" = "456"} }
+ { "mount" { "123" = "456" } }
+ { }
+
+let conf3="#cgconfig test cofiguration file
+mount { 123 = 456;
+#eswkh
+ 456 = 789;}
+"
+test Cgconfig.lns get conf3 =
+ { "#comment" = "cgconfig test cofiguration file" }
+ { "mount"
+ { "123" = "456" }
+ {}
+ { "#comment" = "eswkh" }
+ { "456" = "789" } }
+ {}
+
+let conf4="#cgconfig test cofiguration file
+mount {
+123 = 456;1245=456;
+}
+mount { 323=324;}mount{324=5343; }# this is a comment
+"
+
+test Cgconfig.lns get conf4 =
+ {"#comment" = "cgconfig test cofiguration file" }
+ {"mount"
+ { }
+ { "123" = "456"}
+ { "1245" = "456" }
+ { }}
+ { }
+ { "mount" { "323" = "324" } }
+ { "mount" { "324" = "5343" } }
+ { "#comment" = "this is a comment" }
+
+let group1="
+group user {
+ cpuacct {
+ lll = jjj;
+ }
+ cpu {
+ }
+}"
+
+test Cgconfig.lns get group1 =
+ { }
+ { "group" = "user"
+ { }
+ { "controller" = "cpuacct"
+ { }
+ { "lll" = "jjj" }
+ { } }
+ { }
+ { "controller" = "cpu" { } }
+ { } }
+
+let group2="
+group aa-1{
+ perm {
+ task { }
+ admin { }
+ }
+}"
+
+test Cgconfig.lns get group2 =
+ { }
+ { "group" = "aa-1"
+ { }
+ { "perm"
+ { }
+ { "task" }
+ { }
+ { "admin" }
+ { } }
+ { } }
+
+
+let group3 ="
+group xx/www {
+ perm {
+ task {
+ gid = root;
+ uid = root;
+ }
+ admin {
+ gid = aaa;
+# no aaa
+ uid = aaa;
+ }
+}
+}
+"
+
+test Cgconfig.lns get group3 =
+ { }
+ { "group" = "xx/www"
+ { }
+ { "perm"
+ { }
+ { "task"
+ { }
+ { "gid" = "root" }
+ { }
+ { "uid" = "root" }
+ { } }
+ { }
+ { "admin"
+ { }
+ { "gid" = "aaa" }
+ { }
+ { "#comment" = "no aaa" }
+ { "uid" = "aaa" }
+ { } }
+ { } }
+ { } }
+ { }
+
+let group4 ="
+#group daemons {
+# cpuacct{
+# }
+#}
+
+group daemons/ftp {
+ cpuacct{
+ }
+}
+
+ group daemons/www {
+ perm {
+ task {
+ uid = root;
+ gid = root;
+ }
+ admin {
+ uid = root;
+ gid = root;
+ }
+ }
+# cpu {
+# cpu.shares = 1000;
+# }
+}
+#
+#
+
+ mount {
+ devices = /mnt/cgroups/devices;cpuacct = /mnt/cgroups/cpuset;
+ cpuset = /mnt/cgroups/cpuset;
+
+
+ cpu = /mnt/cpu;
+# cpuset = /mnt/cgroups/cpuset2;
+}
+mount {
+devices = /mnt/cgroups/devices;
+# cpuacct = /mnt/cgroups/cpuacct;
+ ns = /mnt/cgroups/ns;
+#
+}
+
+"
+
+test Cgconfig.lns get group4 =
+ { }
+ { "#comment" = "group daemons {" }
+ { "#comment" = "cpuacct{" }
+ { "#comment" = "}" }
+ { "#comment" = "}" }
+ { }
+ { "group" = "daemons/ftp"
+ { }
+ { "controller" = "cpuacct" { } }
+ { } }
+ { }
+ { }
+ { "group" = "daemons/www"
+ { }
+ { "perm"
+ { }
+ { "task"
+ { }
+ { "uid" = "root" }
+ { }
+ { "gid" = "root" }
+ { } }
+ { }
+ { "admin"
+ { }
+ { "uid" = "root" }
+ { }
+ { "gid" = "root" }
+ { } }
+ { } }
+ { }
+ { "#comment" = "cpu {" }
+ { "#comment" = "cpu.shares = 1000;" }
+ { "#comment" = "}" } }
+ { }
+ { }
+ { }
+ { }
+ { "mount"
+ { }
+ { "devices" = "/mnt/cgroups/devices" }
+ { "cpuacct" = "/mnt/cgroups/cpuset" }
+ { }
+ { "cpuset" = "/mnt/cgroups/cpuset" }
+ { }
+ { }
+ { }
+ { "cpu" = "/mnt/cpu" }
+ { }
+ { "#comment" = "cpuset = /mnt/cgroups/cpuset2;" } }
+ { }
+ { "mount"
+ { }
+ { "devices" = "/mnt/cgroups/devices" }
+ { }
+ { "#comment" = "cpuacct = /mnt/cgroups/cpuacct;" }
+ { "ns" = "/mnt/cgroups/ns" }
+ { }
+ { } }
+ { }
+ { }
+
+test Cgconfig.lns put "group tst {memory {}}" after
+ set "/group" "tst2"
+= "group tst2 {memory {}}"
+
+let group5="
+group user {
+ cpuacct {}
+ cpu {}
+ cpuset {}
+ devices {}
+ freezer {}
+ memory {}
+ net_cls {}
+ blkio {}
+ hugetlb {}
+ perf_event {}
+}"
+
+test Cgconfig.lns get group5 =
+ { }
+ { "group" = "user"
+ { }
+ { "controller" = "cpuacct" }
+ { }
+ { "controller" = "cpu" }
+ { }
+ { "controller" = "cpuset" }
+ { }
+ { "controller" = "devices" }
+ { }
+ { "controller" = "freezer" }
+ { }
+ { "controller" = "memory" }
+ { }
+ { "controller" = "net_cls" }
+ { }
+ { "controller" = "blkio" }
+ { }
+ { "controller" = "hugetlb" }
+ { }
+ { "controller" = "perf_event" }
+ { }
+ }
+
+(* quoted controller parameter whitespace *)
+let group6="
+group blklimit {
+ blkio {
+ blkio.throttle.read_iops_device=\"8:0 50\";
+ }
+}"
+
+test Cgconfig.lns get group6 =
+ { }
+ { "group" = "blklimit"
+ { }
+ { "controller" = "blkio"
+ { }
+ { "blkio.throttle.read_iops_device" = "\"8:0 50\"" }
+ { }
+ }
+ { }
+ }
+
+let group7 ="
+group daemons/www {
+ perm {
+ task {
+ uid = root;
+ gid = root;
+ fperm = 770;
+ }
+ admin {
+ uid = root;
+ gid = root;
+ dperm = 777;
+ }
+ }
+}
+"
+
+test Cgconfig.lns get group7 =
+ { }
+ { "group" = "daemons/www"
+ { }
+ { "perm"
+ { }
+ { "task"
+ { }
+ { "uid" = "root" }
+ { }
+ { "gid" = "root" }
+ { }
+ { "fperm" = "770" }
+ { } }
+ { }
+ { "admin"
+ { }
+ { "uid" = "root" }
+ { }
+ { "gid" = "root" }
+ { }
+ { "dperm" = "777" }
+ { } }
+ { } }
+ { }
+ }
+ { }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_cgrules.aug b/Sharp.Augeas.Test/lens/tests/test_cgrules.aug
new file mode 100644
index 0000000..3e29d4f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cgrules.aug
@@ -0,0 +1,32 @@
+module Test_cgrules =
+
+let conf="#cgrules test configuration file
+poooeter cpu test1/
+% memory test2/
+@somegroup cpu toto/
+% devices toto1/
+% memory toto3/
+"
+test Cgrules.lns get conf =
+ { "#comment" = "cgrules test configuration file" }
+ { "user" = "poooeter"
+ { "cpu" = "test1/" }
+ { "memory" = "test2/" } }
+ { "group" = "somegroup"
+ { "cpu" = "toto/" }
+ { "devices" = "toto1/" }
+ { "memory" = "toto3/" } }
+
+test Cgrules.lns put conf after
+ set "user/cpu" "test3/";
+ rm "user/memory";
+ rm "group";
+ insa "devices" "user/*[last()]";
+ set "user/devices" "newtest/";
+ insb "memory" "user/devices";
+ set "user/memory" "memtest/"
+= "#cgrules test configuration file
+poooeter cpu test3/
+% memory memtest/
+% devices newtest/
+"
diff --git a/Sharp.Augeas.Test/lens/tests/test_channels.aug b/Sharp.Augeas.Test/lens/tests/test_channels.aug
new file mode 100644
index 0000000..a387494
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_channels.aug
@@ -0,0 +1,138 @@
+(*
+Module: Test_Channels
+ Provides unit tests and examples for the <Channels> lens.
+*)
+
+module Test_Channels =
+
+(* Variable: conf
+ A full configuration file *)
+let conf = "Direct 8 TV;SES ASTRA:12551:VC56M2O0S0:S19.2E:22000:1111=2:1112=fra@3:1116:0:12174:1:1108:0
+:FAVORIS
+Direct 8 TV;SES ASTRA:12551:VC56M2O0S0:S19.2E:22000:1111=2:1112=fra@3:1116:0:12175:1:1108:0
+TF1;CSAT:11895:VC34M2O0S0:S19.2E:27500:171=2:124=fra+spa@4,125=eng@4;126=deu@4:53:500,1811,1863,100:8371:1:1074:0
+:TNT
+TF1;SMR6:690167:I999B8C999D999M998T999G999Y0:T:27500:120=2:130=fra@3,131=eng@3,133=qad@3:140;150=fra,151=eng:0:1537:8442:6:0
+; this is a comment
+France 5;GR1:618167:I999B8C999D999M998T999G999Y0:T:27500:374+320=2:330=fra@3,331=qad@3:0;340=fra:0:260:8442:1:0
+CANAL+ FAMILY HD:12012:VC23M5O35S1:S19.2E:27500:164=27:0;98=@106,99=eng@106:0;45=fra+fra:1811,500,1863,100,9C4,9C7,9AF:8825:1:1080:0
+"
+
+(* Test: Channels.lns
+ Test the full <conf> *)
+test Channels.lns get conf =
+ { "entry" = "Direct 8 TV"
+ { "provider" = "SES ASTRA" }
+ { "frequency" = "12551" }
+ { "parameter" = "VC56M2O0S0" }
+ { "signal_source" = "S19.2E" }
+ { "symbol_rate" = "22000" }
+ { "vpid" = "1111" { "codec" = "2" } }
+ { "apid" = "1112" { "lang" = "fra" } { "codec" = "3" } }
+ { "tpid" = "1116" }
+ { "caid" = "0" }
+ { "sid" = "12174" }
+ { "nid" = "1" }
+ { "tid" = "1108" }
+ { "rid" = "0" }
+ }
+ { "group" = "FAVORIS"
+ { "entry" = "Direct 8 TV"
+ { "provider" = "SES ASTRA" }
+ { "frequency" = "12551" }
+ { "parameter" = "VC56M2O0S0" }
+ { "signal_source" = "S19.2E" }
+ { "symbol_rate" = "22000" }
+ { "vpid" = "1111" { "codec" = "2" } }
+ { "apid" = "1112" { "lang" = "fra" } { "codec" = "3" } }
+ { "tpid" = "1116" }
+ { "caid" = "0" }
+ { "sid" = "12175" }
+ { "nid" = "1" }
+ { "tid" = "1108" }
+ { "rid" = "0" }
+ }
+ { "entry" = "TF1"
+ { "provider" = "CSAT" }
+ { "frequency" = "11895" }
+ { "parameter" = "VC34M2O0S0" }
+ { "signal_source" = "S19.2E" }
+ { "symbol_rate" = "27500" }
+ { "vpid" = "171" { "codec" = "2" } }
+ { "apid" = "124" { "lang" = "fra" } { "lang" = "spa" } { "codec" = "4" } }
+ { "apid" = "125" { "lang" = "eng" } { "codec" = "4" } }
+ { "apid_dolby" = "126" { "lang" = "deu" } { "codec" = "4" } }
+ { "tpid" = "53" }
+ { "caid" = "500" }
+ { "caid" = "1811" }
+ { "caid" = "1863" }
+ { "caid" = "100" }
+ { "sid" = "8371" }
+ { "nid" = "1" }
+ { "tid" = "1074" }
+ { "rid" = "0" }
+ }
+ }
+ { "group" = "TNT"
+ { "entry" = "TF1"
+ { "provider" = "SMR6" }
+ { "frequency" = "690167" }
+ { "parameter" = "I999B8C999D999M998T999G999Y0" }
+ { "signal_source" = "T" }
+ { "symbol_rate" = "27500" }
+ { "vpid" = "120" { "codec" = "2" } }
+ { "apid" = "130" { "lang" = "fra" } { "codec" = "3" } }
+ { "apid" = "131" { "lang" = "eng" } { "codec" = "3" } }
+ { "apid" = "133" { "lang" = "qad" } { "codec" = "3" } }
+ { "tpid" = "140" }
+ { "tpid_bylang" = "150" { "lang" = "fra" } }
+ { "tpid_bylang" = "151" { "lang" = "eng" } }
+ { "caid" = "0" }
+ { "sid" = "1537" }
+ { "nid" = "8442" }
+ { "tid" = "6" }
+ { "rid" = "0" }
+ }
+ { "#comment" = "this is a comment" }
+ { "entry" = "France 5"
+ { "provider" = "GR1" }
+ { "frequency" = "618167" }
+ { "parameter" = "I999B8C999D999M998T999G999Y0" }
+ { "signal_source" = "T" }
+ { "symbol_rate" = "27500" }
+ { "vpid" = "374" }
+ { "vpid_pcr" = "320" { "codec" = "2" } }
+ { "apid" = "330" { "lang" = "fra" } { "codec" = "3" } }
+ { "apid" = "331" { "lang" = "qad" } { "codec" = "3" } }
+ { "tpid" = "0" }
+ { "tpid_bylang" = "340" { "lang" = "fra" } }
+ { "caid" = "0" }
+ { "sid" = "260" }
+ { "nid" = "8442" }
+ { "tid" = "1" }
+ { "rid" = "0" }
+ }
+ { "entry" = "CANAL+ FAMILY HD"
+ { "frequency" = "12012" }
+ { "parameter" = "VC23M5O35S1" }
+ { "signal_source" = "S19.2E" }
+ { "symbol_rate" = "27500" }
+ { "vpid" = "164" { "codec" = "27" } }
+ { "apid" = "0" }
+ { "apid_dolby" = "98" { "codec" = "106" } }
+ { "apid_dolby" = "99" { "lang" = "eng" } { "codec" = "106" } }
+ { "tpid" = "0" }
+ { "tpid_bylang" = "45" { "lang" = "fra" } { "lang" = "fra" } }
+ { "caid" = "1811" }
+ { "caid" = "500" }
+ { "caid" = "1863" }
+ { "caid" = "100" }
+ { "caid" = "9C4" }
+ { "caid" = "9C7" }
+ { "caid" = "9AF" }
+ { "sid" = "8825" }
+ { "nid" = "1" }
+ { "tid" = "1080" }
+ { "rid" = "0" }
+ }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_chrony.aug b/Sharp.Augeas.Test/lens/tests/test_chrony.aug
new file mode 100644
index 0000000..0c86cde
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_chrony.aug
@@ -0,0 +1,319 @@
+(*
+Module: Test_Chrony
+ Provides unit tests and examples for the <Chrony> lens.
+*)
+
+module Test_Chrony =
+
+ let exampleconf = "# Comment
+#Comment
+! Comment
+!Comment
+; Comment
+;Comment
+% Comment
+%Comment
+
+server ntp1.example.com
+server ntp2.example.com iburst
+server ntp3.example.com presend 2
+server ntp4.example.com offline polltarget 4
+server ntp5.example.com maxdelay 2 offline
+server ntp6.example.com maxdelay 2 iburst presend 2 xleave offset 1e-4
+server ntp7.example.com iburst presend 2 offline prefer trust require
+server ntp8.example.com minsamples 8 maxsamples 16 version 3
+server ntp9.example.com burst mindelay 0.1 asymmetry 0.5 nts filter 3
+peer ntpc1.example.com
+pool pool1.example.com iburst maxsources 3
+allow
+deny all
+cmdallow 192.168.1.0/24
+cmddeny all 192.168.2.0/24
+stratumweight 0
+ driftfile /var/lib/chrony/drift
+ rtcsync
+makestep 10 -1
+bindcmdaddress 127.0.0.1
+bindcmdaddress ::1
+bindacqdevice eth0
+bindcmddevice eth0
+binddevice eth0
+clockprecision 10e-9
+local
+local stratum 10
+local distance 1.0 orphan
+keyfile /etc/chrony.keys
+commandkey 1
+generatecommandkey
+manual
+noclientlog
+logchange 0.5
+logdir /var/log/chrony
+log rtc measurements rawmeasurements statistics tracking refclocks tempcomp
+leapsectz right/UTC
+broadcast 10 192.168.1.255
+broadcast 10 192.168.100.255 123
+fallbackdrift 16 19
+mailonchange root@localhost 0.5
+maxchange 1000 1 2
+maxdistance 1.0
+maxdrift 100
+hwtimestamp eth0 minpoll -2 txcomp 300e-9 rxcomp 645e-9 nocrossts rxfilter all
+hwtimestamp eth1 minsamples 10 maxsamples 20
+initstepslew 30 foo.bar.com
+initstepslew 30 foo.bar.com baz.quz.com
+ratelimit interval 4 burst 16 leak 2
+cmdratelimit
+ntsratelimit
+refclock SHM 0 refid SHM0 delay 0.1 offset 0.2 noselect tai stratum 3
+refclock SOCK /var/run/chrony-GPS.sock pps width 0.1
+refclock PPS /dev/pps0 dpoll 2 poll 3 lock SHM0 rate 5 minsamples 8
+smoothtime 400 0.001 leaponly
+tempcomp /sys/class/hwmon/hwmon0/temp2_input 30 26000 0.0 0.000183 0.0
+tempcomp /sys/class/hwmon/hwmon0/temp2_input 30 /etc/chrony.tempcomp
+ntpsigndsocket /var/lib/samba/ntp_signd
+confdir /etc/chrony.d /usr/lib/chrony.d
+sourcedir /etc/chrony.d /var/run/chrony.d
+authselectmode require
+dscp 46
+maxntsconnections 10
+nocerttimecheck 1
+nosystemcert
+ntsservercert /etc/chrony/server.crt
+ntsserverkey /etc/chrony/server.key
+ntstrustedcerts /etc/chrony/trusted.crt
+ntsdumpdir /var/lib/chrony
+ntsntpserver foo.example.com
+ntsport 123
+ntsprocesses 2
+ntsrefresh 86400
+ntsrotate 86400
+"
+
+ test Chrony.lns get exampleconf =
+ { "#comment" = "Comment" }
+ { "#comment" = "Comment" }
+ { "#comment" = "Comment" }
+ { "#comment" = "Comment" }
+ { "#comment" = "Comment" }
+ { "#comment" = "Comment" }
+ { "#comment" = "Comment" }
+ { "#comment" = "Comment" }
+ { }
+ { "server" = "ntp1.example.com" }
+ { "server" = "ntp2.example.com"
+ { "iburst" }
+ }
+ { "server" = "ntp3.example.com"
+ { "presend" = "2" }
+ }
+ { "server" = "ntp4.example.com"
+ { "offline" }
+ { "polltarget" = "4" }
+ }
+ { "server" = "ntp5.example.com"
+ { "maxdelay" = "2" }
+ { "offline" }
+ }
+ { "server" = "ntp6.example.com"
+ { "maxdelay" = "2" }
+ { "iburst" }
+ { "presend" = "2" }
+ { "xleave" }
+ { "offset" = "1e-4" }
+ }
+ { "server" = "ntp7.example.com"
+ { "iburst" }
+ { "presend" = "2" }
+ { "offline" }
+ { "prefer" }
+ { "trust" }
+ { "require" }
+ }
+ { "server" = "ntp8.example.com"
+ { "minsamples" = "8" }
+ { "maxsamples" = "16" }
+ { "version" = "3" }
+ }
+ { "server" = "ntp9.example.com"
+ { "burst" }
+ { "mindelay" = "0.1" }
+ { "asymmetry" = "0.5" }
+ { "nts" }
+ { "filter" = "3" }
+ }
+ { "peer" = "ntpc1.example.com" }
+ { "pool" = "pool1.example.com"
+ { "iburst" }
+ { "maxsources" = "3" }
+ }
+ { "allow" }
+ { "deny"
+ { "all" }
+ }
+ { "cmdallow" = "192.168.1.0/24" }
+ { "cmddeny" = "192.168.2.0/24"
+ { "all" }
+ }
+ { "stratumweight" = "0" }
+ { "driftfile" = "/var/lib/chrony/drift" }
+ { "rtcsync" }
+ { "makestep"
+ { "threshold" = "10" }
+ { "limit" = "-1" }
+ }
+ { "bindcmdaddress" = "127.0.0.1" }
+ { "bindcmdaddress" = "::1" }
+ { "bindacqdevice" = "eth0" }
+ { "bindcmddevice" = "eth0" }
+ { "binddevice" = "eth0" }
+ { "clockprecision" = "10e-9" }
+ { "local" }
+ { "local"
+ { "stratum" = "10" }
+ }
+ { "local"
+ { "distance" = "1.0" }
+ { "orphan" }
+ }
+ { "keyfile" = "/etc/chrony.keys" }
+ { "commandkey" = "1" }
+ { "generatecommandkey" }
+ { "manual" }
+ { "noclientlog" }
+ { "logchange" = "0.5" }
+ { "logdir" = "/var/log/chrony" }
+ { "log"
+ { "rtc" }
+ { "measurements" }
+ { "rawmeasurements" }
+ { "statistics" }
+ { "tracking" }
+ { "refclocks" }
+ { "tempcomp" }
+ }
+ { "leapsectz" = "right/UTC" }
+ { "broadcast"
+ { "interval" = "10" }
+ { "address" = "192.168.1.255" }
+ }
+ { "broadcast"
+ { "interval" = "10" }
+ { "address" = "192.168.100.255" }
+ { "port" = "123" }
+ }
+ { "fallbackdrift"
+ { "min" = "16" }
+ { "max" = "19" }
+ }
+ { "mailonchange"
+ { "emailaddress" = "root@localhost" }
+ { "threshold" = "0.5" }
+ }
+ { "maxchange"
+ { "threshold" = "1000" }
+ { "delay" = "1" }
+ { "limit" = "2" }
+ }
+ { "maxdistance" = "1.0" }
+ { "maxdrift" = "100" }
+ { "hwtimestamp"
+ { "interface" = "eth0" }
+ { "minpoll" = "-2" }
+ { "txcomp" = "300e-9" }
+ { "rxcomp" = "645e-9" }
+ { "nocrossts" }
+ { "rxfilter" = "all" }
+ }
+ { "hwtimestamp"
+ { "interface" = "eth1" }
+ { "minsamples" = "10" }
+ { "maxsamples" = "20" }
+ }
+ { "initstepslew"
+ { "threshold" = "30" }
+ { "address" = "foo.bar.com" }
+ }
+ { "initstepslew"
+ { "threshold" = "30" }
+ { "address" = "foo.bar.com" }
+ { "address" = "baz.quz.com" }
+ }
+ { "ratelimit"
+ { "interval" = "4" }
+ { "burst" = "16" }
+ { "leak" = "2" }
+ }
+ { "cmdratelimit" }
+ { "ntsratelimit" }
+ { "refclock"
+ { "driver" = "SHM" }
+ { "parameter" = "0" }
+ { "refid" = "SHM0" }
+ { "delay" = "0.1" }
+ { "offset" = "0.2" }
+ { "noselect" }
+ { "tai" }
+ { "stratum" = "3" }
+ }
+ { "refclock"
+ { "driver" = "SOCK" }
+ { "parameter" = "/var/run/chrony-GPS.sock" }
+ { "pps" }
+ { "width" = "0.1" }
+ }
+ { "refclock"
+ { "driver" = "PPS" }
+ { "parameter" = "/dev/pps0" }
+ { "dpoll" = "2" }
+ { "poll" = "3" }
+ { "lock" = "SHM0" }
+ { "rate" = "5" }
+ { "minsamples" = "8" }
+ }
+ { "smoothtime"
+ { "maxfreq" = "400" }
+ { "maxwander" = "0.001" }
+ { "leaponly" }
+ }
+ { "tempcomp"
+ { "sensorfile" = "/sys/class/hwmon/hwmon0/temp2_input" }
+ { "interval" = "30" }
+ { "t0" = "26000" }
+ { "k0" = "0.0" }
+ { "k1" = "0.000183" }
+ { "k2" = "0.0" }
+ }
+ { "tempcomp"
+ { "sensorfile" = "/sys/class/hwmon/hwmon0/temp2_input" }
+ { "interval" = "30" }
+ { "pointfile" = "/etc/chrony.tempcomp" }
+ }
+ { "ntpsigndsocket" = "/var/lib/samba/ntp_signd" }
+ { "confdir"
+ { "directory" = "/etc/chrony.d" }
+ { "directory" = "/usr/lib/chrony.d" }
+ }
+ { "sourcedir"
+ { "directory" = "/etc/chrony.d" }
+ { "directory" = "/var/run/chrony.d" }
+ }
+ { "authselectmode" = "require" }
+ { "dscp" = "46" }
+ { "maxntsconnections" = "10" }
+ { "nocerttimecheck" = "1" }
+ { "nosystemcert" }
+ { "ntsservercert" = "/etc/chrony/server.crt" }
+ { "ntsserverkey" = "/etc/chrony/server.key" }
+ { "ntstrustedcerts" = "/etc/chrony/trusted.crt" }
+ { "ntsdumpdir" = "/var/lib/chrony" }
+ { "ntsntpserver" = "foo.example.com" }
+ { "ntsport" = "123" }
+ { "ntsprocesses" = "2" }
+ { "ntsrefresh" = "86400" }
+ { "ntsrotate" = "86400" }
+
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_clamav.aug b/Sharp.Augeas.Test/lens/tests/test_clamav.aug
new file mode 100644
index 0000000..5764e26
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_clamav.aug
@@ -0,0 +1,299 @@
+module Test_ClamAV =
+
+let clamd_conf ="##
+## Example config file for the Clam AV daemon
+## Please read the clamd.conf(5) manual before editing this file.
+##
+
+# Comment or remove the line below.
+Example
+# LogFile must be writable for the user running daemon.
+LogFile /var/log/clamav/clamd.log
+LogFileUnlock yes
+LogFileMaxSize 0
+LogTime yes
+LogClean yes
+LogSyslog yes
+LogFacility LOG_MAIL
+LogVerbose yes
+LogRotate yes
+ExtendedDetectionInfo yes
+PidFile /var/run/clamav/clamd.pid
+TemporaryDirectory /var/tmp
+DatabaseDirectory /var/lib/clamav
+OfficialDatabaseOnly no
+LocalSocket /var/run/clamav/clamd.sock
+LocalSocketGroup virusgroup
+LocalSocketMode 660
+FixStaleSocket yes
+TCPSocket 3310
+TCPAddr 127.0.0.1
+MaxConnectionQueueLength 30
+StreamMaxLength 10M
+StreamMinPort 30000
+StreamMaxPort 32000
+MaxThreads 50
+ReadTimeout 300
+CommandReadTimeout 5
+SendBufTimeout 200
+MaxQueue 200
+IdleTimeout 60
+ExcludePath ^/proc/
+ExcludePath ^/sys/
+MaxDirectoryRecursion 20
+FollowDirectorySymlinks yes
+FollowFileSymlinks yes
+CrossFilesystems yes
+SelfCheck 600
+VirusEvent /usr/local/bin/send_sms 123456789 \"VIRUS ALERT: %v\"
+User clam
+AllowSupplementaryGroups yes
+ExitOnOOM yes
+Foreground yes
+Debug yes
+LeaveTemporaryFiles yes
+AllowAllMatchScan no
+DetectPUA yes
+ExcludePUA NetTool
+ExcludePUA PWTool
+IncludePUA Spy
+IncludePUA Scanner
+IncludePUA RAT
+AlgorithmicDetection yes
+ForceToDisk yes
+DisableCache yes
+ScanPE yes
+DisableCertCheck yes
+ScanELF yes
+DetectBrokenExecutables yes
+ScanOLE2 yes
+OLE2BlockMacros no
+ScanPDF yes
+ScanSWF yes
+ScanMail yes
+ScanPartialMessages yes
+PhishingSignatures yes
+PhishingScanURLs yes
+PhishingAlwaysBlockSSLMismatch no
+PhishingAlwaysBlockCloak no
+PartitionIntersection no
+HeuristicScanPrecedence yes
+StructuredDataDetection yes
+StructuredMinCreditCardCount 5
+StructuredMinSSNCount 5
+StructuredSSNFormatNormal yes
+StructuredSSNFormatStripped yes
+ScanHTML yes
+ScanArchive yes
+ArchiveBlockEncrypted no
+MaxScanSize 150M
+MaxFileSize 30M
+MaxRecursion 10
+MaxFiles 15000
+MaxEmbeddedPE 10M
+MaxHTMLNormalize 10M
+"
+
+let freshclam_conf ="##
+## Example config file for freshclam
+## Please read the freshclam.conf(5) manual before editing this file.
+##
+
+
+# Comment or remove the line below.
+Example
+
+DatabaseDirectory /var/lib/clamav
+UpdateLogFile /var/log/clamav/freshclam.log
+LogFileMaxSize 2M
+LogTime yes
+LogVerbose yes
+LogSyslog yes
+LogFacility LOG_MAIL
+LogRotate yes
+PidFile /var/run/freshclam.pid
+DatabaseOwner clam
+AllowSupplementaryGroups yes
+DNSDatabaseInfo current.cvd.clamav.net
+DatabaseMirror db.XY.clamav.net
+DatabaseMirror database.clamav.net
+MaxAttempts 5
+ScriptedUpdates yes
+CompressLocalDatabase no
+DatabaseCustomURL http://myserver.com/mysigs.ndb
+DatabaseCustomURL file:///mnt/nfs/local.hdb
+PrivateMirror mirror1.mynetwork.com
+PrivateMirror mirror2.mynetwork.com
+Checks 24
+HTTPProxyServer myproxy.com
+HTTPProxyPort 1234
+HTTPProxyUsername myusername
+HTTPProxyPassword mypass
+HTTPUserAgent SomeUserAgentIdString
+LocalIPAddress aaa.bbb.ccc.ddd
+NotifyClamd /etc/clamd.conf
+OnUpdateExecute command
+OnErrorExecute command
+OnOutdatedExecute command
+Foreground yes
+Debug yes
+ConnectTimeout 60
+ReceiveTimeout 60
+TestDatabases yes
+SubmitDetectionStats /etc/clamd.conf
+DetectionStatsCountry za
+DetectionStatsCountry zw
+SafeBrowsing yes
+Bytecode yes
+ExtraDatabase dbname1
+ExtraDatabase dbname2
+"
+
+test ClamAV.lns get clamd_conf =
+ { "#comment" = "#" }
+ { "#comment" = "# Example config file for the Clam AV daemon" }
+ { "#comment" = "# Please read the clamd.conf(5) manual before editing this file." }
+ { "#comment" = "#" }
+ { }
+ { "#comment" = "Comment or remove the line below." }
+ { "Example" }
+ { "#comment" = "LogFile must be writable for the user running daemon." }
+ { "LogFile" = "/var/log/clamav/clamd.log" }
+ { "LogFileUnlock" = "yes" }
+ { "LogFileMaxSize" = "0" }
+ { "LogTime" = "yes" }
+ { "LogClean" = "yes" }
+ { "LogSyslog" = "yes" }
+ { "LogFacility" = "LOG_MAIL" }
+ { "LogVerbose" = "yes" }
+ { "LogRotate" = "yes" }
+ { "ExtendedDetectionInfo" = "yes" }
+ { "PidFile" = "/var/run/clamav/clamd.pid" }
+ { "TemporaryDirectory" = "/var/tmp" }
+ { "DatabaseDirectory" = "/var/lib/clamav" }
+ { "OfficialDatabaseOnly" = "no" }
+ { "LocalSocket" = "/var/run/clamav/clamd.sock" }
+ { "LocalSocketGroup" = "virusgroup" }
+ { "LocalSocketMode" = "660" }
+ { "FixStaleSocket" = "yes" }
+ { "TCPSocket" = "3310" }
+ { "TCPAddr" = "127.0.0.1" }
+ { "MaxConnectionQueueLength" = "30" }
+ { "StreamMaxLength" = "10M" }
+ { "StreamMinPort" = "30000" }
+ { "StreamMaxPort" = "32000" }
+ { "MaxThreads" = "50" }
+ { "ReadTimeout" = "300" }
+ { "CommandReadTimeout" = "5" }
+ { "SendBufTimeout" = "200" }
+ { "MaxQueue" = "200" }
+ { "IdleTimeout" = "60" }
+ { "ExcludePath" = "^/proc/" }
+ { "ExcludePath" = "^/sys/" }
+ { "MaxDirectoryRecursion" = "20" }
+ { "FollowDirectorySymlinks" = "yes" }
+ { "FollowFileSymlinks" = "yes" }
+ { "CrossFilesystems" = "yes" }
+ { "SelfCheck" = "600" }
+ { "VirusEvent" = "/usr/local/bin/send_sms 123456789 \"VIRUS ALERT: %v\"" }
+ { "User" = "clam" }
+ { "AllowSupplementaryGroups" = "yes" }
+ { "ExitOnOOM" = "yes" }
+ { "Foreground" = "yes" }
+ { "Debug" = "yes" }
+ { "LeaveTemporaryFiles" = "yes" }
+ { "AllowAllMatchScan" = "no" }
+ { "DetectPUA" = "yes" }
+ { "ExcludePUA" = "NetTool" }
+ { "ExcludePUA" = "PWTool" }
+ { "IncludePUA" = "Spy" }
+ { "IncludePUA" = "Scanner" }
+ { "IncludePUA" = "RAT" }
+ { "AlgorithmicDetection" = "yes" }
+ { "ForceToDisk" = "yes" }
+ { "DisableCache" = "yes" }
+ { "ScanPE" = "yes" }
+ { "DisableCertCheck" = "yes" }
+ { "ScanELF" = "yes" }
+ { "DetectBrokenExecutables" = "yes" }
+ { "ScanOLE2" = "yes" }
+ { "OLE2BlockMacros" = "no" }
+ { "ScanPDF" = "yes" }
+ { "ScanSWF" = "yes" }
+ { "ScanMail" = "yes" }
+ { "ScanPartialMessages" = "yes" }
+ { "PhishingSignatures" = "yes" }
+ { "PhishingScanURLs" = "yes" }
+ { "PhishingAlwaysBlockSSLMismatch" = "no" }
+ { "PhishingAlwaysBlockCloak" = "no" }
+ { "PartitionIntersection" = "no" }
+ { "HeuristicScanPrecedence" = "yes" }
+ { "StructuredDataDetection" = "yes" }
+ { "StructuredMinCreditCardCount" = "5" }
+ { "StructuredMinSSNCount" = "5" }
+ { "StructuredSSNFormatNormal" = "yes" }
+ { "StructuredSSNFormatStripped" = "yes" }
+ { "ScanHTML" = "yes" }
+ { "ScanArchive" = "yes" }
+ { "ArchiveBlockEncrypted" = "no" }
+ { "MaxScanSize" = "150M" }
+ { "MaxFileSize" = "30M" }
+ { "MaxRecursion" = "10" }
+ { "MaxFiles" = "15000" }
+ { "MaxEmbeddedPE" = "10M" }
+ { "MaxHTMLNormalize" = "10M" }
+
+test ClamAV.lns get freshclam_conf =
+ { "#comment" = "#" }
+ { "#comment" = "# Example config file for freshclam" }
+ { "#comment" = "# Please read the freshclam.conf(5) manual before editing this file." }
+ { "#comment" = "#" }
+ { }
+ { }
+ { "#comment" = "Comment or remove the line below." }
+ { "Example" }
+ { }
+ { "DatabaseDirectory" = "/var/lib/clamav" }
+ { "UpdateLogFile" = "/var/log/clamav/freshclam.log" }
+ { "LogFileMaxSize" = "2M" }
+ { "LogTime" = "yes" }
+ { "LogVerbose" = "yes" }
+ { "LogSyslog" = "yes" }
+ { "LogFacility" = "LOG_MAIL" }
+ { "LogRotate" = "yes" }
+ { "PidFile" = "/var/run/freshclam.pid" }
+ { "DatabaseOwner" = "clam" }
+ { "AllowSupplementaryGroups" = "yes" }
+ { "DNSDatabaseInfo" = "current.cvd.clamav.net" }
+ { "DatabaseMirror" = "db.XY.clamav.net" }
+ { "DatabaseMirror" = "database.clamav.net" }
+ { "MaxAttempts" = "5" }
+ { "ScriptedUpdates" = "yes" }
+ { "CompressLocalDatabase" = "no" }
+ { "DatabaseCustomURL" = "http://myserver.com/mysigs.ndb" }
+ { "DatabaseCustomURL" = "file:///mnt/nfs/local.hdb" }
+ { "PrivateMirror" = "mirror1.mynetwork.com" }
+ { "PrivateMirror" = "mirror2.mynetwork.com" }
+ { "Checks" = "24" }
+ { "HTTPProxyServer" = "myproxy.com" }
+ { "HTTPProxyPort" = "1234" }
+ { "HTTPProxyUsername" = "myusername" }
+ { "HTTPProxyPassword" = "mypass" }
+ { "HTTPUserAgent" = "SomeUserAgentIdString" }
+ { "LocalIPAddress" = "aaa.bbb.ccc.ddd" }
+ { "NotifyClamd" = "/etc/clamd.conf" }
+ { "OnUpdateExecute" = "command" }
+ { "OnErrorExecute" = "command" }
+ { "OnOutdatedExecute" = "command" }
+ { "Foreground" = "yes" }
+ { "Debug" = "yes" }
+ { "ConnectTimeout" = "60" }
+ { "ReceiveTimeout" = "60" }
+ { "TestDatabases" = "yes" }
+ { "SubmitDetectionStats" = "/etc/clamd.conf" }
+ { "DetectionStatsCountry" = "za" }
+ { "DetectionStatsCountry" = "zw" }
+ { "SafeBrowsing" = "yes" }
+ { "Bytecode" = "yes" }
+ { "ExtraDatabase" = "dbname1" }
+ { "ExtraDatabase" = "dbname2" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_cmdline.aug b/Sharp.Augeas.Test/lens/tests/test_cmdline.aug
new file mode 100644
index 0000000..0624a0b
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cmdline.aug
@@ -0,0 +1,22 @@
+module Test_cmdline =
+
+let lns = Cmdline.lns
+
+test lns get "foo\nbar" = *
+test lns get "foo\n" = { "foo" }
+test lns get "foo" = { "foo" }
+test lns get "foo bar" = { "foo" } { "bar" }
+test lns get "foo bar" = { "foo" } { "bar" }
+test lns get "foo=bar" = { "foo" = "bar" }
+test lns get "foo=bar foo=baz" = { "foo" = "bar" } { "foo" = "baz" }
+test lns get "foo bar=bar quux baz=x" =
+ { "foo" } { "bar" = "bar" } { "quux" } { "baz" = "x" }
+test lns get "initrd=\linux\initrd.img-4.19.0-6-amd64 root=UUID=SOME_UUID rw" =
+ { "initrd" = "\linux\initrd.img-4.19.0-6-amd64" } { "root" = "UUID=SOME_UUID" } { "rw" }
+
+test lns put "" after set "foo" "bar" = "foo=bar"
+test lns put "foo=bar" after rm "foo" = ""
+test lns put "x=y foo=bar" after set "foo" "baz" = "x=y foo=baz"
+test lns put "foo=bar foo=baz" after set "foo[. = 'bar']" "quux" = "foo=quux foo=baz"
+test lns put "foo=bar foo=baz" after set "foo[. = 'baz']" "quux" = "foo=bar foo=quux"
+test lns put "" after set "foo" "" = "foo"
diff --git a/Sharp.Augeas.Test/lens/tests/test_cobblermodules.aug b/Sharp.Augeas.Test/lens/tests/test_cobblermodules.aug
new file mode 100644
index 0000000..c525f6c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cobblermodules.aug
@@ -0,0 +1,30 @@
+module Test_cobblermodules =
+
+ let conf = "
+[serializes]
+settings = serializer_catalog
+
+[authentication]
+modules = auth_denyall
+"
+
+ test CobblerModules.lns get conf =
+ {}
+ { "serializes"
+ { "settings" = "serializer_catalog" }
+ {} }
+ { "authentication"
+ { "modules" = "auth_denyall" } }
+
+ test CobblerModules.lns put conf after
+ set "serializes/distro" "serializer_catalog";
+ set "serializes/repo" "serializer_catalog"
+ = "
+[serializes]
+settings = serializer_catalog
+
+distro=serializer_catalog
+repo=serializer_catalog
+[authentication]
+modules = auth_denyall
+"
diff --git a/Sharp.Augeas.Test/lens/tests/test_cobblersettings.aug b/Sharp.Augeas.Test/lens/tests/test_cobblersettings.aug
new file mode 100644
index 0000000..9646741
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cobblersettings.aug
@@ -0,0 +1,46 @@
+module Test_cobblersettings =
+
+test Cobblersettings.lns get "Simple_Setting: Value \n" =
+ { "Simple_Setting" = "Value" }
+
+test Cobblersettings.lns get "Simple_Setting2: 'Value2@acme.com' \n" =
+ { "Simple_Setting2" = "'Value2@acme.com'" }
+
+test Cobblersettings.lns get "Simple_Setting3: ''\n" =
+ { "Simple_Setting3" = "''" }
+
+test Cobblersettings.lns get "Simple_Setting4: \"\"\n" =
+ { "Simple_Setting4" = "\"\"" }
+
+test Cobblersettings.lns get "Simple_Setting_Trailing_Space : Value \n" =
+ { "Simple_Setting_Trailing_Space" = "Value" }
+
+test Cobblersettings.lns get "Setting_List:[Value1, Value2, Value3]\n" =
+ { "Setting_List"
+ { "sequence"
+ { "item" = "Value1" }
+ { "item" = "Value2" }
+ { "item" = "Value3" } } }
+
+test Cobblersettings.lns get "Empty_Setting_List: []\n" =
+ { "Empty_Setting_List"
+ { "sequence" } }
+
+test Cobblersettings.lns get "# Commented_Out_Setting: 'some value'\n" =
+ { "#comment" = "Commented_Out_Setting: 'some value'" }
+
+test Cobblersettings.lns get "---\n" =
+ { "---" = "---"}
+
+test Cobblersettings.lns get "Nested_Setting:\n Test: Value\n" =
+ { "Nested_Setting"
+ { "Test" = "Value" } }
+
+test Cobblersettings.lns get "Nested_Setting:\n - Test \n" =
+ { "Nested_Setting"
+ { "list"
+ { "value" = "Test" } } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_collectd.aug b/Sharp.Augeas.Test/lens/tests/test_collectd.aug
new file mode 100644
index 0000000..abecdcf
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_collectd.aug
@@ -0,0 +1,65 @@
+(*
+Module: Test_Collectd
+ Provides unit tests and examples for the <Collectd> lens.
+*)
+module Test_Collectd =
+
+(* Variable: simple *)
+let simple = "LoadPlugin contextswitch
+LoadPlugin cpu
+FQDNLookup \"true\"
+Include \"/var/lib/puppet/modules/collectd/plugins/*.conf\"
+"
+
+(* Test: Collectd.lns *)
+test Collectd.lns get simple =
+ { "directive" = "LoadPlugin"
+ { "arg" = "contextswitch" }
+ }
+ { "directive" = "LoadPlugin"
+ { "arg" = "cpu" }
+ }
+ { "directive" = "FQDNLookup"
+ { "arg" = "\"true\"" }
+ }
+ { "directive" = "Include"
+ { "arg" = "\"/var/lib/puppet/modules/collectd/plugins/*.conf\"" }
+ }
+
+
+(* Variable: filters *)
+let filters = "<Chain \"PreCache\">
+ <Rule \"no_fqdn\">
+ <Match \"regex\">
+ Host \"^[^\.]*$\"
+ Invert false
+ </Match>
+ Target \"stop\"
+ </Rule>
+</Chain>
+"
+
+
+(* Test: Collectd.lns *)
+test Collectd.lns get filters =
+ { "Chain"
+ { "arg" = "\"PreCache\"" }
+ { "Rule"
+ { "arg" = "\"no_fqdn\"" }
+ { "Match"
+ { "arg" = "\"regex\"" }
+ { "directive" = "Host"
+ { "arg" = "\"^[^\.]*$\"" }
+ }
+ { "directive" = "Invert"
+ { "arg" = "false" }
+ }
+ }
+ { "directive" = "Target"
+ { "arg" = "\"stop\"" }
+ }
+ }
+ }
+
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_cpanel.aug b/Sharp.Augeas.Test/lens/tests/test_cpanel.aug
new file mode 100644
index 0000000..c38d02f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cpanel.aug
@@ -0,0 +1,48 @@
+(*
+Module: Test_CPanel
+ Provides unit tests and examples for the <CPanel> lens.
+*)
+module Test_CPanel =
+
+(* Variable: config
+ A sample cpanel.config file *)
+let config = "#### NOTICE ####
+# After manually editing any configuration settings in this file,
+# please run '/usr/local/cpanel/whostmgr/bin/whostmgr2 --updatetweaksettings'
+# to fully update your server's configuration.
+
+skipantirelayd=1
+ionice_optimizefs=6
+account_login_access=owner_root
+enginepl=cpanel.pl
+stats_log=/usr/local/cpanel/logs/stats_log
+cpaddons_notify_users=Allow users to choose
+apache_port=0.0.0.0:80
+allow_server_info_status_from=
+system_diskusage_warn_percent=82.5500
+maxemailsperhour
+email_send_limits_max_defer_fail_percentage
+default_archive-logs=1
+SecurityPolicy::xml-api=1\n"
+
+(* Test: CPanel.lns
+ Get <config> *)
+test CPanel.lns get config =
+ { "#comment" = "### NOTICE ####" }
+ { "#comment" = "After manually editing any configuration settings in this file," }
+ { "#comment" = "please run '/usr/local/cpanel/whostmgr/bin/whostmgr2 --updatetweaksettings'" }
+ { "#comment" = "to fully update your server's configuration." }
+ { }
+ { "skipantirelayd" = "1" }
+ { "ionice_optimizefs" = "6" }
+ { "account_login_access" = "owner_root" }
+ { "enginepl" = "cpanel.pl" }
+ { "stats_log" = "/usr/local/cpanel/logs/stats_log" }
+ { "cpaddons_notify_users" = "Allow users to choose" }
+ { "apache_port" = "0.0.0.0:80" }
+ { "allow_server_info_status_from" = "" }
+ { "system_diskusage_warn_percent" = "82.5500" }
+ { "maxemailsperhour" }
+ { "email_send_limits_max_defer_fail_percentage" }
+ { "default_archive-logs" = "1" }
+ { "SecurityPolicy::xml-api" = "1" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_cron.aug b/Sharp.Augeas.Test/lens/tests/test_cron.aug
new file mode 100644
index 0000000..7181751
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cron.aug
@@ -0,0 +1,51 @@
+module Test_cron =
+
+ let conf = "# /etc/cron.d/anacron: crontab entries for the anacron package
+
+SHELL=/bin/sh
+PATH=/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin
+CRON_TZ=America/Los_Angeles
+MAILTO=user1@tld1,user2@tld2;user3@tld3
+
+ 30 7 * * * root test -x /etc/init.d/anacron && /usr/sbin/invoke-rc.d anacron start >/dev/null
+ 00 */3 15-25/2 May 1-5 user somecommand
+ 00 */3 15-25/2 May mon-tue user somecommand
+# a comment
+@yearly foo a command\n"
+
+ test Cron.lns get conf =
+ { "#comment" = "/etc/cron.d/anacron: crontab entries for the anacron package" }
+ {}
+ { "SHELL" = "/bin/sh" }
+ { "PATH" = "/usr/local/sbin:/usr/local/bin:/sbin:/bin:/usr/sbin:/usr/bin" }
+ { "CRON_TZ" = "America/Los_Angeles" }
+ { "MAILTO" = "user1@tld1,user2@tld2;user3@tld3" }
+ {}
+ { "entry" = "test -x /etc/init.d/anacron && /usr/sbin/invoke-rc.d anacron start >/dev/null"
+ { "time"
+ { "minute" = "30" }
+ { "hour" = "7" }
+ { "dayofmonth" = "*" }
+ { "month" = "*" }
+ { "dayofweek" = "*" } }
+ { "user" = "root" } }
+ { "entry" = "somecommand"
+ { "time"
+ { "minute" = "00" }
+ { "hour" = "*/3" }
+ { "dayofmonth" = "15-25/2" }
+ { "month" = "May" }
+ { "dayofweek" = "1-5" } }
+ { "user" = "user" } }
+ { "entry" = "somecommand"
+ { "time"
+ { "minute" = "00" }
+ { "hour" = "*/3" }
+ { "dayofmonth" = "15-25/2" }
+ { "month" = "May" }
+ { "dayofweek" = "mon-tue" } }
+ { "user" = "user" } }
+ { "#comment" = "a comment" }
+ { "entry" = "a command"
+ { "schedule" = "yearly" }
+ { "user" = "foo" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_cron_user.aug b/Sharp.Augeas.Test/lens/tests/test_cron_user.aug
new file mode 100644
index 0000000..19073c3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cron_user.aug
@@ -0,0 +1,34 @@
+module Test_Cron_User =
+
+let s = "MAILTO=cron@example.com
+31 * * * * ${HOME}/bin/stuff
+54 16 * * * /usr/sbin/tmpwatch -umc 30d ${HOME}/tmp\n"
+
+let lns = Cron_User.lns
+
+test lns get s =
+ { "MAILTO" = "cron@example.com" }
+ { "entry" = "${HOME}/bin/stuff"
+ { "time"
+ { "minute" = "31" }
+ { "hour" = "*" }
+ { "dayofmonth" = "*" }
+ { "month" = "*" }
+ { "dayofweek" = "*" }
+ }
+ }
+ { "entry" = "/usr/sbin/tmpwatch -umc 30d ${HOME}/tmp"
+ { "time"
+ { "minute" = "54" }
+ { "hour" = "16" }
+ { "dayofmonth" = "*" }
+ { "month" = "*" }
+ { "dayofweek" = "*" }
+ }
+ }
+
+test lns put s after
+rm "/MAILTO";
+rm "/entry[time/minute = '54']";
+set "/entry[. = '${HOME}/bin/stuff']/time/minute" "24" =
+ "24 * * * * ${HOME}/bin/stuff\n"
diff --git a/Sharp.Augeas.Test/lens/tests/test_crypttab.aug b/Sharp.Augeas.Test/lens/tests/test_crypttab.aug
new file mode 100644
index 0000000..e687814
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_crypttab.aug
@@ -0,0 +1,62 @@
+module Test_crypttab =
+
+ let simple = "sda1_crypt\t /dev/sda1\t /dev/random \t swap\n"
+
+ let simple_tree =
+ { "1"
+ { "target" = "sda1_crypt" }
+ { "device" = "/dev/sda1" }
+ { "password" = "/dev/random" }
+ { "opt" = "swap" } }
+
+ let trailing_ws = "sda1_crypt\t /dev/sda1\t /dev/random \t swap\t\n"
+
+ let no_opts = "sda1_crypt\t /dev/sda1\t /etc/key\n"
+
+ let no_opts_tree =
+ { "1"
+ { "target" = "sda1_crypt" }
+ { "device" = "/dev/sda1" }
+ { "password" = "/etc/key" } }
+
+ let no_password = "sda1_crypt\t /dev/sda1\n"
+
+ let no_password_tree =
+ { "1"
+ { "target" = "sda1_crypt" }
+ { "device" = "/dev/sda1" } }
+
+ let multi_opts = "sda1_crypt\t /dev/sda1\t /etc/key \t cipher=aes-cbc-essiv:sha256,verify\n"
+
+ let multi_opts_tree =
+ { "1"
+ { "target" = "sda1_crypt" }
+ { "device" = "/dev/sda1" }
+ { "password" = "/etc/key" }
+ { "opt" = "cipher"
+ { "value" = "aes-cbc-essiv:sha256" } }
+ { "opt" = "verify" } }
+
+ let uuid = "sda3_crypt UUID=5b8b6e72-acf9-43bc-bd2d-8dbcaee82f99 none luks,keyscript=/usr/share/yubikey-luks/ykluks-keyscript,discard\n"
+
+ let uuid_tree =
+ { "1"
+ { "target" = "sda3_crypt" }
+ { "device" = "UUID=5b8b6e72-acf9-43bc-bd2d-8dbcaee82f99" }
+ { "password" = "none" }
+ { "opt" = "luks" }
+ { "opt" = "keyscript"
+ { "value" = "/usr/share/yubikey-luks/ykluks-keyscript" } }
+ { "opt" = "discard" } }
+
+ test Crypttab.lns get simple = simple_tree
+
+ test Crypttab.lns get trailing_ws = simple_tree
+
+ test Crypttab.lns get no_opts = no_opts_tree
+
+ test Crypttab.lns get no_password = no_password_tree
+
+ test Crypttab.lns get multi_opts = multi_opts_tree
+
+ test Crypttab.lns get uuid = uuid_tree
diff --git a/Sharp.Augeas.Test/lens/tests/test_csv.aug b/Sharp.Augeas.Test/lens/tests/test_csv.aug
new file mode 100644
index 0000000..b24f447
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_csv.aug
@@ -0,0 +1,91 @@
+module Test_CSV =
+
+(* Test: CSV.lns
+ Simple test *)
+test CSV.lns get "a,b,c\n" =
+ { "1"
+ { "1" = "a" }
+ { "2" = "b" }
+ { "3" = "c" } }
+
+(* Test: CSV.lns
+ Values with spaces *)
+test CSV.lns get "a,b c,d\n" =
+ { "1"
+ { "1" = "a" }
+ { "2" = "b c" }
+ { "3" = "d" } }
+
+(* Test: CSV.lns
+ Quoted values *)
+test CSV.lns get "a,\"b,c\",d
+# comment
+#
+e,f,with space\n" =
+ { "1"
+ { "1" = "a" }
+ { "2" = "\"b,c\"" }
+ { "3" = "d" } }
+ { "#comment" = "comment" }
+ { }
+ { "2"
+ { "1" = "e" }
+ { "2" = "f" }
+ { "3" = "with space" } }
+
+(* Test: CSV.lns
+ Empty values *)
+test CSV.lns get ",
+,,\n" =
+ { "1"
+ { "1" = "" }
+ { "2" = "" } }
+ { "2"
+ { "1" = "" }
+ { "2" = "" }
+ { "3" = "" } }
+
+(* Test: CSV.lns
+ Trailing spaces *)
+test CSV.lns get "a , b
+ \n" =
+ { "1"
+ { "1" = "a " }
+ { "2" = " b " } }
+ { "2"
+ { "1" = " " } }
+
+(* Test: CSV.lns
+ Quoted values in quoted values *)
+test CSV.lns get "\"a,b\"\"c d\"\"\"\n" =
+ { "1" { "1" = "\"a,b\"\"c d\"\"\"" } }
+
+(* Test: CSV.lns
+ Quote in quoted values *)
+test CSV.lns get "\"a,b\"\"c d\"\n" =
+ { "1" { "1" = "\"a,b\"\"c d\"" } }
+
+(* Test: CSV.lns
+ Values with newlines *)
+test CSV.lns get "a,\"b\n c\"\n" =
+ { "1"
+ { "1" = "a" }
+ { "2" = "\"b\n c\"" } }
+
+(* Test: CSV.lns_semicol
+ Semi-colon lens *)
+test CSV.lns_semicol get "a;\"b;c\";d
+# comment
+#
+e;f;with space\n" =
+ { "1"
+ { "1" = "a" }
+ { "2" = "\"b;c\"" }
+ { "3" = "d" } }
+ { "#comment" = "comment" }
+ { }
+ { "2"
+ { "1" = "e" }
+ { "2" = "f" }
+ { "3" = "with space" } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_cups.aug b/Sharp.Augeas.Test/lens/tests/test_cups.aug
new file mode 100644
index 0000000..276c5d1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cups.aug
@@ -0,0 +1,481 @@
+(*
+Module: Test_Cups
+ Provides unit tests and examples for the <Cups> lens.
+*)
+
+module Test_Cups =
+
+(* Variable: conf *)
+let conf = "# Sample configuration file for the CUPS scheduler.
+LogLevel warn
+
+# Deactivate CUPS' internal logrotating, as we provide a better one, especially
+# LogLevel debug2 gets usable now
+MaxLogSize 0
+
+# Administrator user group...
+SystemGroup lpadmin
+
+
+# Only listen for connections from the local machine.
+Listen localhost:631
+Listen /var/run/cups/cups.sock
+
+# Show shared printers on the local network.
+BrowseOrder allow,deny
+BrowseAllow all
+BrowseLocalProtocols CUPS dnssd
+BrowseAddress @LOCAL
+
+# Default authentication type, when authentication is required...
+DefaultAuthType Basic
+
+# Web interface setting...
+WebInterface Yes
+
+# Restrict access to the server...
+<Location />
+ Order allow,deny
+</Location>
+
+# Restrict access to the admin pages...
+<Location /admin>
+ Order allow,deny
+</Location>
+
+# Restrict access to configuration files...
+<Location /admin/conf>
+ AuthType Default
+ Require user @SYSTEM
+ Order allow,deny
+</Location>
+
+# Set the default printer/job policies...
+<Policy default>
+ # Job/subscription privacy...
+ JobPrivateAccess default
+ JobPrivateValues default
+ SubscriptionPrivateAccess default
+ SubscriptionPrivateValues default
+
+ # Job-related operations must be done by the owner or an administrator...
+ <Limit Create-Job Print-Job Print-URI Validate-Job>
+ Order deny,allow
+ </Limit>
+
+ <Limit Send-Document Send-URI Hold-Job Release-Job Restart-Job Purge-Jobs Set-Job-Attributes Create-Job-Subscription Renew-Subscription Cancel-Subscription Get-Notifications Reprocess-Job Cancel-Current-Job Suspend-Current-Job Resume-Job Cancel-My-Jobs Close-Job CUPS-Move-Job CUPS-Get-Document>
+ Require user @OWNER @SYSTEM
+ Order deny,allow
+ </Limit>
+
+ # All administration operations require an administrator to authenticate...
+ <Limit CUPS-Add-Modify-Printer CUPS-Delete-Printer CUPS-Add-Modify-Class CUPS-Delete-Class CUPS-Set-Default CUPS-Get-Devices>
+ AuthType Default
+ Require user @SYSTEM
+ Order deny,allow
+ </Limit>
+
+ # All printer operations require a printer operator to authenticate...
+ <Limit Pause-Printer Resume-Printer Enable-Printer Disable-Printer Pause-Printer-After-Current-Job Hold-New-Jobs Release-Held-New-Jobs Deactivate-Printer Activate-Printer Restart-Printer Shutdown-Printer Startup-Printer Promote-Job Schedule-Job-After Cancel-Jobs CUPS-Accept-Jobs CUPS-Reject-Jobs>
+ AuthType Default
+ Require user @SYSTEM
+ Order deny,allow
+ </Limit>
+
+ # Only the owner or an administrator can cancel or authenticate a job...
+ <Limit Cancel-Job CUPS-Authenticate-Job>
+ Require user @OWNER @SYSTEM
+ Order deny,allow
+ </Limit>
+
+ <Limit All>
+ Order deny,allow
+ </Limit>
+</Policy>
+
+# Set the authenticated printer/job policies...
+<Policy authenticated>
+ # Job/subscription privacy...
+ JobPrivateAccess default
+ JobPrivateValues default
+ SubscriptionPrivateAccess default
+ SubscriptionPrivateValues default
+
+ # Job-related operations must be done by the owner or an administrator...
+ <Limit Create-Job Print-Job Print-URI Validate-Job>
+ AuthType Default
+ Order deny,allow
+ </Limit>
+
+ <Limit Send-Document Send-URI Hold-Job Release-Job Restart-Job Purge-Jobs Set-Job-Attributes Create-Job-Subscription Renew-Subscription Cancel-Subscription Get-Notifications Reprocess-Job Cancel-Current-Job Suspend-Current-Job Resume-Job Cancel-My-Jobs Close-Job CUPS-Move-Job CUPS-Get-Document>
+ AuthType Default
+ Require user @OWNER @SYSTEM
+ Order deny,allow
+ </Limit>
+
+ # All administration operations require an administrator to authenticate...
+ <Limit CUPS-Add-Modify-Printer CUPS-Delete-Printer CUPS-Add-Modify-Class CUPS-Delete-Class CUPS-Set-Default>
+ AuthType Default
+ Require user @SYSTEM
+ Order deny,allow
+ </Limit>
+
+ # All printer operations require a printer operator to authenticate...
+ <Limit Pause-Printer Resume-Printer Enable-Printer Disable-Printer Pause-Printer-After-Current-Job Hold-New-Jobs Release-Held-New-Jobs Deactivate-Printer Activate-Printer Restart-Printer Shutdown-Printer Startup-Printer Promote-Job Schedule-Job-After Cancel-Jobs CUPS-Accept-Jobs CUPS-Reject-Jobs>
+ AuthType Default
+ Require user @SYSTEM
+ Order deny,allow
+ </Limit>
+
+ # Only the owner or an administrator can cancel or authenticate a job...
+ <Limit Cancel-Job CUPS-Authenticate-Job>
+ AuthType Default
+ Require user @OWNER @SYSTEM
+ Order deny,allow
+ </Limit>
+
+ <Limit All>
+ Order deny,allow
+ </Limit>
+</Policy>
+"
+
+(* Test: Simplevars.lns *)
+test Cups.lns get conf =
+ { "#comment" = "Sample configuration file for the CUPS scheduler." }
+ { "directive" = "LogLevel"
+ { "arg" = "warn" }
+ }
+ { }
+ { "#comment" = "Deactivate CUPS' internal logrotating, as we provide a better one, especially" }
+ { "#comment" = "LogLevel debug2 gets usable now" }
+ { "directive" = "MaxLogSize"
+ { "arg" = "0" }
+ }
+ { }
+ { "#comment" = "Administrator user group..." }
+ { "directive" = "SystemGroup"
+ { "arg" = "lpadmin" }
+ }
+ { }
+ { }
+ { "#comment" = "Only listen for connections from the local machine." }
+ { "directive" = "Listen"
+ { "arg" = "localhost:631" }
+ }
+ { "directive" = "Listen"
+ { "arg" = "/var/run/cups/cups.sock" }
+ }
+ { }
+ { "#comment" = "Show shared printers on the local network." }
+ { "directive" = "BrowseOrder"
+ { "arg" = "allow,deny" }
+ }
+ { "directive" = "BrowseAllow"
+ { "arg" = "all" }
+ }
+ { "directive" = "BrowseLocalProtocols"
+ { "arg" = "CUPS" }
+ { "arg" = "dnssd" }
+ }
+ { "directive" = "BrowseAddress"
+ { "arg" = "@LOCAL" }
+ }
+ { }
+ { "#comment" = "Default authentication type, when authentication is required..." }
+ { "directive" = "DefaultAuthType"
+ { "arg" = "Basic" }
+ }
+ { }
+ { "#comment" = "Web interface setting..." }
+ { "directive" = "WebInterface"
+ { "arg" = "Yes" }
+ }
+ { }
+ { "#comment" = "Restrict access to the server..." }
+ { "Location"
+ { "arg" = "/" }
+ { "directive" = "Order"
+ { "arg" = "allow,deny" }
+ }
+ }
+ { "#comment" = "Restrict access to the admin pages..." }
+ { "Location"
+ { "arg" = "/admin" }
+ { "directive" = "Order"
+ { "arg" = "allow,deny" }
+ }
+ }
+ { "#comment" = "Restrict access to configuration files..." }
+ { "Location"
+ { "arg" = "/admin/conf" }
+ { "directive" = "AuthType"
+ { "arg" = "Default" }
+ }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "allow,deny" }
+ }
+ }
+ { "#comment" = "Set the default printer/job policies..." }
+ { "Policy"
+ { "arg" = "default" }
+ { "#comment" = "Job/subscription privacy..." }
+ { "directive" = "JobPrivateAccess"
+ { "arg" = "default" }
+ }
+ { "directive" = "JobPrivateValues"
+ { "arg" = "default" }
+ }
+ { "directive" = "SubscriptionPrivateAccess"
+ { "arg" = "default" }
+ }
+ { "directive" = "SubscriptionPrivateValues"
+ { "arg" = "default" }
+ }
+ { }
+ { "#comment" = "Job-related operations must be done by the owner or an administrator..." }
+ { "Limit"
+ { "arg" = "Create-Job" }
+ { "arg" = "Print-Job" }
+ { "arg" = "Print-URI" }
+ { "arg" = "Validate-Job" }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "Limit"
+ { "arg" = "Send-Document" }
+ { "arg" = "Send-URI" }
+ { "arg" = "Hold-Job" }
+ { "arg" = "Release-Job" }
+ { "arg" = "Restart-Job" }
+ { "arg" = "Purge-Jobs" }
+ { "arg" = "Set-Job-Attributes" }
+ { "arg" = "Create-Job-Subscription" }
+ { "arg" = "Renew-Subscription" }
+ { "arg" = "Cancel-Subscription" }
+ { "arg" = "Get-Notifications" }
+ { "arg" = "Reprocess-Job" }
+ { "arg" = "Cancel-Current-Job" }
+ { "arg" = "Suspend-Current-Job" }
+ { "arg" = "Resume-Job" }
+ { "arg" = "Cancel-My-Jobs" }
+ { "arg" = "Close-Job" }
+ { "arg" = "CUPS-Move-Job" }
+ { "arg" = "CUPS-Get-Document" }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@OWNER" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "#comment" = "All administration operations require an administrator to authenticate..." }
+ { "Limit"
+ { "arg" = "CUPS-Add-Modify-Printer" }
+ { "arg" = "CUPS-Delete-Printer" }
+ { "arg" = "CUPS-Add-Modify-Class" }
+ { "arg" = "CUPS-Delete-Class" }
+ { "arg" = "CUPS-Set-Default" }
+ { "arg" = "CUPS-Get-Devices" }
+ { "directive" = "AuthType"
+ { "arg" = "Default" }
+ }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "#comment" = "All printer operations require a printer operator to authenticate..." }
+ { "Limit"
+ { "arg" = "Pause-Printer" }
+ { "arg" = "Resume-Printer" }
+ { "arg" = "Enable-Printer" }
+ { "arg" = "Disable-Printer" }
+ { "arg" = "Pause-Printer-After-Current-Job" }
+ { "arg" = "Hold-New-Jobs" }
+ { "arg" = "Release-Held-New-Jobs" }
+ { "arg" = "Deactivate-Printer" }
+ { "arg" = "Activate-Printer" }
+ { "arg" = "Restart-Printer" }
+ { "arg" = "Shutdown-Printer" }
+ { "arg" = "Startup-Printer" }
+ { "arg" = "Promote-Job" }
+ { "arg" = "Schedule-Job-After" }
+ { "arg" = "Cancel-Jobs" }
+ { "arg" = "CUPS-Accept-Jobs" }
+ { "arg" = "CUPS-Reject-Jobs" }
+ { "directive" = "AuthType"
+ { "arg" = "Default" }
+ }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "#comment" = "Only the owner or an administrator can cancel or authenticate a job..." }
+ { "Limit"
+ { "arg" = "Cancel-Job" }
+ { "arg" = "CUPS-Authenticate-Job" }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@OWNER" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "Limit"
+ { "arg" = "All" }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ }
+ { "#comment" = "Set the authenticated printer/job policies..." }
+ { "Policy"
+ { "arg" = "authenticated" }
+ { "#comment" = "Job/subscription privacy..." }
+ { "directive" = "JobPrivateAccess"
+ { "arg" = "default" }
+ }
+ { "directive" = "JobPrivateValues"
+ { "arg" = "default" }
+ }
+ { "directive" = "SubscriptionPrivateAccess"
+ { "arg" = "default" }
+ }
+ { "directive" = "SubscriptionPrivateValues"
+ { "arg" = "default" }
+ }
+ { }
+ { "#comment" = "Job-related operations must be done by the owner or an administrator..." }
+ { "Limit"
+ { "arg" = "Create-Job" }
+ { "arg" = "Print-Job" }
+ { "arg" = "Print-URI" }
+ { "arg" = "Validate-Job" }
+ { "directive" = "AuthType"
+ { "arg" = "Default" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "Limit"
+ { "arg" = "Send-Document" }
+ { "arg" = "Send-URI" }
+ { "arg" = "Hold-Job" }
+ { "arg" = "Release-Job" }
+ { "arg" = "Restart-Job" }
+ { "arg" = "Purge-Jobs" }
+ { "arg" = "Set-Job-Attributes" }
+ { "arg" = "Create-Job-Subscription" }
+ { "arg" = "Renew-Subscription" }
+ { "arg" = "Cancel-Subscription" }
+ { "arg" = "Get-Notifications" }
+ { "arg" = "Reprocess-Job" }
+ { "arg" = "Cancel-Current-Job" }
+ { "arg" = "Suspend-Current-Job" }
+ { "arg" = "Resume-Job" }
+ { "arg" = "Cancel-My-Jobs" }
+ { "arg" = "Close-Job" }
+ { "arg" = "CUPS-Move-Job" }
+ { "arg" = "CUPS-Get-Document" }
+ { "directive" = "AuthType"
+ { "arg" = "Default" }
+ }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@OWNER" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "#comment" = "All administration operations require an administrator to authenticate..." }
+ { "Limit"
+ { "arg" = "CUPS-Add-Modify-Printer" }
+ { "arg" = "CUPS-Delete-Printer" }
+ { "arg" = "CUPS-Add-Modify-Class" }
+ { "arg" = "CUPS-Delete-Class" }
+ { "arg" = "CUPS-Set-Default" }
+ { "directive" = "AuthType"
+ { "arg" = "Default" }
+ }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "#comment" = "All printer operations require a printer operator to authenticate..." }
+ { "Limit"
+ { "arg" = "Pause-Printer" }
+ { "arg" = "Resume-Printer" }
+ { "arg" = "Enable-Printer" }
+ { "arg" = "Disable-Printer" }
+ { "arg" = "Pause-Printer-After-Current-Job" }
+ { "arg" = "Hold-New-Jobs" }
+ { "arg" = "Release-Held-New-Jobs" }
+ { "arg" = "Deactivate-Printer" }
+ { "arg" = "Activate-Printer" }
+ { "arg" = "Restart-Printer" }
+ { "arg" = "Shutdown-Printer" }
+ { "arg" = "Startup-Printer" }
+ { "arg" = "Promote-Job" }
+ { "arg" = "Schedule-Job-After" }
+ { "arg" = "Cancel-Jobs" }
+ { "arg" = "CUPS-Accept-Jobs" }
+ { "arg" = "CUPS-Reject-Jobs" }
+ { "directive" = "AuthType"
+ { "arg" = "Default" }
+ }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "#comment" = "Only the owner or an administrator can cancel or authenticate a job..." }
+ { "Limit"
+ { "arg" = "Cancel-Job" }
+ { "arg" = "CUPS-Authenticate-Job" }
+ { "directive" = "AuthType"
+ { "arg" = "Default" }
+ }
+ { "directive" = "Require"
+ { "arg" = "user" }
+ { "arg" = "@OWNER" }
+ { "arg" = "@SYSTEM" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ { "Limit"
+ { "arg" = "All" }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_cyrus_imapd.aug b/Sharp.Augeas.Test/lens/tests/test_cyrus_imapd.aug
new file mode 100644
index 0000000..ecb4ff1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_cyrus_imapd.aug
@@ -0,0 +1,37 @@
+module Test_cyrus_imapd =
+
+let conf = "configdirectory: /var/lib/imap
+partition-default: /var/spool/imap
+admins: cyrus-admin
+sievedir: /var/lib/imap/sieve
+sendmail: /usr/sbin/sendmail
+sasl_pwcheck_method: auxprop saslauthd
+sasl_mech_list: PLAIN LOGIN
+allowplaintext: no
+tls_cert_file: /etc/pki/cyrus-imapd/cyrus-imapd.pem
+tls_key_file: /etc/pki/cyrus-imapd/cyrus-imapd.pem
+tls_ca_file: /etc/pki/tls/certs/ca-bundle.crt
+# uncomment this if you're operating in a DSCP environment (RFC-4594)
+# qosmarking: af13\n"
+
+test Cyrus_Imapd.lns get conf =
+ { "configdirectory" = "/var/lib/imap" }
+ { "partition-default" = "/var/spool/imap" }
+ { "admins" = "cyrus-admin" }
+ { "sievedir" = "/var/lib/imap/sieve" }
+ { "sendmail" = "/usr/sbin/sendmail" }
+ { "sasl_pwcheck_method" = "auxprop saslauthd" }
+ { "sasl_mech_list" = "PLAIN LOGIN" }
+ { "allowplaintext" = "no" }
+ { "tls_cert_file" = "/etc/pki/cyrus-imapd/cyrus-imapd.pem" }
+ { "tls_key_file" = "/etc/pki/cyrus-imapd/cyrus-imapd.pem" }
+ { "tls_ca_file" = "/etc/pki/tls/certs/ca-bundle.crt" }
+ { "#comment" = "uncomment this if you're operating in a DSCP environment (RFC-4594)" }
+ { "#comment" = "qosmarking: af13" }
+
+test Cyrus_Imapd.lns get "admins: cyrus-admin\n"
+ =
+ { "admins" = "cyrus-admin" }
+
+test Cyrus_Imapd.lns put "" after set "munge8bit" "false" =
+ "munge8bit: false\n"
diff --git a/Sharp.Augeas.Test/lens/tests/test_darkice.aug b/Sharp.Augeas.Test/lens/tests/test_darkice.aug
new file mode 100644
index 0000000..a6542b6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_darkice.aug
@@ -0,0 +1,24 @@
+module Test_darkice =
+
+ let conf = "# this is a comment
+
+[general]
+duration = 0
+bufferSecs = 5 # size of internal slip buffer, in seconds
+
+[icecast2-0]
+bitrateMode=cbr
+format = vorbis
+"
+
+ test Darkice.lns get conf =
+ { "#comment" = "this is a comment" }
+ {}
+ { "target" = "general"
+ { "duration" = "0" }
+ { "bufferSecs" = "5"
+ { "#comment" = "size of internal slip buffer, in seconds" } }
+ {} }
+ { "target" = "icecast2-0"
+ { "bitrateMode" = "cbr" }
+ { "format" = "vorbis" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_debctrl.aug b/Sharp.Augeas.Test/lens/tests/test_debctrl.aug
new file mode 100644
index 0000000..11a37e1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_debctrl.aug
@@ -0,0 +1,434 @@
+module Test_debctrl =
+
+ let source = "Source: libtest-distmanifest-perl\n"
+ let source_result = { "Source" = "libtest-distmanifest-perl" }
+
+ test (Debctrl.simple_entry Debctrl.simple_src_keyword ) get source =
+ source_result
+
+ test (Debctrl.simple_entry Debctrl.simple_src_keyword ) get
+ "Maintainer: Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>\n"
+ = { "Maintainer" = "Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org>"
+ }
+
+ let uploaders
+ = "Uploaders: foo@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n"
+ . " gregor herrmann <gregoa@xxx.yy>\n"
+
+ let uploaders_result =
+ { "Uploaders"
+ { "1" = "foo@bar"}
+ { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" }
+ { "3" = "gregor herrmann <gregoa@xxx.yy>" } }
+
+ test Debctrl.uploaders get uploaders = uploaders_result
+
+(* test package dependencies *)
+test Debctrl.version_depends get "( >= 5.8.8-12 )" =
+ { "version" { "relation" = ">=" } { "number" = "5.8.8-12" } }
+
+test Debctrl.arch_depends get "[ !hurd-i386]" =
+ { "arch" { "prefix" = "!" } { "name" = "hurd-i386" } }
+
+test Debctrl.arch_depends get "[ hurd-i386]" =
+ { "arch" { "prefix" = "" } { "name" = "hurd-i386" } }
+
+let p_depends_test = "perl ( >= 5.8.8-12 ) [ !hurd-i386]"
+
+test Debctrl.package_depends get p_depends_test =
+ { "perl"
+ { "version"
+ { "relation" = ">=" }
+ { "number" = "5.8.8-12" } }
+ { "arch" { "prefix" = "!" } { "name" = "hurd-i386" } } }
+
+let dependency_test = "perl-modules (>= 5.10) | libmodule-build-perl"
+
+test Debctrl.dependency get dependency_test =
+ { "or" { "perl-modules"
+ { "version" { "relation" = ">=" }
+ { "number" = "5.10" } } } }
+ { "or" { "libmodule-build-perl" } }
+
+test (Debctrl.dependency_list "Build-Depends-Indep") get
+ "Build-Depends-Indep: perl (>= 5.8.8-12) [ !hurd-i386], \n"
+ . " perl-modules (>= 5.10) | libmodule-build-perl,\n"
+ . " libcarp-assert-more-perl,\n"
+ . " libconfig-tiny-perl\n"
+ = { "Build-Depends-Indep"
+ { "and" { "or" { "perl"
+ { "version"
+ { "relation" = ">=" }
+ { "number" = "5.8.8-12" } }
+ { "arch"
+ { "prefix" = "!" }
+ { "name" = "hurd-i386" } } } } }
+ { "and" { "or" { "perl-modules"
+ { "version" { "relation" = ">=" }
+ { "number" = "5.10" } } } }
+ { "or" { "libmodule-build-perl" } } }
+ { "and" { "or" { "libcarp-assert-more-perl" } } }
+ { "and" { "or" { "libconfig-tiny-perl" } } } }
+
+test (Debctrl.dependency_list "Depends") get
+ "Depends: ${perl:Depends}, ${misc:Depends},\n"
+ ." libparse-recdescent-perl (>= 1.90.0)\n"
+ = { "Depends"
+ { "and" { "or" { "${perl:Depends}" }} }
+ { "and" { "or" { "${misc:Depends}" }} }
+ { "and" { "or" { "libparse-recdescent-perl"
+ { "version"
+ { "relation" = ">=" }
+ { "number" = "1.90.0" } } } } }
+ }
+
+ let description = "Description: describe and edit configuration data\n"
+ ." Config::Model enables [...] must:\n"
+ ." - if the configuration data\n"
+ ." .\n"
+ ." With the elements above, (...) on ReadLine.\n"
+
+ test Debctrl.description get description =
+ { "Description"
+ { "summary" = "describe and edit configuration data" }
+ { "text" = "Config::Model enables [...] must:" }
+ { "text" = " - if the configuration data" }
+ { "text" = "." }
+ { "text" = "With the elements above, (...) on ReadLine."} }
+
+
+ let simple_bin_pkg1 = "Package: libconfig-model-perl\n"
+ . "Architecture: all\n"
+ . "Description: dummy1\n"
+ . " dummy text 1\n"
+
+ let simple_bin_pkg2 = "Package: libconfig-model2-perl\n"
+ . "Architecture: all\n"
+ . "Description: dummy2\n"
+ . " dummy text 2\n"
+
+ test Debctrl.src_entries get source.uploaders
+ = { "Source" = "libtest-distmanifest-perl" }
+ { "Uploaders"
+ { "1" = "foo@bar"}
+ { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" }
+ { "3" = "gregor herrmann <gregoa@xxx.yy>" } }
+
+ test Debctrl.bin_entries get simple_bin_pkg1 =
+ { "Package" = "libconfig-model-perl" }
+ { "Architecture" = "all" }
+ { "Description" { "summary" = "dummy1" } {"text" = "dummy text 1" } }
+
+
+ let paragraph_simple = source . uploaders ."\n"
+ . simple_bin_pkg1 . "\n"
+ . simple_bin_pkg2
+
+ test Debctrl.lns get paragraph_simple =
+ { "srcpkg" { "Source" = "libtest-distmanifest-perl" }
+ { "Uploaders"
+ { "1" = "foo@bar"}
+ { "2" = "Dominique Dumont <dominique.dumont@xx.yyy>" }
+ { "3" = "gregor herrmann <gregoa@xxx.yy>" } } }
+ { "binpkg" { "Package" = "libconfig-model-perl" }
+ { "Architecture" = "all" }
+ { "Description" { "summary" = "dummy1" }
+ { "text" = "dummy text 1" } } }
+ { "binpkg" { "Package" = "libconfig-model2-perl" }
+ { "Architecture" = "all" }
+ { "Description" { "summary" = "dummy2" }
+ { "text" = "dummy text 2" } } }
+
+
+(* PUT TESTS *)
+
+test Debctrl.src_entries
+ put uploaders
+ after set "/Uploaders/1" "foo@bar"
+ = uploaders
+
+test Debctrl.src_entries
+ put uploaders
+ after set "/Uploaders/1" "bar@bar"
+ = "Uploaders: bar@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n"
+ . " gregor herrmann <gregoa@xxx.yy>\n"
+
+test Debctrl.src_entries
+ put uploaders
+ after set "/Uploaders/4" "baz@bar"
+ = "Uploaders: foo@bar, Dominique Dumont <dominique.dumont@xx.yyy>,\n"
+ . " gregor herrmann <gregoa@xxx.yy>,\n"
+ . " baz@bar\n"
+
+test Debctrl.lns put (source."\nPackage: test\nDescription: foobar\n")
+ after
+ set "/srcpkg/Uploaders/1" "foo@bar" ;
+ set "/srcpkg/Uploaders/2" "Dominique Dumont <dominique.dumont@xx.yyy>" ;
+ set "/srcpkg/Uploaders/3" "gregor herrmann <gregoa@xxx.yy>" ;
+ set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/version/relation" ">=" ;
+ set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/version/number" "5.8.8-12" ;
+ set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/arch/prefix" "!" ;
+ set "/srcpkg/Build-Depends-Indep/and[1]/or/perl/arch/name" "hurd-i386" ;
+ set "/srcpkg/Build-Depends-Indep/and[2]/or[1]/perl-modules/version/relation" ">=" ;
+ set "/srcpkg/Build-Depends-Indep/and[2]/or[1]/perl-modules/version/number" "5.10" ;
+ set "/srcpkg/Build-Depends-Indep/and[2]/or[2]/libmodule-build-perl" "";
+ set "/srcpkg/Build-Depends-Indep/and[3]/or/libcarp-assert-more-perl" "" ;
+ set "/srcpkg/Build-Depends-Indep/and[4]/or/libconfig-tiny-perl" "" ;
+ set "/binpkg[1]/Package" "libconfig-model-perl" ;
+ (* must remove description because set cannot insert Archi before description *)
+ rm "/binpkg[1]/Description" ;
+ set "/binpkg/Architecture" "all" ;
+ set "/binpkg[1]/Description/summary" "dummy1" ;
+ set "/binpkg[1]/Description/text" "dummy text 1" ;
+ set "/binpkg[2]/Package" "libconfig-model2-perl" ;
+ set "/binpkg[2]/Architecture" "all" ;
+ set "/binpkg[2]/Description/summary" "dummy2" ;
+ set "/binpkg[2]/Description/text" "dummy text 2"
+ =
+"Source: libtest-distmanifest-perl
+Uploaders: foo@bar,
+ Dominique Dumont <dominique.dumont@xx.yyy>,
+ gregor herrmann <gregoa@xxx.yy>
+Build-Depends-Indep: perl ( >= 5.8.8-12 ) [ !hurd-i386 ],
+ perl-modules ( >= 5.10 ) | libmodule-build-perl,
+ libcarp-assert-more-perl,
+ libconfig-tiny-perl
+
+Package: libconfig-model-perl
+Architecture: all
+Description: dummy1
+ dummy text 1
+
+Package: libconfig-model2-perl
+Architecture: all
+Description: dummy2
+ dummy text 2
+"
+
+(* Test Augeas' own control file *)
+let augeas_control = "Source: augeas
+Priority: optional
+Maintainer: Nicolas Valcárcel Scerpella (Canonical) <nicolas.valcarcel@canonical.com>
+Uploaders: Free Ekanayaka <freee@debian.org>, Micah Anderson <micah@debian.org>
+Build-Depends: debhelper (>= 5), autotools-dev, libreadline-dev, chrpath,
+ naturaldocs (>= 1.51-1), texlive-latex-base
+Standards-Version: 3.9.2
+Section: libs
+Homepage: http://augeas.net/
+DM-Upload-Allowed: yes
+
+Package: augeas-tools
+Section: admin
+Architecture: any
+Depends: ${shlibs:Depends}, ${misc:Depends}
+Description: Augeas command line tools
+ Augeas is a configuration editing tool. It parses configuration files in their
+ native formats and transforms them into a tree. Configuration changes are made
+ by manipulating this tree and saving it back into native config files.
+ .
+ This package provides command line tools based on libaugeas0:
+ - augtool, a tool to manage configuration files.
+ - augparse, a testing and debugging tool for augeas lenses.
+
+Package: libaugeas-dev
+Section: libdevel
+Architecture: any
+Depends: libaugeas0 (= ${binary:Version}), ${shlibs:Depends}, ${misc:Depends}
+Description: Development files for writing applications based on libaugeas0
+ Augeas is a configuration editing tool. It parses configuration files in their
+ native formats and transforms them into a tree. Configuration changes are made
+ by manipulating this tree and saving it back into native config files.
+ .
+ This package includes the development files to write programs using the Augeas
+ API.
+"
+test DebCtrl.lns get augeas_control =
+ { "srcpkg"
+ { "Source" = "augeas" }
+ { "Priority" = "optional" }
+ { "Maintainer" = "Nicolas Valcárcel Scerpella (Canonical) <nicolas.valcarcel@canonical.com>" }
+ { "Uploaders"
+ { "1" = "Free Ekanayaka <freee@debian.org>" }
+ { "2" = "Micah Anderson <micah@debian.org>" }
+ }
+ { "Build-Depends"
+ { "and"
+ { "or"
+ { "debhelper"
+ { "version"
+ { "relation" = ">=" }
+ { "number" = "5" }
+ }
+ }
+ }
+ }
+ { "and"
+ { "or"
+ { "autotools-dev" }
+ }
+ }
+ { "and"
+ { "or"
+ { "libreadline-dev" }
+ }
+ }
+ { "and"
+ { "or"
+ { "chrpath" }
+ }
+ }
+ { "and"
+ { "or"
+ { "naturaldocs"
+ { "version"
+ { "relation" = ">=" }
+ { "number" = "1.51-1" }
+ }
+ }
+ }
+ }
+ { "and"
+ { "or"
+ { "texlive-latex-base" }
+ }
+ }
+ }
+ { "Standards-Version" = "3.9.2" }
+ { "Section" = "libs" }
+ { "Homepage" = "http://augeas.net/" }
+ { "DM-Upload-Allowed" = "yes" }
+ }
+ { "binpkg"
+ { "Package" = "augeas-tools" }
+ { "Section" = "admin" }
+ { "Architecture" = "any" }
+ { "Depends"
+ { "and"
+ { "or"
+ { "${shlibs:Depends}" }
+ }
+ }
+ { "and"
+ { "or"
+ { "${misc:Depends}" }
+ }
+ }
+ }
+ { "Description"
+ { "summary" = "Augeas command line tools" }
+ { "text" = "Augeas is a configuration editing tool. It parses configuration files in their" }
+ { "text" = "native formats and transforms them into a tree. Configuration changes are made" }
+ { "text" = "by manipulating this tree and saving it back into native config files." }
+ { "text" = "." }
+ { "text" = "This package provides command line tools based on libaugeas0:" }
+ { "text" = "- augtool, a tool to manage configuration files." }
+ { "text" = "- augparse, a testing and debugging tool for augeas lenses." }
+ }
+ }
+ { "binpkg"
+ { "Package" = "libaugeas-dev" }
+ { "Section" = "libdevel" }
+ { "Architecture" = "any" }
+ { "Depends"
+ { "and"
+ { "or"
+ { "libaugeas0"
+ { "version"
+ { "relation" = "=" }
+ { "number" = "${binary:Version}" }
+ }
+ }
+ }
+ }
+ { "and"
+ { "or"
+ { "${shlibs:Depends}" }
+ }
+ }
+ { "and"
+ { "or"
+ { "${misc:Depends}" }
+ }
+ }
+ }
+ { "Description"
+ { "summary" = "Development files for writing applications based on libaugeas0" }
+ { "text" = "Augeas is a configuration editing tool. It parses configuration files in their" }
+ { "text" = "native formats and transforms them into a tree. Configuration changes are made" }
+ { "text" = "by manipulating this tree and saving it back into native config files." }
+ { "text" = "." }
+ { "text" = "This package includes the development files to write programs using the Augeas" }
+ { "text" = "API." }
+ }
+ }
+
+(* Bug #267: Python module extensions, from Debian Python Policy, chapter 2 *)
+let python_control = "Source: graphite-web
+Maintainer: Will Pearson (Editure Key) <wpearson@editure.co.uk>
+Section: python
+Priority: optional
+Build-Depends: debhelper (>= 7), python-support (>= 0.8.4)
+Standards-Version: 3.7.2
+XS-Python-Version: current
+
+Package: python-graphite-web
+Architecture: all
+Depends: ${python:Depends}
+XB-Python-Version: ${python:Versions}
+Provides: ${python:Provides}
+Description: Enterprise scalable realtime graphing
+"
+test Debctrl.lns get python_control =
+ { "srcpkg"
+ { "Source" = "graphite-web" }
+ { "Maintainer" = "Will Pearson (Editure Key) <wpearson@editure.co.uk>" }
+ { "Section" = "python" }
+ { "Priority" = "optional" }
+ { "Build-Depends"
+ { "and"
+ { "or"
+ { "debhelper"
+ { "version"
+ { "relation" = ">=" }
+ { "number" = "7" }
+ }
+ }
+ }
+ }
+ { "and"
+ { "or"
+ { "python-support"
+ { "version"
+ { "relation" = ">=" }
+ { "number" = "0.8.4" }
+ }
+ }
+ }
+ }
+ }
+ { "Standards-Version" = "3.7.2" }
+ { "XS-Python-Version" = "current" }
+ }
+ { "binpkg"
+ { "Package" = "python-graphite-web" }
+ { "Architecture" = "all" }
+ { "Depends"
+ { "and"
+ { "or"
+ { "${python:Depends}" }
+ }
+ }
+ }
+ { "XB-Python-Version" = "${python:Versions}" }
+ { "Provides"
+ { "and"
+ { "or"
+ { "${python:Provides}" }
+ }
+ }
+ }
+ { "Description"
+ { "summary" = "Enterprise scalable realtime graphing" }
+ }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_desktop.aug b/Sharp.Augeas.Test/lens/tests/test_desktop.aug
new file mode 100644
index 0000000..de530ae
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_desktop.aug
@@ -0,0 +1,47 @@
+module Test_desktop =
+
+let conf = "# A comment
+[Desktop Entry]
+Version=1.0
+Type=Application
+Name=Foo Viewer
+# another comment
+Comment=The best viewer for Foo objects available!
+TryExec=fooview
+Exec=fooview %F
+Icon=fooview
+MimeType=image/x-foo;
+X-KDE-Library=libfooview
+X-KDE-FactoryName=fooviewfactory
+X-KDE-ServiceType=FooService
+"
+
+test Desktop.lns get conf =
+ { "#comment" = "A comment" }
+ { "Desktop Entry"
+ { "Version" = "1.0" }
+ { "Type" = "Application" }
+ { "Name" = "Foo Viewer" }
+ { "#comment" = "another comment" }
+ { "Comment" = "The best viewer for Foo objects available!" }
+ { "TryExec" = "fooview" }
+ { "Exec" = "fooview %F" }
+ { "Icon" = "fooview" }
+ { "MimeType" = "image/x-foo;" }
+ { "X-KDE-Library" = "libfooview" }
+ { "X-KDE-FactoryName" = "fooviewfactory" }
+ { "X-KDE-ServiceType" = "FooService" } }
+
+(* Entries with square brackets *)
+test Desktop.lns get "[Desktop Entry]
+X-GNOME-FullName[ca]=En canadien
+" =
+ { "Desktop Entry"
+ { "X-GNOME-FullName[ca]" = "En canadien" } }
+
+(* Test: Desktop.lns
+ Allow @ in setting (GH issue #92) *)
+test Desktop.lns get "[Desktop Entry]
+Name[sr@latin] = foobar\n" =
+ { "Desktop Entry"
+ { "Name[sr@latin]" = "foobar" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_devfsrules.aug b/Sharp.Augeas.Test/lens/tests/test_devfsrules.aug
new file mode 100644
index 0000000..b27ba6c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_devfsrules.aug
@@ -0,0 +1,59 @@
+module Test_DevfsRules =
+
+ let manpage_example = "[localrules=10]
+add path 'da*s*' mode 0660 group usb
+"
+
+ test DevfsRules.lns get manpage_example =
+ { "localrules" { "id" = "10" }
+ { "1" = "add path 'da*s*' mode 0660 group usb" } }
+
+
+ let example = "[devfsrules_jail_unhide_usb_printer_and_scanner=30]
+add include $devfsrules_hide_all
+add include $devfsrules_unhide_basic
+add include $devfsrules_unhide_login
+add path 'ulpt*' mode 0660 group printscan unhide
+add path 'unlpt*' mode 0660 group printscan unhide
+add path 'ugen2.8' mode 0660 group printscan unhide # Scanner (ugen2.8 is a symlink to usb/2.8.0)
+add path usb unhide
+add path usbctl unhide
+add path 'usb/2.8.0' mode 0660 group printscan unhide
+
+[devfsrules_jail_unhide_usb_scanner_only=30]
+add include $devfsrules_hide_all
+add include $devfsrules_unhide_basic
+add include $devfsrules_unhide_login
+add path 'ugen2.8' mode 0660 group scan unhide # Scanner
+add path usb unhide
+add path usbctl unhide
+add path 'usb/2.8.0' mode 0660 group scan unhide
+"
+
+ test DevfsRules.lns get example =
+ { "devfsrules_jail_unhide_usb_printer_and_scanner" { "id" = "30" }
+ { "1" = "add include $devfsrules_hide_all" }
+ { "2" = "add include $devfsrules_unhide_basic" }
+ { "3" = "add include $devfsrules_unhide_login" }
+ { "4" = "add path 'ulpt*' mode 0660 group printscan unhide" }
+ { "5" = "add path 'unlpt*' mode 0660 group printscan unhide" }
+ { "6" = "add path 'ugen2.8' mode 0660 group printscan unhide"
+ { "#comment" = "Scanner (ugen2.8 is a symlink to usb/2.8.0)" }
+ }
+ { "7" = "add path usb unhide" }
+ { "8" = "add path usbctl unhide" }
+ { "9" = "add path 'usb/2.8.0' mode 0660 group printscan unhide" }
+ { }
+ }
+ { "devfsrules_jail_unhide_usb_scanner_only" { "id" = "30" }
+ { "1" = "add include $devfsrules_hide_all" }
+ { "2" = "add include $devfsrules_unhide_basic" }
+ { "3" = "add include $devfsrules_unhide_login" }
+ { "4" = "add path 'ugen2.8' mode 0660 group scan unhide"
+ { "#comment" = "Scanner" }
+ }
+ { "5" = "add path usb unhide" }
+ { "6" = "add path usbctl unhide" }
+ { "7" = "add path 'usb/2.8.0' mode 0660 group scan unhide" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_device_map.aug b/Sharp.Augeas.Test/lens/tests/test_device_map.aug
new file mode 100644
index 0000000..9b5da50
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_device_map.aug
@@ -0,0 +1,34 @@
+module Test_device_map =
+
+ let conf = "# this device map was generated by anaconda
+(fd0) /dev/fda
+(hd0) /dev/sda
+(cd0) /dev/cdrom
+(hd1,1) /dev/sdb1
+(hd0,a) /dev/sda1
+(0x80) /dev/sda
+(128) /dev/sda
+"
+
+ test Device_map.lns get conf =
+ { "#comment" = "this device map was generated by anaconda" }
+ { "fd0" = "/dev/fda" }
+ { "hd0" = "/dev/sda" }
+ { "cd0" = "/dev/cdrom" }
+ { "hd1,1" = "/dev/sdb1" }
+ { "hd0,a" = "/dev/sda1" }
+ { "0x80" = "/dev/sda" }
+ { "128" = "/dev/sda" }
+
+ test Device_map.lns put conf after
+ set "hd2\,1" "/dev/sdb1"
+ = "# this device map was generated by anaconda
+(fd0) /dev/fda
+(hd0) /dev/sda
+(cd0) /dev/cdrom
+(hd1,1) /dev/sdb1
+(hd0,a) /dev/sda1
+(0x80) /dev/sda
+(128) /dev/sda
+(hd2,1)\t/dev/sdb1
+"
diff --git a/Sharp.Augeas.Test/lens/tests/test_dhclient.aug b/Sharp.Augeas.Test/lens/tests/test_dhclient.aug
new file mode 100644
index 0000000..3db8ac9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_dhclient.aug
@@ -0,0 +1,150 @@
+module Test_dhclient =
+
+ let conf =" # Sample dhclient.conf
+ # Protocol timing
+timeout 3; # Expect a fast server
+retry
+ 10;
+# Lease requirements and requests
+request
+ subnet-mask,
+ broadcast-address,
+ ntp-servers;
+# Dynamic DNS
+send
+ fqdn.fqdn
+ \"grosse.fugue.com.\";
+
+option rfc3442-classless-static-routes code 121 = array of unsigned integer 8;
+
+interface ep0 {
+ script /sbin/dhclient-script;
+ send dhcp-client-identifier 1:0:a0:24:ab:fb:9c;
+ send dhcp-lease-time 3600;
+ request subnet-mask, broadcast-address, time-offset, routers,
+ domain-name, domain-name-servers, host-name;
+ media media10baseT/UTP, \"media10base2/BNC\";
+}
+
+alias {
+ interface \"ep0\";
+ fixed-address 192.5.5.213;
+ option subnet-mask 255.255.255.255;
+}
+
+lease {
+ interface \"eth0\";
+ fixed-address 192.33.137.200;
+ medium \"link0 link1\";
+ vendor option space \"name\";
+ option host-name \"andare.swiftmedia.com\";
+ option subnet-mask 255.255.255.0;
+ option broadcast-address 192.33.137.255;
+ option routers 192.33.137.250;
+ option domain-name-servers 127.0.0.1;
+ renew 2 2000/1/12 00:00:01;
+ rebind 2 2000/1/12 00:00:01;
+ expire 2 2000/1/12 00:00:01;
+}
+"
+
+ test Dhclient.lns get conf =
+ { "#comment" = "Sample dhclient.conf" }
+ { "#comment" = "Protocol timing" }
+ { "timeout" = "3"
+ { "#comment" = "Expect a fast server" } }
+ { "retry" = "10" }
+ { "#comment" = "Lease requirements and requests" }
+ { "request"
+ { "1" = "subnet-mask" }
+ { "2" = "broadcast-address" }
+ { "3" = "ntp-servers" } }
+ { "#comment" = "Dynamic DNS" }
+ { "send"
+ { "fqdn.fqdn" = "\"grosse.fugue.com.\"" } }
+ {}
+ { "option"
+ { "rfc3442-classless-static-routes"
+ { "code" = "121" }
+ { "value" = "array of unsigned integer 8" } } }
+ {}
+ { "interface" = "ep0"
+ { "script" = "/sbin/dhclient-script" }
+ { "send"
+ { "dhcp-client-identifier" = "1:0:a0:24:ab:fb:9c" } }
+ { "send"
+ { "dhcp-lease-time" = "3600" } }
+ { "request"
+ { "1" = "subnet-mask" }
+ { "2" = "broadcast-address" }
+ { "3" = "time-offset" }
+ { "4" = "routers" }
+ { "5" = "domain-name" }
+ { "6" = "domain-name-servers" }
+ { "7" = "host-name" } }
+ { "media"
+ { "1" = "media10baseT/UTP" }
+ { "2" = "\"media10base2/BNC\"" } } }
+ {}
+ { "alias"
+ { "interface" = "\"ep0\"" }
+ { "fixed-address" = "192.5.5.213" }
+ { "option"
+ { "subnet-mask" = "255.255.255.255" } } }
+ {}
+ { "lease"
+ { "interface" = "\"eth0\"" }
+ { "fixed-address" = "192.33.137.200" }
+ { "medium" = "\"link0 link1\"" }
+ { "vendor option space" = "\"name\"" }
+ { "option"
+ { "host-name" = "\"andare.swiftmedia.com\"" } }
+ { "option"
+ { "subnet-mask" = "255.255.255.0" } }
+ { "option"
+ { "broadcast-address" = "192.33.137.255" } }
+ { "option"
+ { "routers" = "192.33.137.250" } }
+ { "option"
+ { "domain-name-servers" = "127.0.0.1" } }
+ { "renew"
+ { "weekday" = "2" }
+ { "year" = "2000" }
+ { "month" = "1" }
+ { "day" = "12" }
+ { "hour" = "00" }
+ { "minute" = "00" }
+ { "second" = "01" } }
+ { "rebind"
+ { "weekday" = "2" }
+ { "year" = "2000" }
+ { "month" = "1" }
+ { "day" = "12" }
+ { "hour" = "00" }
+ { "minute" = "00" }
+ { "second" = "01" } }
+ { "expire"
+ { "weekday" = "2" }
+ { "year" = "2000" }
+ { "month" = "1" }
+ { "day" = "12" }
+ { "hour" = "00" }
+ { "minute" = "00" }
+ { "second" = "01" } } }
+
+
+test Dhclient.lns get "append domain-name-servers 127.0.0.1;\n" =
+ { "append"
+ { "domain-name-servers" = "127.0.0.1" } }
+
+test Dhclient.lns put "" after set "/prepend/domain-name-servers" "127.0.0.1" =
+ "prepend domain-name-servers 127.0.0.1;\n"
+
+(* When = is used before the value, it's an evaluated string, see dhcp-eval *)
+test Dhclient.lns get "send dhcp-client-identifier = hardware;\n" =
+ { "send"
+ { "dhcp-client-identifier"
+ { "#eval" = "hardware" } } }
+
+test Dhclient.lns put "send host-name = gethostname();\n"
+ after set "/send/host-name/#eval" "test" = "send host-name = test;\n"
diff --git a/Sharp.Augeas.Test/lens/tests/test_dhcpd.aug b/Sharp.Augeas.Test/lens/tests/test_dhcpd.aug
new file mode 100644
index 0000000..0af337c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_dhcpd.aug
@@ -0,0 +1,606 @@
+module Test_dhcpd =
+
+let lns = Dhcpd.lns
+
+let conf = "#
+# Sample configuration file for ISC dhcpd for Debian
+#
+# Attention: If /etc/ltsp/dhcpd.conf exists, that will be used as
+# configuration file instead of this file.
+#
+# $Id: dhcpd.conf,v 1.1.1.1 2002/05/21 00:07:44 peloy Exp $
+#
+
+# The ddns-updates-style parameter controls whether or not the server will
+# attempt to do a DNS update when a lease is confirmed. We default to the
+# behavior of the version 2 packages ('none', since DHCP v2 didn't
+# have support for DDNS.)
+ddns-update-style none;
+
+# option definitions common to all supported networks...
+option domain-name \"example.org\";
+option domain-name-servers ns1.example.org, ns2.example.org;
+
+default-lease-time 600;
+max-lease-time 7200;
+
+# If this DHCP server is the official DHCP server for the local
+# network, the authoritative directive should be uncommented.
+authoritative;
+
+allow booting;
+allow bootp;
+
+# Use this to send dhcp log messages to a different log file (you also
+# have to hack syslog.conf to complete the redirection).
+log-facility local7;
+
+# No service will be given on this subnet, but declaring it helps the
+# DHCP server to understand the network topology.
+
+subnet 10.152.187.0 netmask 255.255.255.0 {
+}
+
+# This is a very basic subnet declaration.
+
+subnet 10.254.239.0 netmask 255.255.255.224 {
+ range 10.254.239.10 10.254.239.20;
+ option routers rtr-239-0-1.example.org, rtr-239-0-2.example.org;
+}
+
+# This declaration allows BOOTP clients to get dynamic addresses,
+# which we don't really recommend.
+
+subnet 10.254.239.32 netmask 255.255.255.224 {
+ range dynamic-bootp 10.254.239.40 10.254.239.60;
+ option broadcast-address 10.254.239.31;
+ option routers rtr-239-32-1.example.org;
+}
+
+# A slightly different configuration for an internal subnet.
+subnet 10.5.5.0 netmask 255.255.255.224 {
+ range 10.5.5.26 10.5.5.30;
+ option domain-name-servers ns1.internal.example.org;
+ option domain-name \"internal.example.org\";
+ option routers 10.5.5.1;
+ option broadcast-address 10.5.5.31;
+ default-lease-time 600;
+ max-lease-time 7200;
+}
+
+# Hosts which require special configuration options can be listed in
+# host statements. If no address is specified, the address will be
+# allocated dynamically (if possible), but the host-specific information
+# will still come from the host declaration.
+
+host passacaglia {
+ hardware ethernet 0:0:c0:5d:bd:95;
+ filename \"vmunix.passacaglia\";
+ server-name \"toccata.fugue.com\";
+}
+
+# Fixed IP addresses can also be specified for hosts. These addresses
+# should not also be listed as being available for dynamic assignment.
+# Hosts for which fixed IP addresses have been specified can boot using
+# BOOTP or DHCP. Hosts for which no fixed address is specified can only
+# be booted with DHCP, unless there is an address range on the subnet
+# to which a BOOTP client is connected which has the dynamic-bootp flag
+# set.
+host fantasia {
+ hardware ethernet 08:00:07:26:c0:a5;
+ fixed-address fantasia.fugue.com;
+}
+
+# You can declare a class of clients and then do address allocation
+# based on that. The example below shows a case where all clients
+# in a certain class get addresses on the 10.17.224/24 subnet, and all
+# other clients get addresses on the 10.0.29/24 subnet.
+
+#class \"foo\" {
+# match if substring (option vendor-class-identifier, 0, 4) = \"SUNW\";
+#}
+
+shared-network 224-29 {
+ subnet 10.17.224.0 netmask 255.255.255.0 {
+ option routers rtr-224.example.org;
+ }
+ subnet 10.0.29.0 netmask 255.255.255.0 {
+ option routers rtr-29.example.org;
+ }
+ pool {
+ allow members of \"foo\";
+ range 10.17.224.10 10.17.224.250;
+ }
+ pool {
+ deny members of \"foo\";
+ range 10.0.29.10 10.0.29.230;
+ }
+}
+"
+
+test lns get "authoritative;" = { "authoritative" }
+test lns get "ddns-update-style none;" = { "ddns-update-style" = "none" }
+test lns get "option domain-name \"example.org\";" =
+ { "option"
+ { "domain-name"
+ { "arg" = "example.org" }
+ }
+ }
+
+test lns get "option domain-name-servers ns1.example.org, ns2.example.org;" =
+ { "option"
+ { "domain-name-servers"
+ { "arg" = "ns1.example.org" }
+ { "arg" = "ns2.example.org" }
+ }
+ }
+
+test lns get "default-lease-time 600;" = { "default-lease-time" = "600" }
+test lns get "range 10.254.239.60;" =
+{ "range"
+ { "to" = "10.254.239.60" }
+ }
+
+test lns get "range dynamic-bootp 10.254.239.60;" =
+ { "range"
+ { "flag" = "dynamic-bootp" }
+ { "to" = "10.254.239.60" }
+ }
+
+test lns get "range dynamic-bootp 10.254.239.40 10.254.239.60;" =
+ { "range"
+ { "flag" = "dynamic-bootp" }
+ { "from" = "10.254.239.40" }
+ { "to" = "10.254.239.60" }
+ }
+
+test lns get "subnet 10.152.187.0 netmask 255.255.255.0 {}\n" =
+ { "subnet"
+ { "network" = "10.152.187.0" }
+ { "netmask" = "255.255.255.0" }
+ }
+
+test lns get " pool {
+ pool {
+
+ }
+}
+" =
+ { "pool"
+ { "pool" }
+ }
+
+test lns get "group { host some-host {hardware ethernet 00:00:aa:bb:cc:dd;
+fixed-address 10.1.1.1;}}" =
+ { "group"
+ { "host" = "some-host"
+ { "hardware"
+ { "type" = "ethernet" }
+ { "address" = "00:00:aa:bb:cc:dd" }
+ }
+ { "fixed-address" = "10.1.1.1" }
+ }
+ }
+
+test lns get "group fan-tas_tic { }" =
+ { "group" = "fan-tas_tic" }
+
+test Dhcpd.stmt_secu get "allow members of \"foo\";" = { "allow-members-of" = "foo" }
+test Dhcpd.stmt_secu get "allow booting;" = { "allow" = "booting" }
+test Dhcpd.stmt_secu get "allow bootp;" = { "allow" = "bootp" }
+test Dhcpd.stmt_option get "option voip-boot-server code 66 = string;" =
+ { "rfc-code"
+ { "label" = "voip-boot-server" }
+ { "code" = "66" }
+ { "type" = "string" }
+ }
+
+test Dhcpd.stmt_option get "option special-option code 25 = array of string;" =
+ { "rfc-code"
+ { "label" = "special-option" }
+ { "code" = "25" }
+ { "type" = "array of string" }
+ }
+
+test Dhcpd.stmt_option get "option special-option code 25 = integer 32;" =
+ { "rfc-code"
+ { "label" = "special-option" }
+ { "code" = "25" }
+ { "type" = "integer 32" }
+ }
+
+
+test Dhcpd.stmt_option get "option special-option code 25 = array of integer 32;" =
+ { "rfc-code"
+ { "label" = "special-option" }
+ { "code" = "25" }
+ { "type" = "array of integer 32" }
+ }
+
+
+
+test Dhcpd.lns get "authoritative;
+log-facility local7;
+ddns-update-style none;
+default-lease-time 21600;
+max-lease-time 43200;
+
+# Additional options for VOIP
+option voip-boot-server code 66 = string;
+option voip-vlan-id code 128 = string;
+" =
+ { "authoritative" }
+ { "log-facility" = "local7" }
+ { "ddns-update-style" = "none" }
+ { "default-lease-time" = "21600" }
+ { "max-lease-time" = "43200"
+ { "#comment" = "Additional options for VOIP" }
+ }
+ { "rfc-code"
+ { "label" = "voip-boot-server" }
+ { "code" = "66" }
+ { "type" = "string" }
+ }
+ { "rfc-code"
+ { "label" = "voip-vlan-id" }
+ { "code" = "128" }
+ { "type" = "string" }
+ }
+
+
+test Dhcpd.lns get "
+option domain-name-servers 10.1.1.1, 10.11.2.1, 10.1.3.1;
+next-server 10.1.1.1;
+
+failover peer \"redondance01\" {
+ primary;
+ address 10.1.1.1;
+ port 647;
+ peer address 10.1.1.1;
+ peer port 647;
+ max-response-delay 20;
+ max-unacked-updates 10;
+ mclt 3600; #comment.
+ split 128; #comment.
+ load balance max seconds 3;
+ }
+" =
+ { }
+ { "option"
+ { "domain-name-servers"
+ { "arg" = "10.1.1.1" }
+ { "arg" = "10.11.2.1" }
+ { "arg" = "10.1.3.1" }
+ }
+ }
+ { "next-server" = "10.1.1.1" }
+ { "failover peer" = "redondance01"
+ { "primary" }
+ { "address" = "10.1.1.1" }
+ { "port" = "647" }
+ { "peer address" = "10.1.1.1" }
+ { "peer port" = "647" }
+ { "max-response-delay" = "20" }
+ { "max-unacked-updates" = "10" }
+ { "mclt" = "3600"
+ { "#comment" = "comment." }
+ }
+ { "split" = "128"
+ { "#comment" = "comment." }
+ }
+ { "load balance max seconds" = "3" }
+ }
+
+
+(* test get and put for record types *)
+let record_test = "option test_records code 123 = { string, ip-address, integer 32, ip6-address, domain-list };"
+
+test Dhcpd.lns get record_test =
+ { "rfc-code"
+ { "label" = "test_records" }
+ { "code" = "123" }
+ { "record"
+ { "1" = "string" }
+ { "2" = "ip-address" }
+ { "3" = "integer 32" }
+ { "4" = "ip6-address" }
+ { "5" = "domain-list" }
+ }
+ }
+
+test Dhcpd.lns put record_test after set "/rfc-code[1]/code" "124" =
+ "option test_records code 124 = { string, ip-address, integer 32, ip6-address, domain-list };"
+
+test Dhcpd.lns get "
+option CallManager code 150 = ip-address;
+option slp-directory-agent true 10.1.1.1, 10.2.2.2;
+option slp-service-scope true \"SLP-GLOBAL\";
+option nds-context \"EXAMPLE\";
+option nds-tree-name \"EXAMPLE\";
+" =
+ { }
+ { "rfc-code"
+ { "label" = "CallManager" }
+ { "code" = "150" }
+ { "type" = "ip-address" }
+ }
+ { "option"
+ { "slp-directory-agent" = "true"
+ { "arg" = "10.1.1.1" }
+ { "arg" = "10.2.2.2" }
+ }
+ }
+ { "option"
+ { "slp-service-scope" = "true"
+ { "arg" = "SLP-GLOBAL" }
+ }
+ }
+ { "option"
+ { "nds-context"
+ { "arg" = "EXAMPLE" }
+ }
+ }
+ { "option"
+ { "nds-tree-name"
+ { "arg" = "EXAMPLE" }
+ }
+ }
+
+
+test Dhcpd.lns get "option voip-vlan-id \"VLAN=1234;\";" =
+ { "option"
+ { "voip-vlan-id"
+ { "arg" = "VLAN=1234;" }
+ }
+ }
+
+test Dhcpd.lns get "option domain-name \"x.example.com y.example.com z.example.com\";" =
+ { "option"
+ { "domain-name"
+ { "arg" = "x.example.com y.example.com z.example.com" }
+ }
+ }
+
+test Dhcpd.lns get "include \"/etc/dhcpd.master\";" =
+ { "include" = "/etc/dhcpd.master" }
+
+test Dhcpd.lns put "\n" after set "/include" "/etc/dhcpd.master" =
+ "\ninclude \"/etc/dhcpd.master\";\n"
+
+test Dhcpd.fct_args get "(option dhcp-client-identifier, 1, 3)" =
+ { "args"
+ { "arg" = "option dhcp-client-identifier" }
+ { "arg" = "1" }
+ { "arg" = "3" }
+ }
+
+test Dhcpd.stmt_match get "match if substring (option dhcp-client-identifier, 1, 3) = \"RAS\";" =
+ { "match"
+ { "function" = "substring"
+ { "args"
+ { "arg" = "option dhcp-client-identifier" }
+ { "arg" = "1" }
+ { "arg" = "3" }
+ }
+ }
+ { "value" = "RAS" }
+ }
+
+test Dhcpd.stmt_match get "match if suffix (option dhcp-client-identifier, 4) = \"RAS\";" =
+ { "match"
+ { "function" = "suffix"
+ { "args"
+ { "arg" = "option dhcp-client-identifier" }
+ { "arg" = "4" }
+ }
+ }
+ { "value" = "RAS" }
+ }
+
+test Dhcpd.stmt_match get "match if option vendor-class-identifier=\"RAS\";" =
+ { "match"
+ { "option" = "vendor-class-identifier"
+ { "value" = "RAS" }
+ }
+ }
+
+
+test Dhcpd.lns get "match pick-first-value (option dhcp-client-identifier, hardware);" =
+ { "match"
+ { "function" = "pick-first-value"
+ { "args"
+ { "arg" = "option dhcp-client-identifier" }
+ { "arg" = "hardware" }
+ }
+ }
+ }
+
+test Dhcpd.fct_args get "(16, 32, \"\", substring(hardware, 0, 4))" =
+ { "args"
+ { "arg" = "16" }
+ { "arg" = "32" }
+ { "arg" = "\"\"" }
+ { "arg" = "substring(hardware, 0, 4)" }
+ }
+
+test Dhcpd.stmt_match get "match if binary-to-ascii(16, 32, \"\", substring(hardware, 0, 4)) = \"1525400\";" =
+ { "match"
+ { "function" = "binary-to-ascii"
+ { "args"
+ { "arg" = "16" }
+ { "arg" = "32" }
+ { "arg" = "\"\"" }
+ { "arg" = "substring(hardware, 0, 4)" }
+ }
+ }
+ { "value" = "1525400" }
+ }
+
+test Dhcpd.lns get "subclass allocation-class-1 1:8:0:2b:4c:39:ad;" =
+ { "subclass"
+ { "name" = "allocation-class-1" }
+ { "value" = "1:8:0:2b:4c:39:ad" }
+ }
+
+
+test Dhcpd.lns get "subclass \"allocation-class-1\" 1:8:0:2b:4c:39:ad;" =
+ { "subclass"
+ { "name" = "allocation-class-1" }
+ { "value" = "1:8:0:2b:4c:39:ad" }
+ }
+
+test Dhcpd.lns get "subclass \"quoted class\" \"quoted value\";" =
+ { "subclass"
+ { "name" = "quoted class" }
+ { "value" = "quoted value" }
+ }
+
+
+(* overall test *)
+test Dhcpd.lns put conf after rm "/x" = conf
+
+(* bug #293: primary should support argument *)
+let input293 = "zone EXAMPLE.ORG. {
+ primary 127.0.0.1;
+}"
+
+test Dhcpd.lns get input293 =
+ { "zone" = "EXAMPLE.ORG."
+ { "primary" = "127.0.0.1" }
+ }
+
+(* bug #311: filename should be quoted *)
+let input311 = "subnet 172.16.0.0 netmask 255.255.255.0 {
+filename \"pxelinux.0\";
+}"
+
+test Dhcpd.lns put "subnet 172.16.0.0 netmask 255.255.255.0 {
+}" after
+ set "subnet/filename" "pxelinux.0" = input311
+
+(* GH issue #34: support conditional structures *)
+let gh34_empty = "if exists dhcp-parameter-request-list {
+}\n"
+
+test Dhcpd.lns get gh34_empty =
+ { "@if" = "exists dhcp-parameter-request-list" }
+
+let gh34_empty_multi = "subnet 192.168.100.0 netmask 255.255.255.0 {
+ if true {
+ } elsif false {
+ } else {
+ }
+}\n"
+
+test Dhcpd.lns get gh34_empty_multi =
+ { "subnet"
+ { "network" = "192.168.100.0" }
+ { "netmask" = "255.255.255.0" }
+ { "@if" = "true"
+ { "@elsif" = "false" }
+ { "@else" } }
+ }
+
+let gh34_simple = "if exists dhcp-parameter-request-list {
+ default-lease-time 600;
+ } else {
+default-lease-time 200;
+}\n"
+
+test Dhcpd.lns get gh34_simple =
+ { "@if" = "exists dhcp-parameter-request-list"
+ { "default-lease-time" = "600" }
+ { "@else"
+ { "default-lease-time" = "200" } } }
+
+test Dhcpd.lns get "omapi-key fookey;" =
+ { "omapi-key" = "fookey" }
+
+(* almost all DHCP groups should support braces starting on the next line *)
+test Dhcpd.lns get "class introduction
+{
+}" =
+ { "class" = "introduction" }
+
+(* equals should work the same *)
+test Dhcpd.lns get "option test_records code 123 =
+ string;" =
+ { "rfc-code"
+ { "label" = "test_records" }
+ { "code" = "123" }
+ { "type" = "string" }
+ }
+
+test Dhcpd.lns get "deny members of \"Are things like () allowed?\";" =
+ { "deny-members-of" = "Are things like () allowed?" }
+
+test Dhcpd.lns get "deny unknown clients;" =
+ { "deny" = "unknown clients" }
+test Dhcpd.lns get "deny known-clients;" =
+ { "deny" = "known-clients" }
+
+test Dhcpd.lns get "set ClientMac = binary-to-ascii(16, 8, \":\" , substring(hardware, 1, 6));" =
+ { "set" = "ClientMac"
+ { "value" = "binary-to-ascii(16, 8, \":\" , substring(hardware, 1, 6))" }
+ }
+
+test Dhcpd.lns get "set myvariable = foo;" =
+ { "set" = "myvariable"
+ { "value" = "foo" }
+ }
+
+test Dhcpd.stmt_hardware get "hardware fddi 00:01:02:03:04:05;" =
+ { "hardware"
+ { "type" = "fddi" }
+ { "address" = "00:01:02:03:04:05" }
+ }
+
+test Dhcpd.lns get "on commit
+{
+ set test = thing;
+}" =
+ { "on" = "commit"
+ { "set" = "test"
+ { "value" = "thing" }
+ }
+ }
+
+(* key block get/put/set test *)
+let key_tests = "key sample {
+ algorithm hmac-md5;
+ secret \"secret==\";
+}
+
+key \"interesting\" { };
+
+key \"third key\" {
+ secret \"two==\";
+}"
+
+test Dhcpd.lns get key_tests =
+ { "key_block" = "sample"
+ { "algorithm" = "hmac-md5" }
+ { "secret" = "secret==" }
+ }
+ { "key_block" = "interesting" }
+ { "key_block" = "third key"
+ { "secret" = "two==" }
+ }
+
+test Dhcpd.lns put key_tests after set "/key_block[1]" "sample2" =
+ "key sample2 {
+ algorithm hmac-md5;
+ secret \"secret==\";
+}
+
+key \"interesting\" { };
+
+key \"third key\" {
+ secret \"two==\";
+}"
+
+test Dhcpd.lns get "group \"hello\" { }" =
+ { "group" = "hello" }
+
+test Dhcpd.lns get "class \"testing class with spaces and quotes and ()\" {}" =
+ { "class" = "testing class with spaces and quotes and ()" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_dns_zone.aug b/Sharp.Augeas.Test/lens/tests/test_dns_zone.aug
new file mode 100644
index 0000000..2537c4d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_dns_zone.aug
@@ -0,0 +1,384 @@
+module Test_Dns_Zone =
+
+let lns = Dns_Zone.lns
+
+(* RFC 1034 §6 *)
+test lns get "
+EDU. IN SOA SRI-NIC.ARPA. HOSTMASTER.SRI-NIC.ARPA. (
+ 870729 ;serial
+ 1800 ;refresh every 30 minutes
+ 300 ;retry every 5 minutes
+ 604800 ;expire after a week
+ 86400 ;minimum of a day
+ )
+ NS SRI-NIC.ARPA.
+ NS C.ISI.EDU.
+
+UCI 172800 NS ICS.UCI
+ 172800 NS ROME.UCI
+ICS.UCI 172800 A 192.5.19.1
+ROME.UCI 172800 A 192.5.19.31
+
+ISI 172800 NS VAXA.ISI
+ 172800 NS A.ISI
+ 172800 NS VENERA.ISI.EDU.
+VAXA.ISI 172800 A 10.2.0.27
+ 172800 A 128.9.0.33
+VENERA.ISI.EDU. 172800 A 10.1.0.52
+ 172800 A 128.9.0.32
+A.ISI 172800 A 26.3.0.103
+
+UDEL.EDU. 172800 NS LOUIE.UDEL.EDU.
+ 172800 NS UMN-REI-UC.ARPA.
+LOUIE.UDEL.EDU. 172800 A 10.0.0.96
+ 172800 A 192.5.39.3
+
+YALE.EDU. 172800 NS YALE.ARPA.
+YALE.EDU. 172800 NS YALE-BULLDOG.ARPA.
+
+MIT.EDU. 43200 NS XX.LCS.MIT.EDU.
+ 43200 NS ACHILLES.MIT.EDU.
+XX.LCS.MIT.EDU. 43200 A 10.0.0.44
+ACHILLES.MIT.EDU. 43200 A 18.72.0.8
+" =
+ { "EDU."
+ { "1"
+ { "class" = "IN" }
+ { "type" = "SOA" }
+ { "mname" = "SRI-NIC.ARPA." }
+ { "rname" = "HOSTMASTER.SRI-NIC.ARPA." }
+ { "serial" = "870729" }
+ { "refresh" = "1800" }
+ { "retry" = "300" }
+ { "expiry" = "604800" }
+ { "minimum" = "86400" }
+ }
+ { "2" { "type" = "NS" } { "rdata" = "SRI-NIC.ARPA." } }
+ { "3" { "type" = "NS" } { "rdata" = "C.ISI.EDU." } }
+ }
+ { "UCI"
+ { "1" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "ICS.UCI" } }
+ { "2" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "ROME.UCI" } }
+ }
+ { "ICS.UCI"
+ { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "192.5.19.1" } }
+ }
+ { "ROME.UCI"
+ { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "192.5.19.31" } }
+ }
+ { "ISI"
+ { "1" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "VAXA.ISI" } }
+ { "2" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "A.ISI" } }
+ { "3"
+ { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "VENERA.ISI.EDU." }
+ }
+ }
+ { "VAXA.ISI"
+ { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "10.2.0.27" } }
+ { "2" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "128.9.0.33" } }
+ }
+ { "VENERA.ISI.EDU."
+ { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "10.1.0.52" } }
+ { "2" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "128.9.0.32" } }
+ }
+ { "A.ISI"
+ { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "26.3.0.103" } }
+ }
+ { "UDEL.EDU."
+ { "1"
+ { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "LOUIE.UDEL.EDU." }
+ }
+ { "2"
+ { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "UMN-REI-UC.ARPA." }
+ }
+ }
+ { "LOUIE.UDEL.EDU."
+ { "1" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "10.0.0.96" } }
+ { "2" { "ttl" = "172800" } { "type" = "A" } { "rdata" = "192.5.39.3" } }
+ }
+ { "YALE.EDU."
+ { "1" { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "YALE.ARPA." } }
+ }
+ { "YALE.EDU."
+ { "1"
+ { "ttl" = "172800" } { "type" = "NS" } { "rdata" = "YALE-BULLDOG.ARPA." }
+ }
+ }
+ { "MIT.EDU."
+ { "1"
+ { "ttl" = "43200" } { "type" = "NS" } { "rdata" = "XX.LCS.MIT.EDU." }
+ }
+ { "2"
+ { "ttl" = "43200" } { "type" = "NS" } { "rdata" = "ACHILLES.MIT.EDU." }
+ }
+ }
+ { "XX.LCS.MIT.EDU."
+ { "1" { "ttl" = "43200" } { "type" = "A" } { "rdata" = "10.0.0.44" } }
+ }
+ { "ACHILLES.MIT.EDU."
+ { "1" { "ttl" = "43200" } { "type" = "A" } { "rdata" = "18.72.0.8" } }
+ }
+
+
+(* RFC 1035 §5.3 *)
+test lns get "
+@ IN SOA VENERA Action\.domains (
+ 20 ; SERIAL
+ 7200 ; REFRESH
+ 600 ; RETRY
+ 3600000; EXPIRE
+ 60) ; MINIMUM
+
+ NS A.ISI.EDU.
+ NS VENERA
+ NS VAXA
+ MX 10 VENERA
+ MX 20 VAXA
+
+A A 26.3.0.103
+
+VENERA A 10.1.0.52
+ A 128.9.0.32
+
+VAXA A 10.2.0.27
+ A 128.9.0.33
+" =
+ { "@"
+ { "1"
+ { "class" = "IN" }
+ { "type" = "SOA" }
+ { "mname" = "VENERA" }
+ { "rname" = "Action\\.domains" }
+ { "serial" = "20" }
+ { "refresh" = "7200" }
+ { "retry" = "600" }
+ { "expiry" = "3600000" }
+ { "minimum" = "60" }
+ }
+ { "2" { "type" = "NS" } { "rdata" = "A.ISI.EDU." } }
+ { "3" { "type" = "NS" } { "rdata" = "VENERA" } }
+ { "4" { "type" = "NS" } { "rdata" = "VAXA" } }
+ { "5" { "type" = "MX" } { "priority" = "10" } { "exchange" = "VENERA" } }
+ { "6" { "type" = "MX" } { "priority" = "20" } { "exchange" = "VAXA" } }
+ }
+ { "A" { "1" { "type" = "A" } { "rdata" = "26.3.0.103" } } }
+ { "VENERA"
+ { "1" { "type" = "A" } { "rdata" = "10.1.0.52" } }
+ { "2" { "type" = "A" } { "rdata" = "128.9.0.32" } }
+ }
+ { "VAXA"
+ { "1" { "type" = "A" } { "rdata" = "10.2.0.27" } }
+ { "2" { "type" = "A" } { "rdata" = "128.9.0.33" } }
+ }
+
+
+(* RFC 2782 *)
+test lns get "
+$ORIGIN example.com.
+@ SOA server.example.com. root.example.com. (
+ 1995032001 3600 3600 604800 86400 )
+ NS server.example.com.
+ NS ns1.ip-provider.net.
+ NS ns2.ip-provider.net.
+; foobar - use old-slow-box or new-fast-box if either is
+; available, make three quarters of the logins go to
+; new-fast-box.
+_foobar._tcp SRV 0 1 9 old-slow-box.example.com.
+ SRV 0 3 9 new-fast-box.example.com.
+; if neither old-slow-box or new-fast-box is up, switch to
+; using the sysdmin's box and the server
+ SRV 1 0 9 sysadmins-box.example.com.
+ SRV 1 0 9 server.example.com.
+server A 172.30.79.10
+old-slow-box A 172.30.79.11
+sysadmins-box A 172.30.79.12
+new-fast-box A 172.30.79.13
+; NO other services are supported
+*._tcp SRV 0 0 0 .
+*._udp SRV 0 0 0 .
+" =
+ { "$ORIGIN" = "example.com." }
+ { "@"
+ { "1"
+ { "type" = "SOA" }
+ { "mname" = "server.example.com." }
+ { "rname" = "root.example.com." }
+ { "serial" = "1995032001" }
+ { "refresh" = "3600" }
+ { "retry" = "3600" }
+ { "expiry" = "604800" }
+ { "minimum" = "86400" }
+ }
+ { "2" { "type" = "NS" } { "rdata" = "server.example.com." } }
+ { "3" { "type" = "NS" } { "rdata" = "ns1.ip-provider.net." } }
+ { "4" { "type" = "NS" } { "rdata" = "ns2.ip-provider.net." } }
+ }
+ { "_foobar._tcp"
+ { "1"
+ { "type" = "SRV" }
+ { "priority" = "0" }
+ { "weight" = "1" }
+ { "port" = "9" }
+ { "target" = "old-slow-box.example.com." }
+ }
+ { "2"
+ { "type" = "SRV" }
+ { "priority" = "0" }
+ { "weight" = "3" }
+ { "port" = "9" }
+ { "target" = "new-fast-box.example.com." }
+ }
+ { "3"
+ { "type" = "SRV" }
+ { "priority" = "1" }
+ { "weight" = "0" }
+ { "port" = "9" }
+ { "target" = "sysadmins-box.example.com." }
+ }
+ { "4"
+ { "type" = "SRV" }
+ { "priority" = "1" }
+ { "weight" = "0" }
+ { "port" = "9" }
+ { "target" = "server.example.com." }
+ }
+ }
+ { "server" { "1" { "type" = "A" } { "rdata" = "172.30.79.10" } } }
+ { "old-slow-box" { "1" { "type" = "A" } { "rdata" = "172.30.79.11" } } }
+ { "sysadmins-box" { "1" { "type" = "A" } { "rdata" = "172.30.79.12" } } }
+ { "new-fast-box" { "1" { "type" = "A" } { "rdata" = "172.30.79.13" } } }
+ { "*._tcp"
+ { "1"
+ { "type" = "SRV" }
+ { "priority" = "0" }
+ { "weight" = "0" }
+ { "port" = "0" }
+ { "target" = "." }
+ }
+ }
+ { "*._udp"
+ { "1"
+ { "type" = "SRV" }
+ { "priority" = "0" }
+ { "weight" = "0" }
+ { "port" = "0" }
+ { "target" = "." }
+ }
+ }
+
+
+(* RFC 3403 §6.2 *)
+test lns get "
+$ORIGIN 2.1.2.1.5.5.5.0.7.7.1.e164.arpa.
+ IN NAPTR 100 10 \"u\" \"sip+E2U\" \"!^.*$!sip:information@foo.se!i\" .
+ IN NAPTR 102 10 \"u\" \"smtp+E2U\" \"!^.*$!mailto:information@foo.se!i\" .
+" =
+ { "$ORIGIN" = "2.1.2.1.5.5.5.0.7.7.1.e164.arpa." }
+ { "@"
+ { "1"
+ { "class" = "IN" }
+ { "type" = "NAPTR" }
+ { "order" = "100" }
+ { "preference" = "10" }
+ { "flags" = "\"u\"" }
+ { "service" = "\"sip+E2U\"" }
+ { "regexp" = "\"!^.*$!sip:information@foo.se!i\"" }
+ { "replacement" = "." }
+ }
+ { "2"
+ { "class" = "IN" }
+ { "type" = "NAPTR" }
+ { "order" = "102" }
+ { "preference" = "10" }
+ { "flags" = "\"u\"" }
+ { "service" = "\"smtp+E2U\"" }
+ { "regexp" = "\"!^.*$!mailto:information@foo.se!i\"" }
+ { "replacement" = "." }
+ }
+ }
+
+
+(* SOA record on a single line *)
+test lns get "
+$ORIGIN example.com.
+@ IN SOA ns root.example.com. (1 2 3 4 5)
+" =
+ { "$ORIGIN" = "example.com." }
+ { "@"
+ { "1"
+ { "class" = "IN" }
+ { "type" = "SOA" }
+ { "mname" = "ns" }
+ { "rname" = "root.example.com." }
+ { "serial" = "1" }
+ { "refresh" = "2" }
+ { "retry" = "3" }
+ { "expiry" = "4" }
+ { "minimum" = "5" }
+ }
+ }
+
+
+(* Different ordering of TTL and class *)
+test lns get "
+$ORIGIN example.com.
+foo 1D IN A 10.1.2.3
+bar IN 2W A 10.4.5.6
+" =
+ { "$ORIGIN" = "example.com." }
+ { "foo"
+ { "1"
+ { "ttl" = "1D" }
+ { "class" = "IN" }
+ { "type" = "A" }
+ { "rdata" = "10.1.2.3" }
+ }
+ }
+ { "bar"
+ { "1"
+ { "class" = "IN" }
+ { "ttl" = "2W" }
+ { "type" = "A" }
+ { "rdata" = "10.4.5.6" }
+ }
+ }
+
+
+(* Escaping *)
+test lns get "
+$ORIGIN example.com.
+foo TXT abc\\\\def\\\"ghi
+bar TXT \"ab cd\\\\ef\\\"gh\"
+" =
+ { "$ORIGIN" = "example.com." }
+ { "foo" { "1" { "type" = "TXT" } { "rdata" = "abc\\\\def\\\"ghi" } } }
+ { "bar" { "1" { "type" = "TXT" } { "rdata" = "\"ab cd\\\\ef\\\"gh\"" } } }
+
+
+(* Whitespace at the end of the line *)
+test lns get "
+$ORIGIN example.com. \n@ IN SOA ns root.example.com. (1 2 3 4 5) \t
+foo 1D IN A 10.1.2.3\t
+" =
+ { "$ORIGIN" = "example.com." }
+ { "@"
+ { "1"
+ { "class" = "IN" }
+ { "type" = "SOA" }
+ { "mname" = "ns" }
+ { "rname" = "root.example.com." }
+ { "serial" = "1" }
+ { "refresh" = "2" }
+ { "retry" = "3" }
+ { "expiry" = "4" }
+ { "minimum" = "5" }
+ }
+ }
+ { "foo"
+ { "1"
+ { "ttl" = "1D" }
+ { "class" = "IN" }
+ { "type" = "A" }
+ { "rdata" = "10.1.2.3" }
+ }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_dnsmasq.aug b/Sharp.Augeas.Test/lens/tests/test_dnsmasq.aug
new file mode 100644
index 0000000..c6a63d9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_dnsmasq.aug
@@ -0,0 +1,64 @@
+module Test_dnsmasq =
+
+let conf = "# Configuration file for dnsmasq.
+#
+#bogus-priv
+
+conf-dir=/etc/dnsmasq.d
+selfmx
+
+address=/foo.com/bar.net/10.1.2.3
+
+server=10.4.5.6#1234
+server=/bar.com/foo.net/10.7.8.9
+server=/foo.org/bar.org/10.3.2.1@eth0#5678
+server=/baz.org/#
+server=/baz.net/#@eth1
+server=10.6.5.4#1234@eth0#5678
+server=/qux.com/qux.net/
+"
+
+test Dnsmasq.lns get conf =
+ { "#comment" = "Configuration file for dnsmasq." }
+ {}
+ { "#comment" = "bogus-priv" }
+ {}
+ { "conf-dir" = "/etc/dnsmasq.d" }
+ { "selfmx" }
+ {}
+ { "address" = "10.1.2.3"
+ { "domain" = "foo.com" }
+ { "domain" = "bar.net" }
+ }
+ {}
+ { "server" = "10.4.5.6"
+ { "port" = "1234" }
+ }
+ { "server" = "10.7.8.9"
+ { "domain" = "bar.com" }
+ { "domain" = "foo.net" }
+ }
+ { "server" = "10.3.2.1"
+ { "domain" = "foo.org" }
+ { "domain" = "bar.org" }
+ { "source" = "eth0"
+ { "port" = "5678" }
+ }
+ }
+ { "server" = "#"
+ { "domain" = "baz.org" }
+ }
+ { "server" = "#"
+ { "domain" = "baz.net" }
+ { "source" = "eth1" }
+ }
+ { "server" = "10.6.5.4"
+ { "port" = "1234" }
+ { "source" = "eth0"
+ { "port" = "5678" }
+ }
+ }
+ { "server"
+ { "domain" = "qux.com" }
+ { "domain" = "qux.net" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_dovecot.aug b/Sharp.Augeas.Test/lens/tests/test_dovecot.aug
new file mode 100644
index 0000000..a9b7484
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_dovecot.aug
@@ -0,0 +1,894 @@
+(*
+Module: Test_Dovecot
+ Provides unit tests and examples for the <Dovecot> lens.
+*)
+
+module Test_Dovecot =
+
+(* *********************** /etc/dovecot.conf ******************************** *)
+
+let dovecot_conf = "# Dovecot configuration file
+
+# If you're in a hurry, see http://wiki2.dovecot.org/QuickConfiguration
+
+# Default values are shown for each setting, it's not required to uncomment
+# those. These are exceptions to this though: No sections (e.g. namespace {})
+# or plugin settings are added by default, they're listed only as examples.
+# Paths are also just examples with the real defaults being based on configure
+# options. The paths listed here are for configure --prefix=/usr
+# --sysconfdir=/etc --localstatedir=/var
+
+# include_try command
+!include_try /usr/share/dovecot/protocols.d/*.protocol
+
+# Wildcard, comma and space in value
+listen = *, ::
+
+# Filesystem path in value
+base_dir = /var/run/dovecot/
+instance_name = dovecot
+
+# Space and dot in value
+login_greeting = Dovecot ready.
+
+# Empty values
+login_trusted_networks =
+login_access_sockets =
+
+# Simple values
+verbose_proctitle = no
+shutdown_clients = yes
+
+# Number in value
+doveadm_worker_count = 0
+# Dash in value
+doveadm_socket_path = doveadm-server
+
+import_environment = TZ
+
+##
+## Comment
+##
+
+# Simple commented dict block
+dict {
+ #quota = mysql:/etc/dovecot/dovecot-dict-sql.conf.ext
+ #expire = sqlite:/etc/dovecot/dovecot-dict-sql.conf.ext
+}
+
+# Simple uncommented dict block
+dict {
+ quota = mysql:/etc/dovecot/dovecot-dict-sql.conf.ext
+ expire = sqlite:/etc/dovecot/dovecot-dict-sql.conf.ext
+}
+
+# Include command
+!include conf.d/*.conf
+
+# Include_try command
+!include_try local.conf
+
+"
+
+test Dovecot.lns get dovecot_conf =
+ { "#comment" = "Dovecot configuration file" }
+ { }
+ { "#comment" = "If you're in a hurry, see http://wiki2.dovecot.org/QuickConfiguration" }
+ { }
+ { "#comment" = "Default values are shown for each setting, it's not required to uncomment" }
+ { "#comment" = "those. These are exceptions to this though: No sections (e.g. namespace {})" }
+ { "#comment" = "or plugin settings are added by default, they're listed only as examples." }
+ { "#comment" = "Paths are also just examples with the real defaults being based on configure" }
+ { "#comment" = "options. The paths listed here are for configure --prefix=/usr" }
+ { "#comment" = "--sysconfdir=/etc --localstatedir=/var" }
+ { }
+ { "#comment" = "include_try command" }
+ { "include_try" = "/usr/share/dovecot/protocols.d/*.protocol" }
+ { }
+ { "#comment" = "Wildcard, comma and space in value" }
+ { "listen" = "*, ::" }
+ { }
+ { "#comment" = "Filesystem path in value" }
+ { "base_dir" = "/var/run/dovecot/" }
+ { "instance_name" = "dovecot" }
+ { }
+ { "#comment" = "Space and dot in value" }
+ { "login_greeting" = "Dovecot ready." }
+ { }
+ { "#comment" = "Empty values" }
+ { "login_trusted_networks" }
+ { "login_access_sockets" }
+ { }
+ { "#comment" = "Simple values" }
+ { "verbose_proctitle" = "no" }
+ { "shutdown_clients" = "yes" }
+ { }
+ { "#comment" = "Number in value" }
+ { "doveadm_worker_count" = "0" }
+ { "#comment" = "Dash in value" }
+ { "doveadm_socket_path" = "doveadm-server" }
+ { }
+ { "import_environment" = "TZ" }
+ { }
+ { "#comment" = "#" }
+ { "#comment" = "# Comment" }
+ { "#comment" = "#" }
+ { }
+ { "#comment" = "Simple commented dict block" }
+ { "dict"
+ { "#comment" = "quota = mysql:/etc/dovecot/dovecot-dict-sql.conf.ext" }
+ { "#comment" = "expire = sqlite:/etc/dovecot/dovecot-dict-sql.conf.ext" }
+ }
+ { }
+ { "#comment" = "Simple uncommented dict block" }
+ { "dict"
+ { "quota" = "mysql:/etc/dovecot/dovecot-dict-sql.conf.ext" }
+ { "expire" = "sqlite:/etc/dovecot/dovecot-dict-sql.conf.ext" }
+ }
+ { }
+ { "#comment" = "Include command" }
+ { "include" = "conf.d/*.conf" }
+ { }
+ { "#comment" = "Include_try command" }
+ { "include_try" = "local.conf" }
+ { }
+
+
+
+(* *********************************** dict ********************************* *)
+
+let dovecot_dict_sql_conf = "connect = host=localhost dbname=mails user=testuser password=pass
+
+# CREATE TABLE quota (
+# username varchar(100) not null,
+# bytes bigint not null default 0,
+# messages integer not null default 0,
+# primary key (username)
+# );
+
+map {
+ pattern = priv/quota/storage
+ table = quota
+ username_field = username
+ value_field = bytes
+}
+map {
+ pattern = priv/quota/messages
+ table = quota
+ username_field = username
+ value_field = messages
+}
+
+# CREATE TABLE expires (
+# username varchar(100) not null,
+# mailbox varchar(255) not null,
+# expire_stamp integer not null,
+# primary key (username, mailbox)
+# );
+
+map {
+ pattern = shared/expire/$user/$mailbox
+ table = expires
+ value_field = expire_stamp
+
+ fields {
+ username = $user
+ mailbox = $mailbox
+ }
+}
+"
+
+test Dovecot.lns get dovecot_dict_sql_conf =
+ { "connect" = "host=localhost dbname=mails user=testuser password=pass" }
+ { }
+ { "#comment" = "CREATE TABLE quota (" }
+ { "#comment" = "username varchar(100) not null," }
+ { "#comment" = "bytes bigint not null default 0," }
+ { "#comment" = "messages integer not null default 0," }
+ { "#comment" = "primary key (username)" }
+ { "#comment" = ");" }
+ { }
+ { "map"
+ { "pattern" = "priv/quota/storage" }
+ { "table" = "quota" }
+ { "username_field" = "username" }
+ { "value_field" = "bytes" }
+ }
+ { "map"
+ { "pattern" = "priv/quota/messages" }
+ { "table" = "quota" }
+ { "username_field" = "username" }
+ { "value_field" = "messages" }
+ }
+ { }
+ { "#comment" = "CREATE TABLE expires (" }
+ { "#comment" = "username varchar(100) not null," }
+ { "#comment" = "mailbox varchar(255) not null," }
+ { "#comment" = "expire_stamp integer not null," }
+ { "#comment" = "primary key (username, mailbox)" }
+ { "#comment" = ");" }
+ { }
+ { "map"
+ { "pattern" = "shared/expire/$user/$mailbox" }
+ { "table" = "expires" }
+ { "value_field" = "expire_stamp" }
+ { }
+ { "fields"
+ { "username" = "$user" }
+ { "mailbox" = "$mailbox" }
+ }
+ }
+
+(* ********************************** auth ********************************** *)
+
+let auth_conf = "## Authentication processes
+
+disable_plaintext_auth = yes
+auth_cache_size = 0
+auth_cache_ttl = 1 hour
+auth_cache_negative_ttl = 1 hour
+auth_realms =
+auth_default_realm =
+auth_username_chars = abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890.-_@
+auth_username_translation =
+auth_username_format =
+auth_master_user_separator =
+auth_anonymous_username = anonymous
+auth_worker_max_count = 30
+auth_gssapi_hostname =
+auth_krb5_keytab =
+auth_use_winbind = no
+auth_winbind_helper_path = /usr/bin/ntlm_auth
+auth_failure_delay = 2 secs
+auth_ssl_require_client_cert = no
+auth_ssl_username_from_cert = no
+auth_mechanisms = plain
+
+!include auth-deny.conf.ext
+!include auth-master.conf.ext
+!include auth-system.conf.ext
+!include auth-sql.conf.ext
+!include auth-ldap.conf.ext
+!include auth-passwdfile.conf.ext
+!include auth-checkpassword.conf.ext
+!include auth-vpopmail.conf.ext
+!include auth-static.conf.ext
+
+passdb {
+ driver = passwd-file
+ deny = yes
+
+ # File contains a list of usernames, one per line
+ args = /etc/dovecot/deny-users
+}
+
+passdb {
+ driver = passwd-file
+ master = yes
+ args = /etc/dovecot/master-users
+
+ # Unless you're using PAM, you probably still want the destination user to
+ # be looked up from passdb that it really exists. pass=yes does that.
+ pass = yes
+}
+
+userdb {
+ driver = passwd-file
+ args = username_format=%u /etc/dovecot/users
+}
+"
+
+test Dovecot.lns get auth_conf =
+ { "#comment" = "# Authentication processes" }
+ { }
+ { "disable_plaintext_auth" = "yes" }
+ { "auth_cache_size" = "0" }
+ { "auth_cache_ttl" = "1 hour" }
+ { "auth_cache_negative_ttl" = "1 hour" }
+ { "auth_realms" }
+ { "auth_default_realm" }
+ { "auth_username_chars" = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890.-_@" }
+ { "auth_username_translation" }
+ { "auth_username_format" }
+ { "auth_master_user_separator" }
+ { "auth_anonymous_username" = "anonymous" }
+ { "auth_worker_max_count" = "30" }
+ { "auth_gssapi_hostname" }
+ { "auth_krb5_keytab" }
+ { "auth_use_winbind" = "no" }
+ { "auth_winbind_helper_path" = "/usr/bin/ntlm_auth" }
+ { "auth_failure_delay" = "2 secs" }
+ { "auth_ssl_require_client_cert" = "no" }
+ { "auth_ssl_username_from_cert" = "no" }
+ { "auth_mechanisms" = "plain" }
+ { }
+ { "include" = "auth-deny.conf.ext" }
+ { "include" = "auth-master.conf.ext" }
+ { "include" = "auth-system.conf.ext" }
+ { "include" = "auth-sql.conf.ext" }
+ { "include" = "auth-ldap.conf.ext" }
+ { "include" = "auth-passwdfile.conf.ext" }
+ { "include" = "auth-checkpassword.conf.ext" }
+ { "include" = "auth-vpopmail.conf.ext" }
+ { "include" = "auth-static.conf.ext" }
+ { }
+ { "passdb"
+ { "driver" = "passwd-file" }
+ { "deny" = "yes" }
+ { }
+ { "#comment" = "File contains a list of usernames, one per line" }
+ { "args" = "/etc/dovecot/deny-users" }
+ }
+ { }
+ { "passdb"
+ { "driver" = "passwd-file" }
+ { "master" = "yes" }
+ { "args" = "/etc/dovecot/master-users" }
+ { }
+ { "#comment" = "Unless you're using PAM, you probably still want the destination user to" }
+ { "#comment" = "be looked up from passdb that it really exists. pass=yes does that." }
+ { "pass" = "yes" }
+ }
+ { }
+ { "userdb"
+ { "driver" = "passwd-file" }
+ { "args" = "username_format=%u /etc/dovecot/users" }
+ }
+
+(* ******************************** director ******************************** *)
+
+let director_conf = "## Director-specific settings.
+director_servers =
+director_mail_servers =
+director_user_expire = 15 min
+director_doveadm_port = 0
+
+service director {
+ unix_listener login/director {
+ mode = 0666
+ }
+ fifo_listener login/proxy-notify {
+ mode = 0666
+ }
+ unix_listener director-userdb {
+ #mode = 0600
+ }
+ inet_listener {
+ port =
+ }
+}
+
+service imap-login {
+ executable = imap-login director
+}
+service pop3-login {
+ executable = pop3-login director
+}
+protocol lmtp {
+ auth_socket_path = director-userdb
+}
+"
+
+test Dovecot.lns get director_conf =
+ { "#comment" = "# Director-specific settings." }
+ { "director_servers" }
+ { "director_mail_servers" }
+ { "director_user_expire" = "15 min" }
+ { "director_doveadm_port" = "0" }
+ { }
+ { "service" = "director"
+ { "unix_listener" = "login/director"
+ { "mode" = "0666" }
+ }
+ { "fifo_listener" = "login/proxy-notify"
+ { "mode" = "0666" }
+ }
+ { "unix_listener" = "director-userdb"
+ { "#comment" = "mode = 0600" }
+ }
+ { "inet_listener"
+ { "port" }
+ }
+ }
+ { }
+ { "service" = "imap-login"
+ { "executable" = "imap-login director" }
+ }
+ { "service" = "pop3-login"
+ { "executable" = "pop3-login director" }
+ }
+ { "protocol" = "lmtp"
+ { "auth_socket_path" = "director-userdb" }
+ }
+
+(* ********************************* logging ******************************** *)
+
+let logging_conf = "## Log destination.
+log_path = syslog
+info_log_path =
+debug_log_path =
+syslog_facility = mail
+auth_verbose = no
+auth_verbose_passwords = no
+auth_debug = no
+auth_debug_passwords = no
+mail_debug = no
+verbose_ssl = no
+
+plugin {
+ mail_log_events = delete undelete expunge copy mailbox_delete mailbox_rename
+ mail_log_fields = uid box msgid size
+}
+
+log_timestamp = \"%b %d %H:%M:%S \"
+login_log_format_elements = user=<%u> method=%m rip=%r lip=%l mpid=%e %c
+login_log_format = %$: %s
+mail_log_prefix = \"%s(%u): \"
+deliver_log_format = msgid=%m: %$
+"
+
+test Dovecot.lns get logging_conf =
+ { "#comment" = "# Log destination." }
+ { "log_path" = "syslog" }
+ { "info_log_path" }
+ { "debug_log_path" }
+ { "syslog_facility" = "mail" }
+ { "auth_verbose" = "no" }
+ { "auth_verbose_passwords" = "no" }
+ { "auth_debug" = "no" }
+ { "auth_debug_passwords" = "no" }
+ { "mail_debug" = "no" }
+ { "verbose_ssl" = "no" }
+ { }
+ { "plugin"
+ { "mail_log_events" = "delete undelete expunge copy mailbox_delete mailbox_rename" }
+ { "mail_log_fields" = "uid box msgid size" }
+ }
+ { }
+ { "log_timestamp" = "\"%b %d %H:%M:%S \"" }
+ { "login_log_format_elements" = "user=<%u> method=%m rip=%r lip=%l mpid=%e %c" }
+ { "login_log_format" = "%$: %s" }
+ { "mail_log_prefix" = "\"%s(%u): \"" }
+ { "deliver_log_format" = "msgid=%m: %$" }
+
+
+(* ********************************** mail ********************************** *)
+
+let mail_conf = "## Mailbox locations and namespaces
+mail_location =
+namespace {
+ type = private
+ separator =
+ prefix =
+ location =
+ inbox = no
+ hidden = no
+ list = yes
+ subscriptions = yes
+ mailbox \"Sent Messages\" {
+ special_use = \Sent
+ }
+}
+
+# Example shared namespace configuration
+namespace {
+ type = shared
+ separator = /
+ prefix = shared/%%u/
+ location = maildir:%%h/Maildir:INDEX=~/Maildir/shared/%%u
+ subscriptions = no
+ list = children
+}
+
+mail_uid =
+mail_gid =
+mail_privileged_group =
+mail_access_groups =
+mail_full_filesystem_access = no
+mmap_disable = no
+dotlock_use_excl = yes
+mail_fsync = optimized
+mail_nfs_storage = no
+mail_nfs_index = no
+lock_method = fcntl
+mail_temp_dir = /tmp
+first_valid_uid = 500
+last_valid_uid = 0
+first_valid_gid = 1
+last_valid_gid = 0
+mail_max_keyword_length = 50
+valid_chroot_dirs =
+mail_chroot =
+auth_socket_path = /var/run/dovecot/auth-userdb
+mail_plugin_dir = /usr/lib/dovecot/modules
+mail_plugins =
+mail_cache_min_mail_count = 0
+mailbox_idle_check_interval = 30 secs
+mail_save_crlf = no
+maildir_stat_dirs = no
+maildir_copy_with_hardlinks = yes
+maildir_very_dirty_syncs = no
+mbox_read_locks = fcntl
+mbox_write_locks = dotlock fcntl
+mbox_lock_timeout = 5 mins
+mbox_dotlock_change_timeout = 2 mins
+mbox_dirty_syncs = yes
+mbox_very_dirty_syncs = no
+mbox_lazy_writes = yes
+mbox_min_index_size = 0
+mdbox_rotate_size = 2M
+mdbox_rotate_interval = 0
+mdbox_preallocate_space = no
+mail_attachment_dir =
+mail_attachment_min_size = 128k
+mail_attachment_fs = sis posix
+mail_attachment_hash = %{sha1}
+
+protocol !indexer-worker {
+ mail_vsize_bg_after_count = 0
+}
+"
+test Dovecot.lns get mail_conf =
+ { "#comment" = "# Mailbox locations and namespaces" }
+ { "mail_location" }
+ { "namespace"
+ { "type" = "private" }
+ { "separator" }
+ { "prefix" }
+ { "location" }
+ { "inbox" = "no" }
+ { "hidden" = "no" }
+ { "list" = "yes" }
+ { "subscriptions" = "yes" }
+ { "mailbox" = "Sent Messages"
+ { "special_use" = "\Sent" }
+ }
+ }
+ { }
+ { "#comment" = "Example shared namespace configuration" }
+ { "namespace"
+ { "type" = "shared" }
+ { "separator" = "/" }
+ { "prefix" = "shared/%%u/" }
+ { "location" = "maildir:%%h/Maildir:INDEX=~/Maildir/shared/%%u" }
+ { "subscriptions" = "no" }
+ { "list" = "children" }
+ }
+ { }
+ { "mail_uid" }
+ { "mail_gid" }
+ { "mail_privileged_group" }
+ { "mail_access_groups" }
+ { "mail_full_filesystem_access" = "no" }
+ { "mmap_disable" = "no" }
+ { "dotlock_use_excl" = "yes" }
+ { "mail_fsync" = "optimized" }
+ { "mail_nfs_storage" = "no" }
+ { "mail_nfs_index" = "no" }
+ { "lock_method" = "fcntl" }
+ { "mail_temp_dir" = "/tmp" }
+ { "first_valid_uid" = "500" }
+ { "last_valid_uid" = "0" }
+ { "first_valid_gid" = "1" }
+ { "last_valid_gid" = "0" }
+ { "mail_max_keyword_length" = "50" }
+ { "valid_chroot_dirs" }
+ { "mail_chroot" }
+ { "auth_socket_path" = "/var/run/dovecot/auth-userdb" }
+ { "mail_plugin_dir" = "/usr/lib/dovecot/modules" }
+ { "mail_plugins" }
+ { "mail_cache_min_mail_count" = "0" }
+ { "mailbox_idle_check_interval" = "30 secs" }
+ { "mail_save_crlf" = "no" }
+ { "maildir_stat_dirs" = "no" }
+ { "maildir_copy_with_hardlinks" = "yes" }
+ { "maildir_very_dirty_syncs" = "no" }
+ { "mbox_read_locks" = "fcntl" }
+ { "mbox_write_locks" = "dotlock fcntl" }
+ { "mbox_lock_timeout" = "5 mins" }
+ { "mbox_dotlock_change_timeout" = "2 mins" }
+ { "mbox_dirty_syncs" = "yes" }
+ { "mbox_very_dirty_syncs" = "no" }
+ { "mbox_lazy_writes" = "yes" }
+ { "mbox_min_index_size" = "0" }
+ { "mdbox_rotate_size" = "2M" }
+ { "mdbox_rotate_interval" = "0" }
+ { "mdbox_preallocate_space" = "no" }
+ { "mail_attachment_dir" }
+ { "mail_attachment_min_size" = "128k" }
+ { "mail_attachment_fs" = "sis posix" }
+ { "mail_attachment_hash" = "%{sha1}" }
+ { }
+ { "protocol" = "!indexer-worker"
+ { "mail_vsize_bg_after_count" = "0" }
+ }
+
+
+(* ********************************* master ********************************* *)
+
+let master_conf = "
+default_process_limit = 100
+default_client_limit = 1000
+default_vsz_limit = 256M
+default_login_user = dovenull
+default_internal_user = dovecot
+
+service imap-login {
+ inet_listener imap {
+ port = 143
+ }
+ inet_listener imaps {
+ port = 993
+ ssl = yes
+ }
+ service_count = 1
+ process_min_avail = 0
+ vsz_limit = 64M
+}
+
+service pop3-login {
+ inet_listener pop3 {
+ port = 110
+ }
+ inet_listener pop3s {
+ port = 995
+ ssl = yes
+ }
+}
+
+service lmtp {
+ unix_listener lmtp {
+ mode = 0666
+ }
+ inet_listener lmtp {
+ address =
+ port =
+ }
+}
+
+service imap {
+ vsz_limit = 256M
+ process_limit = 1024
+}
+
+service auth {
+ unix_listener auth-userdb {
+ mode = 0600
+ user =
+ group =
+ }
+}
+
+service auth-worker {
+ user = root
+}
+
+service dict {
+ unix_listener dict {
+ mode = 0600
+ user =
+ group =
+ }
+}
+"
+
+test Dovecot.lns get master_conf =
+ { }
+ { "default_process_limit" = "100" }
+ { "default_client_limit" = "1000" }
+ { "default_vsz_limit" = "256M" }
+ { "default_login_user" = "dovenull" }
+ { "default_internal_user" = "dovecot" }
+ { }
+ { "service" = "imap-login"
+ { "inet_listener" = "imap"
+ { "port" = "143" }
+ }
+ { "inet_listener" = "imaps"
+ { "port" = "993" }
+ { "ssl" = "yes" }
+ }
+ { "service_count" = "1" }
+ { "process_min_avail" = "0" }
+ { "vsz_limit" = "64M" }
+ }
+ { }
+ { "service" = "pop3-login"
+ { "inet_listener" = "pop3"
+ { "port" = "110" }
+ }
+ { "inet_listener" = "pop3s"
+ { "port" = "995" }
+ { "ssl" = "yes" }
+ }
+ }
+ { }
+ { "service" = "lmtp"
+ { "unix_listener" = "lmtp"
+ { "mode" = "0666" }
+ }
+ { "inet_listener" = "lmtp"
+ { "address" }
+ { "port" }
+ }
+ }
+ { }
+ { "service" = "imap"
+ { "vsz_limit" = "256M" }
+ { "process_limit" = "1024" }
+ }
+ { }
+ { "service" = "auth"
+ { "unix_listener" = "auth-userdb"
+ { "mode" = "0600" }
+ { "user" }
+ { "group" }
+ }
+ }
+ { }
+ { "service" = "auth-worker"
+ { "user" = "root" }
+ }
+ { }
+ { "service" = "dict"
+ { "unix_listener" = "dict"
+ { "mode" = "0600" }
+ { "user" }
+ { "group" }
+ }
+ }
+
+(* *********************************** ssl ********************************** *)
+
+let ssl_conf = "## SSL settings
+ssl = yes
+ssl_cert = </etc/ssl/certs/dovecot.pem
+ssl_key = </etc/ssl/private/dovecot.pem
+ssl_key_password =
+ssl_ca =
+ssl_verify_client_cert = no
+ssl_cert_username_field = commonName
+ssl_parameters_regenerate = 168
+ssl_cipher_list = ALL:!LOW:!SSLv2:!EXP:!aNULL
+"
+test Dovecot.lns get ssl_conf =
+ { "#comment" = "# SSL settings" }
+ { "ssl" = "yes" }
+ { "ssl_cert" = "</etc/ssl/certs/dovecot.pem" }
+ { "ssl_key" = "</etc/ssl/private/dovecot.pem" }
+ { "ssl_key_password" }
+ { "ssl_ca" }
+ { "ssl_verify_client_cert" = "no" }
+ { "ssl_cert_username_field" = "commonName" }
+ { "ssl_parameters_regenerate" = "168" }
+ { "ssl_cipher_list" = "ALL:!LOW:!SSLv2:!EXP:!aNULL" }
+
+(* ********************* /etc/dovecot/conf.d/15-lda.conf ******************** *)
+
+let lda_conf = "## LDA specific settings (also used by LMTP)
+postmaster_address =
+hostname =
+quota_full_tempfail = no
+sendmail_path = /usr/sbin/sendmail
+submission_host =
+rejection_subject = Rejected: %s
+rejection_reason = Your message to <%t> was automatically rejected:%n%r
+recipient_delimiter = +
+lda_original_recipient_header =
+lda_mailbox_autocreate = no
+lda_mailbox_autosubscribe = no
+
+protocol lda {
+ mail_plugins = $mail_plugins
+}
+"
+test Dovecot.lns get lda_conf =
+ { "#comment" = "# LDA specific settings (also used by LMTP)" }
+ { "postmaster_address" }
+ { "hostname" }
+ { "quota_full_tempfail" = "no" }
+ { "sendmail_path" = "/usr/sbin/sendmail" }
+ { "submission_host" }
+ { "rejection_subject" = "Rejected: %s" }
+ { "rejection_reason" = "Your message to <%t> was automatically rejected:%n%r" }
+ { "recipient_delimiter" = "+" }
+ { "lda_original_recipient_header" }
+ { "lda_mailbox_autocreate" = "no" }
+ { "lda_mailbox_autosubscribe" = "no" }
+ { }
+ { "protocol" = "lda"
+ { "mail_plugins" = "$mail_plugins" }
+ }
+
+(* *********************************** acl ********************************** *)
+
+let acl_conf = "## Mailbox access control lists.
+plugin {
+ acl = vfile:/etc/dovecot/global-acls:cache_secs=300
+}
+plugin {
+ acl_shared_dict = file:/var/lib/dovecot/shared-mailboxes
+}
+"
+
+test Dovecot.lns get acl_conf =
+ { "#comment" = "# Mailbox access control lists." }
+ { "plugin"
+ { "acl" = "vfile:/etc/dovecot/global-acls:cache_secs=300" }
+ }
+ { "plugin"
+ { "acl_shared_dict" = "file:/var/lib/dovecot/shared-mailboxes" }
+ }
+
+(* ******************************** plugins ********************************* *)
+
+let plugins_conf = "
+plugin {
+ quota_rule = *:storage=1G
+ quota_rule2 = Trash:storage=+100M
+}
+plugin {
+ quota_warning = storage=95%% quota-warning 95 %u
+ quota_warning2 = storage=80%% quota-warning 80 %u
+}
+service quota-warning {
+ executable = script /usr/local/bin/quota-warning.sh
+ user = dovecot
+ unix_listener quota-warning {
+ user = vmail
+ }
+}
+plugin {
+ quota = dirsize:User quota
+ quota = maildir:User quota
+ quota = dict:User quota::proxy::quota
+ quota = fs:User quota
+}
+plugin {
+ quota = dict:user::proxy::quota
+ quota2 = dict:domain:%d:proxy::quota_domain
+ quota_rule = *:storage=102400
+ quota2_rule = *:storage=1048576
+}
+plugin {
+ acl = vfile:/etc/dovecot/global-acls:cache_secs=300
+}
+plugin {
+ acl_shared_dict = file:/var/lib/dovecot/shared-mailboxes
+}
+"
+test Dovecot.lns get plugins_conf =
+ { }
+ { "plugin"
+ { "quota_rule" = "*:storage=1G" }
+ { "quota_rule2" = "Trash:storage=+100M" }
+ }
+ { "plugin"
+ { "quota_warning" = "storage=95%% quota-warning 95 %u" }
+ { "quota_warning2" = "storage=80%% quota-warning 80 %u" }
+ }
+ { "service" = "quota-warning"
+ { "executable" = "script /usr/local/bin/quota-warning.sh" }
+ { "user" = "dovecot" }
+ { "unix_listener" = "quota-warning"
+ { "user" = "vmail" }
+ }
+ }
+ { "plugin"
+ { "quota" = "dirsize:User quota" }
+ { "quota" = "maildir:User quota" }
+ { "quota" = "dict:User quota::proxy::quota" }
+ { "quota" = "fs:User quota" }
+ }
+ { "plugin"
+ { "quota" = "dict:user::proxy::quota" }
+ { "quota2" = "dict:domain:%d:proxy::quota_domain" }
+ { "quota_rule" = "*:storage=102400" }
+ { "quota2_rule" = "*:storage=1048576" }
+ }
+ { "plugin"
+ { "acl" = "vfile:/etc/dovecot/global-acls:cache_secs=300" }
+ }
+ { "plugin"
+ { "acl_shared_dict" = "file:/var/lib/dovecot/shared-mailboxes" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_dpkg.aug b/Sharp.Augeas.Test/lens/tests/test_dpkg.aug
new file mode 100644
index 0000000..64eda6a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_dpkg.aug
@@ -0,0 +1,14 @@
+module Test_dpkg =
+
+let conf ="# dpkg configuration file
+# Do not enable debsig-verify by default
+no-debsig
+
+log /var/log/dpkg.log\n"
+
+test Dpkg.lns get conf =
+ { "#comment" = "dpkg configuration file" }
+ { "#comment" = "Do not enable debsig-verify by default" }
+ { "no-debsig" }
+ {}
+ { "log" = "/var/log/dpkg.log" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_dput.aug b/Sharp.Augeas.Test/lens/tests/test_dput.aug
new file mode 100644
index 0000000..2e72ce1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_dput.aug
@@ -0,0 +1,115 @@
+module Test_dput =
+
+ let conf = "# Example dput.cf that defines the host that can be used
+# with dput for uploading.
+
+[DEFAULT]
+login = username
+method = ftp
+hash = md5
+allow_unsigned_uploads = 0
+run_lintian = 0
+run_dinstall = 0
+check_version = 0
+scp_compress = 0
+post_upload_command =
+pre_upload_command =
+passive_ftp = 1
+default_host_non-us =
+default_host_main = hebex
+allowed_distributions = (?!UNRELEASED)
+
+[hebex]
+fqdn = condor.infra.s1.p.fti.net
+login = anonymous
+method = ftp
+incoming = /incoming/hebex
+passive_ftp = 0
+
+[dop/desktop]
+fqdn = condor.infra.s1.p.fti.net
+login = anonymous
+method = ftp
+incoming = /incoming/dop/desktop
+passive_ftp = 0
+
+[jp-non-us]
+fqdn = hp.debian.or.jp
+incoming = /pub/Incoming/upload-non-US
+login = anonymous
+
+# DISABLED due to being repaired currently
+#[erlangen]
+#fqdn = ftp.uni-erlangen.de
+#incoming = /public/pub/Linux/debian/UploadQueue/
+#login = anonymous
+
+[ftp-master]
+fqdn = ftp-master.debian.org
+incoming = /pub/UploadQueue/
+login = anonymous
+post_upload_command = /usr/bin/mini-dinstall --batch
+# And if you want to override one of the defaults, add it here.
+# # For example, comment out the next line
+# # login = another_username
+# # post_upload_command = /path/to/some/script
+# # pre_upload_command = /path/to/some/script
+
+"
+
+ test Dput.lns get conf =
+ { "#comment" = "Example dput.cf that defines the host that can be used" }
+ { "#comment" = "with dput for uploading." }
+ {}
+ { "target" = "DEFAULT"
+ { "login" = "username" }
+ { "method" = "ftp" }
+ { "hash" = "md5" }
+ { "allow_unsigned_uploads" = "0" }
+ { "run_lintian" = "0" }
+ { "run_dinstall" = "0" }
+ { "check_version" = "0" }
+ { "scp_compress" = "0" }
+ { "post_upload_command" }
+ { "pre_upload_command" }
+ { "passive_ftp" = "1" }
+ { "default_host_non-us" }
+ { "default_host_main" = "hebex" }
+ { "allowed_distributions" = "(?!UNRELEASED)" }
+ {} }
+ { "target" = "hebex"
+ { "fqdn" = "condor.infra.s1.p.fti.net" }
+ { "login" = "anonymous" }
+ { "method" = "ftp" }
+ { "incoming" = "/incoming/hebex" }
+ { "passive_ftp" = "0" }
+ {} }
+ { "target" = "dop/desktop"
+ { "fqdn" = "condor.infra.s1.p.fti.net" }
+ { "login" = "anonymous" }
+ { "method" = "ftp" }
+ { "incoming" = "/incoming/dop/desktop" }
+ { "passive_ftp" = "0" }
+ {} }
+ { "target" = "jp-non-us"
+ { "fqdn" = "hp.debian.or.jp" }
+ { "incoming" = "/pub/Incoming/upload-non-US" }
+ { "login" = "anonymous" }
+ {}
+ { "#comment" = "DISABLED due to being repaired currently" }
+ { "#comment" = "[erlangen]" }
+ { "#comment" = "fqdn = ftp.uni-erlangen.de" }
+ { "#comment" = "incoming = /public/pub/Linux/debian/UploadQueue/" }
+ { "#comment" = "login = anonymous" }
+ {} }
+ { "target" = "ftp-master"
+ { "fqdn" = "ftp-master.debian.org" }
+ { "incoming" = "/pub/UploadQueue/" }
+ { "login" = "anonymous" }
+ { "post_upload_command" = "/usr/bin/mini-dinstall --batch" }
+ { "#comment" = "And if you want to override one of the defaults, add it here." }
+ { "#comment" = "# For example, comment out the next line" }
+ { "#comment" = "# login = another_username" }
+ { "#comment" = "# post_upload_command = /path/to/some/script" }
+ { "#comment" = "# pre_upload_command = /path/to/some/script" }
+ {} }
diff --git a/Sharp.Augeas.Test/lens/tests/test_erlang.aug b/Sharp.Augeas.Test/lens/tests/test_erlang.aug
new file mode 100644
index 0000000..89ca61d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_erlang.aug
@@ -0,0 +1,117 @@
+(*
+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" } }
+
+let tuple3_bare = Erlang.tuple3 Erlang.bare Erlang.bare Erlang.bare
+
+test tuple3_bare get "{foo, bar, baz}" =
+ { "tuple"
+ { "value" = "foo" }
+ { "value" = "bar" }
+ { "value" = "baz" } }
+
+(* 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" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_ethers.aug b/Sharp.Augeas.Test/lens/tests/test_ethers.aug
new file mode 100644
index 0000000..7209c1b
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_ethers.aug
@@ -0,0 +1,61 @@
+(* Tests for the Ethers module *)
+
+module Test_ethers =
+
+(*
+ let empty_entries = "# see man ethers for syntax\n"
+
+ test Ethers.record get empty_entries =
+ { "#comment" = "see man ethers for syntax" }
+*)
+
+ let three_entries = "54:52:00:01:00:01 192.168.1.1
+# \tcomment\t
+54:52:00:01:00:02 foo.example.com
+00:16:3e:01:fe:03 bar
+"
+
+ test Ethers.lns get three_entries =
+ { "1" { "mac" = "54:52:00:01:00:01" }
+ { "ip" = "192.168.1.1" } }
+ { "#comment" = "comment" }
+ { "2" { "mac" = "54:52:00:01:00:02" }
+ { "ip" = "foo.example.com" } }
+ { "3" { "mac" = "00:16:3e:01:fe:03" }
+ { "ip" = "bar" } }
+
+ (* Deleting the 'ip' node violates the schema *)
+ test Ethers.lns put three_entries after
+ rm "/1/ip"
+ = *
+
+ test Ethers.lns put three_entries after
+ set "/2/ip" "192.168.1.2" ;
+ set "/3/ip" "baz"
+ = "54:52:00:01:00:01 192.168.1.1
+# \tcomment\t
+54:52:00:01:00:02 192.168.1.2
+00:16:3e:01:fe:03 baz
+"
+
+ test Ethers.lns put three_entries after
+ rm "/3"
+ = "54:52:00:01:00:01 192.168.1.1
+# \tcomment\t
+54:52:00:01:00:02 foo.example.com
+"
+
+ (* Make sure blank and indented lines get through *)
+ test Ethers.lns get "54:52:00:01:00:01\tfoo \n \n\n
+54:52:00:01:00:02 bar\n" =
+ { "1" { "mac" = "54:52:00:01:00:01" }
+ { "ip" = "foo" } }
+ {} {} {}
+ { "2" { "mac" = "54:52:00:01:00:02" }
+ { "ip" = "bar" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_exports.aug b/Sharp.Augeas.Test/lens/tests/test_exports.aug
new file mode 100644
index 0000000..b0fde40
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_exports.aug
@@ -0,0 +1,59 @@
+module Test_exports =
+
+let s = "/local 172.31.0.0/16(rw,sync) \t
+
+/home 172.31.0.0/16(rw,root_squash,sync) @netgroup(rw) *.example.com
+# Yes, we export /tmp
+/tmp 172.31.0.0/16(rw,root_squash,sync,)
+/local2 somehost(rw,sync)
+/local3 some-host(rw,sync)
+/local3 an-other-host(rw,sync)
+/local4 2000:123:456::/64(rw)
+/local5 somehost-[01](rw)
+"
+
+test Exports.lns get s =
+ { "dir" = "/local"
+ { "client" = "172.31.0.0/16"
+ { "option" = "rw" }
+ { "option" = "sync" } } }
+ { }
+ { "dir" = "/home"
+ { "client" = "172.31.0.0/16"
+ { "option" = "rw"}
+ { "option" = "root_squash" }
+ { "option" = "sync" } }
+ { "client" = "@netgroup"
+ { "option" = "rw" } }
+ { "client" = "*.example.com" } }
+ { "#comment" = "Yes, we export /tmp" }
+ { "dir" = "/tmp"
+ { "client" = "172.31.0.0/16"
+ { "option" = "rw" }
+ { "option" = "root_squash" }
+ { "option" = "sync" }
+ { "option" = "" } } }
+ { "dir" = "/local2"
+ { "client" = "somehost"
+ { "option" = "rw" }
+ { "option" = "sync" } } }
+ { "dir" = "/local3"
+ { "client" = "some-host"
+ { "option" = "rw" }
+ { "option" = "sync" } } }
+ { "dir" = "/local3"
+ { "client" = "an-other-host"
+ { "option" = "rw" }
+ { "option" = "sync" } } }
+ { "dir" = "/local4"
+ { "client" = "2000:123:456::/64"
+ { "option" = "rw" } } }
+ { "dir" = "/local5"
+ { "client" = "somehost-[01]"
+ { "option" = "rw" } } }
+
+test Exports.lns get "\"/path/in/quotes\" 192.168.0.1(rw,all_squash)\n" =
+ { "dir" = "\"/path/in/quotes\""
+ { "client" = "192.168.0.1"
+ { "option" = "rw" }
+ { "option" = "all_squash" } } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_fai_diskconfig.aug b/Sharp.Augeas.Test/lens/tests/test_fai_diskconfig.aug
new file mode 100644
index 0000000..1862d9a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_fai_diskconfig.aug
@@ -0,0 +1,663 @@
+(*
+Module: Test_FAI_DiskConfig
+ Provides unit tests and examples for the <FAI_DiskConfig> lens.
+*)
+
+module Test_FAI_DiskConfig =
+
+
+(* Test: FAI_DiskConfig.disk_config
+ Test <FAI_DiskConfig.disk_config> *)
+test FAI_DiskConfig.disk_config get
+ "disk_config hda preserve_always:6,7 disklabel:msdos bootable:3\n" =
+
+ { "disk_config" = "hda"
+ { "preserve_always"
+ { "1" = "6" }
+ { "2" = "7" } }
+ { "disklabel" = "msdos" }
+ { "bootable" = "3" } }
+
+(* Test: FAI_DiskConfig.volume
+ Test <FAI_DiskConfig.volume> *)
+test FAI_DiskConfig.volume get
+ "primary /boot 20-100 ext3 rw\n" =
+
+ { "primary"
+ { "mountpoint" = "/boot" }
+ { "size" = "20-100" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" } } }
+
+(* Test: FAI_DiskConfig.volume
+ Testing <FAI_DiskConfig.volume> *)
+test FAI_DiskConfig.volume get
+ "primary swap 1000 swap sw\n" =
+
+ { "primary"
+ { "mountpoint" = "swap" }
+ { "size" = "1000" }
+ { "filesystem" = "swap" }
+ { "mount_options"
+ { "1" = "sw" } } }
+
+(* Test: FAI_DiskConfig.volume
+ Testing <FAI_DiskConfig.volume> *)
+test FAI_DiskConfig.volume get
+ "primary / 12000 ext3 rw createopts=\"-b 2048\"\n" =
+
+ { "primary"
+ { "mountpoint" = "/" }
+ { "size" = "12000" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" } }
+ { "fs_options"
+ { "createopts" = "-b 2048" } } }
+
+(* Test: FAI_DiskConfig.volume
+ Testing <FAI_DiskConfig.volume> *)
+test FAI_DiskConfig.volume get
+ "logical /tmp 1000 ext3 rw,nosuid\n" =
+
+ { "logical"
+ { "mountpoint" = "/tmp" }
+ { "size" = "1000" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ { "2" = "nosuid" } } }
+
+(* Test: FAI_DiskConfig.volume
+ Testing <FAI_DiskConfig.volume> *)
+test FAI_DiskConfig.volume get
+ "logical /var 10%- ext3 rw\n" =
+
+ { "logical"
+ { "mountpoint" = "/var" }
+ { "size" = "10%-" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" } } }
+
+(* Test: FAI_DiskConfig.volume
+ Testing <FAI_DiskConfig.volume> *)
+test FAI_DiskConfig.volume get
+ "logical /nobackup 0- xfs rw\n" =
+
+ { "logical"
+ { "mountpoint" = "/nobackup" }
+ { "size" = "0-" }
+ { "filesystem" = "xfs" }
+ { "mount_options"
+ { "1" = "rw" } } }
+
+(* Variable: simple_config
+ A simple configuration file *)
+let simple_config = "# A comment
+disk_config disk2
+raw-disk - 0 - -
+
+disk_config lvm
+vg my_pv sda2
+vg test disk1.9
+my_pv-_swap swap 2048 swap sw
+my_pv-_root / 2048 ext3 rw,errors=remount-ro
+
+disk_config raid
+raid1 /boot disk1.1,disk2.1,disk3.1,disk4.1,disk5.1,disk6.1 ext3 rw
+raid1 swap disk1.2,disk2.2,disk3.2,disk4.2,disk5.2,disk6.2 swap sw
+raid5 /srv/data disk1.11,disk2.11,disk3.11,disk4.11,disk5.11,disk6.11 ext3 ro createopts=\"-m 0\"
+raid0 - disk2.2,sdc1,sde1:spare:missing ext2 default
+
+disk_config tmpfs
+tmpfs /var/opt/hosting/tmp 500 defaults
+"
+
+(* Test: FAI_DiskConfig.lns
+ Testing the full <FAI_DiskConfig.lns> on <simple_config> *)
+test FAI_DiskConfig.lns get simple_config =
+ { "#comment" = "A comment" }
+ { "disk_config" = "disk2"
+ { "raw-disk"
+ { "mountpoint" = "-" }
+ { "size" = "0" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ }
+ { }
+ { "disk_config" = "lvm"
+ { "vg"
+ { "name" = "my_pv" }
+ { "disk" = "sda2" }
+ }
+ { "vg"
+ { "name" = "test" }
+ { "disk" = "disk1"
+ { "partition" = "9" }
+ }
+ }
+ { "lv"
+ { "vg" = "my_pv" }
+ { "name" = "_swap" }
+ { "mountpoint" = "swap" }
+ { "size" = "2048" }
+ { "filesystem" = "swap" }
+ { "mount_options"
+ { "1" = "sw" }
+ }
+ }
+ { "lv"
+ { "vg" = "my_pv" }
+ { "name" = "_root" }
+ { "mountpoint" = "/" }
+ { "size" = "2048" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ { "2" = "errors"
+ { "value" = "remount-ro" }
+ }
+ }
+ }
+ }
+ { }
+ { "disk_config" = "raid"
+ { "raid1"
+ { "mountpoint" = "/boot" }
+ { "disk" = "disk1"
+ { "partition" = "1" }
+ }
+ { "disk" = "disk2"
+ { "partition" = "1" }
+ }
+ { "disk" = "disk3"
+ { "partition" = "1" }
+ }
+ { "disk" = "disk4"
+ { "partition" = "1" }
+ }
+ { "disk" = "disk5"
+ { "partition" = "1" }
+ }
+ { "disk" = "disk6"
+ { "partition" = "1" }
+ }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ }
+ }
+ { "raid1"
+ { "mountpoint" = "swap" }
+ { "disk" = "disk1"
+ { "partition" = "2" }
+ }
+ { "disk" = "disk2"
+ { "partition" = "2" }
+ }
+ { "disk" = "disk3"
+ { "partition" = "2" }
+ }
+ { "disk" = "disk4"
+ { "partition" = "2" }
+ }
+ { "disk" = "disk5"
+ { "partition" = "2" }
+ }
+ { "disk" = "disk6"
+ { "partition" = "2" }
+ }
+ { "filesystem" = "swap" }
+ { "mount_options"
+ { "1" = "sw" }
+ }
+ }
+ { "raid5"
+ { "mountpoint" = "/srv/data" }
+ { "disk" = "disk1"
+ { "partition" = "11" }
+ }
+ { "disk" = "disk2"
+ { "partition" = "11" }
+ }
+ { "disk" = "disk3"
+ { "partition" = "11" }
+ }
+ { "disk" = "disk4"
+ { "partition" = "11" }
+ }
+ { "disk" = "disk5"
+ { "partition" = "11" }
+ }
+ { "disk" = "disk6"
+ { "partition" = "11" }
+ }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "ro" }
+ }
+ { "fs_options"
+ { "createopts" = "-m 0" }
+ }
+ }
+ { "raid0"
+ { "mountpoint" = "-" }
+ { "disk" = "disk2"
+ { "partition" = "2" }
+ }
+ { "disk" = "sdc1" }
+ { "disk" = "sde1"
+ { "spare" }
+ { "missing" }
+ }
+ { "filesystem" = "ext2" }
+ { "mount_options"
+ { "1" = "default" }
+ }
+ }
+ }
+ { }
+ { "disk_config" = "tmpfs"
+ { "tmpfs"
+ { "mountpoint" = "/var/opt/hosting/tmp" }
+ { "size" = "500" }
+ { "mount_options"
+ { "1" = "defaults" }
+ }
+ }
+ }
+
+
+(* Variable: config1
+ Another full configuration *)
+let config1 = "disk_config disk1 bootable:1 preserve_always:all always_format:5,6,7,8,9,10,11
+primary - 0 - -
+primary - 0 - -
+logical / 0 ext3 rw,relatime,errors=remount-ro createopts=\"-c -j\"
+logical swap 0 swap sw
+logical /var 0 ext3 rw,relatime createopts=\"-m 5 -j\"
+logical /tmp 0 ext3 rw createopts=\"-m 0 -j\"
+logical /usr 0 ext3 rw,relatime createopts=\"-j\"
+logical /home 0 ext3 rw,relatime,nosuid,nodev createopts=\"-m 1 -j\"
+logical /wrk 0 ext3 rw,relatime,nosuid,nodev createopts=\"-m 1 -j\"
+logical /transfer 0 vfat rw
+"
+
+(* Test: FAI_DiskConfig.lns
+ Testing <FAI_DiskConfig.lns> on <config1> *)
+test FAI_DiskConfig.lns get config1 =
+ { "disk_config" = "disk1"
+ { "bootable" = "1" }
+ { "preserve_always"
+ { "1" = "all" }
+ }
+ { "always_format"
+ { "1" = "5" }
+ { "2" = "6" }
+ { "3" = "7" }
+ { "4" = "8" }
+ { "5" = "9" }
+ { "6" = "10" }
+ { "7" = "11" }
+ }
+ { "primary"
+ { "mountpoint" = "-" }
+ { "size" = "0" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ { "primary"
+ { "mountpoint" = "-" }
+ { "size" = "0" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "/" }
+ { "size" = "0" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ { "2" = "relatime" }
+ { "3" = "errors"
+ { "value" = "remount-ro" }
+ }
+ }
+ { "fs_options"
+ { "createopts" = "-c -j" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "swap" }
+ { "size" = "0" }
+ { "filesystem" = "swap" }
+ { "mount_options"
+ { "1" = "sw" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "/var" }
+ { "size" = "0" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ { "2" = "relatime" }
+ }
+ { "fs_options"
+ { "createopts" = "-m 5 -j" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "/tmp" }
+ { "size" = "0" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ }
+ { "fs_options"
+ { "createopts" = "-m 0 -j" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "/usr" }
+ { "size" = "0" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ { "2" = "relatime" }
+ }
+ { "fs_options"
+ { "createopts" = "-j" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "/home" }
+ { "size" = "0" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ { "2" = "relatime" }
+ { "3" = "nosuid" }
+ { "4" = "nodev" }
+ }
+ { "fs_options"
+ { "createopts" = "-m 1 -j" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "/wrk" }
+ { "size" = "0" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "rw" }
+ { "2" = "relatime" }
+ { "3" = "nosuid" }
+ { "4" = "nodev" }
+ }
+ { "fs_options"
+ { "createopts" = "-m 1 -j" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "/transfer" }
+ { "size" = "0" }
+ { "filesystem" = "vfat" }
+ { "mount_options"
+ { "1" = "rw" }
+ }
+ }
+ }
+
+
+(* Variable: config2
+ Another full configuration *)
+let config2 = "disk_config /dev/sda
+primary - 250M - -
+primary - 20G - -
+logical - 8G - -
+logical - 4G - -
+logical - 5G - -
+
+disk_config /dev/sdb sameas:/dev/sda
+
+disk_config raid
+raid1 /boot sda1,sdb1 ext3 defaults
+raid1 / sda2,sdb2 ext3 defaults,errors=remount-ro
+raid1 swap sda5,sdb5 swap defaults
+raid1 /tmp sda6,sdb6 ext3 defaults createopts=\"-m 1\"
+raid1 /var sda7,sdb7 ext3 defaults
+"
+
+(* Test: FAI_DiskConfig.lns
+ Testing <FAI_DiskConfig.lns> on <config2> *)
+test FAI_DiskConfig.lns get config2 =
+ { "disk_config" = "/dev/sda"
+ { "primary"
+ { "mountpoint" = "-" }
+ { "size" = "250M" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ { "primary"
+ { "mountpoint" = "-" }
+ { "size" = "20G" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "-" }
+ { "size" = "8G" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "-" }
+ { "size" = "4G" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "-" }
+ { "size" = "5G" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ }
+ { }
+ { "disk_config" = "/dev/sdb"
+ { "sameas" = "/dev/sda" }
+ }
+ { }
+ { "disk_config" = "raid"
+ { "raid1"
+ { "mountpoint" = "/boot" }
+ { "disk" = "sda1" }
+ { "disk" = "sdb1" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "defaults" }
+ }
+ }
+ { "raid1"
+ { "mountpoint" = "/" }
+ { "disk" = "sda2" }
+ { "disk" = "sdb2" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "defaults" }
+ { "2" = "errors"
+ { "value" = "remount-ro" }
+ }
+ }
+ }
+ { "raid1"
+ { "mountpoint" = "swap" }
+ { "disk" = "sda5" }
+ { "disk" = "sdb5" }
+ { "filesystem" = "swap" }
+ { "mount_options"
+ { "1" = "defaults" }
+ }
+ }
+ { "raid1"
+ { "mountpoint" = "/tmp" }
+ { "disk" = "sda6" }
+ { "disk" = "sdb6" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "defaults" }
+ }
+ { "fs_options"
+ { "createopts" = "-m 1" }
+ }
+ }
+ { "raid1"
+ { "mountpoint" = "/var" }
+ { "disk" = "sda7" }
+ { "disk" = "sdb7" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "defaults" }
+ }
+ }
+ }
+
+
+(* Variable: config3
+ Another full configuration *)
+let config3 = "disk_config /dev/sdb
+primary / 21750 ext3 defaults,errors=remount-ro
+primary /boot 250 ext3 defaults
+logical - 4000 - -
+logical - 2000 - -
+logical - 10- - -
+
+disk_config cryptsetup randinit
+swap swap /dev/sdb5 swap defaults
+tmp /tmp /dev/sdb6 ext2 defaults
+luks /local00 /dev/sdb7 ext3 defaults,errors=remount-ro createopts=\"-m 0\"
+"
+
+(* Test: FAI_DiskConfig.lns
+ Testing <FAI_DiskConfig.lns> on <config3> *)
+test FAI_DiskConfig.lns get config3 =
+ { "disk_config" = "/dev/sdb"
+ { "primary"
+ { "mountpoint" = "/" }
+ { "size" = "21750" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "defaults" }
+ { "2" = "errors"
+ { "value" = "remount-ro" }
+ }
+ }
+ }
+ { "primary"
+ { "mountpoint" = "/boot" }
+ { "size" = "250" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "defaults" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "-" }
+ { "size" = "4000" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "-" }
+ { "size" = "2000" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ { "logical"
+ { "mountpoint" = "-" }
+ { "size" = "10-" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ }
+ { }
+ { "disk_config" = "cryptsetup"
+ { "randinit" }
+ { "swap"
+ { "mountpoint" = "swap" }
+ { "device" = "/dev/sdb5" }
+ { "filesystem" = "swap" }
+ { "mount_options"
+ { "1" = "defaults" }
+ }
+ }
+ { "tmp"
+ { "mountpoint" = "/tmp" }
+ { "device" = "/dev/sdb6" }
+ { "filesystem" = "ext2" }
+ { "mount_options"
+ { "1" = "defaults" }
+ }
+ }
+ { "luks"
+ { "mountpoint" = "/local00" }
+ { "device" = "/dev/sdb7" }
+ { "filesystem" = "ext3" }
+ { "mount_options"
+ { "1" = "defaults" }
+ { "2" = "errors"
+ { "value" = "remount-ro" }
+ }
+ }
+ { "fs_options"
+ { "createopts" = "-m 0" }
+ }
+ }
+ }
+
+
+(* Variable: with_spaces *)
+let with_spaces = "disk_config disk2
+
+raw-disk - 0 - -
+"
+
+(* Test: FAI_DiskConfig.lns
+ Testing <FAI_DiskConfig.lns> with <with_spaces> *)
+test FAI_DiskConfig.lns get with_spaces =
+ { "disk_config" = "disk2"
+ { }
+ { "raw-disk"
+ { "mountpoint" = "-" }
+ { "size" = "0" }
+ { "filesystem" = "-" }
+ { "mount_options"
+ { "1" = "-" }
+ }
+ }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_fail2ban.aug b/Sharp.Augeas.Test/lens/tests/test_fail2ban.aug
new file mode 100644
index 0000000..e1c4b57
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_fail2ban.aug
@@ -0,0 +1,24 @@
+module Test_fail2ban =
+
+let conf = "[DEFAULT]
+mta = ssmtp
+bantime = 432000
+destemail = fail2ban@domain.com
+findtime = 3600
+maxretry = 3
+
+[sshd]
+enabled = true
+"
+
+
+test Fail2ban.lns get conf =
+ { "DEFAULT"
+ { "mta" = "ssmtp" }
+ { "bantime" = "432000" }
+ { "destemail" = "fail2ban@domain.com" }
+ { "findtime" = "3600" }
+ { "maxretry" = "3" }
+ {} }
+ { "sshd"
+ { "enabled" = "true" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_fonts.aug b/Sharp.Augeas.Test/lens/tests/test_fonts.aug
new file mode 100644
index 0000000..9591149
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_fonts.aug
@@ -0,0 +1,809 @@
+(*
+Module: Test_Fonts
+ Provides unit tests and examples for the <Fonts> lens.
+*)
+
+module Test_Fonts =
+
+(* Variable: conf *)
+let conf = "<?xml version=\"1.0\"?>
+<!DOCTYPE fontconfig SYSTEM \"fonts.dtd\">
+<!-- /etc/fonts/fonts.conf file to configure system font access -->
+<fontconfig>
+
+<!--
+ DO NOT EDIT THIS FILE.
+ IT WILL BE REPLACED WHEN FONTCONFIG IS UPDATED.
+ LOCAL CHANGES BELONG IN 'local.conf'.
+
+ The intent of this standard configuration file is to be adequate for
+ most environments. If you have a reasonably normal environment and
+ have found problems with this configuration, they are probably
+ things that others will also want fixed. Please submit any
+ problems to the fontconfig bugzilla system located at fontconfig.org
+
+ Note that the normal 'make install' procedure for fontconfig is to
+ replace any existing fonts.conf file with the new version. Place
+ any local customizations in local.conf which this file references.
+
+ Keith Packard
+-->
+
+<!-- Font directory list -->
+
+ <dir>/usr/share/fonts</dir>
+ <dir>/usr/X11R6/lib/X11/fonts</dir> <dir>/usr/local/share/fonts</dir>
+ <dir>~/.fonts</dir>
+
+<!--
+ Accept deprecated 'mono' alias, replacing it with 'monospace'
+-->
+ <match target=\"pattern\">
+ <test qual=\"any\" name=\"family\">
+ <string>mono</string>
+ </test>
+ <edit name=\"family\" mode=\"assign\">
+ <string>monospace</string>
+ </edit>
+ </match>
+
+<!--
+ Accept alternate 'sans serif' spelling, replacing it with 'sans-serif'
+-->
+ <match target=\"pattern\">
+ <test qual=\"any\" name=\"family\">
+ <string>sans serif</string>
+ </test>
+ <edit name=\"family\" mode=\"assign\">
+ <string>sans-serif</string>
+ </edit>
+ </match>
+
+<!--
+ Accept deprecated 'sans' alias, replacing it with 'sans-serif'
+-->
+ <match target=\"pattern\">
+ <test qual=\"any\" name=\"family\">
+ <string>sans</string>
+ </test>
+ <edit name=\"family\" mode=\"assign\">
+ <string>sans-serif</string>
+ </edit>
+ </match>
+
+<!--
+ Load local system customization file
+-->
+ <include ignore_missing=\"yes\">conf.d</include>
+
+<!-- Font cache directory list -->
+
+ <cachedir>/var/cache/fontconfig</cachedir>
+ <cachedir>~/.fontconfig</cachedir>
+
+ <config>
+<!--
+ These are the default Unicode chars that are expected to be blank
+ in fonts. All other blank chars are assumed to be broken and
+ won't appear in the resulting charsets
+ -->
+ <blank>
+ <int>0x0020</int> <!-- SPACE -->
+ <int>0x00A0</int> <!-- NO-BREAK SPACE -->
+ <int>0x00AD</int> <!-- SOFT HYPHEN -->
+ <int>0x034F</int> <!-- COMBINING GRAPHEME JOINER -->
+ <int>0x0600</int> <!-- ARABIC NUMBER SIGN -->
+ <int>0x0601</int> <!-- ARABIC SIGN SANAH -->
+ <int>0x0602</int> <!-- ARABIC FOOTNOTE MARKER -->
+ <int>0x0603</int> <!-- ARABIC SIGN SAFHA -->
+ <int>0x06DD</int> <!-- ARABIC END OF AYAH -->
+ <int>0x070F</int> <!-- SYRIAC ABBREVIATION MARK -->
+ <int>0x115F</int> <!-- HANGUL CHOSEONG FILLER -->
+ <int>0x1160</int> <!-- HANGUL JUNGSEONG FILLER -->
+ <int>0x1680</int> <!-- OGHAM SPACE MARK -->
+ <int>0x17B4</int> <!-- KHMER VOWEL INHERENT AQ -->
+ <int>0x17B5</int> <!-- KHMER VOWEL INHERENT AA -->
+ <int>0x180E</int> <!-- MONGOLIAN VOWEL SEPARATOR -->
+ <int>0x2000</int> <!-- EN QUAD -->
+ <int>0x2001</int> <!-- EM QUAD -->
+ <int>0x2002</int> <!-- EN SPACE -->
+ <int>0x2003</int> <!-- EM SPACE -->
+ <int>0x2004</int> <!-- THREE-PER-EM SPACE -->
+ <int>0x2005</int> <!-- FOUR-PER-EM SPACE -->
+ <int>0x2006</int> <!-- SIX-PER-EM SPACE -->
+ <int>0x2007</int> <!-- FIGURE SPACE -->
+ <int>0x2008</int> <!-- PUNCTUATION SPACE -->
+ <int>0x2009</int> <!-- THIN SPACE -->
+ <int>0x200A</int> <!-- HAIR SPACE -->
+ <int>0x200B</int> <!-- ZERO WIDTH SPACE -->
+ <int>0x200C</int> <!-- ZERO WIDTH NON-JOINER -->
+ <int>0x200D</int> <!-- ZERO WIDTH JOINER -->
+ <int>0x200E</int> <!-- LEFT-TO-RIGHT MARK -->
+ <int>0x200F</int> <!-- RIGHT-TO-LEFT MARK -->
+ <int>0x2028</int> <!-- LINE SEPARATOR -->
+ <int>0x2029</int> <!-- PARAGRAPH SEPARATOR -->
+ <int>0x202A</int> <!-- LEFT-TO-RIGHT EMBEDDING -->
+ <int>0x202B</int> <!-- RIGHT-TO-LEFT EMBEDDING -->
+ <int>0x202C</int> <!-- POP DIRECTIONAL FORMATTING -->
+ <int>0x202D</int> <!-- LEFT-TO-RIGHT OVERRIDE -->
+ <int>0x202E</int> <!-- RIGHT-TO-LEFT OVERRIDE -->
+ <int>0x202F</int> <!-- NARROW NO-BREAK SPACE -->
+ <int>0x205F</int> <!-- MEDIUM MATHEMATICAL SPACE -->
+ <int>0x2060</int> <!-- WORD JOINER -->
+ <int>0x2061</int> <!-- FUNCTION APPLICATION -->
+ <int>0x2062</int> <!-- INVISIBLE TIMES -->
+ <int>0x2063</int> <!-- INVISIBLE SEPARATOR -->
+ <int>0x206A</int> <!-- INHIBIT SYMMETRIC SWAPPING -->
+ <int>0x206B</int> <!-- ACTIVATE SYMMETRIC SWAPPING -->
+ <int>0x206C</int> <!-- INHIBIT ARABIC FORM SHAPING -->
+ <int>0x206D</int> <!-- ACTIVATE ARABIC FORM SHAPING -->
+ <int>0x206E</int> <!-- NATIONAL DIGIT SHAPES -->
+ <int>0x206F</int> <!-- NOMINAL DIGIT SHAPES -->
+ <int>0x2800</int> <!-- BRAILLE PATTERN BLANK -->
+ <int>0x3000</int> <!-- IDEOGRAPHIC SPACE -->
+ <int>0x3164</int> <!-- HANGUL FILLER -->
+ <int>0xFEFF</int> <!-- ZERO WIDTH NO-BREAK SPACE -->
+ <int>0xFFA0</int> <!-- HALFWIDTH HANGUL FILLER -->
+ <int>0xFFF9</int> <!-- INTERLINEAR ANNOTATION ANCHOR -->
+ <int>0xFFFA</int> <!-- INTERLINEAR ANNOTATION SEPARATOR -->
+ <int>0xFFFB</int> <!-- INTERLINEAR ANNOTATION TERMINATOR -->
+ </blank>
+<!--
+ Rescan configuration every 30 seconds when FcFontSetList is called
+ -->
+ <rescan>
+ <int>30</int>
+ </rescan>
+ </config>
+
+</fontconfig>
+"
+
+(* Test: Fonts.lns *)
+test Fonts.lns get conf =
+ { "#declaration"
+ { "#attribute"
+ { "version" = "1.0" }
+ }
+ }
+ { "!DOCTYPE" = "fontconfig"
+ { "SYSTEM" = "fonts.dtd" }
+ }
+ { "#comment" = " /etc/fonts/fonts.conf file to configure system font access " }
+ { "fontconfig"
+ { "#text" = "
+
+" }
+ { "#comment" = "
+ DO NOT EDIT THIS FILE.
+ IT WILL BE REPLACED WHEN FONTCONFIG IS UPDATED.
+ LOCAL CHANGES BELONG IN 'local.conf'.
+
+ The intent of this standard configuration file is to be adequate for
+ most environments. If you have a reasonably normal environment and
+ have found problems with this configuration, they are probably
+ things that others will also want fixed. Please submit any
+ problems to the fontconfig bugzilla system located at fontconfig.org
+
+ Note that the normal 'make install' procedure for fontconfig is to
+ replace any existing fonts.conf file with the new version. Place
+ any local customizations in local.conf which this file references.
+
+ Keith Packard
+" }
+ { "#text" = "
+
+" }
+ { "#comment" = " Font directory list " }
+ { "#text" = "
+
+ " }
+ { "dir"
+ { "#text" = "/usr/share/fonts" }
+ }
+ { "#text" = " " }
+ { "dir"
+ { "#text" = "/usr/X11R6/lib/X11/fonts" }
+ }
+ { "#text" = " " }
+ { "dir"
+ { "#text" = "/usr/local/share/fonts" }
+ }
+ { "#text" = " " }
+ { "dir"
+ { "#text" = "~/.fonts" }
+ }
+ { "#text" = "
+" }
+ { "#comment" = "
+ Accept deprecated 'mono' alias, replacing it with 'monospace'
+" }
+ { "#text" = "
+ " }
+ { "match"
+ { "#attribute"
+ { "target" = "pattern" }
+ }
+ { "#text" = "
+ " }
+ { "test"
+ { "#attribute"
+ { "qual" = "any" }
+ { "name" = "family" }
+ }
+ { "#text" = "
+ " }
+ { "string"
+ { "#text" = "mono" }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = " " }
+ { "edit"
+ { "#attribute"
+ { "name" = "family" }
+ { "mode" = "assign" }
+ }
+ { "#text" = "
+ " }
+ { "string"
+ { "#text" = "monospace" }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = "
+" }
+ { "#comment" = "
+ Accept alternate 'sans serif' spelling, replacing it with 'sans-serif'
+" }
+ { "#text" = "
+ " }
+ { "match"
+ { "#attribute"
+ { "target" = "pattern" }
+ }
+ { "#text" = "
+ " }
+ { "test"
+ { "#attribute"
+ { "qual" = "any" }
+ { "name" = "family" }
+ }
+ { "#text" = "
+ " }
+ { "string"
+ { "#text" = "sans serif" }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = " " }
+ { "edit"
+ { "#attribute"
+ { "name" = "family" }
+ { "mode" = "assign" }
+ }
+ { "#text" = "
+ " }
+ { "string"
+ { "#text" = "sans-serif" }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = "
+" }
+ { "#comment" = "
+ Accept deprecated 'sans' alias, replacing it with 'sans-serif'
+" }
+ { "#text" = "
+ " }
+ { "match"
+ { "#attribute"
+ { "target" = "pattern" }
+ }
+ { "#text" = "
+ " }
+ { "test"
+ { "#attribute"
+ { "qual" = "any" }
+ { "name" = "family" }
+ }
+ { "#text" = "
+ " }
+ { "string"
+ { "#text" = "sans" }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = " " }
+ { "edit"
+ { "#attribute"
+ { "name" = "family" }
+ { "mode" = "assign" }
+ }
+ { "#text" = "
+ " }
+ { "string"
+ { "#text" = "sans-serif" }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = "
+" }
+ { "#comment" = "
+ Load local system customization file
+" }
+ { "#text" = "
+ " }
+ { "include"
+ { "#attribute"
+ { "ignore_missing" = "yes" }
+ }
+ { "#text" = "conf.d" }
+ }
+ { "#text" = "
+" }
+ { "#comment" = " Font cache directory list " }
+ { "#text" = "
+
+ " }
+ { "cachedir"
+ { "#text" = "/var/cache/fontconfig" }
+ }
+ { "#text" = " " }
+ { "cachedir"
+ { "#text" = "~/.fontconfig" }
+ }
+ { "#text" = "
+ " }
+ { "config"
+ { "#text" = "
+" }
+ { "#comment" = "
+ These are the default Unicode chars that are expected to be blank
+ in fonts. All other blank chars are assumed to be broken and
+ won't appear in the resulting charsets
+ " }
+ { "#text" = "
+ " }
+ { "blank"
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x0020" }
+ }
+ { "#text" = " " }
+ { "#comment" = " SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x00A0" }
+ }
+ { "#text" = " " }
+ { "#comment" = " NO-BREAK SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x00AD" }
+ }
+ { "#text" = " " }
+ { "#comment" = " SOFT HYPHEN " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x034F" }
+ }
+ { "#text" = " " }
+ { "#comment" = " COMBINING GRAPHEME JOINER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x0600" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ARABIC NUMBER SIGN " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x0601" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ARABIC SIGN SANAH " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x0602" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ARABIC FOOTNOTE MARKER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x0603" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ARABIC SIGN SAFHA " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x06DD" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ARABIC END OF AYAH " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x070F" }
+ }
+ { "#text" = " " }
+ { "#comment" = " SYRIAC ABBREVIATION MARK " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x115F" }
+ }
+ { "#text" = " " }
+ { "#comment" = " HANGUL CHOSEONG FILLER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x1160" }
+ }
+ { "#text" = " " }
+ { "#comment" = " HANGUL JUNGSEONG FILLER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x1680" }
+ }
+ { "#text" = " " }
+ { "#comment" = " OGHAM SPACE MARK " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x17B4" }
+ }
+ { "#text" = " " }
+ { "#comment" = " KHMER VOWEL INHERENT AQ " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x17B5" }
+ }
+ { "#text" = " " }
+ { "#comment" = " KHMER VOWEL INHERENT AA " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x180E" }
+ }
+ { "#text" = " " }
+ { "#comment" = " MONGOLIAN VOWEL SEPARATOR " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2000" }
+ }
+ { "#text" = " " }
+ { "#comment" = " EN QUAD " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2001" }
+ }
+ { "#text" = " " }
+ { "#comment" = " EM QUAD " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2002" }
+ }
+ { "#text" = " " }
+ { "#comment" = " EN SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2003" }
+ }
+ { "#text" = " " }
+ { "#comment" = " EM SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2004" }
+ }
+ { "#text" = " " }
+ { "#comment" = " THREE-PER-EM SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2005" }
+ }
+ { "#text" = " " }
+ { "#comment" = " FOUR-PER-EM SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2006" }
+ }
+ { "#text" = " " }
+ { "#comment" = " SIX-PER-EM SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2007" }
+ }
+ { "#text" = " " }
+ { "#comment" = " FIGURE SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2008" }
+ }
+ { "#text" = " " }
+ { "#comment" = " PUNCTUATION SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2009" }
+ }
+ { "#text" = " " }
+ { "#comment" = " THIN SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x200A" }
+ }
+ { "#text" = " " }
+ { "#comment" = " HAIR SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x200B" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ZERO WIDTH SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x200C" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ZERO WIDTH NON-JOINER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x200D" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ZERO WIDTH JOINER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x200E" }
+ }
+ { "#text" = " " }
+ { "#comment" = " LEFT-TO-RIGHT MARK " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x200F" }
+ }
+ { "#text" = " " }
+ { "#comment" = " RIGHT-TO-LEFT MARK " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2028" }
+ }
+ { "#text" = " " }
+ { "#comment" = " LINE SEPARATOR " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2029" }
+ }
+ { "#text" = " " }
+ { "#comment" = " PARAGRAPH SEPARATOR " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x202A" }
+ }
+ { "#text" = " " }
+ { "#comment" = " LEFT-TO-RIGHT EMBEDDING " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x202B" }
+ }
+ { "#text" = " " }
+ { "#comment" = " RIGHT-TO-LEFT EMBEDDING " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x202C" }
+ }
+ { "#text" = " " }
+ { "#comment" = " POP DIRECTIONAL FORMATTING " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x202D" }
+ }
+ { "#text" = " " }
+ { "#comment" = " LEFT-TO-RIGHT OVERRIDE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x202E" }
+ }
+ { "#text" = " " }
+ { "#comment" = " RIGHT-TO-LEFT OVERRIDE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x202F" }
+ }
+ { "#text" = " " }
+ { "#comment" = " NARROW NO-BREAK SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x205F" }
+ }
+ { "#text" = " " }
+ { "#comment" = " MEDIUM MATHEMATICAL SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2060" }
+ }
+ { "#text" = " " }
+ { "#comment" = " WORD JOINER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2061" }
+ }
+ { "#text" = " " }
+ { "#comment" = " FUNCTION APPLICATION " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2062" }
+ }
+ { "#text" = " " }
+ { "#comment" = " INVISIBLE TIMES " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2063" }
+ }
+ { "#text" = " " }
+ { "#comment" = " INVISIBLE SEPARATOR " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x206A" }
+ }
+ { "#text" = " " }
+ { "#comment" = " INHIBIT SYMMETRIC SWAPPING " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x206B" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ACTIVATE SYMMETRIC SWAPPING " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x206C" }
+ }
+ { "#text" = " " }
+ { "#comment" = " INHIBIT ARABIC FORM SHAPING " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x206D" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ACTIVATE ARABIC FORM SHAPING " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x206E" }
+ }
+ { "#text" = " " }
+ { "#comment" = " NATIONAL DIGIT SHAPES " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x206F" }
+ }
+ { "#text" = " " }
+ { "#comment" = " NOMINAL DIGIT SHAPES " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x2800" }
+ }
+ { "#text" = " " }
+ { "#comment" = " BRAILLE PATTERN BLANK " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x3000" }
+ }
+ { "#text" = " " }
+ { "#comment" = " IDEOGRAPHIC SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0x3164" }
+ }
+ { "#text" = " " }
+ { "#comment" = " HANGUL FILLER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0xFEFF" }
+ }
+ { "#text" = " " }
+ { "#comment" = " ZERO WIDTH NO-BREAK SPACE " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0xFFA0" }
+ }
+ { "#text" = " " }
+ { "#comment" = " HALFWIDTH HANGUL FILLER " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0xFFF9" }
+ }
+ { "#text" = " " }
+ { "#comment" = " INTERLINEAR ANNOTATION ANCHOR " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0xFFFA" }
+ }
+ { "#text" = " " }
+ { "#comment" = " INTERLINEAR ANNOTATION SEPARATOR " }
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "0xFFFB" }
+ }
+ { "#text" = " " }
+ { "#comment" = " INTERLINEAR ANNOTATION TERMINATOR " }
+ { "#text" = "
+ " }
+ }
+ { "#comment" = "
+ Rescan configuration every 30 seconds when FcFontSetList is called
+ " }
+ { "#text" = "
+ " }
+ { "rescan"
+ { "#text" = "
+ " }
+ { "int"
+ { "#text" = "30" }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = " " }
+ }
+ { "#text" = "
+" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_fstab.aug b/Sharp.Augeas.Test/lens/tests/test_fstab.aug
new file mode 100644
index 0000000..438f619
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_fstab.aug
@@ -0,0 +1,161 @@
+module Test_fstab =
+
+ let simple = "/dev/vg00/lv00\t /\t ext3\t defaults 1 1\n"
+
+ let simple_tree =
+ { "1"
+ { "spec" = "/dev/vg00/lv00" }
+ { "file" = "/" }
+ { "vfstype" = "ext3" }
+ { "opt" = "defaults" }
+ { "dump" = "1" }
+ { "passno" = "1" } }
+
+ let leading_ws = " /dev/vg00/lv00\t /\t ext3\t defaults 1 1\n"
+
+ let trailing_ws = "/dev/vg00/lv00\t /\t ext3\t defaults 1 1 \t\n"
+
+ let gen_no_passno(passno:string) =
+ "LABEL=/boot\t /boot\t ext3\t defaults 1" . passno . " \t\n"
+ let no_passno = gen_no_passno ""
+
+ let no_passno_tree =
+ { "1"
+ { "spec" = "LABEL=/boot" }
+ { "file" = "/boot" }
+ { "vfstype" = "ext3" }
+ { "opt" = "defaults" }
+ { "dump" = "1" } }
+
+ let no_dump = "/dev/vg00/lv00\t /\t ext3\t defaults\n"
+
+ let no_dump_tree =
+ { "1"
+ { "spec" = "/dev/vg00/lv00" }
+ { "file" = "/" }
+ { "vfstype" = "ext3" }
+ { "opt" = "defaults" } }
+
+ let no_opts = "/dev/vg00/lv00\t /\t ext3\n"
+
+ let no_opts_tree =
+ { "1"
+ { "spec" = "/dev/vg00/lv00" }
+ { "file" = "/" }
+ { "vfstype" = "ext3" } }
+
+ let multi_opts = "devpts\t /dev/pts\t devpts gid=5,mode=620,fscontext=system_u:object_r:removable_t 0 0\n"
+
+ let multi_opts_tree =
+ { "1"
+ { "spec" = "devpts" }
+ { "file" = "/dev/pts" }
+ { "vfstype" = "devpts" }
+ { "opt" = "gid"
+ { "value" = "5" } }
+ { "opt" = "mode"
+ { "value" = "620" } }
+ { "opt" = "fscontext"
+ { "value" = "system_u:object_r:removable_t" } }
+ { "dump" = "0" }
+ { "passno" = "0" } }
+
+ test Fstab.lns get simple = simple_tree
+
+ test Fstab.lns get leading_ws = simple_tree
+
+ test Fstab.lns get trailing_ws = simple_tree
+
+ test Fstab.lns get no_passno = no_passno_tree
+
+ test Fstab.lns put no_passno after set "/1/passno" "1" = gen_no_passno " 1"
+
+ test Fstab.lns get no_dump = no_dump_tree
+
+ test Fstab.lns get no_opts = no_opts_tree
+
+ test Fstab.lns get multi_opts = multi_opts_tree
+
+ test Fstab.lns get "/dev/hdc /media/cdrom0 udf,iso9660 user,noauto\t0\t0\n" =
+ { "1"
+ { "spec" = "/dev/hdc" }
+ { "file" = "/media/cdrom0" }
+ { "vfstype" = "udf" }
+ { "vfstype" = "iso9660" }
+ { "opt" = "user" }
+ { "opt" = "noauto" }
+ { "dump" = "0" }
+ { "passno" = "0" } }
+
+ (* Allow # in the spec *)
+ test Fstab.lns get "sshfs#jon@10.0.0.2:/home /media/server fuse uid=1000,gid=100,port=1022 0 0\n" =
+ { "1"
+ { "spec" = "sshfs#jon@10.0.0.2:/home" }
+ { "file" = "/media/server" }
+ { "vfstype" = "fuse" }
+ { "opt" = "uid"
+ { "value" = "1000" } }
+ { "opt" = "gid"
+ { "value" = "100" } }
+ { "opt" = "port"
+ { "value" = "1022" } }
+ { "dump" = "0" }
+ { "passno" = "0" } }
+
+ (* Bug #191 *)
+ test Fstab.lns get "tmpfs /dev/shm tmpfs rw,rootcontext=\"system_u:object_r:tmpfs_t:s0\" 0 0\n" =
+ { "1"
+ { "spec" = "tmpfs" }
+ { "file" = "/dev/shm" }
+ { "vfstype" = "tmpfs" }
+ { "opt" = "rw" }
+ { "opt" = "rootcontext"
+ { "value" = "\"system_u:object_r:tmpfs_t:s0\"" } }
+ { "dump" = "0" }
+ { "passno" = "0" } }
+
+ (* BZ https://bugzilla.redhat.com/show_bug.cgi?id=751342
+ * Mounting multiple cgroups together results in path with ','
+ *)
+ test Fstab.lns get "spec /path/file1,file2 vfs opts 0 0\n" =
+ { "1"
+ { "spec" = "spec" }
+ { "file" = "/path/file1,file2" }
+ { "vfstype" = "vfs" }
+ { "opt" = "opts" }
+ { "dump" = "0" }
+ { "passno" = "0" } }
+
+ (* Parse when empty option value given, only equals sign *)
+ test Fstab.lns get "//host.example.org/a_share /mnt cifs defaults,ro,password= 0 0\n" =
+ { "1"
+ { "spec" = "//host.example.org/a_share" }
+ { "file" = "/mnt" }
+ { "vfstype" = "cifs" }
+ { "opt" = "defaults" }
+ { "opt" = "ro" }
+ { "opt" = "password"
+ { "value" }
+ }
+ { "dump" = "0" }
+ { "passno" = "0" }
+ }
+
+ (* Allow end of line comments *)
+ test Fstab.lns get "UUID=0314be77-bb1e-47d4-b2a2-e69ae5bc954f / ext4 rw,errors=remount-ro 0 1 # device at install: /dev/sda3\n" =
+ { "1"
+ { "spec" = "UUID=0314be77-bb1e-47d4-b2a2-e69ae5bc954f" }
+ { "file" = "/" }
+ { "vfstype" = "ext4" }
+ { "opt" = "rw" }
+ { "opt" = "errors"
+ { "value" = "remount-ro" }
+ }
+ { "dump" = "0" }
+ { "passno" = "1" }
+ { "#comment" = "device at install: /dev/sda3" }
+ }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_fuse.aug b/Sharp.Augeas.Test/lens/tests/test_fuse.aug
new file mode 100644
index 0000000..58ffa3d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_fuse.aug
@@ -0,0 +1,22 @@
+(*
+Module: Test_Fuse
+ Provides unit tests and examples for the <Fuse> lens.
+*)
+
+module Test_Fuse =
+
+(* Variable: conf *)
+let conf = "# Set the maximum number of FUSE mounts allowed to non-root users.
+mount_max = 1000
+
+# Allow non-root users to specify the 'allow_other' or 'allow_root'
+user_allow_other
+"
+
+(* Test: Fuse.lns *)
+test Fuse.lns get conf =
+ { "#comment" = "Set the maximum number of FUSE mounts allowed to non-root users." }
+ { "mount_max" = "1000" }
+ { }
+ { "#comment" = "Allow non-root users to specify the 'allow_other' or 'allow_root'" }
+ { "user_allow_other" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_gdm.aug b/Sharp.Augeas.Test/lens/tests/test_gdm.aug
new file mode 100644
index 0000000..50b12f3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_gdm.aug
@@ -0,0 +1,21 @@
+module Test_gdm =
+
+ let conf = "[daemon]
+# Automatic login, if true the first attached screen will automatically logged
+# in as user as set with AutomaticLogin key.
+AutomaticLoginEnable=false
+AutomaticLogin=
+
+[server]
+0=Standard device=/dev/console
+"
+
+ test Gdm.lns get conf =
+ { "daemon"
+ { "#comment" = "Automatic login, if true the first attached screen will automatically logged" }
+ { "#comment" = "in as user as set with AutomaticLogin key." }
+ { "AutomaticLoginEnable" = "false" }
+ { "AutomaticLogin" }
+ {} }
+ { "server"
+ { "0" = "Standard device=/dev/console" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_getcap.aug b/Sharp.Augeas.Test/lens/tests/test_getcap.aug
new file mode 100644
index 0000000..4cd435c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_getcap.aug
@@ -0,0 +1,122 @@
+module Test_getcap =
+
+(* Example from getcap(3) *)
+let getcap = "example|an example of binding multiple values to names:\\
+ :foo%bar:foo^blah:foo@:\\
+ :abc%xyz:abc^frap:abc$@:\\
+ :tc=more:
+"
+
+test Getcap.lns get getcap =
+ { "record"
+ { "name" = "example" }
+ { "name" = "an example of binding multiple values to names" }
+ { "capability" = "foo%bar" }
+ { "capability" = "foo^blah" }
+ { "capability" = "foo@" }
+ { "capability" = "abc%xyz" }
+ { "capability" = "abc^frap" }
+ { "capability" = "abc$@" }
+ { "capability" = "tc=more" }
+ }
+
+(* Taken from the standard /etc/login.conf *)
+let login_conf = "# Default allowed authentication styles
+auth-defaults:auth=passwd,skey:
+
+# Default allowed authentication styles for authentication type ftp
+auth-ftp-defaults:auth-ftp=passwd:
+
+#
+# The default values
+# To alter the default authentication types change the line:
+# :tc=auth-defaults:\\
+# to be read something like: (enables passwd, \"myauth\", and activ)
+# :auth=passwd,myauth,activ:\\
+# Any value changed in the daemon class should be reset in default
+# class.
+#
+default:\\
+ :path=/usr/bin /bin /usr/sbin /sbin /usr/X11R6/bin /usr/local/bin /usr/local/sbin:\\
+ :umask=022:\\
+ :datasize-max=512M:\\
+ :datasize-cur=512M:\\
+ :maxproc-max=256:\\
+ :maxproc-cur=128:\\
+ :openfiles-cur=512:\\
+ :stacksize-cur=4M:\\
+ :localcipher=blowfish,8:\\
+ :ypcipher=old:\\
+ :tc=auth-defaults:\\
+ :tc=auth-ftp-defaults:
+"
+
+test Getcap.lns get login_conf =
+ { "#comment" = "Default allowed authentication styles" }
+ { "record"
+ { "name" = "auth-defaults" }
+ { "capability" = "auth=passwd,skey" }
+ }
+ { }
+ { "#comment" = "Default allowed authentication styles for authentication type ftp" }
+ { "record"
+ { "name" = "auth-ftp-defaults" }
+ { "capability" = "auth-ftp=passwd" }
+ }
+ { }
+ { }
+ { "#comment" = "The default values" }
+ { "#comment" = "To alter the default authentication types change the line:" }
+ { "#comment" = ":tc=auth-defaults:\\" }
+ { "#comment" = "to be read something like: (enables passwd, \"myauth\", and activ)" }
+ { "#comment" = ":auth=passwd,myauth,activ:\\" }
+ { "#comment" = "Any value changed in the daemon class should be reset in default" }
+ { "#comment" = "class." }
+ { }
+ { "record"
+ { "name" = "default" }
+ { "capability" = "path=/usr/bin /bin /usr/sbin /sbin /usr/X11R6/bin /usr/local/bin /usr/local/sbin" }
+ { "capability" = "umask=022" }
+ { "capability" = "datasize-max=512M" }
+ { "capability" = "datasize-cur=512M" }
+ { "capability" = "maxproc-max=256" }
+ { "capability" = "maxproc-cur=128" }
+ { "capability" = "openfiles-cur=512" }
+ { "capability" = "stacksize-cur=4M" }
+ { "capability" = "localcipher=blowfish,8" }
+ { "capability" = "ypcipher=old" }
+ { "capability" = "tc=auth-defaults" }
+ { "capability" = "tc=auth-ftp-defaults" }
+ }
+
+(* Sample /etc/printcap *)
+let printcap = "# $OpenBSD: printcap,v 1.1 2014/07/12 03:52:39 deraadt Exp $
+
+lp|local line printer:\\
+ :lp=/dev/lp:sd=/var/spool/output:lf=/var/log/lpd-errs:
+
+rp|remote line printer:\\
+ :lp=:rm=printhost:rp=lp:sd=/var/spool/output:lf=/var/log/lpd-errs:
+"
+
+test Getcap.lns get printcap =
+ { "#comment" = "$OpenBSD: printcap,v 1.1 2014/07/12 03:52:39 deraadt Exp $" }
+ { }
+ { "record"
+ { "name" = "lp" }
+ { "name" = "local line printer" }
+ { "capability" = "lp=/dev/lp" }
+ { "capability" = "sd=/var/spool/output" }
+ { "capability" = "lf=/var/log/lpd-errs" }
+ }
+ { }
+ { "record"
+ { "name" = "rp" }
+ { "name" = "remote line printer" }
+ { "capability" = "lp=" }
+ { "capability" = "rm=printhost" }
+ { "capability" = "rp=lp" }
+ { "capability" = "sd=/var/spool/output" }
+ { "capability" = "lf=/var/log/lpd-errs" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_group.aug b/Sharp.Augeas.Test/lens/tests/test_group.aug
new file mode 100644
index 0000000..37c27fa
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_group.aug
@@ -0,0 +1,54 @@
+module Test_group =
+
+let conf = "bin:x:2:
+audio:x:29:joe
+avahi-autoipd:!:113:bill,martha
+"
+
+test Group.lns get conf =
+ { "bin"
+ { "password" = "x" }
+ { "gid" = "2" } }
+ { "audio"
+ { "password" = "x" }
+ { "gid" = "29" }
+ { "user" = "joe" } }
+ { "avahi-autoipd"
+ { "password" = "!" }
+ { "gid" = "113" }
+ { "user" = "bill"}
+ { "user" = "martha"} }
+
+(* Password field can be empty *)
+test Group.lns get "root::0:root\n" =
+ { "root"
+ { "password" = "" }
+ { "gid" = "0" }
+ { "user" = "root" } }
+
+(* Password field can be disabled by ! or * *)
+test Group.lns get "testgrp:!:0:testusr\n" =
+ { "testgrp"
+ { "password" = "!" }
+ { "gid" = "0" }
+ { "user" = "testusr" } }
+
+test Group.lns get "testgrp:*:0:testusr\n" =
+ { "testgrp"
+ { "password" = "*" }
+ { "gid" = "0" }
+ { "user" = "testusr" } }
+
+(* NIS defaults *)
+test Group.lns get "+\n" =
+ { "@nisdefault" }
+
+test Group.lns get "+:::\n" =
+ { "@nisdefault"
+ { "password" = "" }
+ { "gid" = "" } }
+
+test Group.lns get "+:*::\n" =
+ { "@nisdefault"
+ { "password" = "*" }
+ { "gid" = "" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_grub.aug b/Sharp.Augeas.Test/lens/tests/test_grub.aug
new file mode 100644
index 0000000..e50bdc4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_grub.aug
@@ -0,0 +1,301 @@
+module Test_grub =
+
+ let conf = "# grub.conf generated by anaconda
+#
+# Note that you do not have to rerun grub after making changes to this file
+# NOTICE: You have a /boot partition. This means that
+# all kernel and initrd paths are relative to /boot/, eg.
+# root (hd0,0)
+# kernel /vmlinuz-version ro root=/dev/vg00/lv00
+# initrd /initrd-version.img
+boot=/dev/sda
+device (hd0) HD(1,800,64000,9895c137-d4b2-4e3b-a93b-dc9ac4)
+password --md5 $1$M9NLj$p2gs87vwNv48BUu.wAfVw0
+default=0
+setkey
+setkey less backquote
+background 103332
+timeout=5
+splashimage=(hd0,0)/grub/splash.xpm.gz
+gfxmenu=(hd0,0)/boot/message
+verbose = 0
+hiddenmenu
+title Fedora (2.6.24.4-64.fc8)
+ root (hd0,0)
+ kernel /vmlinuz-2.6.24.4-64.fc8 ro root=/dev/vg00/lv00 crashkernel=
+ initrd /initrd-2.6.24.4-64.fc8.img
+title=Fedora (2.6.24.3-50.fc8)
+ root (hd0,0)
+ kernel /vmlinuz-2.6.24.3-50.fc8 ro root=/dev/vg00/lv00
+ initrd /initrd-2.6.24.3-50.fc8.img
+title Fedora (2.6.21.7-3.fc8xen)
+ root (hd0,0)
+ kernel /xen.gz-2.6.21.7-3.fc8
+ module /vmlinuz-2.6.21.7-3.fc8xen ro root=/dev/vg00/lv00
+ module /initrd-2.6.21.7-3.fc8xen.img
+title Fedora (2.6.24.3-34.fc8)
+ root (hd0,0)
+ kernel /vmlinuz-2.6.24.3-34.fc8 ro root=/dev/vg00/lv00
+ initrd /initrd-2.6.24.3-34.fc8.img
+ map (hd0) (hd1)
+title othermenu
+ lock
+ makeactive
+ configfile /boot/grub/othergrub.conf
+"
+
+ test Grub.lns get conf =
+ { "#comment" = "grub.conf generated by anaconda" }
+ {}
+ { "#comment" = "Note that you do not have to rerun grub after making changes to this file" }
+ { "#comment" = "NOTICE: You have a /boot partition. This means that" }
+ { "#comment" = "all kernel and initrd paths are relative to /boot/, eg." }
+ { "#comment" = "root (hd0,0)" }
+ { "#comment" = "kernel /vmlinuz-version ro root=/dev/vg00/lv00" }
+ { "#comment" = "initrd /initrd-version.img" }
+ { "boot" = "/dev/sda" }
+ { "device" = "(hd0)"
+ { "file" = "HD(1,800,64000,9895c137-d4b2-4e3b-a93b-dc9ac4)" } }
+ { "password" = "$1$M9NLj$p2gs87vwNv48BUu.wAfVw0"
+ { "md5" } }
+ { "default" = "0" }
+ { "setkey" }
+ { "setkey"
+ { "to" = "less" }
+ { "from" = "backquote" } }
+ { "background" = "103332" }
+ { "timeout" = "5" }
+ { "splashimage" = "(hd0,0)/grub/splash.xpm.gz" }
+ { "gfxmenu" = "(hd0,0)/boot/message" }
+ { "verbose" = "0" }
+ { "hiddenmenu" }
+ { "title" = "Fedora (2.6.24.4-64.fc8)"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/vmlinuz-2.6.24.4-64.fc8"
+ { "ro" } { "root" = "/dev/vg00/lv00" } {"crashkernel" = ""} }
+ { "initrd" = "/initrd-2.6.24.4-64.fc8.img" } }
+ { "title" = "Fedora (2.6.24.3-50.fc8)"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/vmlinuz-2.6.24.3-50.fc8"
+ { "ro" } { "root" = "/dev/vg00/lv00" } }
+ { "initrd" = "/initrd-2.6.24.3-50.fc8.img" } }
+ { "title" = "Fedora (2.6.21.7-3.fc8xen)"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/xen.gz-2.6.21.7-3.fc8" }
+ { "module" = "/vmlinuz-2.6.21.7-3.fc8xen"
+ { "ro" } { "root" = "/dev/vg00/lv00" } }
+ { "module" = "/initrd-2.6.21.7-3.fc8xen.img" } }
+ { "title" = "Fedora (2.6.24.3-34.fc8)"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/vmlinuz-2.6.24.3-34.fc8"
+ { "ro" } { "root" = "/dev/vg00/lv00" } }
+ { "initrd" = "/initrd-2.6.24.3-34.fc8.img" }
+ { "map" { "from" = "(hd0)" } { "to" = "(hd1)" } } }
+ { "title" = "othermenu"
+ { "lock" }
+ { "makeactive" }
+ { "configfile" = "/boot/grub/othergrub.conf" } }
+
+
+ test Grub.lns put conf after set "default" "0" = conf
+
+ test Grub.lns get "# menu.lst - See: grub(8), info grub, update-grub(8)
+
+## default num\n" =
+ { "#comment" = "menu.lst - See: grub(8), info grub, update-grub(8)" }
+ {}
+ { "#comment" = "# default num" }
+
+ (* Color directive *)
+ test Grub.lns get "color cyan/blue white/blue\n" =
+ { "color"
+ { "normal" { "foreground" = "cyan" }
+ { "background" = "blue" } }
+ { "highlight" { "foreground" = "white" }
+ { "background" = "blue" } } }
+
+ test Grub.lns get "\tcolor cyan/light-blue\n" =
+ { "color"
+ { "normal" { "foreground" = "cyan" }
+ { "background" = "light-blue" } } }
+
+ test Grub.lns put "color cyan/light-blue\n" after
+ set "/color/highlight/foreground" "white";
+ set "/color/highlight/background" "black" =
+ "color cyan/light-blue white/black\n"
+
+ (* Boot stanza with savedefault *)
+ let boot_savedefault =
+"title\t\tDebian GNU/Linux, kernel 2.6.18-6-vserver-686
+root\t\t(hd0,0)
+ kernel\t\t/boot/vmlinuz-2.6.18-6-vserver-686 root=/dev/md0 ro
+initrd\t\t/boot/initrd.img-2.6.18-6-vserver-686
+\tsavedefault\n"
+
+ test Grub.lns get boot_savedefault =
+ { "title" = "Debian GNU/Linux, kernel 2.6.18-6-vserver-686"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/boot/vmlinuz-2.6.18-6-vserver-686"
+ { "root" = "/dev/md0" } { "ro" } }
+ { "initrd" = "/boot/initrd.img-2.6.18-6-vserver-686" }
+ { "savedefault" } }
+
+ test Grub.lns get
+ "serial --unit=0 --speed=9600 --word=8 --parity=no --stop=1\n"
+ =
+ { "serial"
+ { "unit" = "0" }
+ { "speed" = "9600" }
+ { "word" = "8" }
+ { "parity" = "no" }
+ { "stop" = "1" } }
+
+ test Grub.lns get
+ "terminal --timeout=10 serial console\n" =
+ { "terminal"
+ { "timeout" = "10" }
+ { "serial" }
+ { "console" } }
+
+ test Grub.boot_setting get
+ "chainloader --force +1 \n" = { "chainloader" = "+1" { "force" } }
+
+ test Grub.savedefault put "savedefault\n" after
+ set "/savedefault" "3" = "savedefault 3\n"
+
+ test Grub.lns get
+"password foo
+password foo /boot/grub/custom.lst
+password --md5 $1$Ahx/T0$Sgcp7Z0xgGlyANIJCdESi.
+password --encrypted ^9^32kwzzX./3WISQ0C
+password --encrypted ^9^32kwzzX./3WISQ0C /boot/grub/custom.lst
+" =
+ { "password" = "foo" }
+ { "password" = "foo"
+ { "file" = "/boot/grub/custom.lst" } }
+ { "password" = "$1$Ahx/T0$Sgcp7Z0xgGlyANIJCdESi."
+ { "md5" } }
+ { "password" = "^9^32kwzzX./3WISQ0C"
+ { "encrypted" } }
+ { "password" = "^9^32kwzzX./3WISQ0C"
+ { "encrypted" }
+ { "file" = "/boot/grub/custom.lst" } }
+
+ (* BZ 590067 - handle comments in a title section *)
+ (* Comments within a boot stanza belong to that boot stanza *)
+ test Grub.lns get "title Red Hat Enterprise Linux AS (2.4.21-63.ELsmp)
+ root (hd0,0)
+ kernel /vmlinuz-2.4.21-63.ELsmp ro root=LABEL=/
+ #initrd /initrd-2.4.21-63.ELsmp.img
+ initrd /initrd-2.4.21-63.EL.img.e1000.8139\n" =
+ { "title" = "Red Hat Enterprise Linux AS (2.4.21-63.ELsmp)"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/vmlinuz-2.4.21-63.ELsmp" { "ro" } { "root" = "LABEL=/" } }
+ { "#comment" = "initrd /initrd-2.4.21-63.ELsmp.img" }
+ { "initrd" = "/initrd-2.4.21-63.EL.img.e1000.8139" } }
+
+ (* Comments at the end of a boot stanza go into the top level *)
+ test Grub.lns get "title Red Hat Enterprise Linux AS (2.4.21-63.ELsmp)
+ root (hd0,0)
+ kernel /vmlinuz-2.4.21-63.ELsmp ro root=LABEL=/
+ initrd /initrd-2.4.21-63.EL.img.e1000.8139
+ # Now for something completely different\n" =
+ { "title" = "Red Hat Enterprise Linux AS (2.4.21-63.ELsmp)"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/vmlinuz-2.4.21-63.ELsmp" { "ro" } { "root" = "LABEL=/" } }
+ { "initrd" = "/initrd-2.4.21-63.EL.img.e1000.8139" } }
+ { "#comment" = "Now for something completely different" }
+
+ (* Solaris 10 extensions: kernel$ and module$ are permitted and enable *)
+ (* variable expansion. findroot (similar to root) and bootfs added *)
+ test Grub.lns get "title Solaris 10 10/09 s10x_u8wos_08a X86
+ findroot (pool_rpool,0,a)
+ bootfs rpool/mybootenv-alt
+ kernel$ /platform/i86pc/multiboot -B $ZFS-BOOTFS
+ module$ /platform/i86pc/boot_archive\n" =
+ { "title" = "Solaris 10 10/09 s10x_u8wos_08a X86"
+ { "findroot" = "(pool_rpool,0,a)" }
+ { "bootfs" = "rpool/mybootenv-alt" }
+ { "kernel$" = "/platform/i86pc/multiboot" { "-B" } { "$ZFS-BOOTFS" } }
+ { "module$" = "/platform/i86pc/boot_archive" } }
+
+ (* Solaris 10 extension: multiboot kernel may take a path as its first *)
+ (* argument. *)
+ test Grub.lns get "title Solaris failsafe
+ findroot (pool_rpool,0,a)
+ kernel /boot/multiboot kernel/unix -s
+ module /boot/x86.miniroot-safe\n" =
+ { "title" = "Solaris failsafe"
+ { "findroot" = "(pool_rpool,0,a)" }
+ { "kernel" = "/boot/multiboot" { "@path" = "kernel/unix" } { "-s" } }
+ { "module" = "/boot/x86.miniroot-safe" } }
+
+ test Grub.lns get "title SUSE Linux Enterprise Server 11 SP1 - 2.6.32.27-0.2
+ kernel (hd0,0)/vmlinuz root=/dev/vg_root/lv_root resume=/dev/vg_root/lv_swap splash=silent showopts
+ initrd (hd0,0)/initrd\n" =
+ { "title" = "SUSE Linux Enterprise Server 11 SP1 - 2.6.32.27-0.2"
+ { "kernel" = "(hd0,0)/vmlinuz"
+ { "root" = "/dev/vg_root/lv_root" }
+ { "resume" = "/dev/vg_root/lv_swap" }
+ { "splash" = "silent" }
+ { "showopts" } }
+ { "initrd" = "(hd0,0)/initrd" } }
+
+ (* Password protected kernel, issue #229 *)
+ test Grub.lns get "title Password Protected Kernel
+ root (hd0,0)
+ kernel /vmlinuz ro root=/dev/mapper/root
+ initrd /initramfs
+ password --md5 secret\n" =
+ { "title" = "Password Protected Kernel"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/vmlinuz"
+ { "ro" }
+ { "root" = "/dev/mapper/root" }
+ }
+ { "initrd" = "/initramfs" }
+ { "password" = "secret"
+ { "md5" }
+ } }
+
+ (* Test kernel options with different special characters. *)
+ test Grub.lns get "title Fedora (2.6.24.4-64.fc8)
+ root (hd0,0)
+ kernel /vmlinuz-2.6.24.4-64.fc8 ro root=/dev/vg00/lv00 with.dot=1 with-dash=1 with_underscore=1 with+plus=1
+ initrd /initrd-2.6.24.4-64.fc8.img\n" =
+ { "title" = "Fedora (2.6.24.4-64.fc8)"
+ { "root" = "(hd0,0)" }
+ { "kernel" = "/vmlinuz-2.6.24.4-64.fc8"
+ { "ro" }
+ { "root" = "/dev/vg00/lv00" }
+ { "with.dot" = "1" }
+ { "with-dash" = "1" }
+ { "with_underscore" = "1" }
+ { "with+plus" = "1" }
+ }
+ { "initrd" = "/initrd-2.6.24.4-64.fc8.img" } }
+
+ (* Test parsing of invalid entries via menu_error *)
+ test Grub.lns get "default=0\ncrud=no\n" =
+ { "default" = "0" }
+ { "#error" = "crud=no" }
+
+ (* We handle some pretty bizarre bad syntax *)
+ test Grub.lns get "default=0
+crud no
+valid:nope
+nonsense = yes
+bad arg1 arg2 arg3=v\n" =
+ { "default" = "0" }
+ { "#error" = "crud no" }
+ { "#error" = "valid:nope" }
+ { "#error" = "nonsense = yes" }
+ { "#error" = "bad arg1 arg2 arg3=v" }
+
+ (* Test parsing of invalid entries via boot_error *)
+ test Grub.lns get "title test
+ root (hd0,0)
+ crud foo\n" =
+ { "title" = "test"
+ { "root" = "(hd0,0)" }
+ { "#error" = "crud foo" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_grubenv.aug b/Sharp.Augeas.Test/lens/tests/test_grubenv.aug
new file mode 100644
index 0000000..2976c16
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_grubenv.aug
@@ -0,0 +1,36 @@
+module Test_grubenv =
+
+ let conf = "# GRUB Environment Block
+serial=1
+serial_speed=115200
+dummy1=abc\\\\xyz
+dummy2=abc\\
+xyz
+dummy3=abc\\\\uvw\\
+xyz
+########################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################
+"
+
+ test GrubEnv.lns get conf =
+ { "#comment" = "GRUB Environment Block" }
+ { "1"
+ { "name" = "serial" }
+ { "value" = "1" }
+ }
+ { "2"
+ { "name" = "serial_speed" }
+ { "value" = "115200" }
+ }
+ { "3"
+ { "name" = "dummy1" }
+ { "value" = "abc\\\\xyz" }
+ }
+ { "4"
+ { "name" = "dummy2" }
+ { "value" = "abc\\\nxyz" }
+ }
+ { "5"
+ { "name" = "dummy3" }
+ { "value" = "abc\\\\uvw\\\nxyz" }
+ }
+ { "#comment" = "#######################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################################" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_gshadow.aug b/Sharp.Augeas.Test/lens/tests/test_gshadow.aug
new file mode 100644
index 0000000..b226a3e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_gshadow.aug
@@ -0,0 +1,18 @@
+module Test_Gshadow =
+
+let conf = "root:x::
+uucp:x::
+sudo:x:suadmin1,suadmin2:coadmin1,coadmin2
+"
+
+test Gshadow.lns get conf =
+ { "root"
+ { "password" = "x" } }
+ { "uucp"
+ { "password" = "x" } }
+ { "sudo"
+ { "password" = "x" }
+ { "admin" = "suadmin1" }
+ { "admin" = "suadmin2" }
+ { "member" = "coadmin1" }
+ { "member" = "coadmin2" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_gtkbookmarks.aug b/Sharp.Augeas.Test/lens/tests/test_gtkbookmarks.aug
new file mode 100644
index 0000000..404a4fd
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_gtkbookmarks.aug
@@ -0,0 +1,25 @@
+(*
+Module: Test_GtkBookmarks
+ Provides unit tests and examples for the <GtkBookmarks> lens.
+*)
+
+module Test_GtkBookmarks =
+
+(* Test: GtkBookmarks.lns
+ Test without label *)
+test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n" =
+ { "bookmark" = "ftp://user@myftp.com/somedir" }
+
+(* Test: GtkBookmarks.lns
+ Test with label *)
+test GtkBookmarks.lns get "file:///home/rpinson/Ubuntu%20One Ubuntu One\n" =
+ { "bookmark" = "file:///home/rpinson/Ubuntu%20One"
+ { "label" = "Ubuntu One" } }
+
+(* Test: GtkBookmarks.lns
+ Empty lines are allowed, not comments *)
+test GtkBookmarks.lns get "ftp://user@myftp.com/somedir\n\nfile:///home/rpinson/Ubuntu%20One Ubuntu One\n" =
+ { "bookmark" = "ftp://user@myftp.com/somedir" }
+ { }
+ { "bookmark" = "file:///home/rpinson/Ubuntu%20One"
+ { "label" = "Ubuntu One" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_host_conf.aug b/Sharp.Augeas.Test/lens/tests/test_host_conf.aug
new file mode 100644
index 0000000..f0df5ab
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_host_conf.aug
@@ -0,0 +1,36 @@
+module Test_Host_Conf =
+
+let conf = "
+# /etc/host.conf
+# We have named running, but no NIS (yet)
+order bind, hosts
+# Allow multiple addrs
+multi on
+# Guard against spoof attempts
+nospoof on
+# Trim local domain (not really necessary).
+trim vbrew.com.:fedora.org.
+trim augeas.net.,ubuntu.com.
+"
+
+test Host_Conf.lns get conf =
+ { }
+ { "#comment" = "/etc/host.conf" }
+ { "#comment" = "We have named running, but no NIS (yet)" }
+ { "order"
+ { "1" = "bind" }
+ { "2" = "hosts" }
+ }
+ { "#comment" = "Allow multiple addrs" }
+ { "multi" = "on" }
+ { "#comment" = "Guard against spoof attempts" }
+ { "nospoof" = "on" }
+ { "#comment" = "Trim local domain (not really necessary)." }
+ { "trim"
+ { "1" = "vbrew.com." }
+ { "2" = "fedora.org." }
+ }
+ { "trim"
+ { "3" = "augeas.net." }
+ { "4" = "ubuntu.com." }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_hostname.aug b/Sharp.Augeas.Test/lens/tests/test_hostname.aug
new file mode 100644
index 0000000..32d8821
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_hostname.aug
@@ -0,0 +1,4 @@
+module Test_Hostname =
+
+test Hostname.lns get "local.localnet\n" =
+ { "hostname" = "local.localnet" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_hosts.aug b/Sharp.Augeas.Test/lens/tests/test_hosts.aug
new file mode 100644
index 0000000..2bc61fb
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_hosts.aug
@@ -0,0 +1,64 @@
+(* Tests for the Hosts module *)
+
+module Test_hosts =
+
+ let two_entries = "127.0.0.1 foo foo.example.com
+ # \tcomment\t
+192.168.0.1 pigiron.example.com pigiron pigiron.example
+"
+
+ test Hosts.record get "127.0.0.1 foo\n" =
+ { "1" { "ipaddr" = "127.0.0.1" }
+ { "canonical" = "foo" } }
+
+ test Hosts.lns get two_entries =
+ { "1" { "ipaddr" = "127.0.0.1" }
+ { "canonical" = "foo" }
+ { "alias" = "foo.example.com" }
+ }
+ { "#comment" = "comment" }
+ { "2" { "ipaddr" = "192.168.0.1" }
+ { "canonical" = "pigiron.example.com" }
+ { "alias" = "pigiron" }
+ { "alias" = "pigiron.example" } }
+
+ test Hosts.record put "127.0.0.1 foo\n" after
+ set "/1/canonical" "bar"
+ = "127.0.0.1 bar\n"
+
+ test Hosts.lns put two_entries after
+ set "/2/alias[10]" "piggy" ;
+ rm "/1/alias[1]" ;
+ rm "/2/alias[2]"
+ = "127.0.0.1 foo
+ # \tcomment\t
+192.168.0.1 pigiron.example.com pigiron piggy
+"
+
+ (* Deleting the 'canonical' node violates the schema; each host entry *)
+ (* must have one *)
+ test Hosts.lns put two_entries after
+ rm "/1/canonical"
+ = *
+
+ (* Make sure blank and indented lines get through *)
+ test Hosts.lns get " \t 127.0.0.1\tlocalhost \n \n\n
+127.0.1.1\tetch.example.com\tetch\n" =
+ { "1" { "ipaddr" = "127.0.0.1" }
+ { "canonical" = "localhost" } }
+ {} {} {}
+ { "2" { "ipaddr" = "127.0.1.1" }
+ { "canonical" = "etch.example.com" }
+ { "alias" = "etch" } }
+
+ (* Comment at the end of a line *)
+ test Hosts.lns get "127.0.0.1 localhost # must always be there \n" =
+ { "1" { "ipaddr" = "127.0.0.1" }
+ { "canonical" = "localhost" }
+ { "#comment" = "must always be there" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_hosts_access.aug b/Sharp.Augeas.Test/lens/tests/test_hosts_access.aug
new file mode 100644
index 0000000..e677078
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_hosts_access.aug
@@ -0,0 +1,253 @@
+module Test_Hosts_Access =
+
+let multi_daemon = "sshd, sendmail : 10.234.\n"
+
+test Hosts_Access.lns get multi_daemon =
+ { "1"
+ { "process" = "sshd" }
+ { "process" = "sendmail" }
+ { "client" = "10.234." }
+ }
+
+let multi_daemon_spc = "sshd sendmail : 10.234.\n"
+
+test Hosts_Access.lns get multi_daemon_spc =
+ { "1"
+ { "process" = "sshd" }
+ { "process" = "sendmail" }
+ { "client" = "10.234." }
+ }
+
+let multi_client = "sshd: 10.234. , 192.168.\n"
+
+test Hosts_Access.lns get multi_client =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "10.234." }
+ { "client" = "192.168." }
+ }
+
+let multi_client_spc = "sshd: 10.234. 192.168.\n"
+
+test Hosts_Access.lns get multi_client_spc =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "10.234." }
+ { "client" = "192.168." }
+ }
+
+let daemon_except = "ALL Except sshd : 10.234.\n"
+
+test Hosts_Access.lns get daemon_except =
+ { "1"
+ { "process" = "ALL" }
+ { "except"
+ { "process" = "sshd" }
+ }
+ { "client" = "10.234." }
+ }
+
+let client_except = "sshd : ALL EXCEPT 192.168\n"
+
+test Hosts_Access.lns get client_except =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "ALL" }
+ { "except"
+ { "client" = "192.168" }
+ }
+ }
+
+let daemon_host = "sshd@192.168.0.1: 10.234.\n"
+
+test Hosts_Access.lns get daemon_host =
+ { "1"
+ { "process" = "sshd"
+ { "host" = "192.168.0.1" }
+ }
+ { "client" = "10.234." }
+ }
+
+let user_client = "sshd: root@.example.tld\n"
+
+test Hosts_Access.lns get user_client =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = ".example.tld"
+ { "user" = "root" }
+ }
+ }
+
+let shell_command = "sshd: 192.168. : /usr/bin/my_cmd -t -f some_arg\n"
+
+test Hosts_Access.lns get shell_command =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "192.168." }
+ { "shell_command" = "/usr/bin/my_cmd -t -f some_arg" }
+ }
+
+let client_netgroup = "sshd: @hostgroup\n"
+test Hosts_Access.lns get client_netgroup =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "@hostgroup" }
+ }
+
+let client_netmask = "sshd: 192.168.0.0/255.255.0.0\n"
+test Hosts_Access.lns get client_netmask =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "192.168.0.0"
+ { "netmask" = "255.255.0.0" } }
+ }
+
+let client_cidr_v4 = "sshd: 192.168.0.0/24\n"
+test Hosts_Access.lns get client_cidr_v4 =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "192.168.0.0"
+ { "netmask" = "24" } }
+ }
+
+let client_cidr_v6 = "sshd: [fe80::%fxp0]/64\n"
+test Hosts_Access.lns get client_cidr_v6 =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "[fe80::%fxp0]"
+ { "netmask" = "64" } }
+ }
+
+let client_file = "sshd: /etc/external_file\n"
+test Hosts_Access.lns get client_file =
+ { "1"
+ { "process" = "sshd" }
+ { "file" = "/etc/external_file" }
+ }
+
+let client_wildcard = "sshd: 192.168.?.*\n"
+test Hosts_Access.lns get client_wildcard =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "192.168.?.*" }
+ }
+
+let sample_hosts_allow = "# hosts.allow This file describes the names of the hosts which are
+# allowed to use the local INET services, as decided
+# by the '/usr/sbin/tcpd' server.
+in.telnetd: 192.168.1.
+sshd: 70.16., 207.228.
+ipop3d: ALL
+sendmail: ALL
+"
+
+test Hosts_Access.lns get sample_hosts_allow =
+ { "#comment" = "hosts.allow This file describes the names of the hosts which are" }
+ { "#comment" = "allowed to use the local INET services, as decided" }
+ { "#comment" = "by the '/usr/sbin/tcpd' server." }
+ { "1"
+ { "process" = "in.telnetd" }
+ { "client" = "192.168.1." }
+ }
+ { "2"
+ { "process" = "sshd" }
+ { "client" = "70.16." }
+ { "client" = "207.228." }
+ }
+ { "3"
+ { "process" = "ipop3d" }
+ { "client" = "ALL" }
+ }
+ { "4"
+ { "process" = "sendmail" }
+ { "client" = "ALL" }
+ }
+
+
+let sample_hosts_deny = "#
+# hosts.deny This file describes the names of the hosts which are
+# *not* allowed to use the local INET services, as decided
+# by the '/usr/sbin/tcpd' server.
+in.telnetd: all
+
+sshd: 61., 62., \
+ 64.179., 65.
+"
+
+test Hosts_Access.lns get sample_hosts_deny =
+ { }
+ { "#comment" = "hosts.deny This file describes the names of the hosts which are" }
+ { "#comment" = "*not* allowed to use the local INET services, as decided" }
+ { "#comment" = "by the '/usr/sbin/tcpd' server." }
+ { "1"
+ { "process" = "in.telnetd" }
+ { "client" = "all" }
+ }
+ { }
+ { "2"
+ { "process" = "sshd" }
+ { "client" = "61." }
+ { "client" = "62." }
+ { "client" = "64.179." }
+ { "client" = "65." }
+ }
+
+
+let ip_mask = "sshd: 61./255.255.255.255\n"
+
+test Hosts_Access.lns get ip_mask =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "61." { "netmask" = "255.255.255.255" } } }
+
+(* Support options from hosts_options(5) *)
+test Hosts_Access.lns get "sshd: all: keepalive\n" =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "all" }
+ { "keepalive" } }
+
+test Hosts_Access.lns get "sshd: all: severity mail.info\n" =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "all" }
+ { "severity" = "mail.info" } }
+
+test Hosts_Access.lns get "sshd: all: severity mail.info : rfc931 5 : DENY\n" =
+ { "1"
+ { "process" = "sshd" }
+ { "client" = "all" }
+ { "severity" = "mail.info" }
+ { "rfc931" = "5" }
+ { "DENY" } }
+
+(* Ticket #255, from FreeBSD *)
+let host_options_cmds = "# You need to be clever with finger; do _not_ backfinger!! You can easily
+# start a \"finger war\".
+fingerd : ALL \
+ : spawn (echo Finger. | \
+ /usr/bin/mail -s \"tcpd\: %u@%h[%a] fingered me!\" root) & \
+ : deny
+
+# The rest of the daemons are protected.
+ALL : ALL : \
+ severity auth.info \
+ : twist /bin/echo \"You are not welcome to use %d from %h.\"
+"
+
+test Hosts_Access.lns get host_options_cmds =
+ { "#comment" = "You need to be clever with finger; do _not_ backfinger!! You can easily" }
+ { "#comment" = "start a \"finger war\"." }
+ { "1"
+ { "process" = "fingerd" }
+ { "client" = "ALL" }
+ { "spawn" = "(echo Finger. | \
+ /usr/bin/mail -s \"tcpd\\: %u@%h[%a] fingered me!\" root) &" }
+ { "deny" } }
+ { }
+ { "#comment" = "The rest of the daemons are protected." }
+ { "2"
+ { "process" = "ALL" }
+ { "client" = "ALL" }
+ { "severity" = "auth.info" }
+ { "twist" = "/bin/echo \"You are not welcome to use %d from %h.\"" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_htpasswd.aug b/Sharp.Augeas.Test/lens/tests/test_htpasswd.aug
new file mode 100644
index 0000000..6b45a87
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_htpasswd.aug
@@ -0,0 +1,19 @@
+(*
+Module: Test_Htpasswd
+ Provides unit tests and examples for the <Htpasswd> lens.
+*)
+
+module Test_Htpasswd =
+
+let htpasswd = "foo-plain:bar
+foo-crypt:78YuxG9nnfUCo
+foo-md5:$apr1$NqCzyXmd$WLc/Wb35AkC.8tQQB3/Uw/
+foo-sha1:{SHA}Ys23Ag/5IOWqZCw9QGaVDdHwH00=
+"
+
+test Htpasswd.lns get htpasswd =
+ { "foo-plain" = "bar" }
+ { "foo-crypt" = "78YuxG9nnfUCo" }
+ { "foo-md5" = "$apr1$NqCzyXmd$WLc/Wb35AkC.8tQQB3/Uw/" }
+ { "foo-sha1" = "{SHA}Ys23Ag/5IOWqZCw9QGaVDdHwH00=" }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_httpd.aug b/Sharp.Augeas.Test/lens/tests/test_httpd.aug
new file mode 100644
index 0000000..9887f7a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_httpd.aug
@@ -0,0 +1,648 @@
+module Test_httpd =
+
+(* Check that we can iterate on directive *)
+let _ = Httpd.directive+
+
+(* Check that we can do a non iterative section *)
+let _ = Httpd.section Httpd.directive
+
+(* directives testing *)
+let d1 = "ServerRoot \"/etc/apache2\"\n"
+test Httpd.directive get d1 =
+ { "directive" = "ServerRoot"
+ { "arg" = "\"/etc/apache2\"" }
+ }
+
+(* simple quotes *)
+let d1s = "ServerRoot '/etc/apache2'\n"
+test Httpd.directive get d1s =
+ { "directive" = "ServerRoot"
+ { "arg" = "'/etc/apache2'" }
+ }
+
+let d2 = "ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/\n"
+test Httpd.directive get d2 =
+ { "directive" = "ScriptAlias"
+ { "arg" = "/cgi-bin/" }
+ { "arg" = "/usr/lib/cgi-bin/" }
+ }
+
+let d3 = "LockFile /var/lock/apache2/accept.lock\n"
+test Httpd.directive get d3 =
+ { "directive" = "LockFile"
+ { "arg" = "/var/lock/apache2/accept.lock" }
+ }
+
+let c1 = "
+<IfModule>
+</IfModule>
+"
+let c1_put =
+"
+<IfModule foo bar>
+</IfModule>
+"
+
+
+test Httpd.lns get c1 = { }{ "IfModule" }
+
+test Httpd.lns put c1 after set "/IfModule/arg[1]" "foo";
+ set "/IfModule/arg[2]" "bar" = c1_put
+
+let c2 = "
+<IfModule !mpm_winnt.c>
+ <IfModule !mpm_netware.c>
+ LockFile /var/lock/apache2/accept.lock
+ </IfModule>
+</IfModule>
+"
+
+test Httpd.lns get c2 =
+ { }
+ { "IfModule"
+ { "arg" = "!mpm_winnt.c" }
+ { "IfModule"
+ { "arg" = "!mpm_netware.c" }
+ { "directive" = "LockFile"
+ { "arg" = "/var/lock/apache2/accept.lock" }
+ }
+ }
+ }
+
+(* arguments must be the first child of the section *)
+test Httpd.lns put c2 after rm "/IfModule/arg";
+ insb "arg" "/IfModule/*[1]";
+ set "/IfModule/arg" "foo" =
+"
+<IfModule foo>
+ <IfModule !mpm_netware.c>
+ LockFile /var/lock/apache2/accept.lock
+ </IfModule>
+</IfModule>
+"
+
+let c3 = "
+<IfModule mpm_event_module>
+ StartServers 2
+ MaxClients 150
+ MinSpareThreads 25
+ MaxSpareThreads 75
+ ThreadLimit 64
+ ThreadsPerChild 25
+ MaxRequestsPerChild 0
+</IfModule>
+"
+
+test Httpd.lns get c3 =
+ { }
+ { "IfModule"
+ { "arg" = "mpm_event_module" }
+ { "directive" = "StartServers"
+ { "arg" = "2" }
+ }
+ { "directive" = "MaxClients"
+ { "arg" = "150" }
+ }
+ { "directive" = "MinSpareThreads"
+ { "arg" = "25" }
+ }
+ { "directive" = "MaxSpareThreads"
+ { "arg" = "75" }
+ }
+ { "directive" = "ThreadLimit"
+ { "arg" = "64" }
+ }
+ { "directive" = "ThreadsPerChild"
+ { "arg" = "25" }
+ }
+ { "directive" = "MaxRequestsPerChild"
+ { "arg" = "0" }
+ }
+ }
+
+
+
+let c4 = "
+<Files ~ \"^\.ht\">
+ Order allow,deny
+ Deny from all
+ Satisfy all
+</Files>
+"
+
+test Httpd.lns get c4 =
+ { }
+ { "Files"
+ { "arg" = "~" }
+ { "arg" = "\"^\.ht\"" }
+ { "directive" = "Order"
+ { "arg" = "allow,deny" }
+ }
+ { "directive" = "Deny"
+ { "arg" = "from" }
+ { "arg" = "all" }
+ }
+ { "directive" = "Satisfy"
+ { "arg" = "all" }
+ }
+ }
+
+
+
+let c5 = "LogFormat \"%{User-agent}i\" agent\n"
+test Httpd.lns get c5 =
+ { "directive" = "LogFormat"
+ { "arg" = "\"%{User-agent}i\"" }
+ { "arg" = "agent" }
+ }
+
+let c7 = "LogFormat \"%v:%p %h %l %u %t \\\"%r\\\" %>s %O \\\"%{Referer}i\\\" \\\"%{User-Agent}i\\\"\" vhost_combined\n"
+test Httpd.lns get c7 =
+ { "directive" = "LogFormat"
+ { "arg" = "\"%v:%p %h %l %u %t \\\"%r\\\" %>s %O \\\"%{Referer}i\\\" \\\"%{User-Agent}i\\\"\"" }
+ { "arg" = "vhost_combined" }
+ }
+
+let c8 = "IndexIgnore .??* *~ *# RCS CVS *,v *,t \n"
+test Httpd.directive get c8 =
+ { "directive" = "IndexIgnore"
+ { "arg" = ".??*" }
+ { "arg" = "*~" }
+ { "arg" = "*#" }
+ { "arg" = "RCS" }
+ { "arg" = "CVS" }
+ { "arg" = "*,v" }
+ { "arg" = "*,t" }
+ }
+
+(* FIXME: not yet supported:
+ * The backslash "\" may be used as the last character on a line to indicate
+ * that the directive continues onto the next line. There must be no other
+ * characters or white space between the backslash and the end of the line.
+ *)
+let multiline = "Options Indexes \
+FollowSymLinks MultiViews
+"
+
+test Httpd.directive get multiline =
+ { "directive" = "Options"
+ { "arg" = "Indexes" }
+ { "arg" = "FollowSymLinks" }
+ { "arg" = "MultiViews" }
+ }
+
+
+let conf2 = "<VirtualHost *:80>
+ ServerAdmin webmaster@localhost
+
+ DocumentRoot /var/www
+ <Directory />
+ Options FollowSymLinks
+ AllowOverride None
+ </Directory>
+ <Directory /var/www/>
+ Options Indexes FollowSymLinks MultiViews
+ AllowOverride None
+ Order allow,deny
+ allow from all
+ </Directory>
+
+ ScriptAlias /cgi-bin/ /usr/lib/cgi-bin/
+ <Directory \"/usr/lib/cgi-bin\">
+ AllowOverride None
+ Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch
+ Order allow,deny
+ Allow from all
+ </Directory>
+
+ ErrorLog /var/log/apache2/error.log
+
+ # Possible values include: debug, info, notice, warn, error, crit,
+ # alert, emerg.
+ LogLevel warn
+
+ CustomLog /var/log/apache2/access.log combined
+
+ SSLRequireSSL
+
+ Alias /doc/ \"/usr/share/doc/\"
+ <Directory \"/usr/share/doc/\">
+ Options Indexes MultiViews FollowSymLinks
+ AllowOverride None
+ Order deny,allow
+ Deny from all
+ Allow from 127.0.0.0/255.0.0.0 ::1/128
+ </Directory>
+
+</VirtualHost>
+"
+
+test Httpd.lns get conf2 =
+ { "VirtualHost"
+ { "arg" = "*:80" }
+ { "directive" = "ServerAdmin"
+ { "arg" = "webmaster@localhost" }
+ }
+ { }
+ { "directive" = "DocumentRoot"
+ { "arg" = "/var/www" }
+ }
+ { "Directory"
+ { "arg" = "/" }
+ { "directive" = "Options"
+ { "arg" = "FollowSymLinks" }
+ }
+ { "directive" = "AllowOverride"
+ { "arg" = "None" }
+ }
+ }
+ { "Directory"
+ { "arg" = "/var/www/" }
+ { "directive" = "Options"
+ { "arg" = "Indexes" }
+ { "arg" = "FollowSymLinks" }
+ { "arg" = "MultiViews" }
+ }
+ { "directive" = "AllowOverride"
+ { "arg" = "None" }
+ }
+ { "directive" = "Order"
+ { "arg" = "allow,deny" }
+ }
+ { "directive" = "allow"
+ { "arg" = "from" }
+ { "arg" = "all" }
+ }
+ }
+ { "directive" = "ScriptAlias"
+ { "arg" = "/cgi-bin/" }
+ { "arg" = "/usr/lib/cgi-bin/" }
+ }
+ { "Directory"
+ { "arg" = "\"/usr/lib/cgi-bin\"" }
+ { "directive" = "AllowOverride"
+ { "arg" = "None" }
+ }
+ { "directive" = "Options"
+ { "arg" = "+ExecCGI" }
+ { "arg" = "-MultiViews" }
+ { "arg" = "+SymLinksIfOwnerMatch" }
+ }
+ { "directive" = "Order"
+ { "arg" = "allow,deny" }
+ }
+ { "directive" = "Allow"
+ { "arg" = "from" }
+ { "arg" = "all" }
+ }
+ }
+ { "directive" = "ErrorLog"
+ { "arg" = "/var/log/apache2/error.log" }
+ }
+ { }
+ { "#comment" = "Possible values include: debug, info, notice, warn, error, crit," }
+ { "#comment" = "alert, emerg." }
+ { "directive" = "LogLevel"
+ { "arg" = "warn" }
+ }
+ { }
+ { "directive" = "CustomLog"
+ { "arg" = "/var/log/apache2/access.log" }
+ { "arg" = "combined" }
+ }
+ { }
+ { "directive" = "SSLRequireSSL" }
+ { }
+ { "directive" = "Alias"
+ { "arg" = "/doc/" }
+ { "arg" = "\"/usr/share/doc/\"" }
+ }
+ { "Directory"
+ { "arg" = "\"/usr/share/doc/\"" }
+ { "directive" = "Options"
+ { "arg" = "Indexes" }
+ { "arg" = "MultiViews" }
+ { "arg" = "FollowSymLinks" }
+ }
+ { "directive" = "AllowOverride"
+ { "arg" = "None" }
+ }
+ { "directive" = "Order"
+ { "arg" = "deny,allow" }
+ }
+ { "directive" = "Deny"
+ { "arg" = "from" }
+ { "arg" = "all" }
+ }
+ { "directive" = "Allow"
+ { "arg" = "from" }
+ { "arg" = "127.0.0.0/255.0.0.0" }
+ { "arg" = "::1/128" }
+ }
+ }
+ }
+
+(* Eol comment *)
+test Httpd.lns get "<a> # a comment
+MyDirective Foo
+</a>\n" =
+ { "a"
+ { "#comment" = "a comment" }
+ { "directive" = "MyDirective" { "arg" = "Foo" } } }
+
+test Httpd.lns get "<a>
+# a comment
+</a>\n" =
+ { "a" { "#comment" = "a comment" } }
+
+(* Test: Httpd.lns
+ Newlines inside quoted value (GH issue #104) *)
+test Httpd.lns get "Single 'Foo\\
+bar'
+Double \"Foo\\
+bar\"\n" =
+ { "directive" = "Single"
+ { "arg" = "'Foo\\\nbar'" } }
+ { "directive" = "Double"
+ { "arg" = "\"Foo\\\nbar\"" } }
+
+(* Test: Httpd.lns
+ Support >= in tags (GH #154) *)
+let versioncheck = "
+<IfVersion = 2.1>
+<IfModule !proxy_ajp_module>
+LoadModule proxy_ajp_module modules/mod_proxy_ajp.so
+</IfModule>
+</IfVersion>
+
+<IfVersion >= 2.4>
+<IfModule !proxy_ajp_module>
+LoadModule proxy_ajp_module modules/mod_proxy_ajp.so
+</IfModule>
+</IfVersion>
+"
+
+test Httpd.lns get versioncheck =
+ { }
+ { "IfVersion"
+ { "arg" = "=" }
+ { "arg" = "2.1" }
+ { "IfModule"
+ { "arg" = "!proxy_ajp_module" }
+ { "directive" = "LoadModule"
+ { "arg" = "proxy_ajp_module" }
+ { "arg" = "modules/mod_proxy_ajp.so" }
+ }
+ }
+ }
+ { "IfVersion"
+ { "arg" = ">=" }
+ { "arg" = "2.4" }
+ { "IfModule"
+ { "arg" = "!proxy_ajp_module" }
+ { "directive" = "LoadModule"
+ { "arg" = "proxy_ajp_module" }
+ { "arg" = "modules/mod_proxy_ajp.so" }
+ }
+ }
+ }
+
+
+(* GH #220 *)
+let double_comment = "<IfDefine Foo>
+##
+## Comment
+##
+</IfDefine>\n"
+
+test Httpd.lns get double_comment =
+ { "IfDefine"
+ { "arg" = "Foo" }
+ { "#comment" = "#" }
+ { "#comment" = "# Comment" }
+ { "#comment" = "#" }
+ }
+
+let single_comment = "<IfDefine Foo>
+#
+## Comment
+##
+</IfDefine>\n"
+
+test Httpd.lns get single_comment =
+ { "IfDefine"
+ { "arg" = "Foo" }
+ { "#comment" = "# Comment" }
+ { "#comment" = "#" }
+ }
+
+let single_empty = "<IfDefine Foo>
+#
+
+</IfDefine>\n"
+test Httpd.lns get single_empty =
+ { "IfDefine"
+ { "arg" = "Foo" }
+ }
+
+let eol_empty = "<IfDefine Foo> #
+</IfDefine>\n"
+test Httpd.lns get eol_empty =
+ { "IfDefine"
+ { "arg" = "Foo" }
+ }
+
+(* Issue #140 *)
+test Httpd.lns get "<IfModule mod_ssl.c>
+ # one comment
+ # another comment
+</IfModule>\n" =
+ { "IfModule"
+ { "arg" = "mod_ssl.c" }
+ { "#comment" = "one comment" }
+ { "#comment" = "another comment" }
+ }
+
+(* Issue #307: backslashes in regexes *)
+test Httpd.lns get "<VirtualHost *:80>
+ RewriteRule ^/(.*) http\:\/\/example\.com\/$1 [L,R,NE]
+ RewriteRule \.css\.gz$ - [T=text/css,E=no-gzip:1]
+</VirtualHost>\n" =
+ { "VirtualHost"
+ { "arg" = "*:80" }
+ { "directive" = "RewriteRule"
+ { "arg" = "^/(.*)" }
+ { "arg" = "http\:\/\/example\.com\/$1" }
+ { "arg" = "[L,R,NE]" } }
+ { "directive" = "RewriteRule"
+ { "arg" = "\.css\.gz$" }
+ { "arg" = "-" }
+ { "arg" = "[T=text/css,E=no-gzip:1]" } } }
+
+(* https://github.com/letsencrypt/letsencrypt/issues/1294#issuecomment-161805063 *)
+test Httpd.lns get "<IfModule>
+</ifModule>\n" =
+ { "IfModule" }
+
+(* https://github.com/letsencrypt/letsencrypt/issues/1693 *)
+test Httpd.lns get "<IfModule mod_ssl.c>
+ <VirtualHost *:443>
+ ServerAdmin admin@example.com
+ </VirtualHost> </IfModule>\n" =
+ { "IfModule"
+ { "arg" = "mod_ssl.c" }
+ { "VirtualHost"
+ { "arg" = "*:443" }
+ { "directive" = "ServerAdmin"
+ { "arg" = "admin@example.com" } } } }
+
+(* Double quotes inside braces in directive arguments
+ https://github.com/letsencrypt/letsencrypt/issues/1766 *)
+test Httpd.lns get "SSLRequire %{SSL_CLIENT_S_DN_CN} in {\"foo@bar.com\", bar@foo.com}\n" =
+ { "directive" = "SSLRequire"
+ { "arg" = "%{SSL_CLIENT_S_DN_CN}" }
+ { "arg" = "in" }
+ { "wordlist"
+ { "arg" = "\"foo@bar.com\"" }
+ { "arg" = "bar@foo.com" } } }
+
+(* Issue #330: optional end double quote to directive arg, for messages *)
+test Httpd.lns get "SSLCipherSuite \"EECDH+ECDSA+AESGCM EECDH+aRS$\n" =
+ { "directive" = "SSLCipherSuite"
+ { "arg" = "\"EECDH+ECDSA+AESGCM EECDH+aRS$" } }
+
+test Httpd.lns get "ErrorDocument 404 \"The requested file favicon.ico was not found.\n" =
+ { "directive" = "ErrorDocument"
+ { "arg" = "404" }
+ { "arg" = "\"The requested file favicon.ico was not found." } }
+
+(* Quotes inside a unquoted directive argument
+ https://github.com/letsencrypt/letsencrypt/issues/1934 *)
+test Httpd.lns get "<VirtualHost *:80>
+ WSGIDaemonProcess _graphite processes=5 threads=5 display-name='%{GROUP}' inactivity-timeout=120 user=_graphite group=_graphite
+</VirtualHost>\n" =
+ { "VirtualHost"
+ { "arg" = "*:80" }
+ { "directive" = "WSGIDaemonProcess"
+ { "arg" = "_graphite" }
+ { "arg" = "processes=5" }
+ { "arg" = "threads=5" }
+ { "arg" = "display-name='%{GROUP}'" }
+ { "arg" = "inactivity-timeout=120" }
+ { "arg" = "user=_graphite" }
+ { "arg" = "group=_graphite" } } }
+
+(* Issue #327: perl blocks *)
+test Httpd.lns get "<Perl>
+ Apache::AuthDBI->setCacheTime(600);
+</Perl>\n" =
+ { "Perl" = "\n Apache::AuthDBI->setCacheTime(600);\n" }
+
+(* Line continuations inside VirtualHost blocks *)
+test Httpd.lns get "<VirtualHost \\
+ 0.0.0.0:7080 \\
+ [00000:000:000:0000::2]:7080 \\
+ 0.0.0.0:7080 \\
+ 127.0.0.1:7080 \\
+ >
+</VirtualHost>\n" =
+ { "VirtualHost"
+ { "arg" = "0.0.0.0:7080" }
+ { "arg" = "[00000:000:000:0000::2]:7080" }
+ { "arg" = "0.0.0.0:7080" }
+ { "arg" = "127.0.0.1:7080" } }
+
+(* Blank line continuations inside VirtualHost blocks *)
+test Httpd.lns get "<VirtualHost \\
+ 0.0.0.0:7080 \\
+ \\
+ 0.0.0.0:7080 \\
+ \\
+ >
+</VirtualHost>\n" =
+ { "VirtualHost"
+ { "arg" = "0.0.0.0:7080" }
+ { "arg" = "0.0.0.0:7080" } }
+
+(* Non-continuation backslashes inside VirtualHost section headings *)
+test Httpd.lns get "<FilesMatch \.php$>
+ ExpiresActive Off
+</FilesMatch>\n" =
+ { "FilesMatch"
+ { "arg" = "\.php$" }
+ { "directive" = "ExpiresActive"
+ { "arg" = "Off" } } }
+
+(* Escaped spaces in directive and section arguments *)
+test Httpd.lns get "RewriteCond %{THE_REQUEST} ^[A-Z]{3,9}\ /.+/trackback/?\ HTTP/ [NC]\n" =
+ { "directive" = "RewriteCond"
+ { "arg" = "%{THE_REQUEST}" }
+ { "arg" = "^[A-Z]{3,9}\ /.+/trackback/?\ HTTP/" }
+ { "arg" = "[NC]" } }
+
+test Httpd.lns get "<FilesMatch \ test\.php$></FilesMatch>\n" =
+ { "FilesMatch"
+ { "arg" = "\ test\.php$" } }
+
+(* Continuations in comments cause the comment to be continued without a new comment character *)
+test Httpd.lns get "#ServerRoot \\\n /var/www\n" =
+ { "#comment" = "ServerRoot \\\n /var/www" }
+
+(* Empty comments can contain continuations, too. Issue #423 *)
+test Httpd.lns get "# \\\n\n" = { }
+test Httpd.comment get "# a\\\n\n" = { "#comment" = "a" }
+test Httpd.comment get "# \\\na\\\n\n" = { "#comment" = "a" }
+test Httpd.comment get "# \\\n\\\na \\\n\\\n\n" = { "#comment" = "a" }
+
+(* Comparison with empty string did not work. Issue #429 *)
+test Httpd.dir_args get ">\"a\"" = { "arg" = ">\"a\"" }
+test Httpd.dir_args get ">\"\"" = { "arg" = ">\"\"" }
+test Httpd.directive get "RewriteCond ${movedPageMap:$1} >\"a\"\n" =
+ { "directive" = "RewriteCond"
+ { "arg" = "${movedPageMap:$1}" }
+ { "arg" = ">\"a\"" }}
+test Httpd.directive get "RewriteCond ${movedPageMap:$1} >\"\"\n" =
+ { "directive" = "RewriteCond"
+ { "arg" = "${movedPageMap:$1}" }
+ { "arg" = ">\"\"" }}
+
+(* Quoted arguments may or may not have space spearating them. Issue #435 *)
+test Httpd.directive get
+ "ProxyPassReverse \"/js\" \"http://127.0.0.1:8123/js\"\n" =
+ { "directive" = "ProxyPassReverse"
+ { "arg" = "\"/js\"" }
+ { "arg" = "\"http://127.0.0.1:8123/js\"" } }
+
+test Httpd.directive get
+ "ProxyPassReverse \"/js\"\"http://127.0.0.1:8123/js\"\n" =
+ { "directive" = "ProxyPassReverse"
+ { "arg" = "\"/js\"" }
+ { "arg" = "\"http://127.0.0.1:8123/js\"" } }
+
+(* Don't get confused by quoted strings inside bare arguments. Issue #470 *)
+test Httpd.directive get
+ "RequestHeader set X-Forwarded-Proto https expr=(%{HTTP:CF-Visitor}='{\"scheme\":\"https\"}')\n" =
+ { "directive" = "RequestHeader"
+ { "arg" = "set" }
+ { "arg" = "X-Forwarded-Proto" }
+ { "arg" = "https" }
+ { "arg" = "expr=(%{HTTP:CF-Visitor}='{\"scheme\":\"https\"}')" } }
+
+(* Issue #577: we make the newline starting a section optional, including
+ an empty comment at the end of the line. This used to miss empty comments
+ with whitespace *)
+test Httpd.lns get "<If cond>#\n</If>\n" = { "If" { "arg" = "cond" } }
+
+test Httpd.lns get "<If cond># \n</If>\n" = { "If" { "arg" = "cond" } }
+
+test Httpd.lns get "<If cond>\n# \n</If>\n" = { "If" { "arg" = "cond" } }
+
+test Httpd.lns get "<If cond># text\n</If>\n" =
+ { "If"
+ { "arg" = "cond" }
+ { "#comment" = "text" } }
+
+test Httpd.lns get "<If cond>\n\t# text\n</If>\n" =
+ { "If"
+ { "arg" = "cond" }
+ { "#comment" = "text" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_inetd.aug b/Sharp.Augeas.Test/lens/tests/test_inetd.aug
new file mode 100644
index 0000000..93e035b
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_inetd.aug
@@ -0,0 +1,181 @@
+module Test_inetd =
+
+ (* The standard "parse a bucket of text" test *)
+ let conf = "# Blah di blah comment
+
+simplesrv stream tcp nowait fred /usr/bin/simplesrv
+arguserve dgram udp wait mary /usr/bin/usenet foo bar wombat
+
+1234 stream tcp nowait fred /usr/bin/numbersrv
+
+127.0.0.1:addrsrv stream tcp nowait fred /usr/bin/addrsrv
+127.0.0.1,10.0.0.1:multiaddrsrv stream tcp nowait fred /usr/bin/multiaddrsrv
+faff.fred.com:
+127.0.0.1,faff.fred.com:
+*:
+[::1]:addrsrv stream tcp nowait fred /usr/bin/addrsrv
+
+sndbufsrv stream tcp,sndbuf=12k nowait fred /usr/bin/sndbufsrv
+rcvbufsrv stream tcp,rcvbuf=24k nowait fred /usr/bin/rcvbufsrv
+allbufsrv stream tcp,sndbuf=1m,rcvbuf=24k nowait fred /usr/bin/allbufsrv
+
+dotgroupsrv stream tcp nowait fred.wilma /usr/bin/dotgroupsrv
+colongroupsrv stream tcp nowait fred:wilma /usr/bin/colongroupsrv
+
+maxsrv stream tcp nowait.20 fred /usr/bin/maxsrv
+
+dummy/1 tli rpc/circuit_v,udp wait root /tmp/test_svc test_svc
+"
+
+ test Inetd.lns get conf =
+ { "#comment" = "Blah di blah comment" }
+ {}
+ { "service" = "simplesrv"
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/simplesrv" }
+ }
+ { "service" = "arguserve"
+ { "socket" = "dgram" }
+ { "protocol" = "udp" }
+ { "wait" = "wait" }
+ { "user" = "mary" }
+ { "command" = "/usr/bin/usenet" }
+ { "arguments"
+ { "1" = "foo" }
+ { "2" = "bar" }
+ { "3" = "wombat" }
+ }
+ }
+ {}
+ { "service" = "1234"
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/numbersrv" }
+ }
+ {}
+ { "service" = "addrsrv"
+ { "address"
+ { "1" = "127.0.0.1" }
+ }
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/addrsrv" }
+ }
+ { "service" = "multiaddrsrv"
+ { "address"
+ { "1" = "127.0.0.1" }
+ { "2" = "10.0.0.1" }
+ }
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/multiaddrsrv" }
+ }
+ { "address"
+ { "1" = "faff.fred.com" }
+ }
+ { "address"
+ { "1" = "127.0.0.1" }
+ { "2" = "faff.fred.com" }
+ }
+ { "address"
+ { "1" = "*" }
+ }
+ { "service" = "addrsrv"
+ { "address"
+ { "1" = "[::1]" }
+ }
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/addrsrv" }
+ }
+ {}
+ { "service" = "sndbufsrv"
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "sndbuf" = "12k" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/sndbufsrv" }
+ }
+ { "service" = "rcvbufsrv"
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "rcvbuf" = "24k" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/rcvbufsrv" }
+ }
+ { "service" = "allbufsrv"
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "sndbuf" = "1m" }
+ { "rcvbuf" = "24k" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/allbufsrv" }
+ }
+ {}
+ { "service" = "dotgroupsrv"
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "group" = "wilma" }
+ { "command" = "/usr/bin/dotgroupsrv" }
+ }
+ { "service" = "colongroupsrv"
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "nowait" }
+ { "user" = "fred" }
+ { "group" = "wilma" }
+ { "command" = "/usr/bin/colongroupsrv" }
+ }
+ {}
+ { "service" = "maxsrv"
+ { "socket" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "nowait" }
+ { "max" = "20" }
+ { "user" = "fred" }
+ { "command" = "/usr/bin/maxsrv" }
+ }
+ {}
+ { "rpc_service" = "dummy"
+ { "version" = "1" }
+ { "endpoint-type" = "tli" }
+ { "protocol" = "circuit_v" }
+ { "protocol" = "udp" }
+ { "wait" = "wait" }
+ { "user" = "root" }
+ { "command" = "/tmp/test_svc" }
+ { "arguments"
+ { "1" = "test_svc" } }
+ }
+
+
+(**************************************************************************)
+
+ (* Test new file creation *)
+
+ test Inetd.lns put "" after
+ set "/service" "faffsrv";
+ set "/service/socket" "stream";
+ set "/service/protocol" "tcp";
+ set "/service/wait" "nowait";
+ set "/service/user" "george";
+ set "/service/command" "/sbin/faffsrv"
+ = "faffsrv stream tcp nowait george /sbin/faffsrv\n"
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_inifile.aug b/Sharp.Augeas.Test/lens/tests/test_inifile.aug
new file mode 100644
index 0000000..873e1fd
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_inifile.aug
@@ -0,0 +1,396 @@
+(*
+Module: Test_IniFile
+ Provides unit tests and examples for the <IniFile> module.
+
+About: Tests to run
+
+ The tests are run with all combinations of the following
+ three parameters:
+
+ > separator : (a) default (/[:=]/ "=") ; (b) "=" "="
+ > comment : (c) default (/[;#]/ ";") ; (d) ";" ";"
+ > empty lines : (e) default ; (f) noempty
+
+*)
+
+module Test_IniFile =
+
+ (* ALL TESTS TO RUN *)
+
+
+ (* Group: TEST a/c/e *)
+ (* Variable: comment_ace *)
+ let comment_ace = IniFile.comment IniFile.comment_re IniFile.comment_default
+ (* Variable: sep_ace *)
+ let sep_ace = IniFile.sep IniFile.sep_re IniFile.sep_default
+ (* Variable: entry_ace *)
+ let entry_ace = IniFile.entry IniFile.entry_re sep_ace comment_ace
+ (* Variable: title_ace *)
+ let title_ace = IniFile.title IniFile.record_re
+ (* Variable: record_ace *)
+ let record_ace = IniFile.record title_ace entry_ace
+ (* Variable: lns_ace *)
+ let lns_ace = IniFile.lns record_ace comment_ace
+ (* Variable: conf_ace *)
+ let conf_ace = "# comment with sharp
+
+[section1]
+test_ace = value # end of line comment
+test_ace =
+test_ace = \"value with spaces\"
+; comment with colon
+
+"
+ (* Test: lns_ace
+ Testing the a/c/e combination *)
+ test lns_ace get conf_ace =
+ { "#comment" = "comment with sharp" }
+ {}
+ { "section1"
+ { "test_ace" = "value"
+ { "#comment" = "end of line comment" } }
+ { "test_ace" }
+ { "test_ace" = "value with spaces" }
+ { "#comment" = "comment with colon" }
+ {} }
+
+ test lns_ace put conf_ace after
+ set "section1/foo" "yes" = "# comment with sharp
+
+[section1]
+test_ace = value # end of line comment
+test_ace =
+test_ace = \"value with spaces\"
+; comment with colon
+
+foo=yes
+"
+
+ (* Test: lns_ace
+ Quotes can appear within bare values *)
+ test lns_ace get "[section]\ntest_ace = value \"with quotes\" inside\n" =
+ { "section" { "test_ace" = "value \"with quotes\" inside" } }
+
+ (* Group: TEST a/c/f *)
+ (* Variable: comment_acf *)
+ let comment_acf = IniFile.comment IniFile.comment_re IniFile.comment_default
+ (* Variable: sep_acf *)
+ let sep_acf = IniFile.sep IniFile.sep_re IniFile.sep_default
+ (* Variable: entry_acf *)
+ let entry_acf = IniFile.entry IniFile.entry_re sep_acf comment_acf
+ (* Variable: title_acf *)
+ let title_acf = IniFile.title IniFile.record_re
+ (* Variable: record_acf *)
+ let record_acf = IniFile.record_noempty title_acf entry_acf
+ (* Variable: lns_acf *)
+ let lns_acf = IniFile.lns_noempty record_acf comment_acf
+ (* Variable: conf_acf *)
+ let conf_acf = "# comment with sharp
+[section1]
+test_acf = value
+test_acf =
+test_acf : value2 # end of line comment
+; comment with colon
+"
+ (* Test: lns_acf
+ Testing the a/c/f combination *)
+ test lns_acf get conf_acf =
+ { "#comment" = "comment with sharp" }
+ { "section1"
+ { "test_acf" = "value" }
+ { "test_acf" }
+ { "test_acf" = "value2"
+ { "#comment" = "end of line comment" } }
+ { "#comment" = "comment with colon" } }
+
+
+ (* Group: TEST a/d/e *)
+ (* Variable: comment_ade *)
+ let comment_ade = IniFile.comment ";" ";"
+ (* Variable: sep_ade *)
+ let sep_ade = IniFile.sep IniFile.sep_re IniFile.sep_default
+ (* Variable: entry_ade *)
+ let entry_ade = IniFile.entry IniFile.entry_re sep_ade comment_ade
+ (* Variable: title_ade *)
+ let title_ade = IniFile.title IniFile.record_re
+ (* Variable: record_ade *)
+ let record_ade = IniFile.record title_ade entry_ade
+ (* Variable: lns_ade *)
+ let lns_ade = IniFile.lns record_ade comment_ade
+ (* Variable: conf_ade *)
+ let conf_ade = "; a first comment with colon
+[section1]
+test_ade = value
+test_ade : value2 ; end of line comment
+; comment with colon
+
+test_ade =
+"
+ (* Test: lns_ade
+ Testing the a/d/e combination *)
+ test lns_ade get conf_ade =
+ { "#comment" = "a first comment with colon" }
+ { "section1"
+ { "test_ade" = "value" }
+ { "test_ade" = "value2"
+ { "#comment" = "end of line comment" } }
+ { "#comment" = "comment with colon" }
+ {}
+ { "test_ade" } }
+
+
+ (* Group: TEST a/d/f *)
+ (* Variable: comment_adf *)
+ let comment_adf = IniFile.comment ";" ";"
+ (* Variable: sep_adf *)
+ let sep_adf = IniFile.sep IniFile.sep_re IniFile.sep_default
+ (* Variable: entry_adf *)
+ let entry_adf = IniFile.entry IniFile.entry_re sep_adf comment_adf
+ (* Variable: title_adf *)
+ let title_adf = IniFile.title IniFile.record_re
+ (* Variable: record_adf *)
+ let record_adf = IniFile.record_noempty title_adf entry_adf
+ (* Variable: lns_adf *)
+ let lns_adf = IniFile.lns_noempty record_adf comment_adf
+ (* Variable: conf_adf *)
+ let conf_adf = "; a first comment with colon
+[section1]
+test_adf = value
+test_adf : value2 ; end of line comment
+; comment with colon
+test_adf =
+"
+ (* Test: lns_adf
+ Testing the a/d/f combination *)
+ test lns_adf get conf_adf =
+ { "#comment" = "a first comment with colon" }
+ { "section1"
+ { "test_adf" = "value" }
+ { "test_adf" = "value2"
+ { "#comment" = "end of line comment" } }
+ { "#comment" = "comment with colon" }
+ { "test_adf" } }
+
+
+ (* Group: TEST b/c/e *)
+ (* Variable: comment_bce *)
+ let comment_bce = IniFile.comment IniFile.comment_re IniFile.comment_default
+ (* Variable: sep_bce *)
+ let sep_bce = IniFile.sep "=" "="
+ (* Variable: entry_bce *)
+ let entry_bce = IniFile.entry IniFile.entry_re sep_bce comment_bce
+ (* Variable: title_bce *)
+ let title_bce = IniFile.title IniFile.record_re
+ (* Variable: record_bce *)
+ let record_bce = IniFile.record title_bce entry_bce
+ (* Variable: lns_bce *)
+ let lns_bce = IniFile.lns record_bce comment_bce
+ (* Variable: conf_bce *)
+ let conf_bce = "# comment with sharp
+
+[section1]
+test_bce = value # end of line comment
+; comment with colon
+
+test_bce =
+"
+ (* Test: lns_bce
+ Testing the b/c/e combination *)
+ test lns_bce get conf_bce =
+ { "#comment" = "comment with sharp" }
+ {}
+ { "section1"
+ { "test_bce" = "value"
+ { "#comment" = "end of line comment" } }
+ { "#comment" = "comment with colon" }
+ {}
+ { "test_bce" } }
+
+
+ (* Group: TEST b/c/f *)
+ (* Variable: comment_bcf *)
+ let comment_bcf = IniFile.comment IniFile.comment_re IniFile.comment_default
+ (* Variable: sep_bcf *)
+ let sep_bcf = IniFile.sep "=" "="
+ (* Variable: entry_bcf *)
+ let entry_bcf = IniFile.entry IniFile.entry_re sep_bcf comment_bcf
+ (* Variable: title_bcf *)
+ let title_bcf = IniFile.title IniFile.record_re
+ (* Variable: record_bcf *)
+ let record_bcf = IniFile.record_noempty title_bce entry_bcf
+ (* Variable: lns_bcf *)
+ let lns_bcf = IniFile.lns_noempty record_bce comment_bcf
+ (* Variable: conf_bcf *)
+ let conf_bcf = "# conf with sharp
+[section1]
+test_bcf = value # end of line comment
+; comment with colon
+test_bcf =
+"
+ (* Test: lns_bcf
+ Testing the b/c/f combination *)
+ test lns_bcf get conf_bcf =
+ { "#comment" = "conf with sharp" }
+ { "section1"
+ { "test_bcf" = "value"
+ { "#comment" = "end of line comment" } }
+ { "#comment" = "comment with colon" }
+ { "test_bcf" } }
+
+
+ (* Group: TEST b/d/e *)
+ (* Variable: comment_bde *)
+ let comment_bde = IniFile.comment ";" ";"
+ (* Variable: sep_bde *)
+ let sep_bde = IniFile.sep "=" "="
+ (* Variable: entry_bde *)
+ let entry_bde = IniFile.entry IniFile.entry_re sep_bde comment_bde
+ (* Variable: title_bde *)
+ let title_bde = IniFile.title IniFile.record_re
+ (* Variable: record_bde *)
+ let record_bde = IniFile.record title_bde entry_bde
+ (* Variable: lns_bde *)
+ let lns_bde = IniFile.lns record_bde comment_bde
+ (* Variable: conf_bde *)
+ let conf_bde = "; first comment with colon
+
+[section1]
+test_bde = value ; end of line comment
+; comment with colon
+
+test_bde =
+"
+ (* Test: lns_bde
+ Testing the b/d/e combination *)
+ test lns_bde get conf_bde =
+ { "#comment" = "first comment with colon" }
+ {}
+ { "section1"
+ { "test_bde" = "value"
+ { "#comment" = "end of line comment" } }
+ { "#comment" = "comment with colon" }
+ {}
+ { "test_bde" } }
+
+
+ (* Group: TEST b/d/f *)
+ (* Variable: comment_bdf *)
+ let comment_bdf = IniFile.comment ";" ";"
+ (* Variable: sep_bdf *)
+ let sep_bdf = IniFile.sep "=" "="
+ (* Variable: entry_bdf *)
+ let entry_bdf = IniFile.entry IniFile.entry_re sep_bdf comment_bdf
+ (* Variable: title_bdf *)
+ let title_bdf = IniFile.title IniFile.record_re
+ (* Variable: record_bdf *)
+ let record_bdf = IniFile.record_noempty title_bdf entry_bdf
+ (* Variable: lns_bdf *)
+ let lns_bdf = IniFile.lns_noempty record_bdf comment_bdf
+ (* Variable: conf_bdf *)
+ let conf_bdf = "; first comment with colon
+[section1]
+test_bdf = value ; end of line comment
+; comment with colon
+test_bdf =
+"
+ (* Test: lns_bdf
+ Testing the b/d/f combination *)
+ test lns_bdf get conf_bdf =
+ { "#comment" = "first comment with colon" }
+ { "section1"
+ { "test_bdf" = "value"
+ { "#comment" = "end of line comment" } }
+ { "#comment" = "comment with colon" }
+ { "test_bdf" } }
+
+
+ (* Group: TEST multiline values *)
+ (* Variable: multiline_test *)
+ let multiline_test = "test_ace = val1\n val2\n val3\n"
+ (* Variable: multiline_nl *)
+ let multiline_nl = "test_ace =\n val2\n val3\n"
+ (* Variable: multiline_ace *)
+ let multiline_ace = IniFile.entry_multiline IniFile.entry_re sep_ace comment_ace
+ (* Test: multiline_ace
+ Testing the a/c/e combination with a multiline entry *)
+ test multiline_ace get multiline_test =
+ { "test_ace" = "val1\n val2\n val3" }
+ (* Test: multiline_nl
+ Multiline values can begin with a single newline *)
+ test multiline_ace get multiline_nl =
+ { "test_ace" = "\n val2\n val3" }
+
+ (* Test: lns_ace
+ Ticket #243 *)
+ test lns_ace get "[section1]
+ticket_243 = \"value1;value2#value3\" # end of line comment
+" =
+ { "section1"
+ { "ticket_243" = "value1;value2#value3"
+ { "#comment" = "end of line comment" }
+ }
+ }
+
+ (* Group: TEST list entries *)
+ (* Variable: list_test *)
+ let list_test = "test_ace = val1,val2,val3 # a comment\n"
+ (* Lens: list_ace *)
+ let list_ace = IniFile.entry_list IniFile.entry_re sep_ace RX.word Sep.comma comment_ace
+ (* Test: list_ace
+ Testing the a/c/e combination with a list entry *)
+ test list_ace get list_test =
+ { "test_ace"
+ { "1" = "val1" }
+ { "2" = "val2" }
+ { "3" = "val3" }
+ { "#comment" = "a comment" }
+ }
+
+ (* Variable: list_nocomment_test *)
+ let list_nocomment_test = "test_ace = val1,val2,val3 \n"
+ (* Lens: list_nocomment_ace *)
+ let list_nocomment_ace = IniFile.entry_list_nocomment IniFile.entry_re sep_ace RX.word Sep.comma
+ (* Test: list_nocomment_ace
+ Testing the a/c/e combination with a list entry without end-of-line comment *)
+ test list_nocomment_ace get list_nocomment_test =
+ { "test_ace"
+ { "1" = "val1" }
+ { "2" = "val2" }
+ { "3" = "val3" }
+ }
+
+ (* Test: IniFile.lns_loose *)
+ test IniFile.lns_loose get conf_ace =
+ { "section" = ".anon"
+ { "#comment" = "comment with sharp" }
+ { }
+ }
+ { "section" = "section1"
+ { "test_ace" = "value"
+ { "#comment" = "end of line comment" }
+ }
+ { "test_ace" }
+ { "test_ace" = "value with spaces" }
+ { "#comment" = "comment with colon" }
+ { }
+ }
+
+ (* Test: IniFile.lns_loose_multiline *)
+ test IniFile.lns_loose_multiline get conf_ace =
+ { "section" = ".anon"
+ { "#comment" = "comment with sharp" }
+ { }
+ }
+ { "section" = "section1"
+ { "test_ace" = "value"
+ { "#comment" = "end of line comment" }
+ }
+ { "test_ace" }
+ { "test_ace" = "value with spaces" }
+ { "#comment" = "comment with colon" }
+ { }
+ }
+
+ test IniFile.lns_loose_multiline get multiline_test =
+ { "section" = ".anon" { "test_ace" = "val1\n val2\n val3" } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_inittab.aug b/Sharp.Augeas.Test/lens/tests/test_inittab.aug
new file mode 100644
index 0000000..2704ff8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_inittab.aug
@@ -0,0 +1,69 @@
+module Test_inittab =
+
+ let simple = "id:5:initdefault:\n"
+
+ let inittab = "id:5:initdefault:
+# System initialization.
+si::sysinit:/etc/rc.d/rc.sysinit
+
+# Trap CTRL-ALT-DELETE
+ca::ctrlaltdel:/sbin/shutdown -t3 -r now
+
+l0:0:wait:/etc/rc.d/rc 0
+"
+
+ test Inittab.lns get inittab =
+ { "id"
+ { "runlevels" = "5" }
+ { "action" = "initdefault" }
+ { "process" = "" } }
+ { "#comment" = "System initialization." }
+ { "si"
+ { "runlevels" = "" }
+ { "action" = "sysinit" }
+ { "process" = "/etc/rc.d/rc.sysinit" } }
+ { }
+ { "#comment" = "Trap CTRL-ALT-DELETE" }
+ { "ca"
+ { "runlevels" = "" }
+ { "action" = "ctrlaltdel" }
+ { "process" = "/sbin/shutdown -t3 -r now" } }
+ { }
+ { "l0"
+ { "runlevels" = "0" }
+ { "action" = "wait" }
+ { "process" = "/etc/rc.d/rc 0" } }
+
+ test Inittab.lns put simple after rm "/id/process" = *
+
+ test Inittab.lns put simple after set "/id/runlevels" "3" =
+ "id:3:initdefault:\n"
+
+ test Inittab.lns get
+ "co:2345:respawn:/usr/bin/command # End of line comment\n" =
+ { "co"
+ { "runlevels" = "2345" }
+ { "action" = "respawn" }
+ { "process" = "/usr/bin/command " }
+ { "#comment" = "End of line comment" } }
+
+ test Inittab.lns get
+ "co:2345:respawn:/usr/bin/blank_comment # \t \n" =
+ { "co"
+ { "runlevels" = "2345" }
+ { "action" = "respawn" }
+ { "process" = "/usr/bin/blank_comment " }
+ { "#comment" = "" } }
+
+ (* Bug 108: allow ':' in the process field *)
+ test Inittab.record get
+ "co:234:respawn:ttymon -p \"console login: \"\n" =
+ { "co"
+ { "runlevels" = "234" }
+ { "action" = "respawn" }
+ { "process" = "ttymon -p \"console login: \"" } }
+
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_inputrc.aug b/Sharp.Augeas.Test/lens/tests/test_inputrc.aug
new file mode 100644
index 0000000..1535697
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_inputrc.aug
@@ -0,0 +1,178 @@
+(*
+Module: Test_Inputrc
+ Provides unit tests and examples for the <Inputrc> lens.
+*)
+
+module Test_Inputrc =
+
+(* Variable: conf *)
+let conf = "# /etc/inputrc - global inputrc for libreadline
+# See readline(3readline) and `info rluserman' for more information.
+
+# Be 8 bit clean.
+set input-meta on
+set output-meta on
+
+# To allow the use of 8bit-characters like the german umlauts, uncomment
+# the line below. However this makes the meta key not work as a meta key,
+# which is annoying to those which don't need to type in 8-bit characters.
+
+# set convert-meta off
+
+# try to enable the application keypad when it is called. Some systems
+# need this to enable the arrow keys.
+# set enable-keypad on
+
+# see /usr/share/doc/bash/inputrc.arrows for other codes of arrow keys
+
+# do not bell on tab-completion
+# set bell-style none
+# set bell-style visible
+
+# some defaults / modifications for the emacs mode
+$if mode=emacs
+
+# allow the use of the Home/End keys
+\"\\e[1~\": beginning-of-line
+\"\\e[4~\": end-of-line
+
+# allow the use of the Delete/Insert keys
+\"\\e[3~\": delete-char
+\"\\e[2~\": quoted-insert
+
+# mappings for \"page up\" and \"page down\" to step to the beginning/end
+# of the history
+# \"\\e[5~\": beginning-of-history
+# \"\\e[6~\": end-of-history
+
+# alternate mappings for \"page up\" and \"page down\" to search the history
+# \"\\e[5~\": history-search-backward
+# \"\\e[6~\": history-search-forward
+
+# mappings for Ctrl-left-arrow and Ctrl-right-arrow for word moving
+\"\\e[1;5C\": forward-word
+\"\\e[1;5D\": backward-word
+\"\\e[5C\": forward-word
+\"\\e[5D\": backward-word
+\"\\e\\e[C\": forward-word
+\"\\e\\e[D\": backward-word
+
+$if term=rxvt
+\"\\e[8~\": end-of-line
+\"\\eOc\": forward-word
+\"\\eOd\": backward-word
+$else
+\"\\e[G\": \",\"
+$endif
+
+# for non RH/Debian xterm, can't hurt for RH/Debian xterm
+# \"\\eOH\": beginning-of-line
+# \"\\eOF\": end-of-line
+
+# for freebsd console
+# \"\\e[H\": beginning-of-line
+# \"\\e[F\": end-of-line
+
+$endif
+"
+
+(* Test: Inputrc.lns *)
+test Inputrc.lns get conf =
+ { "#comment" = "/etc/inputrc - global inputrc for libreadline" }
+ { "#comment" = "See readline(3readline) and `info rluserman' for more information." }
+ { }
+ { "#comment" = "Be 8 bit clean." }
+ { "input-meta" = "on" }
+ { "output-meta" = "on" }
+ { }
+ { "#comment" = "To allow the use of 8bit-characters like the german umlauts, uncomment" }
+ { "#comment" = "the line below. However this makes the meta key not work as a meta key," }
+ { "#comment" = "which is annoying to those which don't need to type in 8-bit characters." }
+ { }
+ { "#comment" = "set convert-meta off" }
+ { }
+ { "#comment" = "try to enable the application keypad when it is called. Some systems" }
+ { "#comment" = "need this to enable the arrow keys." }
+ { "#comment" = "set enable-keypad on" }
+ { }
+ { "#comment" = "see /usr/share/doc/bash/inputrc.arrows for other codes of arrow keys" }
+ { }
+ { "#comment" = "do not bell on tab-completion" }
+ { "#comment" = "set bell-style none" }
+ { "#comment" = "set bell-style visible" }
+ { }
+ { "#comment" = "some defaults / modifications for the emacs mode" }
+ { "@if" = "mode=emacs"
+ { }
+ { "#comment" = "allow the use of the Home/End keys" }
+ { "entry" = "\\e[1~"
+ { "mapping" = "beginning-of-line" }
+ }
+ { "entry" = "\\e[4~"
+ { "mapping" = "end-of-line" }
+ }
+ { }
+ { "#comment" = "allow the use of the Delete/Insert keys" }
+ { "entry" = "\\e[3~"
+ { "mapping" = "delete-char" }
+ }
+ { "entry" = "\\e[2~"
+ { "mapping" = "quoted-insert" }
+ }
+ { }
+ { "#comment" = "mappings for \"page up\" and \"page down\" to step to the beginning/end" }
+ { "#comment" = "of the history" }
+ { "#comment" = "\"\\e[5~\": beginning-of-history" }
+ { "#comment" = "\"\\e[6~\": end-of-history" }
+ { }
+ { "#comment" = "alternate mappings for \"page up\" and \"page down\" to search the history" }
+ { "#comment" = "\"\\e[5~\": history-search-backward" }
+ { "#comment" = "\"\\e[6~\": history-search-forward" }
+ { }
+ { "#comment" = "mappings for Ctrl-left-arrow and Ctrl-right-arrow for word moving" }
+ { "entry" = "\\e[1;5C"
+ { "mapping" = "forward-word" }
+ }
+ { "entry" = "\\e[1;5D"
+ { "mapping" = "backward-word" }
+ }
+ { "entry" = "\\e[5C"
+ { "mapping" = "forward-word" }
+ }
+ { "entry" = "\\e[5D"
+ { "mapping" = "backward-word" }
+ }
+ { "entry" = "\\e\\e[C"
+ { "mapping" = "forward-word" }
+ }
+ { "entry" = "\\e\\e[D"
+ { "mapping" = "backward-word" }
+ }
+ { }
+ { "@if" = "term=rxvt"
+ { "entry" = "\\e[8~"
+ { "mapping" = "end-of-line" }
+ }
+ { "entry" = "\\eOc"
+ { "mapping" = "forward-word" }
+ }
+ { "entry" = "\\eOd"
+ { "mapping" = "backward-word" }
+ }
+ { "@else"
+ { "entry" = "\\e[G"
+ { "mapping" = "\",\"" }
+ }
+ }
+ }
+ { }
+ { "#comment" = "for non RH/Debian xterm, can't hurt for RH/Debian xterm" }
+ { "#comment" = "\"\\eOH\": beginning-of-line" }
+ { "#comment" = "\"\\eOF\": end-of-line" }
+ { }
+ { "#comment" = "for freebsd console" }
+ { "#comment" = "\"\\e[H\": beginning-of-line" }
+ { "#comment" = "\"\\e[F\": end-of-line" }
+ { }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_interfaces.aug b/Sharp.Augeas.Test/lens/tests/test_interfaces.aug
new file mode 100644
index 0000000..271d8d8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_interfaces.aug
@@ -0,0 +1,141 @@
+module Test_interfaces =
+
+ let conf ="# This file describes the network interfaces available on your system
+# and how to activate them. For more information, see interfaces(5).
+# The loopback network interface
+
+source /etc/network/interfaces.d/*.conf
+
+auto lo eth0 #foo
+allow-hotplug eth1
+
+iface lo inet \
+ loopback
+
+mapping eth0
+ script /usr/local/sbin/map-scheme
+map HOME eth0-home
+ map \
+ WORK eth0-work
+
+iface eth0-home inet static
+
+address 192.168.1.1
+ netmask 255.255.255.0
+ bridge_maxwait 0
+# up flush-mail
+ down Mambo #5
+
+ iface eth0-work inet dhcp
+
+allow-auto eth1
+iface eth1 inet dhcp
+
+iface tap0 inet static
+ vde2-switch -
+
+mapping eth1
+ # I like mapping ...
+ # ... and I like comments
+
+ script\
+ /usr/local/sbin/map-scheme
+
+iface bond0 inet dhcp
+ bridge-ports eth2 eth3 eth4
+
+iface br0 inet static
+ bond-slaves eth5 eth6
+ address 10.0.0.1
+ netmask 255.0.0.0
+
+source /etc/network.d/*.net.conf
+"
+
+ test Interfaces.lns get conf =
+ { "#comment" = "This file describes the network interfaces available on your system"}
+ { "#comment" = "and how to activate them. For more information, see interfaces(5)." }
+ { "#comment" = "The loopback network interface" }
+ {}
+ {"source" = "/etc/network/interfaces.d/*.conf"}
+ {}
+ { "auto"
+ { "1" = "lo" }
+ { "2" = "eth0" }
+ { "3" = "#foo" } }
+ { "allow-hotplug" { "1" = "eth1" } }
+ { }
+ { "iface" = "lo"
+ { "family" = "inet"}
+ { "method" = "loopback"} {} }
+ { "mapping" = "eth0"
+ { "script" = "/usr/local/sbin/map-scheme"}
+ { "map" = "HOME eth0-home"}
+ { "map" = "WORK eth0-work"}
+ {} }
+ { "iface" = "eth0-home"
+ { "family" = "inet"}
+ { "method" = "static"}
+ {}
+ { "address" = "192.168.1.1" }
+ { "netmask" = "255.255.255.0" }
+ { "bridge_maxwait" = "0" }
+ { "#comment" = "up flush-mail" }
+ { "down" = "Mambo #5" }
+ {} }
+ { "iface" = "eth0-work"
+ { "family" = "inet"}
+ { "method" = "dhcp"}
+ {} }
+ { "auto"
+ { "1" = "eth1" } }
+ { "iface" = "eth1"
+ { "family" = "inet"}
+ { "method" = "dhcp"}
+ {} }
+ { "iface" = "tap0"
+ { "family" = "inet" }
+ { "method" = "static" }
+ { "vde2-switch" = "-" }
+ {} }
+ { "mapping" = "eth1"
+ { "#comment" = "I like mapping ..." }
+ { "#comment" = "... and I like comments" }
+ {}
+ { "script" = "/usr/local/sbin/map-scheme"}
+ {} }
+ { "iface" = "bond0"
+ { "family" = "inet" }
+ { "method" = "dhcp" }
+ { "bridge-ports"
+ { "1" = "eth2" }
+ { "2" = "eth3" }
+ { "3" = "eth4" }
+ }
+ {} }
+ { "iface" = "br0"
+ { "family" = "inet" }
+ { "method" = "static" }
+ { "bond-slaves"
+ { "1" = "eth5" }
+ { "2" = "eth6" }
+ }
+ { "address" = "10.0.0.1" }
+ { "netmask" = "255.0.0.0" }
+ {} }
+ {"source" = "/etc/network.d/*.net.conf"}
+
+test Interfaces.lns put "" after
+ set "/iface[1]" "eth0";
+ set "/iface[1]/family" "inet";
+ set "/iface[1]/method" "dhcp"
+= "iface eth0 inet dhcp\n"
+
+test Interfaces.lns put "" after
+ set "/source[0]" "/etc/network/conf.d/*.conf"
+= "source /etc/network/conf.d/*.conf\n"
+
+(* Test: Interfaces.lns
+ source-directory (Issue #306) *)
+test Interfaces.lns get "source-directory interfaces.d\n" =
+ { "source-directory" = "interfaces.d" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_iproute2.aug b/Sharp.Augeas.Test/lens/tests/test_iproute2.aug
new file mode 100644
index 0000000..2acd367
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_iproute2.aug
@@ -0,0 +1,63 @@
+module Test_IPRoute2 =
+
+let conf = "
+# /etc/iproute2/rt_tables
+#
+# reserved values
+#
+255 local
+254 main
+253 default
+0 unspec
+#
+# local
+#
+#1 inr.ruhep
+200 h3g0
+201 adsl1
+202 adsl2
+203 adsl3
+204 adsl4
+205 wifi0
+#
+# From rt_dsfield
+#
+0x00 default
+0x80 flash-override
+
+# From rt_protos
+#
+254 gated/aggr
+253 gated/bgp
+"
+
+test IPRoute2.lns get conf =
+ { }
+ { "#comment" = "/etc/iproute2/rt_tables" }
+ { }
+ { "#comment" = "reserved values" }
+ { }
+ { "255" = "local" }
+ { "254" = "main" }
+ { "253" = "default" }
+ { "0" = "unspec" }
+ { }
+ { "#comment" = "local" }
+ { }
+ { "#comment" = "1 inr.ruhep" }
+ { "200" = "h3g0" }
+ { "201" = "adsl1" }
+ { "202" = "adsl2" }
+ { "203" = "adsl3" }
+ { "204" = "adsl4" }
+ { "205" = "wifi0" }
+ { }
+ { "#comment" = "From rt_dsfield" }
+ { }
+ { "0x00" = "default" }
+ { "0x80" = "flash-override" }
+ { }
+ { "#comment" = "From rt_protos" }
+ { }
+ { "254" = "gated/aggr" }
+ { "253" = "gated/bgp" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_iptables.aug b/Sharp.Augeas.Test/lens/tests/test_iptables.aug
new file mode 100644
index 0000000..5be9afc
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_iptables.aug
@@ -0,0 +1,240 @@
+module Test_iptables =
+
+let add_rule = Iptables.table_rule
+let ipt_match = Iptables.ipt_match
+
+test add_rule get
+"-A INPUT -m state --state ESTABLISHED,RELATED -j ACCEPT\n" =
+ { "append" = "INPUT"
+ { "match" = "state" }
+ { "state" = "ESTABLISHED,RELATED" }
+ { "jump" = "ACCEPT" } }
+
+test add_rule get
+"-A INPUT -p icmp -j \tACCEPT \n" =
+ { "append" = "INPUT"
+ { "protocol" = "icmp" }
+ { "jump" = "ACCEPT" } }
+
+test add_rule get
+"-A INPUT -i lo -j ACCEPT\n" =
+ { "append" = "INPUT"
+ { "in-interface" = "lo" }
+ { "jump" = "ACCEPT" } }
+
+test ipt_match get " -m tcp -p tcp --dport 53" =
+ { "match" = "tcp" } { "protocol" = "tcp" } { "dport" = "53" }
+
+let arule = " -m state --state NEW -m tcp -p tcp --dport 53 -j ACCEPT"
+
+test add_rule get ("--append INPUT" . arule . "\n") =
+ { "append" = "INPUT"
+ { "match" = "state" }
+ { "state" = "NEW" }
+ { "match" = "tcp" }
+ { "protocol" = "tcp" }
+ { "dport" = "53" }
+ { "jump" = "ACCEPT" } }
+
+test ipt_match get arule =
+ { "match" = "state" } { "state" = "NEW" } { "match" = "tcp" }
+ { "protocol" = "tcp" } { "dport" = "53" } { "jump" = "ACCEPT" }
+
+test ipt_match get ("-A INPUT" . arule) = *
+
+test ipt_match get " -p esp -j ACCEPT" =
+ { "protocol" = "esp" } { "jump" = "ACCEPT" }
+
+test ipt_match get
+ " -m state --state NEW -m udp -p udp --dport 5353 -d 224.0.0.251 -j ACCEPT"
+ =
+ { "match" = "state" } { "state" = "NEW" } { "match" = "udp" }
+ { "protocol" = "udp" } { "dport" = "5353" }
+ { "destination" = "224.0.0.251" } { "jump" = "ACCEPT" }
+
+test add_rule get
+ "-I FORWARD -m physdev --physdev-is-bridged -j ACCEPT\n" =
+ { "insert" = "FORWARD"
+ { "match" = "physdev" } { "physdev-is-bridged" } { "jump" = "ACCEPT" } }
+
+test add_rule get
+ "-A INPUT -j REJECT --reject-with icmp-host-prohibited\n" =
+ { "append" = "INPUT"
+ { "jump" = "REJECT" } { "reject-with" = "icmp-host-prohibited" } }
+
+test add_rule get
+ "-A RH-Firewall-1-INPUT -p icmp --icmp-type any -j ACCEPT\n" =
+ { "append" = "RH-Firewall-1-INPUT"
+ { "protocol" = "icmp" }
+ { "icmp-type" = "any" }
+ { "jump" = "ACCEPT" } }
+
+test Iptables.table get "*filter
+:RH-Firewall-1-INPUT - [0:0]
+-A FORWARD -j RH-Firewall-1-INPUT
+-A RH-Firewall-1-INPUT -i lo -j ACCEPT
+COMMIT\n" =
+ { "table" = "filter"
+ { "chain" = "RH-Firewall-1-INPUT"
+ { "policy" = "-" } }
+ { "append" = "FORWARD"
+ { "jump" = "RH-Firewall-1-INPUT" } }
+ { "append" = "RH-Firewall-1-INPUT"
+ { "in-interface" = "lo" }
+ { "jump" = "ACCEPT" } } }
+
+test Iptables.table get "*filter
+
+:RH-Firewall-1-INPUT - [0:0]
+
+-A FORWARD -j RH-Firewall-1-INPUT
+
+COMMIT\n" =
+ { "table" = "filter"
+ { }
+ { "chain" = "RH-Firewall-1-INPUT"
+ { "policy" = "-" } }
+ { }
+ { "append" = "FORWARD"
+ { "jump" = "RH-Firewall-1-INPUT" } }
+ { } }
+
+let conf = "# Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002
+*filter
+:INPUT DROP [1:229]
+:FORWARD DROP [0:0]
+:OUTPUT DROP [0:0]
+-A INPUT -m state --state RELATED,ESTABLISHED -j ACCEPT
+
+-I FORWARD -i eth0 -m state --state RELATED,ESTABLISHED -j ACCEPT
+
+# comments and blank lines are allow between rules
+
+-A FORWARD -i eth1 -m state --state NEW,RELATED,ESTABLISHED -j ACCEPT
+--append OUTPUT -m state --state NEW,RELATED,ESTABLISHED -j ACCEPT
+COMMIT
+# Completed on Wed Apr 24 10:19:55 2002
+# Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002
+*mangle
+:PREROUTING ACCEPT [658:32445]
+
+:INPUT ACCEPT [658:32445]
+:FORWARD ACCEPT [0:0]
+:OUTPUT ACCEPT [891:68234]
+:POSTROUTING ACCEPT [891:68234]
+COMMIT
+# Completed on Wed Apr 24 10:19:55 2002
+# Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002
+*nat
+:PREROUTING ACCEPT [1:229]
+:POSTROUTING ACCEPT [3:450]
+# The output chain
+:OUTPUT ACCEPT [3:450]
+# insert something
+--insert POSTROUTING -o eth0 -j SNAT --to-source 195.233.192.1 \t
+# and now commit
+COMMIT
+# Completed on Wed Apr 24 10:19:55 2002\n"
+
+test Iptables.lns get conf =
+ { "#comment" =
+ "Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002" }
+ { "table" = "filter"
+ { "chain" = "INPUT" { "policy" = "DROP" } }
+ { "chain" = "FORWARD" { "policy" = "DROP" } }
+ { "chain" = "OUTPUT" { "policy" = "DROP" } }
+ { "append" = "INPUT"
+ { "match" = "state" }
+ { "state" = "RELATED,ESTABLISHED" }
+ { "jump" = "ACCEPT" } }
+ {}
+ { "insert" = "FORWARD"
+ { "in-interface" = "eth0" }
+ { "match" = "state" }
+ { "state" = "RELATED,ESTABLISHED" }
+ { "jump" = "ACCEPT" } }
+ {}
+ { "#comment" = "comments and blank lines are allow between rules" }
+ {}
+ { "append" = "FORWARD"
+ { "in-interface" = "eth1" }
+ { "match" = "state" }
+ { "state" = "NEW,RELATED,ESTABLISHED" }
+ { "jump" = "ACCEPT" } }
+ { "append" = "OUTPUT"
+ { "match" = "state" }
+ { "state" = "NEW,RELATED,ESTABLISHED" }
+ { "jump" = "ACCEPT" } } }
+ { "#comment" = "Completed on Wed Apr 24 10:19:55 2002" }
+ { "#comment" =
+ "Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002" }
+ { "table" = "mangle"
+ { "chain" = "PREROUTING" { "policy" = "ACCEPT" } }
+ {}
+ { "chain" = "INPUT" { "policy" = "ACCEPT" } }
+ { "chain" = "FORWARD" { "policy" = "ACCEPT" } }
+ { "chain" = "OUTPUT" { "policy" = "ACCEPT" } }
+ { "chain" = "POSTROUTING" { "policy" = "ACCEPT" } } }
+ { "#comment" = "Completed on Wed Apr 24 10:19:55 2002" }
+ { "#comment" =
+ "Generated by iptables-save v1.2.6a on Wed Apr 24 10:19:55 2002" }
+ { "table" = "nat"
+ { "chain" = "PREROUTING" { "policy" = "ACCEPT" } }
+ { "chain" = "POSTROUTING" { "policy" = "ACCEPT" } }
+ { "#comment" = "The output chain" }
+ { "chain" = "OUTPUT" { "policy" = "ACCEPT" } }
+ { "#comment" = "insert something" }
+ { "insert" = "POSTROUTING"
+ { "out-interface" = "eth0" }
+ { "jump" = "SNAT" }
+ { "to-source" = "195.233.192.1" } }
+ { "#comment" = "and now commit" } }
+ { "#comment" = "Completed on Wed Apr 24 10:19:55 2002" }
+
+test ipt_match get " -m comment --comment \"A comment\"" =
+ { "match" = "comment" }
+ { "comment" = "\"A comment\"" }
+
+(*
+ * Test the various schemes for negation that iptables supports
+ *
+ * Note that the two ways in which a parameter can be negated lead to
+ * two different trees that mean the same.
+ *)
+test add_rule get "-I POSTROUTING ! -d 192.168.122.0/24 -j MASQUERADE\n" =
+ { "insert" = "POSTROUTING"
+ { "destination" = "192.168.122.0/24"
+ { "not" } }
+ { "jump" = "MASQUERADE" } }
+
+test add_rule get "-I POSTROUTING -d ! 192.168.122.0/24 -j MASQUERADE\n" =
+ { "insert" = "POSTROUTING"
+ { "destination" = "! 192.168.122.0/24" }
+ { "jump" = "MASQUERADE" } }
+
+test add_rule put "-I POSTROUTING ! -d 192.168.122.0/24 -j MASQUERADE\n"
+ after rm "/insert/destination/not" =
+ "-I POSTROUTING -d 192.168.122.0/24 -j MASQUERADE\n"
+
+(* I have no idea if iptables will accept double negations, but we
+ * allow it syntactically *)
+test add_rule put "-I POSTROUTING -d ! 192.168.122.0/24 -j MASQUERADE\n"
+ after clear "/insert/destination/not" =
+ "-I POSTROUTING ! -d ! 192.168.122.0/24 -j MASQUERADE\n"
+
+test Iptables.chain get ":tcp_packets - [0:0]
+" =
+ { "chain" = "tcp_packets" { "policy" = "-" } }
+
+(* Bug #157 *)
+test ipt_match get " --tcp-flags SYN,RST,ACK,FIN SYN" =
+ { "tcp-flags"
+ { "mask" = "SYN" }
+ { "mask" = "RST" }
+ { "mask" = "ACK" }
+ { "mask" = "FIN" }
+ { "set" = "SYN" } }
+
+(* Bug #224 *)
+test ipt_match get " --icmpv6-type neighbor-solicitation" =
+ { "icmpv6-type" = "neighbor-solicitation" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_iscsid.aug b/Sharp.Augeas.Test/lens/tests/test_iscsid.aug
new file mode 100644
index 0000000..2a8a532
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_iscsid.aug
@@ -0,0 +1,69 @@
+(*
+Module: Test_Iscsid
+ Provides unit tests and examples for the <Iscsid> lens.
+*)
+
+module Test_Iscsid =
+
+(* Variable: conf
+ A full configuration *)
+let conf = "################
+# iSNS settings
+################
+# Address of iSNS server
+isns.address = 127.0.0.1
+isns.port = 3260
+
+# *************
+# CHAP Settings
+# *************
+
+# To enable CHAP authentication set node.session.auth.authmethod
+# to CHAP. The default is None.
+node.session.auth.authmethod = CHAP
+
+# To set a CHAP username and password for initiator
+# authentication by the target(s), uncomment the following lines:
+node.session.auth.username = someuser1
+node.session.auth.password = somep$31#$^&7!
+
+# To enable CHAP authentication for a discovery session to the target
+# set discovery.sendtargets.auth.authmethod to CHAP. The default is None.
+discovery.sendtargets.auth.authmethod = CHAP
+
+# To set a discovery session CHAP username and password for the initiator
+# authentication by the target(s), uncomment the following lines:
+discovery.sendtargets.auth.username = someuser3
+discovery.sendtargets.auth.password = _09+7)(,./?;'p[]
+"
+
+(* Test: Iscsid.lns
+ Test the full <conf> *)
+test Iscsid.lns get conf = { "#comment" = "###############" }
+ { "#comment" = "iSNS settings" }
+ { "#comment" = "###############" }
+ { "#comment" = "Address of iSNS server" }
+ { "isns.address" = "127.0.0.1" }
+ { "isns.port" = "3260" }
+ { }
+ { "#comment" = "*************" }
+ { "#comment" = "CHAP Settings" }
+ { "#comment" = "*************" }
+ { }
+ { "#comment" = "To enable CHAP authentication set node.session.auth.authmethod" }
+ { "#comment" = "to CHAP. The default is None." }
+ { "node.session.auth.authmethod" = "CHAP" }
+ { }
+ { "#comment" = "To set a CHAP username and password for initiator" }
+ { "#comment" = "authentication by the target(s), uncomment the following lines:" }
+ { "node.session.auth.username" = "someuser1" }
+ { "node.session.auth.password" = "somep$31#$^&7!" }
+ { }
+ { "#comment" = "To enable CHAP authentication for a discovery session to the target" }
+ { "#comment" = "set discovery.sendtargets.auth.authmethod to CHAP. The default is None." }
+ { "discovery.sendtargets.auth.authmethod" = "CHAP" }
+ { }
+ { "#comment" = "To set a discovery session CHAP username and password for the initiator" }
+ { "#comment" = "authentication by the target(s), uncomment the following lines:" }
+ { "discovery.sendtargets.auth.username" = "someuser3" }
+ { "discovery.sendtargets.auth.password" = "_09+7)(,./?;'p[]" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_jaas.aug b/Sharp.Augeas.Test/lens/tests/test_jaas.aug
new file mode 100644
index 0000000..5f2bfb1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_jaas.aug
@@ -0,0 +1,144 @@
+(* Module Jaas *)
+(* Author: Simon Vocella <voxsim@gmail.com> *)
+module Test_jaas =
+
+let conf = "
+/*
+ This is the JAAS configuration file used by the Shibboleth IdP.
+
+ A JAAS configuration file is a grouping of LoginModules defined in the following manner:
+ <LoginModuleClass> <Flag> <ModuleOptions>;
+
+ LoginModuleClass - fully qualified class name of the LoginModule class
+ Flag - indicates whether the requirement level for the modules;
+ allowed values: required, requisite, sufficient, optional
+ ModuleOptions - a space delimited list of name=\"value\" options
+
+ For complete documentation on the format of this file see:
+ http://java.sun.com/j2se/1.5.0/docs/api/javax/security/auth/login/Configuration.html
+
+ For LoginModules available within the Sun JVM see:
+ http://java.sun.com/j2se/1.5.0/docs/guide/security/jaas/tutorials/LoginConfigFile.html
+
+ Warning: Do NOT use Sun's JNDI LoginModule to authentication against an LDAP directory,
+ Use the LdapLoginModule that ships with Shibboleth and is demonstrated below.
+
+ Note, the application identifier MUST be ShibUserPassAuth
+*/
+
+
+ShibUserPassAuth {
+
+// Example LDAP authentication
+// See: https://wiki.shibboleth.net/confluence/display/SHIB2/IdPAuthUserPass
+/*
+ edu.vt.middleware.ldap.jaas.LdapLoginModule required
+ ldapUrl=\"ldap://ldap.example.org\"
+ baseDn=\"ou=people,dc=example,dc=org\"
+ ssl=\"true\"
+ userFilter=\"uid={0}\";
+*/
+
+// Example Kerberos authentication, requires Sun's JVM
+// See: https://wiki.shibboleth.net/confluence/display/SHIB2/IdPAuthUserPass
+/*
+ com.sun.security.auth.module.Krb5LoginModule required
+ useKeyTab=\"true\"
+ keyTab=\"/path/to/idp/keytab/file\";
+*/
+
+ edu.vt.middleware.ldap.jaas.LdapLoginModule required
+ host = \"ldap://127.0.0.1:389\"
+ base = \"dc=example,dc=com\"
+ serviceUser = \"cn=admin,dc=example,dc=com\"
+ serviceCredential = \"ldappassword\"
+ ssl = \"false\"
+ userField = \"uid\"
+ // Example comment within definition
+ subtreeSearch = \"true\";
+};
+
+NetAccountAuth {
+ // Test of optionless flag
+ nz.ac.auckland.jaas.Krb5LoginModule required;
+};
+
+com.sun.security.jgss.krb5.initiate {
+ // Test of omitted linebreaks and naked boolean
+ com.sun.security.auth.module.Krb5LoginModule required useTicketCache=true;
+};"
+
+test Jaas.lns get conf =
+ { }
+ { "#mcomment"
+ { "1" = "This is the JAAS configuration file used by the Shibboleth IdP." }
+ { "2" = "A JAAS configuration file is a grouping of LoginModules defined in the following manner:" }
+ { "3" = "<LoginModuleClass> <Flag> <ModuleOptions>;" }
+ { "4" = "LoginModuleClass - fully qualified class name of the LoginModule class" }
+ { "5" = "Flag - indicates whether the requirement level for the modules;" }
+ { "6" = "allowed values: required, requisite, sufficient, optional" }
+ { "7" = "ModuleOptions - a space delimited list of name=\"value\" options" }
+ { "8" = "For complete documentation on the format of this file see:" }
+ { "9" = "http://java.sun.com/j2se/1.5.0/docs/api/javax/security/auth/login/Configuration.html" }
+ { "10" = "For LoginModules available within the Sun JVM see:" }
+ { "11" = "http://java.sun.com/j2se/1.5.0/docs/guide/security/jaas/tutorials/LoginConfigFile.html" }
+ { "12" = "Warning: Do NOT use Sun's JNDI LoginModule to authentication against an LDAP directory," }
+ { "13" = "Use the LdapLoginModule that ships with Shibboleth and is demonstrated below." }
+ { "14" = "Note, the application identifier MUST be ShibUserPassAuth" }
+ }
+ { }
+ { }
+ { "login" = "ShibUserPassAuth"
+ { }
+ { "#comment" = "Example LDAP authentication" }
+ { "#comment" = "See: https://wiki.shibboleth.net/confluence/display/SHIB2/IdPAuthUserPass" }
+ { "#mcomment"
+ { "1" = "edu.vt.middleware.ldap.jaas.LdapLoginModule required" }
+ { "2" = "ldapUrl=\"ldap://ldap.example.org\"" }
+ { "3" = "baseDn=\"ou=people,dc=example,dc=org\"" }
+ { "4" = "ssl=\"true\"" }
+ { "5" = "userFilter=\"uid={0}\";" }
+ }
+ { }
+ { "#comment" = "Example Kerberos authentication, requires Sun's JVM" }
+ { "#comment" = "See: https://wiki.shibboleth.net/confluence/display/SHIB2/IdPAuthUserPass" }
+ { "#mcomment"
+ { "1" = "com.sun.security.auth.module.Krb5LoginModule required" }
+ { "2" = "useKeyTab=\"true\"" }
+ { "3" = "keyTab=\"/path/to/idp/keytab/file\";" }
+ }
+ { }
+ { "loginModuleClass" = "edu.vt.middleware.ldap.jaas.LdapLoginModule"
+ { "flag" = "required"
+ { "host" = "\"ldap://127.0.0.1:389\"" }
+ { "base" = "\"dc=example,dc=com\"" }
+ { "serviceUser" = "\"cn=admin,dc=example,dc=com\"" }
+ { "serviceCredential" = "\"ldappassword\"" }
+ { "ssl" = "\"false\"" }
+ { "userField" = "\"uid\"" }
+ { "#comment" = "Example comment within definition" }
+ { "subtreeSearch" = "\"true\"" }
+ }
+ }
+ { }
+ }
+ { }
+ { }
+ { "login" = "NetAccountAuth"
+ { "#comment" = "Test of optionless flag" }
+ { "loginModuleClass" = "nz.ac.auckland.jaas.Krb5LoginModule"
+ { "flag" = "required" }
+ }
+ { }
+ }
+ { }
+ { }
+ { "login" = "com.sun.security.jgss.krb5.initiate"
+ { "#comment" = "Test of omitted linebreaks and naked boolean" }
+ { "loginModuleClass" = "com.sun.security.auth.module.Krb5LoginModule"
+ { "flag" = "required"
+ { "useTicketCache" = "true" }
+ }
+ }
+ { }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_jettyrealm.aug b/Sharp.Augeas.Test/lens/tests/test_jettyrealm.aug
new file mode 100644
index 0000000..620ffa3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_jettyrealm.aug
@@ -0,0 +1,51 @@
+(*
+Module: Test_JettyRealm
+ Provides unit tests and examples for the <JettyRealm> lens.
+*)
+
+module Test_JettyRealm =
+
+(* Variable: conf *)
+let conf = "### Comment
+admin: admin, admin
+"
+
+(* Variable: conf_norealm *)
+let conf_norealm = "### Comment
+admin: admin
+"
+
+(* Variable: new_conf *)
+let new_conf = "### Comment
+admin: password, admin
+"
+
+let lns = JettyRealm.lns
+
+(* Test: JettyRealm.lns
+ * Get test against tree structure
+*)
+test lns get conf =
+ { "#comment" = "## Comment" }
+ { "user"
+ { "username" = "admin" }
+ { "password" = "admin" }
+ { "realm" = "admin" }
+ }
+
+(* Test: JettyRealm.lns
+ * Get test against tree structure without a realm
+*)
+test lns get conf_norealm =
+ { "#comment" = "## Comment" }
+ { "user"
+ { "username" = "admin" }
+ { "password" = "admin" }
+ }
+
+(* Test: JettyRealm.lns
+ * Put test changing password to password
+*)
+test lns put conf after set "/user/password" "password" = new_conf
+
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_jmxaccess.aug b/Sharp.Augeas.Test/lens/tests/test_jmxaccess.aug
new file mode 100644
index 0000000..14e095e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_jmxaccess.aug
@@ -0,0 +1,35 @@
+(*
+Module: Test_JMXAccess
+ Provides unit tests and examples for the <JMXAccess> lens.
+*)
+
+module Test_JMXAccess =
+
+(* Variable: conf *)
+let conf = "# Comment
+admin readwrite
+"
+
+(* Variable: new_conf *)
+let new_conf = "# Comment
+admin readonly
+"
+
+let lns = JMXAccess.lns
+
+(* Test: JMXAccess.lns
+ * Get test against tree structure
+*)
+test lns get conf =
+ { "#comment" = "Comment" }
+ { "user"
+ { "username" = "admin" }
+ { "access" = "readwrite" }
+ }
+
+(* Test: JMXAccess.lns
+ * Put test changing access to readonly
+*)
+test lns put conf after set "/user/access" "readonly" = new_conf
+
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_jmxpassword.aug b/Sharp.Augeas.Test/lens/tests/test_jmxpassword.aug
new file mode 100644
index 0000000..5365162
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_jmxpassword.aug
@@ -0,0 +1,35 @@
+(*
+Module: Test_JMXPassword
+ Provides unit tests and examples for the <JMXPassword> lens.
+*)
+
+module Test_JMXPassword =
+
+(* Variable: conf *)
+let conf = "# Comment
+admin activemq
+"
+
+(* Variable: new_conf *)
+let new_conf = "# Comment
+admin password
+"
+
+let lns = JMXPassword.lns
+
+(* Test: JMXPassword.lns
+ * Get test against tree structure
+*)
+test lns get conf =
+ { "#comment" = "Comment" }
+ { "user"
+ { "username" = "admin" }
+ { "password" = "activemq" }
+ }
+
+(* Test: JMXPassword.lns
+ * Put test changing password to password
+*)
+test lns put conf after set "/user/password" "password" = new_conf
+
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_json.aug b/Sharp.Augeas.Test/lens/tests/test_json.aug
new file mode 100644
index 0000000..1ad0624
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_json.aug
@@ -0,0 +1,512 @@
+module Test_json =
+
+let lns = Json.lns
+
+(* Non recursive checks *)
+
+(* Typecheck finitely deep nesting *)
+let value0 = Json.str | Json.number | Json.const /true|false|null/
+let value1 = Json.fix_value value0
+(* This test is usually too heavy, activate at will
+let value2 = Json.fix_value value1
+*)
+
+test lns get "\"menu\"" = { "string" = "menu" }
+
+test lns get "true" = { "const" = "true" }
+
+test lns get "3.141" = { "number" = "3.141" }
+
+test lns get "{ \"key\" : 666 }" =
+ { "dict" { "entry" = "key" { "number" = "666" } } }
+
+test lns get "[true, 0, \"yo\"]" =
+ { "array" { "const" = "true" } { "number" = "0" } { "string" = "yo" } }
+
+test lns get "{\"a\" : true}" =
+ { "dict" { "entry" = "a" { "const" = "true" } } }
+
+test lns get "{ \"0\":true, \"1\":false }" =
+ { "dict" { "entry" = "0" { "const" = "true" } }
+ { "entry" = "1" { "const" = "false" } } }
+
+
+test lns get "{ \"0\": true, \"1\":false }" =
+ { "dict"
+ { "entry" = "0" { "const" = "true" } }
+ { "entry" = "1" { "const" = "false" } } }
+
+test lns get "{\"menu\": \"entry one\"}" =
+ { "dict" { "entry" = "menu" { "string" = "entry one" } } }
+
+test lns get "[ ]" =
+ { "array" }
+
+test lns get "{}" =
+ { "dict" }
+
+let s = "{\"menu\": {
+ \"id\": \"file\",
+ \"value\": \"File\",
+ \"popup\": {
+ \"menuitem\": [
+ {\"value\": \"New\", \"onclick\": \"CreateNewDoc()\"},
+ {\"value\": \"Open\", \"onclick\": \"OpenDoc()\"},
+ {\"value\": \"Close\", \"onclick\": \"CloseDoc()\"}
+ ]
+ }
+}}"
+
+test lns get s =
+ { "dict"
+ { "entry" = "menu"
+ { "dict"
+ { }
+ { "entry" = "id" { "string" = "file" } }
+ { }
+ { "entry" = "value" { "string" = "File" } }
+ { }
+ { "entry" = "popup"
+ { "dict"
+ { }
+ { "entry" = "menuitem"
+ { "array"
+ { }
+ { "dict"
+ { "entry" = "value" { "string" = "New" } }
+ { "entry" = "onclick"
+ { "string" = "CreateNewDoc()" } } }
+ { }
+ { "dict"
+ { "entry" = "value" { "string" = "Open" } }
+ { "entry" = "onclick" { "string" = "OpenDoc()" } } }
+ { }
+ { "dict"
+ { "entry" = "value" { "string" = "Close" } }
+ { "entry" = "onclick" { "string" = "CloseDoc()" } }
+ { }
+ }
+ { } } } { } } } } } }
+
+let t = "
+{\"web-app\": {
+ \"servlet\": [
+ {
+ \"servlet-name\": \"cofaxCDS\",
+ \"servlet-class\": \"org.cofax.cds.CDSServlet\",
+ \"init-param\": {
+ \"configGlossary:installationAt\": \"Philadelphia, PA\",
+ \"configGlossary:adminEmail\": \"ksm@pobox.com\",
+ \"configGlossary:poweredBy\": \"Cofax\",
+ \"configGlossary:poweredByIcon\": \"/images/cofax.gif\",
+ \"configGlossary:staticPath\": \"/content/static\",
+ \"templateProcessorClass\": \"org.cofax.WysiwygTemplate\",
+ \"templateLoaderClass\": \"org.cofax.FilesTemplateLoader\",
+ \"templatePath\": \"templates\",
+ \"templateOverridePath\": \"\",
+ \"defaultListTemplate\": \"listTemplate.htm\",
+ \"defaultFileTemplate\": \"articleTemplate.htm\",
+ \"useJSP\": false,
+ \"jspListTemplate\": \"listTemplate.jsp\",
+ \"jspFileTemplate\": \"articleTemplate.jsp\",
+ \"cachePackageTagsTrack\": 200,
+ \"cachePackageTagsStore\": 200,
+ \"cachePackageTagsRefresh\": 60,
+ \"cacheTemplatesTrack\": 100,
+ \"cacheTemplatesStore\": 50,
+ \"cacheTemplatesRefresh\": 15,
+ \"cachePagesTrack\": 200,
+ \"cachePagesStore\": 100,
+ \"cachePagesRefresh\": 10,
+ \"cachePagesDirtyRead\": 10,
+ \"searchEngineListTemplate\": \"forSearchEnginesList.htm\",
+ \"searchEngineFileTemplate\": \"forSearchEngines.htm\",
+ \"searchEngineRobotsDb\": \"WEB-INF/robots.db\",
+ \"useDataStore\": true,
+ \"dataStoreClass\": \"org.cofax.SqlDataStore\",
+ \"redirectionClass\": \"org.cofax.SqlRedirection\",
+ \"dataStoreName\": \"cofax\",
+ \"dataStoreDriver\": \"com.microsoft.jdbc.sqlserver.SQLServerDriver\",
+ \"dataStoreUrl\": \"jdbc:microsoft:sqlserver://LOCALHOST:1433;DatabaseName=goon\",
+ \"dataStoreUser\": \"sa\",
+ \"dataStorePassword\": \"dataStoreTestQuery\",
+ \"dataStoreTestQuery\": \"SET NOCOUNT ON;select test='test';\",
+ \"dataStoreLogFile\": \"/usr/local/tomcat/logs/datastore.log\",
+ \"dataStoreInitConns\": 10,
+ \"dataStoreMaxConns\": 100,
+ \"dataStoreConnUsageLimit\": 100,
+ \"dataStoreLogLevel\": \"debug\",
+ \"maxUrlLength\": 500}},
+ {
+ \"servlet-name\": \"cofaxEmail\",
+ \"servlet-class\": \"org.cofax.cds.EmailServlet\",
+ \"init-param\": {
+ \"mailHost\": \"mail1\",
+ \"mailHostOverride\": \"mail2\"}},
+ {
+ \"servlet-name\": \"cofaxAdmin\",
+ \"servlet-class\": \"org.cofax.cds.AdminServlet\"},
+
+ {
+ \"servlet-name\": \"fileServlet\",
+ \"servlet-class\": \"org.cofax.cds.FileServlet\"},
+ {
+ \"servlet-name\": \"cofaxTools\",
+ \"servlet-class\": \"org.cofax.cms.CofaxToolsServlet\",
+ \"init-param\": {
+ \"templatePath\": \"toolstemplates/\",
+ \"log\": 1,
+ \"logLocation\": \"/usr/local/tomcat/logs/CofaxTools.log\",
+ \"logMaxSize\": \"\",
+ \"dataLog\": 1,
+ \"dataLogLocation\": \"/usr/local/tomcat/logs/dataLog.log\",
+ \"dataLogMaxSize\": \"\",
+ \"removePageCache\": \"/content/admin/remove?cache=pages&id=\",
+ \"removeTemplateCache\": \"/content/admin/remove?cache=templates&id=\",
+ \"fileTransferFolder\": \"/usr/local/tomcat/webapps/content/fileTransferFolder\",
+ \"lookInContext\": 1,
+ \"adminGroupID\": 4,
+ \"betaServer\": true}}],
+ \"servlet-mapping\": {
+ \"cofaxCDS\": \"/\",
+ \"cofaxEmail\": \"/cofaxutil/aemail/*\",
+ \"cofaxAdmin\": \"/admin/*\",
+ \"fileServlet\": \"/static/*\",
+ \"cofaxTools\": \"/tools/*\"},
+
+ \"taglib\": {
+ \"taglib-uri\": \"cofax.tld\",
+ \"taglib-location\": \"/WEB-INF/tlds/cofax.tld\"}}}"
+
+test lns get t =
+ { }
+ { "dict"
+ { "entry" = "web-app"
+ { "dict"
+ { }
+ { "entry" = "servlet"
+ { "array"
+ { }
+ { "dict"
+ { }
+ { "entry" = "servlet-name" { "string" = "cofaxCDS" } }
+ { }
+ { "entry" = "servlet-class"
+ { "string" = "org.cofax.cds.CDSServlet" } }
+ { }
+ { "entry" = "init-param"
+ { "dict"
+ { }
+ { "entry" = "configGlossary:installationAt"
+ { "string" = "Philadelphia, PA" } }
+ { }
+ { "entry" = "configGlossary:adminEmail"
+ { "string" = "ksm@pobox.com" } }
+ { }
+ { "entry" = "configGlossary:poweredBy"
+ { "string" = "Cofax" } }
+ { }
+ { "entry" = "configGlossary:poweredByIcon"
+ { "string" = "/images/cofax.gif" } }
+ { }
+ { "entry" = "configGlossary:staticPath"
+ { "string" = "/content/static" } }
+ { }
+ { "entry" = "templateProcessorClass"
+ { "string" = "org.cofax.WysiwygTemplate" } }
+ { }
+ { "entry" = "templateLoaderClass"
+ { "string" = "org.cofax.FilesTemplateLoader" } }
+ { }
+ { "entry" = "templatePath"
+ { "string" = "templates" } }
+ { }
+ { "entry" = "templateOverridePath"
+ { "string" = "" } }
+ { }
+ { "entry" = "defaultListTemplate"
+ { "string" = "listTemplate.htm" } }
+ { }
+ { "entry" = "defaultFileTemplate"
+ { "string" = "articleTemplate.htm" } }
+ { }
+ { "entry" = "useJSP"
+ { "const" = "false" } }
+ { }
+ { "entry" = "jspListTemplate"
+ { "string" = "listTemplate.jsp" } }
+ { }
+ { "entry" = "jspFileTemplate"
+ { "string" = "articleTemplate.jsp" } }
+ { }
+ { "entry" = "cachePackageTagsTrack"
+ { "number" = "200" } }
+ { }
+ { "entry" = "cachePackageTagsStore"
+ { "number" = "200" } }
+ { }
+ { "entry" = "cachePackageTagsRefresh"
+ { "number" = "60" } }
+ { }
+ { "entry" = "cacheTemplatesTrack"
+ { "number" = "100" } }
+ { }
+ { "entry" = "cacheTemplatesStore"
+ { "number" = "50" } }
+ { }
+ { "entry" = "cacheTemplatesRefresh"
+ { "number" = "15" } }
+ { }
+ { "entry" = "cachePagesTrack"
+ { "number" = "200" } }
+ { }
+ { "entry" = "cachePagesStore"
+ { "number" = "100" } }
+ { }
+ { "entry" = "cachePagesRefresh"
+ { "number" = "10" } }
+ { }
+ { "entry" = "cachePagesDirtyRead"
+ { "number" = "10" } }
+ { }
+ { "entry" = "searchEngineListTemplate"
+ { "string" = "forSearchEnginesList.htm" } }
+ { }
+ { "entry" = "searchEngineFileTemplate"
+ { "string" = "forSearchEngines.htm" } }
+ { }
+ { "entry" = "searchEngineRobotsDb"
+ { "string" = "WEB-INF/robots.db" } }
+ { }
+ { "entry" = "useDataStore"
+ { "const" = "true" } }
+ { }
+ { "entry" = "dataStoreClass"
+ { "string" = "org.cofax.SqlDataStore" } }
+ { }
+ { "entry" = "redirectionClass"
+ { "string" = "org.cofax.SqlRedirection" } }
+ { }
+ { "entry" = "dataStoreName"
+ { "string" = "cofax" } }
+ { }
+ { "entry" = "dataStoreDriver"
+ { "string" = "com.microsoft.jdbc.sqlserver.SQLServerDriver" } }
+ { }
+ { "entry" = "dataStoreUrl"
+ { "string" = "jdbc:microsoft:sqlserver://LOCALHOST:1433;DatabaseName=goon" } }
+ { }
+ { "entry" = "dataStoreUser"
+ { "string" = "sa" } }
+ { }
+ { "entry" = "dataStorePassword"
+ { "string" = "dataStoreTestQuery" } }
+ { }
+ { "entry" = "dataStoreTestQuery"
+ { "string" = "SET NOCOUNT ON;select test='test';" } }
+ { }
+ { "entry" = "dataStoreLogFile"
+ { "string" = "/usr/local/tomcat/logs/datastore.log" } }
+ { }
+ { "entry" = "dataStoreInitConns"
+ { "number" = "10" } }
+ { }
+ { "entry" = "dataStoreMaxConns"
+ { "number" = "100" } }
+ { }
+ { "entry" = "dataStoreConnUsageLimit"
+ { "number" = "100" } }
+ { }
+ { "entry" = "dataStoreLogLevel"
+ { "string" = "debug" } }
+ { }
+ { "entry" = "maxUrlLength"
+ { "number" = "500" } } } } }
+ { }
+ { "dict"
+ { }
+ { "entry" = "servlet-name"
+ { "string" = "cofaxEmail" } }
+ { }
+ { "entry" = "servlet-class"
+ { "string" = "org.cofax.cds.EmailServlet" } }
+ { }
+ { "entry" = "init-param"
+ { "dict"
+ { }
+ { "entry" = "mailHost"
+ { "string" = "mail1" } }
+ { }
+ { "entry" = "mailHostOverride"
+ { "string" = "mail2" } } } } }
+ { }
+ { "dict"
+ { }
+ { "entry" = "servlet-name"
+ { "string" = "cofaxAdmin" } }
+ { }
+ { "entry" = "servlet-class"
+ { "string" = "org.cofax.cds.AdminServlet" } } }
+ { }
+ { }
+ { "dict"
+ { }
+ { "entry" = "servlet-name"
+ { "string" = "fileServlet" } }
+ { }
+ { "entry" = "servlet-class"
+ { "string" = "org.cofax.cds.FileServlet" } } }
+ { }
+ { "dict"
+ { }
+ { "entry" = "servlet-name"
+ { "string" = "cofaxTools" } }
+ { }
+ { "entry" = "servlet-class"
+ { "string" = "org.cofax.cms.CofaxToolsServlet" } }
+ { }
+ { "entry" = "init-param"
+ { "dict"
+ { }
+ { "entry" = "templatePath"
+ { "string" = "toolstemplates/" } }
+ { }
+ { "entry" = "log"
+ { "number" = "1" } }
+ { }
+ { "entry" = "logLocation"
+ { "string" = "/usr/local/tomcat/logs/CofaxTools.log" } }
+ { }
+ { "entry" = "logMaxSize"
+ { "string" = "" } }
+ { }
+ { "entry" = "dataLog"
+ { "number" = "1" } }
+ { }
+ { "entry" = "dataLogLocation"
+ { "string" = "/usr/local/tomcat/logs/dataLog.log" } }
+ { }
+ { "entry" = "dataLogMaxSize"
+ { "string" = "" } }
+ { }
+ { "entry" = "removePageCache"
+ { "string" = "/content/admin/remove?cache=pages&id=" } }
+ { }
+ { "entry" = "removeTemplateCache"
+ { "string" = "/content/admin/remove?cache=templates&id=" } }
+ { }
+ { "entry" = "fileTransferFolder"
+ { "string" = "/usr/local/tomcat/webapps/content/fileTransferFolder" } }
+ { }
+ { "entry" = "lookInContext"
+ { "number" = "1" } }
+ { }
+ { "entry" = "adminGroupID"
+ { "number" = "4" } }
+ { }
+ { "entry" = "betaServer"
+ { "const" = "true" } } } } } } }
+ { }
+ { "entry" = "servlet-mapping"
+ { "dict"
+ { }
+ { "entry" = "cofaxCDS"
+ { "string" = "/" } }
+ { }
+ { "entry" = "cofaxEmail"
+ { "string" = "/cofaxutil/aemail/*" } }
+ { }
+ { "entry" = "cofaxAdmin"
+ { "string" = "/admin/*" } }
+ { }
+ { "entry" = "fileServlet"
+ { "string" = "/static/*" } }
+ { }
+ { "entry" = "cofaxTools"
+ { "string" = "/tools/*" } } } }
+ { }
+ { }
+ { "entry" = "taglib"
+ { "dict"
+ { }
+ { "entry" = "taglib-uri"
+ { "string" = "cofax.tld" } }
+ { }
+ { "entry" = "taglib-location"
+ { "string" = "/WEB-INF/tlds/cofax.tld" } } } } } } }
+
+(* Comments *)
+test lns get "// A comment
+//
+{\"menu\": 1 }
+//
+/*
+This is a multiline comment
+*/\n" =
+ { "#comment" = "A comment" }
+ { }
+ { "dict"
+ { "entry" = "menu"
+ { "number" = "1" } }
+ { }
+ { }
+ { "#mcomment"
+ { "1" = "This is a multiline comment" } } }
+
+
+let s_commented = "/* before */
+{ // before all values
+\"key\": // my key
+ \"value\" // my value
+ , // after value
+\"key2\": [ // before array values
+ \"val21\",
+ \"val22\"
+ // after value 22
+]
+// after all values
+}
+"
+test lns get s_commented =
+ { "#mcomment" { "1" = "before" } }
+ { "dict"
+ { "#comment" = "before all values" }
+ { "entry" = "key"
+ { "#comment" = "my key" }
+ { "string" = "value" { "#comment" = "my value" } } }
+ { "#comment" = "after value" }
+ { "entry" = "key2"
+ { "array"
+ { "#comment" = "before array values" }
+ { "string" = "val21" }
+ { }
+ { "string" = "val22"
+ { }
+ { "#comment" = "after value 22" } }
+ { }
+ { "#comment" = "after all values" } } }
+ { } }
+
+(* Test lns
+ Allow escaped quotes, backslashes and tabs/newlines *)
+test lns get "{ \"filesystem\": \"ext3\\\" \\\\ \t \r\n SEC_TYPE=\\\"ext2\" }\n" =
+ { "dict"
+ { "entry" = "filesystem"
+ { "string" = "ext3\\\" \\\\ \t \r\n SEC_TYPE=\\\"ext2" } }
+ { } }
+
+test Json.str get "\"\\\"\"" = { "string" = "\\\"" }
+
+test Json.str get "\"\\\"" = *
+
+test Json.str get "\"\"\"" = *
+
+test Json.str get "\"\\u1234\"" = { "string" = "\u1234" }
+
+(* Allow spurious backslashes; Issue #557 *)
+test Json.str get "\"\\/\"" = { "string" = "\\/" }
+
+test lns get "{ \"download-dir\": \"\\/var\\/tmp\\/\" }" =
+ { "dict"
+ { "entry" = "download-dir"
+ { "string" = "\/var\/tmp\/" } } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_kdump.aug b/Sharp.Augeas.Test/lens/tests/test_kdump.aug
new file mode 100644
index 0000000..51c79a3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_kdump.aug
@@ -0,0 +1,102 @@
+(*
+Module: Test_Kdump
+ Provides unit tests and examples for the <Kdump> lens.
+*)
+
+module Test_Kdump =
+
+ let conf = "# this is a comment
+#another commented line
+
+#comment after empty line
+#
+#comment after empty comment
+path /var/crash #comment after entry
+core_collector makedumpfile -c
+default poweroff
+raw /dev/sda5
+ext3 /dev/sda3
+net my.server.com:/export/tmp
+nfs my.server.com:/export/tmp
+net user@my.server.com
+ssh user@my.server.com
+link_delay 60
+kdump_pre /var/crash/scripts/kdump-pre.sh
+kdump_post /var/crash/scripts/kdump-post.sh
+#extra_bins /usr/bin/lftp /a/b/c
+extra_bins /usr/bin/lftp /a/b/c # comment
+disk_timeout 30
+extra_modules gfs2 extra modules more
+options babla labl kbak df=dfg
+options babla labl kbak df=dfg
+options babla labl kbak df=dfg # comment
+sshkey /root/.ssh/kdump_id_rsa
+force_rebuild 1
+override_resettable 1
+dracut_args --omit-drivers \"cfg80211 snd\" --add-drivers \"ext2 ext3\"
+fence_kdump_args -p 7410 -f auto
+fence_kdump_nodes 192.168.1.10 10.34.63.155
+debug_mem_level 3
+blacklist gfs2
+"
+
+ (* Test: Kdump.lns
+ Check whole config file *)
+ test Kdump.lns get conf =
+ { "#comment" = "this is a comment" }
+ { "#comment" = "another commented line" }
+ { }
+ { "#comment" = "comment after empty line" }
+ { }
+ { "#comment" = "comment after empty comment" }
+ { "path" = "/var/crash"
+ { "#comment" = "comment after entry" } }
+ { "core_collector" = "makedumpfile -c" }
+ { "default" = "poweroff" }
+ { "raw" = "/dev/sda5" }
+ { "ext3" = "/dev/sda3" }
+ { "net" = "my.server.com:/export/tmp" }
+ { "nfs" = "my.server.com:/export/tmp" }
+ { "net" = "user@my.server.com" }
+ { "ssh" = "user@my.server.com" }
+ { "link_delay" = "60" }
+ { "kdump_pre" = "/var/crash/scripts/kdump-pre.sh" }
+ { "kdump_post" = "/var/crash/scripts/kdump-post.sh" }
+ { "#comment" = "extra_bins /usr/bin/lftp /a/b/c" }
+ { "extra_bins"
+ { "1" = "/usr/bin/lftp" }
+ { "2" = "/a/b/c" }
+ { "#comment" = "comment" } }
+ { "disk_timeout" = "30" }
+ { "extra_modules"
+ { "1" = "gfs2" }
+ { "2" = "extra" }
+ { "3" = "modules" }
+ { "4" = "more" } }
+ { "options"
+ { "babla"
+ { "labl" }
+ { "kbak" }
+ { "df" = "dfg" } } }
+ { "options"
+ { "babla"
+ { "labl" }
+ { "kbak" }
+ { "df" = "dfg" } } }
+ { "options"
+ { "babla"
+ { "labl" }
+ { "kbak" }
+ { "df" = "dfg" } }
+ { "#comment" = "comment" } }
+ { "sshkey" = "/root/.ssh/kdump_id_rsa" }
+ { "force_rebuild" = "1" }
+ { "override_resettable" = "1" }
+ { "dracut_args" = "--omit-drivers \"cfg80211 snd\" --add-drivers \"ext2 ext3\"" }
+ { "fence_kdump_args" = "-p 7410 -f auto" }
+ { "fence_kdump_nodes"
+ { "1" = "192.168.1.10" }
+ { "2" = "10.34.63.155" } }
+ { "debug_mem_level" = "3" }
+ { "blacklist"
+ { "1" = "gfs2" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_keepalived.aug b/Sharp.Augeas.Test/lens/tests/test_keepalived.aug
new file mode 100644
index 0000000..6886357
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_keepalived.aug
@@ -0,0 +1,493 @@
+(*
+Module: Test_Keepalived
+ Provides unit tests and examples for the <Keepalived> lens.
+*)
+
+module Test_Keepalived =
+
+(* Variable: conf
+ A full configuration file *)
+ let conf = "! This is a comment
+! Configuration File for keepalived
+
+global_defs {
+ ! this is who emails will go to on alerts
+ notification_email {
+ admins@example.com
+ fakepager@example.com
+ ! add a few more email addresses here if you would like
+ }
+ notification_email_from admins@example.com
+
+ smtp_server 127.0.0.1 ! I use the local machine to relay mail
+ smtp_connect_timeout 30
+
+ ! each load balancer should have a different ID
+ ! this will be used in SMTP alerts, so you should make
+ ! each router easily identifiable
+ lvs_id LVS_EXAMPLE_01
+
+ vrrp_mcast_group4 224.0.0.18
+ vrrp_mcast_group6 ff02::12
+}
+
+vrrp_sync_group VG1 {
+ group {
+ inside_network # name of vrrp_instance (below)
+ outside_network # One for each moveable IP.
+ }
+ notify /usr/bin/foo
+ notify_master /usr/bin/foo
+ smtp_alert
+}
+
+vrrp_instance VI_1 {
+ state MASTER
+ interface eth0
+
+ track_interface {
+ eth0 # Back
+ eth1 # DMZ
+ }
+ track_script {
+ check_apache2 # weight = +2 si ok, 0 si nok
+ }
+ garp_master_delay 5
+ garp_master_repeat 5
+ garp_master_refresh 5
+ garp_master_refresh_repeat 5
+ priority 50
+ advert_int 2
+ authentication {
+ auth_type PASS
+ auth_pass mypass
+ }
+ virtual_ipaddress {
+ 10.234.66.146/32 dev eth0
+ }
+
+ lvs_sync_daemon_interface eth0
+ ha_suspend
+
+ notify_master \"/svr/scripts/notify_master.sh\"
+ notify_backup \"/svr/scripts/notify_backup.sh\"
+ notify_fault \"/svr/scripts/notify_fault.sh\"
+ notify \"/svr/scripts/notify.sh\"
+
+ ! each virtual router id must be unique per instance name!
+ virtual_router_id 51
+
+ ! MASTER and BACKUP state are determined by the priority
+ ! even if you specify MASTER as the state, the state will
+ ! be voted on by priority (so if your state is MASTER but your
+ ! priority is lower than the router with BACKUP, you will lose
+ ! the MASTER state)
+ ! I make it a habit to set priorities at least 50 points apart
+ ! note that a lower number is lesser priority - lower gets less vote
+ priority 150
+
+ ! how often should we vote, in seconds?
+ advert_int 1
+
+ ! send an alert when this instance changes state from MASTER to BACKUP
+ smtp_alert
+
+ ! this authentication is for syncing between failover servers
+ ! keepalived supports PASS, which is simple password
+ ! authentication
+ ! or AH, which is the IPSec authentication header.
+ ! I don't use AH
+ ! yet as many people have reported problems with it
+ authentication {
+ auth_type PASS
+ auth_pass example
+ }
+
+ ! these are the IP addresses that keepalived will setup on this
+ ! machine. Later in the config we will specify which real
+ ! servers are behind these IPs
+ ! without this block, keepalived will not setup and takedown the
+ ! any IP addresses
+
+ virtual_ipaddress {
+ 192.168.1.11
+ 10.234.66.146/32 dev vlan933 # parse it well
+ ! and more if you want them
+ }
+
+ use_vmac
+ vmac_xmit_base
+ native_ipv6
+ dont_track_primary
+ preempt_delay
+
+ mcast_src_ip 192.168.1.1
+ unicast_src_ip 192.168.1.1
+
+ unicast_peer {
+ 192.168.1.2
+ 192.168.1.3
+ }
+}
+
+virtual_server 192.168.1.11 22 {
+ delay_loop 6
+
+ ! use round-robin as a load balancing algorithm
+ lb_algo rr
+
+ ! we are doing NAT
+ lb_kind NAT
+ nat_mask 255.255.255.0
+
+ protocol TCP
+
+ sorry_server 10.20.40.30 22
+
+ ! there can be as many real_server blocks as you need
+
+ real_server 10.20.40.10 22 {
+
+ ! if we used weighted round-robin or a similar lb algo,
+ ! we include the weight of this server
+
+ weight 1
+
+ ! here is a health checker for this server.
+ ! we could use a custom script here (see the keepalived docs)
+ ! but we will just make sure we can do a vanilla tcp connect()
+ ! on port 22
+ ! if it fails, we will pull this realserver out of the pool
+ ! and send email about the removal
+ TCP_CHECK {
+ connect_timeout 3
+ connect_port 22
+ }
+ }
+}
+
+virtual_server_group DNS_1 {
+ 192.168.0.1 22
+ 10.234.55.22-25 36
+ 10.45.58.59/32 27
+}
+
+vrrp_script chk_apache2 { # Requires keepalived-1.1.13
+ script \"killall -0 apache2\" # faster
+ interval 2 # check every 2 seconds
+ weight 2 # add 2 points of prio if OK
+ fall 5
+ raise 5
+}
+
+! that's all
+"
+
+
+(* Test: Keepalived.lns
+ Test the full <conf> *)
+ test Keepalived.lns get conf =
+ { "#comment" = "This is a comment" }
+ { "#comment" = "Configuration File for keepalived" }
+ {}
+ { "global_defs"
+ { "#comment" = "this is who emails will go to on alerts" }
+ { "notification_email"
+ { "email" = "admins@example.com" }
+ { "email" = "fakepager@example.com" }
+ { "#comment" = "add a few more email addresses here if you would like" } }
+ { "notification_email_from" = "admins@example.com" }
+ { }
+ { "smtp_server" = "127.0.0.1"
+ { "#comment" = "I use the local machine to relay mail" } }
+ { "smtp_connect_timeout" = "30" }
+ {}
+ { "#comment" = "each load balancer should have a different ID" }
+ { "#comment" = "this will be used in SMTP alerts, so you should make" }
+ { "#comment" = "each router easily identifiable" }
+ { "lvs_id" = "LVS_EXAMPLE_01" }
+ {}
+ { "vrrp_mcast_group4" = "224.0.0.18" }
+ { "vrrp_mcast_group6" = "ff02::12" } }
+ {}
+ { "vrrp_sync_group" = "VG1"
+ { "group"
+ { "inside_network"
+ { "#comment" = "name of vrrp_instance (below)" } }
+ { "outside_network"
+ { "#comment" = "One for each moveable IP." } } }
+ { "notify" = "/usr/bin/foo" }
+ { "notify_master" = "/usr/bin/foo" }
+ { "smtp_alert" } }
+ {}
+ { "vrrp_instance" = "VI_1"
+ { "state" = "MASTER" }
+ { "interface" = "eth0" }
+ { }
+ { "track_interface"
+ { "eth0" { "#comment" = "Back" } }
+ { "eth1" { "#comment" = "DMZ" } } }
+ { "track_script"
+ { "check_apache2" { "#comment" = "weight = +2 si ok, 0 si nok" } } }
+ { "garp_master_delay" = "5" }
+ { "garp_master_repeat" = "5" }
+ { "garp_master_refresh" = "5" }
+ { "garp_master_refresh_repeat" = "5" }
+ { "priority" = "50" }
+ { "advert_int" = "2" }
+ { "authentication"
+ { "auth_type" = "PASS" }
+ { "auth_pass" = "mypass" } }
+ { "virtual_ipaddress"
+ { "ipaddr" = "10.234.66.146"
+ { "prefixlen" = "32" }
+ { "dev" = "eth0" } } }
+ { }
+ { "lvs_sync_daemon_interface" = "eth0" }
+ { "ha_suspend" }
+ { }
+ { "notify_master" = "\"/svr/scripts/notify_master.sh\"" }
+ { "notify_backup" = "\"/svr/scripts/notify_backup.sh\"" }
+ { "notify_fault" = "\"/svr/scripts/notify_fault.sh\"" }
+ { "notify" = "\"/svr/scripts/notify.sh\"" }
+ { }
+ { "#comment" = "each virtual router id must be unique per instance name!" }
+ { "virtual_router_id" = "51" }
+ { }
+ { "#comment" = "MASTER and BACKUP state are determined by the priority" }
+ { "#comment" = "even if you specify MASTER as the state, the state will" }
+ { "#comment" = "be voted on by priority (so if your state is MASTER but your" }
+ { "#comment" = "priority is lower than the router with BACKUP, you will lose" }
+ { "#comment" = "the MASTER state)" }
+ { "#comment" = "I make it a habit to set priorities at least 50 points apart" }
+ { "#comment" = "note that a lower number is lesser priority - lower gets less vote" }
+ { "priority" = "150" }
+ { }
+ { "#comment" = "how often should we vote, in seconds?" }
+ { "advert_int" = "1" }
+ { }
+ { "#comment" = "send an alert when this instance changes state from MASTER to BACKUP" }
+ { "smtp_alert" }
+ { }
+ { "#comment" = "this authentication is for syncing between failover servers" }
+ { "#comment" = "keepalived supports PASS, which is simple password" }
+ { "#comment" = "authentication" }
+ { "#comment" = "or AH, which is the IPSec authentication header." }
+ { "#comment" = "I don't use AH" }
+ { "#comment" = "yet as many people have reported problems with it" }
+ { "authentication"
+ { "auth_type" = "PASS" }
+ { "auth_pass" = "example" } }
+ { }
+ { "#comment" = "these are the IP addresses that keepalived will setup on this" }
+ { "#comment" = "machine. Later in the config we will specify which real" }
+ { "#comment" = "servers are behind these IPs" }
+ { "#comment" = "without this block, keepalived will not setup and takedown the" }
+ { "#comment" = "any IP addresses" }
+ { }
+ { "virtual_ipaddress"
+ { "ipaddr" = "192.168.1.11" }
+ { "ipaddr" = "10.234.66.146"
+ { "prefixlen" = "32" }
+ { "dev" = "vlan933" }
+ { "#comment" = "parse it well" } }
+ { "#comment" = "and more if you want them" } }
+ { }
+ { "use_vmac" }
+ { "vmac_xmit_base" }
+ { "native_ipv6" }
+ { "dont_track_primary" }
+ { "preempt_delay" }
+ { }
+ { "mcast_src_ip" = "192.168.1.1" }
+ { "unicast_src_ip" = "192.168.1.1" }
+ { }
+ { "unicast_peer"
+ { "ipaddr" = "192.168.1.2" }
+ { "ipaddr" = "192.168.1.3" } } }
+ { }
+ { "virtual_server"
+ { "ip" = "192.168.1.11" }
+ { "port" = "22" }
+ { "delay_loop" = "6" }
+ { }
+ { "#comment" = "use round-robin as a load balancing algorithm" }
+ { "lb_algo" = "rr" }
+ { }
+ { "#comment" = "we are doing NAT" }
+ { "lb_kind" = "NAT" }
+ { "nat_mask" = "255.255.255.0" }
+ { }
+ { "protocol" = "TCP" }
+ { }
+ { "sorry_server"
+ { "ip" = "10.20.40.30" }
+ { "port" = "22" } }
+ { }
+ { "#comment" = "there can be as many real_server blocks as you need" }
+ { }
+ { "real_server"
+ { "ip" = "10.20.40.10" }
+ { "port" = "22" }
+ { "#comment" = "if we used weighted round-robin or a similar lb algo," }
+ { "#comment" = "we include the weight of this server" }
+ { }
+ { "weight" = "1" }
+ { }
+ { "#comment" = "here is a health checker for this server." }
+ { "#comment" = "we could use a custom script here (see the keepalived docs)" }
+ { "#comment" = "but we will just make sure we can do a vanilla tcp connect()" }
+ { "#comment" = "on port 22" }
+ { "#comment" = "if it fails, we will pull this realserver out of the pool" }
+ { "#comment" = "and send email about the removal" }
+ { "TCP_CHECK"
+ { "connect_timeout" = "3" }
+ { "connect_port" = "22" } } } }
+ { }
+ { "virtual_server_group" = "DNS_1"
+ { "vip"
+ { "ipaddr" = "192.168.0.1" }
+ { "port" = "22" } }
+ { "vip"
+ { "ipaddr" = "10.234.55.22-25" }
+ { "port" = "36" } }
+ { "vip"
+ { "ipaddr" = "10.45.58.59"
+ { "prefixlen" = "32" } }
+ { "port" = "27" } } }
+ { }
+ { "vrrp_script" = "chk_apache2"
+ { "#comment" = "Requires keepalived-1.1.13" }
+ { "script" = "\"killall -0 apache2\""
+ { "#comment" = "faster" } }
+ { "interval" = "2"
+ { "#comment" = "check every 2 seconds" } }
+ { "weight" = "2"
+ { "#comment" = "add 2 points of prio if OK" } }
+ { "fall" = "5" }
+ { "raise" = "5" } }
+ { }
+ { "#comment" = "that's all" }
+
+(* Variable: tcp_check
+ An example of a TCP health checker *)
+let tcp_check = "virtual_server 192.168.1.11 22 {
+ real_server 10.20.40.10 22 {
+ TCP_CHECK {
+ connect_timeout 3
+ connect_port 22
+ bindto 192.168.1.1
+ }
+ }
+}
+"
+test Keepalived.lns get tcp_check =
+ { "virtual_server"
+ { "ip" = "192.168.1.11" }
+ { "port" = "22" }
+ { "real_server"
+ { "ip" = "10.20.40.10" }
+ { "port" = "22" }
+ { "TCP_CHECK"
+ { "connect_timeout" = "3" }
+ { "connect_port" = "22" }
+ { "bindto" = "192.168.1.1" } } } }
+
+(* Variable: misc_check
+ An example of a MISC health checker *)
+let misc_check = "virtual_server 192.168.1.11 22 {
+ real_server 10.20.40.10 22 {
+ MISC_CHECK {
+ misc_path /usr/local/bin/server_test
+ misc_timeout 3
+ misc_dynamic
+ }
+ }
+}
+"
+test Keepalived.lns get misc_check =
+ { "virtual_server"
+ { "ip" = "192.168.1.11" }
+ { "port" = "22" }
+ { "real_server"
+ { "ip" = "10.20.40.10" }
+ { "port" = "22" }
+ { "MISC_CHECK"
+ { "misc_path" = "/usr/local/bin/server_test" }
+ { "misc_timeout" = "3" }
+ { "misc_dynamic" } } } }
+
+(* Variable: smtp_check
+ An example of an SMTP health checker *)
+let smtp_check = "virtual_server 192.168.1.11 22 {
+ real_server 10.20.40.10 22 {
+ SMTP_CHECK {
+ host {
+ connect_ip 10.20.40.11
+ connect_port 587
+ bindto 192.168.1.1
+ }
+ connect_timeout 3
+ retry 5
+ delay_before_retry 10
+ helo_name \"Testing Augeas\"
+ }
+ }
+}
+"
+test Keepalived.lns get smtp_check =
+ { "virtual_server"
+ { "ip" = "192.168.1.11" }
+ { "port" = "22" }
+ { "real_server"
+ { "ip" = "10.20.40.10" }
+ { "port" = "22" }
+ { "SMTP_CHECK"
+ { "host"
+ { "connect_ip" = "10.20.40.11" }
+ { "connect_port" = "587" }
+ { "bindto" = "192.168.1.1" } }
+ { "connect_timeout" = "3" }
+ { "retry" = "5" }
+ { "delay_before_retry" = "10" }
+ { "helo_name" = "\"Testing Augeas\"" } } } }
+
+(* Variable: http_check
+ An example of an HTTP health checker *)
+let http_check = "virtual_server 192.168.1.11 22 {
+ real_server 10.20.40.10 22 {
+ HTTP_GET {
+ url {
+ path /mrtg2/
+ digest 9b3a0c85a887a256d6939da88aabd8cd
+ status_code 200
+ }
+ connect_timeout 3
+ connect_port 8080
+ nb_get_retry 5
+ delay_before_retry 10
+ }
+ SSL_GET {
+ connect_port 8443
+ }
+ }
+}
+"
+test Keepalived.lns get http_check =
+ { "virtual_server"
+ { "ip" = "192.168.1.11" }
+ { "port" = "22" }
+ { "real_server"
+ { "ip" = "10.20.40.10" }
+ { "port" = "22" }
+ { "HTTP_GET"
+ { "url"
+ { "path" = "/mrtg2/" }
+ { "digest" = "9b3a0c85a887a256d6939da88aabd8cd" }
+ { "status_code" = "200" } }
+ { "connect_timeout" = "3" }
+ { "connect_port" = "8080" }
+ { "nb_get_retry" = "5" }
+ { "delay_before_retry" = "10" } }
+ { "SSL_GET"
+ { "connect_port" = "8443" } } } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_known_hosts.aug b/Sharp.Augeas.Test/lens/tests/test_known_hosts.aug
new file mode 100644
index 0000000..1b987e3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_known_hosts.aug
@@ -0,0 +1,48 @@
+(*
+Module: Test_Known_Hosts
+ Provides unit tests and examples for the <Known_Hosts> lens.
+*)
+
+module Test_Known_Hosts =
+
+(* Test: Known_Hosts.lns
+ Simple get test *)
+test Known_Hosts.lns get "# A comment
+foo.example.com,foo ecdsa-sha2-nistp256 AAABBBDKDFX=
+bar.example.com,bar ssh-ed25519 AAAAC3NzaC1lZDI1NTE5AAAAIN9NJSjDZh4+K6WBS16iX7ZndnwbGsaEbLwHlCEhZmef
+|1|FhUqf1kMlRWNfK6InQSAmXiNiSY=|jwbKFwD4ipl6D0k6OoshmW7xOao= ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBIvNOU8OedkWalFmoFcJWP3nasnCLx6M78F9y0rzTQtplggNd0dvR0A4SQOBfHInmk5dH6YGGcpT3PM3cJBR7rI=\n" =
+ { "#comment" = "A comment" }
+ { "1" = "foo.example.com"
+ { "alias" = "foo" }
+ { "type" = "ecdsa-sha2-nistp256" }
+ { "key" = "AAABBBDKDFX=" } }
+ { "2" = "bar.example.com"
+ { "alias" = "bar" }
+ { "type" = "ssh-ed25519" }
+ { "key" = "AAAAC3NzaC1lZDI1NTE5AAAAIN9NJSjDZh4+K6WBS16iX7ZndnwbGsaEbLwHlCEhZmef" } }
+ { "3" = "|1|FhUqf1kMlRWNfK6InQSAmXiNiSY=|jwbKFwD4ipl6D0k6OoshmW7xOao="
+ { "type" = "ecdsa-sha2-nistp256" }
+ { "key" = "AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHAyNTYAAABBBIvNOU8OedkWalFmoFcJWP3nasnCLx6M78F9y0rzTQtplggNd0dvR0A4SQOBfHInmk5dH6YGGcpT3PM3cJBR7rI=" } }
+
+(* Test: Known_Hosts.lns
+ Markers *)
+test Known_Hosts.lns get "@revoked * ssh-rsa AAAAB5W
+@cert-authority *.mydomain.org,*.mydomain.com ssh-rsa AAAAB5W\n" =
+ { "1" = "*"
+ { "@revoked" }
+ { "type" = "ssh-rsa" }
+ { "key" = "AAAAB5W" } }
+ { "2" = "*.mydomain.org"
+ { "@cert-authority" }
+ { "alias" = "*.mydomain.com" }
+ { "type" = "ssh-rsa" }
+ { "key" = "AAAAB5W" } }
+
+(* Test: Known_Hosts.lns
+ Eol comment *)
+test Known_Hosts.lns get "@revoked * ssh-rsa AAAAB5W # this is revoked\n" =
+ { "1" = "*"
+ { "@revoked" }
+ { "type" = "ssh-rsa" }
+ { "key" = "AAAAB5W" }
+ { "#comment" = "this is revoked" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_koji.aug b/Sharp.Augeas.Test/lens/tests/test_koji.aug
new file mode 100644
index 0000000..729e07f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_koji.aug
@@ -0,0 +1,65 @@
+(*
+Module: Test_Koji
+ Provides unit tests and examples for the <Koji> lens.
+*)
+
+module Test_koji =
+
+ (* Variable: conf
+ A full koji.conf *)
+ let conf = "[koji]
+
+;configuration for koji cli tool
+
+;url of XMLRPC server
+server = http://localhost/kojihub
+
+;url of web interface
+weburl = http://localhost/koji
+
+;url of package download site
+pkgurl = http://localhost/packages
+
+;path to the koji top directory
+topdir = /mnt/koji
+
+;configuration for SSL athentication
+
+;client certificate
+cert = /etc/pki/koji/kojiadm.pem
+
+;certificate of the CA that issued the client certificate
+ca = /etc/pki/koji/koji_ca_cert.crt
+
+;certificate of the CA that issued the HTTP server certificate
+serverca = /etc/pki/koji/koji_ca_cert.crt
+"
+
+ test Koji.lns get conf =
+ { "section" = "koji"
+ { }
+ { "#comment" = "configuration for koji cli tool" }
+ { }
+ { "#comment" = "url of XMLRPC server" }
+ { "server" = "http://localhost/kojihub" }
+ { }
+ { "#comment" = "url of web interface" }
+ { "weburl" = "http://localhost/koji" }
+ { }
+ { "#comment" = "url of package download site" }
+ { "pkgurl" = "http://localhost/packages" }
+ { }
+ { "#comment" = "path to the koji top directory" }
+ { "topdir" = "/mnt/koji" }
+ { }
+ { "#comment" = "configuration for SSL athentication" }
+ { }
+ { "#comment" = "client certificate" }
+ { "cert" = "/etc/pki/koji/kojiadm.pem" }
+ { }
+ { "#comment" = "certificate of the CA that issued the client certificate" }
+ { "ca" = "/etc/pki/koji/koji_ca_cert.crt" }
+ { }
+ { "#comment" = "certificate of the CA that issued the HTTP server certificate" }
+ { "serverca" = "/etc/pki/koji/koji_ca_cert.crt" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_krb5.aug b/Sharp.Augeas.Test/lens/tests/test_krb5.aug
new file mode 100644
index 0000000..d4a11b6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_krb5.aug
@@ -0,0 +1,1107 @@
+module Test_krb5 =
+
+ (* Krb5.conf from Fermilab *)
+ let fermi_str = "###
+### This krb5.conf template is intended for use with Fermi
+### Kerberos v1_2 and later. Earlier versions may choke on the
+### \"auth_to_local = \" lines unless they are commented out.
+### The installation process should do all the right things in
+### any case, but if you are reading this and haven't updated
+### your kerberos product to v1_2 or later, you really should!
+###
+[libdefaults]
+ ticket_lifetime = 1560m
+ default_realm = FNAL.GOV
+ ccache_type = 4
+ default_tgs_enCtypes = des-cbc-crc
+ default_tkt_enctypes = des-cbc-crc
+ permitted_enctypes = des-cbc-crc des3-cbc-sha1
+ default_lifetime = 7d
+ renew_lifetime = 7d
+ autologin = true
+ forward = true
+ forwardable = true
+ renewable = true
+ encrypt = true
+ v4_name_convert = {
+ host = {
+ rcmd = host
+ }
+ }
+
+[realms]
+ FNAL.GOV = {
+ kdc = krb-fnal-1.fnal.gov:88
+ kdc = krb-fnal-2.fnal.gov:88
+ kdc = krb-fnal-3.fnal.gov:88
+ kdc = krb-fnal-4.fnal.gov:88
+ kdc = krb-fnal-5.fnal.gov:88
+ kdc = krb-fnal-6.fnal.gov:88
+ kdc = krb-fnal-7.fnal.gov:88
+ master_kdc = krb-fnal-admin.fnal.gov:88
+ admin_server = krb-fnal-admin.fnal.gov
+ default_domain = fnal.gov
+ }
+ WIN.FNAL.GOV = {
+ kdc = littlebird.win.fnal.gov:88
+ kdc = bigbird.win.fnal.gov:88
+ default_domain = fnal.gov
+ }
+ FERMI.WIN.FNAL.GOV = {
+ kdc = sully.fermi.win.fnal.gov:88
+ kdc = elmo.fermi.win.fnal.gov:88
+ kdc = grover.fermi.win.fnal.gov:88
+ kdc = oscar.fermi.win.fnal.gov:88
+ kdc = cookie.fermi.win.fnal.gov:88
+ kdc = herry.fermi.win.fnal.gov:88
+ default_domain = fnal.gov
+ }
+ UCHICAGO.EDU = {
+ kdc = kerberos-0.uchicago.edu
+ kdc = kerberos-1.uchicago.edu
+ kdc = kerberos-2.uchicago.edu
+ admin_server = kerberos.uchicago.edu
+ default_domain = uchicago.edu
+ }
+ PILOT.FNAL.GOV = {
+ kdc = i-krb-2.fnal.gov:88
+ master_kdc = i-krb-2.fnal.gov:88
+ admin_server = i-krb-2.fnal.gov
+ default_domain = fnal.gov
+ }
+ WINBETA.FNAL.GOV = {
+ kdc = wbdc1.winbeta.fnal.gov:88
+ kdc = wbdc2.winbeta.fnal.gov:88
+ default_domain = fnal.gov
+ }
+ FERMIBETA.WINBETA.FNAL.GOV = {
+ kdc = fbdc1.fermibeta.winbeta.fnal.gov:88
+ kdc = fbdc2.fermibeta.winbeta.fnal.gov:88
+ default_domain = fnal.gov
+ }
+ CERN.CH = {
+ kdc = afsdb2.cern.ch
+ kdc = afsdb3.cern.ch
+ kdc = afsdb1.cern.ch
+ default_domain = cern.ch
+ kpasswd_server = afskrb5m.cern.ch
+ admin_server = afskrb5m.cern.ch
+ v4_name_convert = {
+ host = {
+ rcmd = host
+ }
+ }
+ }
+ 1TS.ORG = {
+ kdc = kerberos.1ts.org
+ admin_server = kerberos.1ts.org
+ }
+ stanford.edu = {
+ kdc = krb5auth1.stanford.edu
+ kdc = krb5auth2.stanford.edu
+ kdc = krb5auth3.stanford.edu
+ master_kdc = krb5auth1.stanford.edu
+ admin_server = krb5-admin.stanford.edu
+ default_domain = stanford.edu
+ krb524_server = krb524.stanford.edu
+ }
+
+[instancemapping]
+ afs = {
+ cron/* = \"\"
+ cms/* = \"\"
+ afs/* = \"\"
+ e898/* = \"\"
+ }
+
+[capaths]
+
+# FNAL.GOV and PILOT.FNAL.GOV are the MIT Kerberos Domains
+# FNAL.GOV is production and PILOT is for testing
+# The FERMI Windows domain uses the WIN.FNAL.GOV root realm
+# with the FERMI.WIN.FNAL.GOV sub-realm where machines and users
+# reside. The WINBETA and FERMIBETA domains are the equivalent
+# testing realms for the FERMIBETA domain. The 2-way transitive
+# trust structure of this complex is as follows:
+#
+# FNAL.GOV <=> PILOT.FNAL.GOV
+# FNAL.GOV <=> WIN.FERMI.GOV <=> FERMI.WIN.FERMI.GOV
+# PILOT.FNAL.GOV <=> WINBETA.FNAL.GOV <=> FERMIBETA.WINBETA.FNAL.GOV
+
+FNAL.GOV = {
+ PILOT.FNAL.GOV = .
+ FERMI.WIN.FNAL.GOV = WIN.FNAL.GOV
+ WIN.FNAL.GOV = .
+ FERMIBETA.WINBETA.FNAL.GOV = WINBETA.FNAL.GOV
+ WINBETA.FNAL.GOV = PILOT.FNAL.GOV
+}
+PILOT.FNAL.GOV = {
+ FNAL.GOV = .
+ FERMI.WIN.FNAL.GOV = WIN.FNAL.GOV
+ WIN.FNAL.GOV = FNAL.GOV
+ FERMIBETA.WINBETA.FNAL.GOV = WINBETA.FNAL.GOV
+ WINBETA.FNAL.GOV = .
+}
+WIN.FNAL.GOV = {
+ FNAL.GOV = .
+ PILOT.FNAL.GOV = FNAL.GOV
+ FERMI.WIN.FNAL.GOV = .
+ FERMIBETA.WINBETA.FNAL.GOV = WINBETA.FNAL.GOV
+ WINBETA.FNAL.GOV = PILOT.FNAL.GOV
+}
+WINBETA.FNAL.GOV = {
+ PILOT.FNAL.GOV = .
+ FERMIBETA.WINBETA.FNAL.GOV = .
+ FNAL.GOV = PILOT.FNAL.GOV
+ FERMI.WIN.FNAL.GOV = WIN.FNAL.GOV
+ WIN.FNAL.GOV = PILOT.FNAL.GOV
+}
+
+[logging]
+ kdc = SYSLOG:info:local1
+ admin_server = SYSLOG:info:local2
+ default = SYSLOG:err:auth
+
+[domain_realm]
+# Fermilab's (non-windows-centric) domains
+ .fnal.gov = FNAL.GOV
+ .cdms-soudan.org = FNAL.GOV
+ .deemz.net = FNAL.GOV
+ .dhcp.fnal.gov = FNAL.GOV
+ .minos-soudan.org = FNAL.GOV
+ i-krb-2.fnal.gov = PILOT.FNAL.GOV
+ .win.fnal.gov = WIN.FNAL.GOV
+ .fermi.win.fnal.gov = FERMI.WIN.FNAL.GOV
+ .winbeta.fnal.gov = WINBETA.FNAL.GOV
+ .fermibeta.winbeta.fnal.gov = FERMIBETA.WINBETA.FNAL.GOV
+# Fermilab's KCA servers so FERMI.WIN principals work in FNAL.GOV realm
+# winserver.fnal.gov = FERMI.WIN.FNAL.GOV
+# winserver2.fnal.gov = FERMI.WIN.FNAL.GOVA
+# Accelerator nodes to FERMI.WIN for Linux/OS X users
+ adgroups.fnal.gov = FERMI.WIN.FNAL.GOV
+ adusers.fnal.gov = FERMI.WIN.FNAL.GOV
+ webad.fnal.gov = FERMI.WIN.FNAL.GOV
+# Friends and family (by request)
+ .cs.ttu.edu = FNAL.GOV
+ .geol.uniovi.es = FNAL.GOV
+ .harvard.edu = FNAL.GOV
+ .hpcc.ttu.edu = FNAL.GOV
+ .infn.it = FNAL.GOV
+ .knu.ac.kr = FNAL.GOV
+ .lns.mit.edu = FNAL.GOV
+ .ph.liv.ac.uk = FNAL.GOV
+ .pha.jhu.edu = FNAL.GOV
+ .phys.ttu.edu = FNAL.GOV
+ .phys.ualberta.ca = FNAL.GOV
+ .physics.lsa.umich.edu = FNAL.GOV
+ .physics.ucla.edu = FNAL.GOV
+ .physics.ucsb.edu = FNAL.GOV
+ .physics.utoronto.ca = FNAL.GOV
+ .rl.ac.uk = FNAL.GOV
+ .rockefeller.edu = FNAL.GOV
+ .rutgers.edu = FNAL.GOV
+ .sdsc.edu = FNAL.GOV
+ .sinica.edu.tw = FNAL.GOV
+ .tsukuba.jp.hep.net = FNAL.GOV
+ .ucsd.edu = FNAL.GOV
+ .unl.edu = FNAL.GOV
+ .in2p3.fr = FNAL.GOV
+ .wisc.edu = FNAL.GOV
+ .pic.org.es = FNAL.GOV
+ .kisti.re.kr = FNAL.GOV
+
+# The whole \"top half\" is replaced during \"ups installAsRoot krb5conf\", so:
+# It would probably be a bad idea to change anything on or above this line
+
+# If you need to add any .domains or hosts, put them here
+[domain_realm]
+ mojo.lunet.edu = FNAL.GOV
+
+[appdefaults]
+ default_lifetime = 7d
+ retain_ccache = false
+ autologin = true
+ forward = true
+ forwardable = true
+ renewable = true
+ encrypt = true
+ krb5_aklog_path = /usr/bin/aklog
+
+ telnet = {
+ }
+
+ rcp = {
+ forward = true
+ encrypt = false
+ allow_fallback = true
+ }
+
+ rsh = {
+ allow_fallback = true
+ }
+
+ rlogin = {
+ allow_fallback = false
+ }
+
+
+ login = {
+ forwardable = true
+ krb5_run_aklog = false
+ krb5_get_tickets = true
+ krb4_get_tickets = false
+ krb4_convert = false
+ }
+
+ kinit = {
+ forwardable = true
+ krb5_run_aklog = false
+ }
+
+ kadmin = {
+ forwardable = false
+ }
+
+ rshd = {
+ krb5_run_aklog = false
+ }
+
+ ftpd = {
+ krb5_run_aklog = false
+ default_lifetime = 10h
+ }
+
+ pam = {
+ debug = false
+ forwardable = true
+ renew_lifetime = 7d
+ ticket_lifetime = 1560m
+ krb4_convert = true
+ afs_cells = fnal.gov
+ krb5_run_aklog = false
+ }
+"
+
+test Krb5.lns get fermi_str =
+ { "#comment" = "##" }
+ { "#comment" = "## This krb5.conf template is intended for use with Fermi" }
+ { "#comment" = "## Kerberos v1_2 and later. Earlier versions may choke on the" }
+ { "#comment" = "## \"auth_to_local = \" lines unless they are commented out." }
+ { "#comment" = "## The installation process should do all the right things in" }
+ { "#comment" = "## any case, but if you are reading this and haven't updated" }
+ { "#comment" = "## your kerberos product to v1_2 or later, you really should!" }
+ { "#comment" = "##" }
+ { "libdefaults"
+ { "ticket_lifetime" = "1560m" }
+ { "default_realm" = "FNAL.GOV" }
+ { "ccache_type" = "4" }
+ { "default_tgs_enctypes" = "des-cbc-crc" }
+ { "#eol" }
+ { "default_tkt_enctypes" = "des-cbc-crc" }
+ { "#eol" }
+ { "permitted_enctypes" = "des-cbc-crc" }
+ { "permitted_enctypes" = "des3-cbc-sha1" }
+ { "#eol" }
+ { "default_lifetime" = "7d" }
+ { "renew_lifetime" = "7d" }
+ { "autologin" = "true" }
+ { "forward" = "true" }
+ { "forwardable" = "true" }
+ { "renewable" = "true" }
+ { "encrypt" = "true" }
+ { "v4_name_convert"
+ { "host"
+ { "rcmd" = "host" }
+ }
+ }
+ { } }
+ { "realms"
+ { "realm" = "FNAL.GOV"
+ { "kdc" = "krb-fnal-1.fnal.gov:88" }
+ { "kdc" = "krb-fnal-2.fnal.gov:88" }
+ { "kdc" = "krb-fnal-3.fnal.gov:88" }
+ { "kdc" = "krb-fnal-4.fnal.gov:88" }
+ { "kdc" = "krb-fnal-5.fnal.gov:88" }
+ { "kdc" = "krb-fnal-6.fnal.gov:88" }
+ { "kdc" = "krb-fnal-7.fnal.gov:88" }
+ { "master_kdc" = "krb-fnal-admin.fnal.gov:88" }
+ { "admin_server" = "krb-fnal-admin.fnal.gov" }
+ { "default_domain" = "fnal.gov" } }
+ { "realm" = "WIN.FNAL.GOV"
+ { "kdc" = "littlebird.win.fnal.gov:88" }
+ { "kdc" = "bigbird.win.fnal.gov:88" }
+ { "default_domain" = "fnal.gov" } }
+ { "realm" = "FERMI.WIN.FNAL.GOV"
+ { "kdc" = "sully.fermi.win.fnal.gov:88" }
+ { "kdc" = "elmo.fermi.win.fnal.gov:88" }
+ { "kdc" = "grover.fermi.win.fnal.gov:88" }
+ { "kdc" = "oscar.fermi.win.fnal.gov:88" }
+ { "kdc" = "cookie.fermi.win.fnal.gov:88" }
+ { "kdc" = "herry.fermi.win.fnal.gov:88" }
+ { "default_domain" = "fnal.gov" } }
+ { "realm" = "UCHICAGO.EDU"
+ { "kdc" = "kerberos-0.uchicago.edu" }
+ { "kdc" = "kerberos-1.uchicago.edu" }
+ { "kdc" = "kerberos-2.uchicago.edu" }
+ { "admin_server" = "kerberos.uchicago.edu" }
+ { "default_domain" = "uchicago.edu" } }
+ { "realm" = "PILOT.FNAL.GOV"
+ { "kdc" = "i-krb-2.fnal.gov:88" }
+ { "master_kdc" = "i-krb-2.fnal.gov:88" }
+ { "admin_server" = "i-krb-2.fnal.gov" }
+ { "default_domain" = "fnal.gov" } }
+ { "realm" = "WINBETA.FNAL.GOV"
+ { "kdc" = "wbdc1.winbeta.fnal.gov:88" }
+ { "kdc" = "wbdc2.winbeta.fnal.gov:88" }
+ { "default_domain" = "fnal.gov" } }
+ { "realm" = "FERMIBETA.WINBETA.FNAL.GOV"
+ { "kdc" = "fbdc1.fermibeta.winbeta.fnal.gov:88" }
+ { "kdc" = "fbdc2.fermibeta.winbeta.fnal.gov:88" }
+ { "default_domain" = "fnal.gov" } }
+ { "realm" = "CERN.CH"
+ { "kdc" = "afsdb2.cern.ch" }
+ { "kdc" = "afsdb3.cern.ch" }
+ { "kdc" = "afsdb1.cern.ch" }
+ { "default_domain" = "cern.ch" }
+ { "kpasswd_server" = "afskrb5m.cern.ch" }
+ { "admin_server" = "afskrb5m.cern.ch" }
+ { "v4_name_convert"
+ { "host"
+ { "rcmd" = "host" }
+ }
+ }
+ }
+ { "realm" = "1TS.ORG"
+ { "kdc" = "kerberos.1ts.org" }
+ { "admin_server" = "kerberos.1ts.org" }
+ }
+ { "realm" = "stanford.edu"
+ { "kdc" = "krb5auth1.stanford.edu" }
+ { "kdc" = "krb5auth2.stanford.edu" }
+ { "kdc" = "krb5auth3.stanford.edu" }
+ { "master_kdc" = "krb5auth1.stanford.edu" }
+ { "admin_server" = "krb5-admin.stanford.edu" }
+ { "default_domain" = "stanford.edu" }
+ { "krb524_server" = "krb524.stanford.edu" }
+ }
+ { } }
+ { "instancemapping"
+ { "afs"
+ { "mapping" = "cron/*" { "value" = "" } }
+ { "mapping" = "cms/*" { "value" = "" } }
+ { "mapping" = "afs/*" { "value" = "" } }
+ { "mapping" = "e898/*" { "value" = "" } } }
+ { } }
+ { "capaths"
+ { }
+ { "#comment" = "FNAL.GOV and PILOT.FNAL.GOV are the MIT Kerberos Domains" }
+ { "#comment" = "FNAL.GOV is production and PILOT is for testing" }
+ { "#comment" = "The FERMI Windows domain uses the WIN.FNAL.GOV root realm" }
+ { "#comment" = "with the FERMI.WIN.FNAL.GOV sub-realm where machines and users" }
+ { "#comment" = "reside. The WINBETA and FERMIBETA domains are the equivalent" }
+ { "#comment" = "testing realms for the FERMIBETA domain. The 2-way transitive" }
+ { "#comment" = "trust structure of this complex is as follows:" }
+ {}
+ { "#comment" = "FNAL.GOV <=> PILOT.FNAL.GOV" }
+ { "#comment" = "FNAL.GOV <=> WIN.FERMI.GOV <=> FERMI.WIN.FERMI.GOV" }
+ { "#comment" = "PILOT.FNAL.GOV <=> WINBETA.FNAL.GOV <=> FERMIBETA.WINBETA.FNAL.GOV" }
+ { }
+ { "FNAL.GOV"
+ { "PILOT.FNAL.GOV" = "." }
+ { "FERMI.WIN.FNAL.GOV" = "WIN.FNAL.GOV" }
+ { "WIN.FNAL.GOV" = "." }
+ { "FERMIBETA.WINBETA.FNAL.GOV" = "WINBETA.FNAL.GOV" }
+ { "WINBETA.FNAL.GOV" = "PILOT.FNAL.GOV" } }
+ { "PILOT.FNAL.GOV"
+ { "FNAL.GOV" = "." }
+ { "FERMI.WIN.FNAL.GOV" = "WIN.FNAL.GOV" }
+ { "WIN.FNAL.GOV" = "FNAL.GOV" }
+ { "FERMIBETA.WINBETA.FNAL.GOV" = "WINBETA.FNAL.GOV" }
+ { "WINBETA.FNAL.GOV" = "." } }
+ { "WIN.FNAL.GOV"
+ { "FNAL.GOV" = "." }
+ { "PILOT.FNAL.GOV" = "FNAL.GOV" }
+ { "FERMI.WIN.FNAL.GOV" = "." }
+ { "FERMIBETA.WINBETA.FNAL.GOV" = "WINBETA.FNAL.GOV" }
+ { "WINBETA.FNAL.GOV" = "PILOT.FNAL.GOV" } }
+ { "WINBETA.FNAL.GOV"
+ { "PILOT.FNAL.GOV" = "." }
+ { "FERMIBETA.WINBETA.FNAL.GOV" = "." }
+ { "FNAL.GOV" = "PILOT.FNAL.GOV" }
+ { "FERMI.WIN.FNAL.GOV" = "WIN.FNAL.GOV" }
+ { "WIN.FNAL.GOV" = "PILOT.FNAL.GOV" } }
+ { } }
+ { "logging"
+ { "kdc"
+ { "syslog"
+ { "severity" = "info" }
+ { "facility" = "local1" } } }
+ { "admin_server"
+ { "syslog"
+ { "severity" = "info" }
+ { "facility" = "local2" } } }
+ { "default"
+ { "syslog"
+ { "severity" = "err" }
+ { "facility" = "auth" } } }
+ { } }
+ { "domain_realm"
+ { "#comment" = "Fermilab's (non-windows-centric) domains" }
+ { ".fnal.gov" = "FNAL.GOV" }
+ { ".cdms-soudan.org" = "FNAL.GOV" }
+ { ".deemz.net" = "FNAL.GOV" }
+ { ".dhcp.fnal.gov" = "FNAL.GOV" }
+ { ".minos-soudan.org" = "FNAL.GOV" }
+ { "i-krb-2.fnal.gov" = "PILOT.FNAL.GOV" }
+ { ".win.fnal.gov" = "WIN.FNAL.GOV" }
+ { ".fermi.win.fnal.gov" = "FERMI.WIN.FNAL.GOV" }
+ { ".winbeta.fnal.gov" = "WINBETA.FNAL.GOV" }
+ { ".fermibeta.winbeta.fnal.gov" = "FERMIBETA.WINBETA.FNAL.GOV" }
+ { "#comment" = "Fermilab's KCA servers so FERMI.WIN principals work in FNAL.GOV realm" }
+ { "#comment" = "winserver.fnal.gov = FERMI.WIN.FNAL.GOV" }
+ { "#comment" = "winserver2.fnal.gov = FERMI.WIN.FNAL.GOVA" }
+ { "#comment" = "Accelerator nodes to FERMI.WIN for Linux/OS X users" }
+ { "adgroups.fnal.gov" = "FERMI.WIN.FNAL.GOV" }
+ { "adusers.fnal.gov" = "FERMI.WIN.FNAL.GOV" }
+ { "webad.fnal.gov" = "FERMI.WIN.FNAL.GOV" }
+ { "#comment" = "Friends and family (by request)" }
+ { ".cs.ttu.edu" = "FNAL.GOV" }
+ { ".geol.uniovi.es" = "FNAL.GOV" }
+ { ".harvard.edu" = "FNAL.GOV" }
+ { ".hpcc.ttu.edu" = "FNAL.GOV" }
+ { ".infn.it" = "FNAL.GOV" }
+ { ".knu.ac.kr" = "FNAL.GOV" }
+ { ".lns.mit.edu" = "FNAL.GOV" }
+ { ".ph.liv.ac.uk" = "FNAL.GOV" }
+ { ".pha.jhu.edu" = "FNAL.GOV" }
+ { ".phys.ttu.edu" = "FNAL.GOV" }
+ { ".phys.ualberta.ca" = "FNAL.GOV" }
+ { ".physics.lsa.umich.edu" = "FNAL.GOV" }
+ { ".physics.ucla.edu" = "FNAL.GOV" }
+ { ".physics.ucsb.edu" = "FNAL.GOV" }
+ { ".physics.utoronto.ca" = "FNAL.GOV" }
+ { ".rl.ac.uk" = "FNAL.GOV" }
+ { ".rockefeller.edu" = "FNAL.GOV" }
+ { ".rutgers.edu" = "FNAL.GOV" }
+ { ".sdsc.edu" = "FNAL.GOV" }
+ { ".sinica.edu.tw" = "FNAL.GOV" }
+ { ".tsukuba.jp.hep.net" = "FNAL.GOV" }
+ { ".ucsd.edu" = "FNAL.GOV" }
+ { ".unl.edu" = "FNAL.GOV" }
+ { ".in2p3.fr" = "FNAL.GOV" }
+ { ".wisc.edu" = "FNAL.GOV" }
+ { ".pic.org.es" = "FNAL.GOV" }
+ { ".kisti.re.kr" = "FNAL.GOV" }
+ { }
+ { "#comment" = "The whole \"top half\" is replaced during \"ups installAsRoot krb5conf\", so:" }
+ { "#comment" = "It would probably be a bad idea to change anything on or above this line" }
+ { }
+ { "#comment" = "If you need to add any .domains or hosts, put them here" } }
+ { "domain_realm"
+ { "mojo.lunet.edu" = "FNAL.GOV" }
+ { } }
+ { "appdefaults"
+ { "default_lifetime" = "7d" }
+ { "retain_ccache" = "false" }
+ { "autologin" = "true" }
+ { "forward" = "true" }
+ { "forwardable" = "true" }
+ { "renewable" = "true" }
+ { "encrypt" = "true" }
+ { "krb5_aklog_path" = "/usr/bin/aklog" }
+ { }
+ { "application" = "telnet" }
+ { }
+ { "application" = "rcp"
+ { "forward" = "true" }
+ { "encrypt" = "false" }
+ { "allow_fallback" = "true" } }
+ { }
+ { "application" = "rsh"
+ { "allow_fallback" = "true" } }
+ { }
+ { "application" = "rlogin"
+ { "allow_fallback" = "false" } }
+ { }
+ { }
+ { "application" = "login"
+ { "forwardable" = "true" }
+ { "krb5_run_aklog" = "false" }
+ { "krb5_get_tickets" = "true" }
+ { "krb4_get_tickets" = "false" }
+ { "krb4_convert" = "false" } }
+ { }
+ { "application" = "kinit"
+ { "forwardable" = "true" }
+ { "krb5_run_aklog" = "false" } }
+ { }
+ { "application" = "kadmin"
+ { "forwardable" = "false" } }
+ { }
+ { "application" = "rshd"
+ { "krb5_run_aklog" = "false" } }
+ { }
+ { "application" = "ftpd"
+ { "krb5_run_aklog" = "false" }
+ { "default_lifetime" = "10h" } }
+ { }
+ { "application" = "pam"
+ { "debug" = "false" }
+ { "forwardable" = "true" }
+ { "renew_lifetime" = "7d" }
+ { "ticket_lifetime" = "1560m" }
+ { "krb4_convert" = "true" }
+ { "afs_cells" = "fnal.gov" }
+ { "krb5_run_aklog" = "false" } } }
+
+
+(* Example from the krb5 distrubution *)
+let dist_str = "[libdefaults]
+ default_realm = ATHENA.MIT.EDU
+ krb4_config = /usr/kerberos/lib/krb.conf
+ krb4_realms = /usr/kerberos/lib/krb.realms
+
+[realms]
+ ATHENA.MIT.EDU = {
+ admin_server = KERBEROS.MIT.EDU
+ default_domain = MIT.EDU
+ v4_instance_convert = {
+ mit = mit.edu
+ lithium = lithium.lcs.mit.edu
+ }
+ }
+ ANDREW.CMU.EDU = {
+ admin_server = vice28.fs.andrew.cmu.edu
+ }
+# use \"kdc =\" if realm admins haven't put SRV records into DNS
+ GNU.ORG = {
+ kdc = kerberos.gnu.org
+ kdc = kerberos-2.gnu.org
+ admin_server = kerberos.gnu.org
+ }
+
+[domain_realm]
+ .mit.edu = ATHENA.MIT.EDU
+ mit.edu = ATHENA.MIT.EDU
+ .media.mit.edu = MEDIA-LAB.MIT.EDU
+ media.mit.edu = MEDIA-LAB.MIT.EDU
+ .ucsc.edu = CATS.UCSC.EDU
+
+[logging]
+# kdc = CONSOLE
+"
+
+test Krb5.lns get dist_str =
+ { "libdefaults"
+ { "default_realm" = "ATHENA.MIT.EDU" }
+ { "krb4_config" = "/usr/kerberos/lib/krb.conf" }
+ { "krb4_realms" = "/usr/kerberos/lib/krb.realms" }
+ { } }
+ { "realms"
+ { "realm" = "ATHENA.MIT.EDU"
+ { "admin_server" = "KERBEROS.MIT.EDU" }
+ { "default_domain" = "MIT.EDU" }
+ { "v4_instance_convert"
+ { "mit" = "mit.edu" }
+ { "lithium" = "lithium.lcs.mit.edu" } } }
+ { "realm" = "ANDREW.CMU.EDU"
+ { "admin_server" = "vice28.fs.andrew.cmu.edu" } }
+ { "#comment" = "use \"kdc =\" if realm admins haven't put SRV records into DNS" }
+ { "realm" = "GNU.ORG"
+ { "kdc" = "kerberos.gnu.org" }
+ { "kdc" = "kerberos-2.gnu.org" }
+ { "admin_server" = "kerberos.gnu.org" } }
+ { } }
+ { "domain_realm"
+ { ".mit.edu" = "ATHENA.MIT.EDU" }
+ { "mit.edu" = "ATHENA.MIT.EDU" }
+ { ".media.mit.edu" = "MEDIA-LAB.MIT.EDU" }
+ { "media.mit.edu" = "MEDIA-LAB.MIT.EDU" }
+ { ".ucsc.edu" = "CATS.UCSC.EDU" }
+ { } }
+ { "logging"
+ { "#comment" = "kdc = CONSOLE" } }
+
+(* Test for [libdefaults] *)
+test Krb5.libdefaults get "[libdefaults]
+ default_realm = ATHENA.MIT.EDU
+ krb4_config = /usr/kerberos/lib/krb.conf
+ krb4_realms = /usr/kerberos/lib/krb.realms\n\n" =
+ { "libdefaults"
+ { "default_realm" = "ATHENA.MIT.EDU" }
+ { "krb4_config" = "/usr/kerberos/lib/krb.conf" }
+ { "krb4_realms" = "/usr/kerberos/lib/krb.realms" }
+ { } }
+
+(* Test for [appfdefaults] *)
+test Krb5.appdefaults get "[appdefaults]\n\tdefault_lifetime = 7d\n" =
+ { "appdefaults" { "default_lifetime" = "7d" } }
+
+test Krb5.appdefaults get
+ "[appdefaults]\nrcp = { \n forward = true\n encrypt = false\n }\n" =
+ { "appdefaults"
+ { "application" = "rcp"
+ { "forward" = "true" }
+ { "encrypt" = "false" } } }
+
+test Krb5.appdefaults get "[appdefaults]\ntelnet = {\n\t}\n" =
+ { "appdefaults" { "application" = "telnet" } }
+
+test Krb5.appdefaults get "[appdefaults]
+ rcp = {
+ forward = true
+ ATHENA.MIT.EDU = {
+ encrypt = false
+ }
+ MEDIA-LAB.MIT.EDU = {
+ encrypt = true
+ }
+ forwardable = true
+ }\n" =
+ { "appdefaults"
+ { "application" = "rcp"
+ { "forward" = "true" }
+ { "realm" = "ATHENA.MIT.EDU"
+ { "encrypt" = "false" } }
+ { "realm" = "MEDIA-LAB.MIT.EDU"
+ { "encrypt" = "true" } }
+ { "forwardable" = "true" } } }
+
+let appdef = "[appdefaults]
+ default_lifetime = 7d
+ retain_ccache = false
+ autologin = true
+ forward = true
+ forwardable = true
+ renewable = true
+ encrypt = true
+ krb5_aklog_path = /usr/bin/aklog
+
+ telnet = {
+ }
+
+ rcp = {
+ forward = true
+ encrypt = false
+ allow_fallback = true
+ }
+
+ rsh = {
+ allow_fallback = true
+ }
+
+ rlogin = {
+ allow_fallback = false
+ }
+
+
+ login = {
+ forwardable = true
+ krb5_run_aklog = false
+ krb5_get_tickets = true
+ krb4_get_tickets = false
+ krb4_convert = false
+ }
+
+ kinit = {
+ forwardable = true
+ krb5_run_aklog = false
+ }
+
+ kadmin = {
+ forwardable = false
+ }
+
+ rshd = {
+ krb5_run_aklog = false
+ }
+
+ ftpd = {
+ krb5_run_aklog = false
+ default_lifetime = 10h
+ }
+
+ pam = {
+ debug = false
+ forwardable = true
+ renew_lifetime = 7d
+ ticket_lifetime = 1560m
+ krb4_convert = true
+ afs_cells = fnal.gov
+ krb5_run_aklog = false
+ }\n"
+
+let appdef_tree =
+ { "appdefaults"
+ { "default_lifetime" = "7d" }
+ { "retain_ccache" = "false" }
+ { "autologin" = "true" }
+ { "forward" = "true" }
+ { "forwardable" = "true" }
+ { "renewable" = "true" }
+ { "encrypt" = "true" }
+ { "krb5_aklog_path" = "/usr/bin/aklog" }
+ { }
+ { "application" = "telnet" }
+ { }
+ { "application" = "rcp"
+ { "forward" = "true" }
+ { "encrypt" = "false" }
+ { "allow_fallback" = "true" }
+ }
+ { }
+ { "application" = "rsh"
+ { "allow_fallback" = "true" }
+ }
+ { }
+ { "application" = "rlogin"
+ { "allow_fallback" = "false" }
+ }
+ { }
+ { }
+ { "application" = "login"
+ { "forwardable" = "true" }
+ { "krb5_run_aklog" = "false" }
+ { "krb5_get_tickets" = "true" }
+ { "krb4_get_tickets" = "false" }
+ { "krb4_convert" = "false" }
+ }
+ { }
+ { "application" = "kinit"
+ { "forwardable" = "true" }
+ { "krb5_run_aklog" = "false" }
+ }
+ { }
+ { "application" = "kadmin"
+ { "forwardable" = "false" }
+ }
+ { }
+ { "application" = "rshd"
+ { "krb5_run_aklog" = "false" }
+ }
+ { }
+ { "application" = "ftpd"
+ { "krb5_run_aklog" = "false" }
+ { "default_lifetime" = "10h" }
+ }
+ { }
+ { "application" = "pam"
+ { "debug" = "false" }
+ { "forwardable" = "true" }
+ { "renew_lifetime" = "7d" }
+ { "ticket_lifetime" = "1560m" }
+ { "krb4_convert" = "true" }
+ { "afs_cells" = "fnal.gov" }
+ { "krb5_run_aklog" = "false" }
+ }
+ }
+
+
+test Krb5.appdefaults get appdef = appdef_tree
+test Krb5.lns get appdef = appdef_tree
+
+
+(* Test realms section *)
+let realms_str = "[realms]
+ ATHENA.MIT.EDU = {
+ admin_server = KERBEROS.MIT.EDU
+ default_domain = MIT.EDU
+ database_module = ldapconf
+
+ # test
+ v4_instance_convert = {
+ mit = mit.edu
+ lithium = lithium.lcs.mit.edu
+ }
+ v4_realm = LCS.MIT.EDU
+ }\n"
+
+test Krb5.lns get realms_str =
+ { "realms"
+ { "realm" = "ATHENA.MIT.EDU"
+ { "admin_server" = "KERBEROS.MIT.EDU" }
+ { "default_domain" = "MIT.EDU" }
+ { "database_module" = "ldapconf" }
+ { }
+ { "#comment" = "test" }
+ { "v4_instance_convert"
+ { "mit" = "mit.edu" }
+ { "lithium" = "lithium.lcs.mit.edu" } }
+ { "v4_realm" = "LCS.MIT.EDU" } } }
+
+(* Test dpmain_realm section *)
+let domain_realm_str = "[domain_realm]
+ .mit.edu = ATHENA.MIT.EDU
+ mit.edu = ATHENA.MIT.EDU
+ dodo.mit.edu = SMS_TEST.MIT.EDU
+ .ucsc.edu = CATS.UCSC.EDU\n"
+
+test Krb5.lns get domain_realm_str =
+ { "domain_realm"
+ { ".mit.edu" = "ATHENA.MIT.EDU" }
+ { "mit.edu" = "ATHENA.MIT.EDU" }
+ { "dodo.mit.edu" = "SMS_TEST.MIT.EDU" }
+ { ".ucsc.edu" = "CATS.UCSC.EDU" } }
+
+(* Test logging section *)
+let logging_str = "[logging]
+ kdc = CONSOLE
+ kdc = SYSLOG:INFO:DAEMON
+ admin_server = FILE:/var/adm/kadmin.log
+ admin_server = DEVICE=/dev/tty04\n"
+
+test Krb5.lns get logging_str =
+ { "logging"
+ { "kdc"
+ { "console" } }
+ { "kdc"
+ { "syslog"
+ { "severity" = "INFO" }
+ { "facility" = "DAEMON" } } }
+ { "admin_server"
+ { "file" = "/var/adm/kadmin.log" } }
+ { "admin_server"
+ { "device" = "/dev/tty04" } } }
+
+(* Test capaths section *)
+let capaths_str = "[capaths]
+ ANL.GOV = {
+ TEST.ANL.GOV = .
+ PNL.GOV = ES.NET
+ NERSC.GOV = ES.NET
+ ES.NET = .
+ }
+ TEST.ANL.GOV = {
+ ANL.GOV = .
+ }
+ PNL.GOV = {
+ ANL.GOV = ES.NET
+ }
+ NERSC.GOV = {
+ ANL.GOV = ES.NET
+ }
+ ES.NET = {
+ ANL.GOV = .
+ }\n"
+
+test Krb5.lns get capaths_str =
+ { "capaths"
+ { "ANL.GOV"
+ { "TEST.ANL.GOV" = "." }
+ { "PNL.GOV" = "ES.NET" }
+ { "NERSC.GOV" = "ES.NET" }
+ { "ES.NET" = "." } }
+ { "TEST.ANL.GOV"
+ { "ANL.GOV" = "." } }
+ { "PNL.GOV"
+ { "ANL.GOV" = "ES.NET" } }
+ { "NERSC.GOV"
+ { "ANL.GOV" = "ES.NET" } }
+ { "ES.NET"
+ { "ANL.GOV" = "." } } }
+
+(* Test instancemapping *)
+
+test Krb5.instance_mapping get "[instancemapping]
+ afs = {
+ cron/* = \"\"
+ cms/* = \"\"
+ afs/* = \"\"
+ e898/* = \"\"
+ }\n" =
+ { "instancemapping"
+ { "afs"
+ { "mapping" = "cron/*"
+ { "value" = "" } }
+ { "mapping" = "cms/*"
+ { "value" = "" } }
+ { "mapping" = "afs/*"
+ { "value" = "" } }
+ { "mapping" = "e898/*"
+ { "value" = "" } } } }
+
+test Krb5.kdc get "[kdc]
+ profile = /var/kerberos/krb5kdc/kdc.conf\n" =
+ { "kdc"
+ { "profile" = "/var/kerberos/krb5kdc/kdc.conf" } }
+
+(* v4_name_convert in libdefaults *)
+test Krb5.libdefaults get "[libdefaults]
+ default_realm = MY.REALM
+ clockskew = 300
+ v4_instance_resolve = false
+ v4_name_convert = {
+ host = {
+ rcmd = host
+ ftp = ftp
+ }
+ plain = {
+ something = something-else
+ }
+ }\n" =
+
+ { "libdefaults"
+ { "default_realm" = "MY.REALM" }
+ { "clockskew" = "300" }
+ { "v4_instance_resolve" = "false" }
+ { "v4_name_convert"
+ { "host" { "rcmd" = "host" } { "ftp" = "ftp" } }
+ { "plain" { "something" = "something-else" } } } }
+
+(* Test pam section *)
+let pam_str = "[pam]
+ debug = false
+ ticket_lifetime = 36000
+ renew_lifetime = 36000
+ forwardable = true
+ krb4_convert = false
+"
+
+test Krb5.lns get pam_str =
+ { "pam"
+ { "debug" = "false" }
+ { "ticket_lifetime" = "36000" }
+ { "renew_lifetime" = "36000" }
+ { "forwardable" = "true" }
+ { "krb4_convert" = "false" } }
+
+(* Ticket #274 - multiple *enctypes values *)
+let multiple_enctypes = "[libdefaults]
+permitted_enctypes = arcfour-hmac-md5 arcfour-hmac des3-cbc-sha1 des-cbc-md5 des-cbc-crc aes128-cts
+default_tgs_enctypes = des3-cbc-sha1 des-cbc-md5
+default_tkt_enctypes = des-cbc-md5
+"
+
+test Krb5.lns get multiple_enctypes =
+ { "libdefaults"
+ { "permitted_enctypes" = "arcfour-hmac-md5" }
+ { "permitted_enctypes" = "arcfour-hmac" }
+ { "permitted_enctypes" = "des3-cbc-sha1" }
+ { "permitted_enctypes" = "des-cbc-md5" }
+ { "permitted_enctypes" = "des-cbc-crc" }
+ { "permitted_enctypes" = "aes128-cts" }
+ { "#eol" }
+ { "default_tgs_enctypes" = "des3-cbc-sha1" }
+ { "default_tgs_enctypes" = "des-cbc-md5" }
+ { "#eol" }
+ { "default_tkt_enctypes" = "des-cbc-md5" }
+ { "#eol" }
+ }
+
+(* Ticket #274 - v4_name_convert subsection *)
+let v4_name_convert = "[realms]
+ EXAMPLE.COM = {
+ kdc = kerberos.example.com:88
+ admin_server = kerberos.example.com:749
+ default_domain = example.com
+ ticket_lifetime = 12h
+ v4_name_convert = {
+ host = {
+ rcmd = host
+ }
+ }
+ }
+"
+
+test Krb5.lns get v4_name_convert =
+ { "realms"
+ { "realm" = "EXAMPLE.COM"
+ { "kdc" = "kerberos.example.com:88" }
+ { "admin_server" = "kerberos.example.com:749" }
+ { "default_domain" = "example.com" }
+ { "ticket_lifetime" = "12h" }
+ { "v4_name_convert"
+ { "host"
+ { "rcmd" = "host" }
+ }
+ }
+ }
+ }
+
+(* Ticket #288: semicolons for comments *)
+test Krb5.lns get "; AD : This Kerberos configuration is for CERN's Active Directory realm.\n" =
+ { "#comment" = "AD : This Kerberos configuration is for CERN's Active Directory realm." }
+
+(* RHBZ#1066419: braces in values *)
+test Krb5.lns get "[libdefaults]\n
+default_ccache_name = KEYRING:persistent:%{uid}\n" =
+ { "libdefaults"
+ { }
+ { "default_ccache_name" = "KEYRING:persistent:%{uid}" } }
+
+(* Include(dir) tests *)
+let include_test = "include /etc/krb5.other_conf.d/other.conf
+includedir /etc/krb5.conf.d/
+"
+
+test Krb5.lns get include_test =
+ { "include" = "/etc/krb5.other_conf.d/other.conf" }
+ { "includedir" = "/etc/krb5.conf.d/" }
+
+let include2_test = "[logging]
+ default = FILE:/var/log/krb5libs.log
+
+include /etc/krb5.other_conf.d/other.conf
+
+includedir /etc/krb5.conf.d/
+"
+
+test Krb5.lns get include2_test =
+ { "logging"
+ { "default"
+ { "file" = "/var/log/krb5libs.log" } }
+ { }
+ }
+ { "include" = "/etc/krb5.other_conf.d/other.conf" }
+ { }
+ { "includedir" = "/etc/krb5.conf.d/" }
+
+(* [dbmodules] test *)
+let dbmodules_test = "[dbmodules]
+ ATHENA.MIT.EDU = {
+ disable_last_success = true
+ }
+ db_module_dir = /some/path
+"
+
+test Krb5.lns get dbmodules_test =
+ { "dbmodules"
+ { "realm" = "ATHENA.MIT.EDU"
+ { "disable_last_success" = "true" }
+ }
+ { "db_module_dir" = "/some/path" }
+ }
+
+(* [plugins] test *)
+let plugins_test = "[plugins]
+ clpreauth = {
+ module = mypreauth:/path/to/mypreauth.so
+ }
+ ccselect = {
+ disable = k5identity
+ }
+ pwqual = {
+ module = mymodule:/path/to/mymodule.so
+ module = mymodule2:/path/to/mymodule2.so
+ enable_only = mymodule
+ }
+ kadm5_hook = {
+ }
+"
+
+test Krb5.lns get plugins_test =
+ { "plugins"
+ { "clpreauth"
+ { "module" = "mypreauth:/path/to/mypreauth.so" }
+ }
+ { "ccselect"
+ { "disable" = "k5identity" }
+ }
+ { "pwqual"
+ { "module" = "mymodule:/path/to/mymodule.so" }
+ { "module" = "mymodule2:/path/to/mymodule2.so" }
+ { "enable_only" = "mymodule" }
+ }
+ { "kadm5_hook"
+ }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_ldap.aug b/Sharp.Augeas.Test/lens/tests/test_ldap.aug
new file mode 100644
index 0000000..a284204
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_ldap.aug
@@ -0,0 +1,20 @@
+module Test_ldap =
+
+let conf = "host 127.0.0.1
+
+# The distinguished name of the search base.
+base dc=example,dc=com
+#tls_key
+ssl no
+pam_password md5
+"
+
+test Spacevars.simple_lns get conf =
+ { "host" = "127.0.0.1" }
+ {}
+ { "#comment" = "The distinguished name of the search base." }
+ { "base" = "dc=example,dc=com" }
+ { "#comment" = "tls_key" }
+ { "ssl" = "no" }
+ { "pam_password" = "md5" }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_ldif.aug b/Sharp.Augeas.Test/lens/tests/test_ldif.aug
new file mode 100644
index 0000000..e7c220b
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_ldif.aug
@@ -0,0 +1,150 @@
+(* Test for LDIF lens *)
+module Test_ldif =
+
+ (* Test LDIF content only *)
+ let content = "version: 1
+dn: cn=foo bar,dc=example,dc=com
+# test
+ou: example value
+cn:: Zm9vIGJhcg==
+# test
+telephoneNumber;foo;bar: +1 123 456 789
+binary;foo:< file:///file/something
+# test
+
+dn: cn=simple,dc=example,dc=com
+cn: simple
+test: split line starts with
+ :colon
+
+dn:: Y249c2ltcGxlLGRjPWV4YW1wbGUsZGM9Y29t
+# test
+cn: simple
+
+dn: cn=simple,dc=exam
+ ple,dc=com
+cn: simple
+telephoneNumber:: KzEgMTIzIDQ1
+ NiA3ODk=
+
+# test
+"
+
+ test Ldif.lns get content =
+ { "@content"
+ { "version" = "1" }
+ { "1" = "cn=foo bar,dc=example,dc=com"
+ { "#comment" = "test" }
+ { "ou" = "example value" }
+ { "cn"
+ { "@base64" = "Zm9vIGJhcg==" } }
+ { "#comment" = "test" }
+ { "telephoneNumber" = "+1 123 456 789"
+ { "@option" = "foo" }
+ { "@option" = "bar" } }
+ { "binary"
+ { "@option" = "foo" }
+ { "@url" = "file:///file/something" } } }
+ { "#comment" = "test" }
+ {}
+ { "2" = "cn=simple,dc=example,dc=com"
+ { "cn" = "simple" }
+ { "test" = "split line starts with
+ :colon" } }
+ {}
+ { "3"
+ { "@base64" = "Y249c2ltcGxlLGRjPWV4YW1wbGUsZGM9Y29t" }
+ { "#comment" = "test" }
+ { "cn" = "simple" } }
+ {}
+ { "4" = "cn=simple,dc=exam
+ ple,dc=com"
+ { "cn" = "simple" }
+ { "telephoneNumber"
+ { "@base64" = "KzEgMTIzIDQ1
+ NiA3ODk=" } } }
+ {}
+ { "#comment" = "test" }
+ }
+
+ (* Test LDIF changes *)
+ let changes = "version: 1
+dn: cn=foo,dc=example,dc=com
+changetype: delete
+
+dn: cn=simple,dc=example,dc=com
+control: 1.2.3.4
+control: 1.2.3.4 true
+# test
+control: 1.2.3.4 true: foo bar
+control: 1.2.3.4 true:: Zm9vIGJhcg==
+changetype: add
+cn: simple
+
+dn: cn=foo bar,dc=example,dc=com
+changeType: modify
+add: telephoneNumber
+telephoneNumber: +1 123 456 789
+-
+replace: homePostalAddress;lang-fr
+homePostalAddress;lang-fr: 34 rue de Seine
+# test
+-
+delete: telephoneNumber
+-
+replace: telephoneNumber
+telephoneNumber:: KzEgMTIzIDQ1NiA3ODk=
+-
+
+dn: cn=foo,dc=example,dc=com
+changetype: moddn
+newrdn: cn=bar
+deleteoldrdn: 0
+newsuperior: dc=example,dc=net
+"
+
+ test Ldif.lns get changes =
+ { "@changes"
+ { "version" = "1" }
+ { "1" = "cn=foo,dc=example,dc=com"
+ { "changetype" = "delete" } }
+ {}
+ { "2" = "cn=simple,dc=example,dc=com"
+ { "control" = "1.2.3.4" }
+ { "control" = "1.2.3.4"
+ { "criticality" = "true" } }
+ { "#comment" = "test" }
+ { "control" = "1.2.3.4"
+ { "criticality" = "true" }
+ { "value" = "foo bar" } }
+ { "control" = "1.2.3.4"
+ { "criticality" = "true" }
+ { "value"
+ { "@base64" = "Zm9vIGJhcg==" } } }
+ { "changetype" = "add" }
+ { "cn" = "simple" } }
+ {}
+ { "3" = "cn=foo bar,dc=example,dc=com"
+ { "changeType" = "modify" }
+ { "add" = "telephoneNumber"
+ { "telephoneNumber" = "+1 123 456 789" } }
+ { "replace" = "homePostalAddress"
+ { "@option" = "lang-fr" }
+ { "homePostalAddress" = "34 rue de Seine"
+ { "@option" = "lang-fr" } }
+ { "#comment" = "test" } }
+ { "delete" = "telephoneNumber" }
+ { "replace" = "telephoneNumber"
+ { "telephoneNumber"
+ { "@base64" = "KzEgMTIzIDQ1NiA3ODk=" } } } }
+ {}
+ { "4" = "cn=foo,dc=example,dc=com"
+ { "changetype" = "moddn" }
+ { "newrdn" = "cn=bar" }
+ { "deleteoldrdn" = "0" }
+ { "newsuperior" = "dc=example,dc=net" } }
+ }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_ldso.aug b/Sharp.Augeas.Test/lens/tests/test_ldso.aug
new file mode 100644
index 0000000..70ee07d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_ldso.aug
@@ -0,0 +1,26 @@
+(*
+Module: Test_Ldso
+ Provides unit tests and examples for the <Ldso> lens.
+*)
+
+module Test_Ldso =
+
+(* Variable: conf *)
+let conf = "include /etc/ld.so.conf.d/*.conf
+
+# libc default configuration
+/usr/local/lib
+
+hwcap 1 nosegneg
+"
+
+(* Test: Ldso.lns *)
+test Ldso.lns get conf =
+ { "include" = "/etc/ld.so.conf.d/*.conf" }
+ { }
+ { "#comment" = "libc default configuration" }
+ { "path" = "/usr/local/lib" }
+ { }
+ { "hwcap"
+ { "bit" = "1" }
+ { "name" = "nosegneg" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_lightdm.aug b/Sharp.Augeas.Test/lens/tests/test_lightdm.aug
new file mode 100644
index 0000000..90f3b47
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_lightdm.aug
@@ -0,0 +1,125 @@
+(*
+Module: Test_Lightdm
+ Module to test Lightdm module for Augeas
+
+Author: David Salmen <dsalmen@dsalmen.com>
+
+About: License
+ This file is licenced under the LGPL v2+, like the rest of Augeas.
+*)
+
+module Test_lightdm =
+
+ let conf_lightdm = "
+[SeatDefaults]
+greeter-session=unity-greeter
+user-session=ubuntu
+"
+
+ test Lightdm.lns get conf_lightdm =
+ {}
+ { "SeatDefaults"
+ { "greeter-session" = "unity-greeter" }
+ { "user-session" = "ubuntu" }
+ }
+
+ test Lightdm.lns put conf_lightdm after
+ set "SeatDefaults/allow-guest" "false"
+ = "
+[SeatDefaults]
+greeter-session=unity-greeter
+user-session=ubuntu
+allow-guest=false
+"
+
+ test Lightdm.lns put conf_lightdm after
+ set "SeatDefaults/allow-guest" "true"
+ = "
+[SeatDefaults]
+greeter-session=unity-greeter
+user-session=ubuntu
+allow-guest=true
+"
+
+ let conf_unity_greeter = "
+#
+# background = Background file to use, either an image path or a color (e.g. #772953)
+# logo = Logo file to use
+# theme-name = GTK+ theme to use
+# font-name = Font to use
+# xft-antialias = Whether to antialias Xft fonts (true or false)
+# xft-dpi = Resolution for Xft in dots per inch (e.g. 96)
+# xft-hintstyle = What degree of hinting to use (hintnone, hintslight, hintmedium, or hintfull)
+# xft-rgba = Type of subpixel antialiasing (none, rgb, bgr, vrgb or vbgr)
+#
+[greeter]
+background=/usr/share/backgrounds/warty-final-ubuntu.png
+logo=/usr/share/unity-greeter/logo.png
+theme-name=Ambiance
+icon-theme-name=ubuntu-mono-dark
+font-name=Ubuntu 11
+xft-antialias=true
+xft-dpi=96
+xft-hintstyle=hintslight
+xft-rgba=rgb
+"
+
+ test Lightdm.lns get conf_unity_greeter =
+ {}
+ {}
+ { "#comment" = "background = Background file to use, either an image path or a color (e.g. #772953)" }
+ { "#comment" = "logo = Logo file to use" }
+ { "#comment" = "theme-name = GTK+ theme to use" }
+ { "#comment" = "font-name = Font to use" }
+ { "#comment" = "xft-antialias = Whether to antialias Xft fonts (true or false)" }
+ { "#comment" = "xft-dpi = Resolution for Xft in dots per inch (e.g. 96)" }
+ { "#comment" = "xft-hintstyle = What degree of hinting to use (hintnone, hintslight, hintmedium, or hintfull)" }
+ { "#comment" = "xft-rgba = Type of subpixel antialiasing (none, rgb, bgr, vrgb or vbgr)" }
+ {}
+ { "greeter"
+ { "background" = "/usr/share/backgrounds/warty-final-ubuntu.png" }
+ { "logo" = "/usr/share/unity-greeter/logo.png" }
+ { "theme-name" = "Ambiance" }
+ { "icon-theme-name" = "ubuntu-mono-dark" }
+ { "font-name" = "Ubuntu 11" }
+ { "xft-antialias" = "true" }
+ { "xft-dpi" = "96" }
+ { "xft-hintstyle" = "hintslight" }
+ { "xft-rgba" = "rgb" }
+ }
+
+ let conf_users = "
+#
+# User accounts configuration
+#
+# NOTE: If you have AccountsService installed on your system, then LightDM will
+# use this instead and these settings will be ignored
+#
+# minimum-uid = Minimum UID required to be shown in greeter
+# hidden-users = Users that are not shown to the user
+# hidden-shells = Shells that indicate a user cannot login
+#
+[UserAccounts]
+minimum-uid=500
+hidden-users=nobody nobody4 noaccess
+hidden-shells=/bin/false /usr/sbin/nologin
+"
+
+ test Lightdm.lns get conf_users =
+ {}
+ {}
+ { "#comment" = "User accounts configuration" }
+ {}
+ { "#comment" = "NOTE: If you have AccountsService installed on your system, then LightDM will" }
+ { "#comment" = "use this instead and these settings will be ignored" }
+ {}
+ { "#comment" = "minimum-uid = Minimum UID required to be shown in greeter" }
+ { "#comment" = "hidden-users = Users that are not shown to the user" }
+ { "#comment" = "hidden-shells = Shells that indicate a user cannot login" }
+ {}
+ { "UserAccounts"
+ { "minimum-uid" = "500" }
+ { "hidden-users" = "nobody nobody4 noaccess" }
+ { "hidden-shells" = "/bin/false /usr/sbin/nologin" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_limits.aug b/Sharp.Augeas.Test/lens/tests/test_limits.aug
new file mode 100644
index 0000000..dd96ec5
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_limits.aug
@@ -0,0 +1,44 @@
+module Test_limits =
+
+ let conf = "@audio - rtprio 99
+ftp hard nproc /ftp
+1200:2000 - as 1024
+* soft core 0
+"
+
+ test Limits.lns get conf =
+ { "domain" = "@audio"
+ { "type" = "-" }
+ { "item" = "rtprio" }
+ { "value" = "99" } }
+ { "domain" = "ftp"
+ { "type" = "hard" }
+ { "item" = "nproc" }
+ { "value" = "/ftp" } }
+ { "domain" = "1200:2000"
+ { "type" = "-" }
+ { "item" = "as" }
+ { "value" = "1024" } }
+ { "domain" = "*"
+ { "type" = "soft" }
+ { "item" = "core" }
+ { "value" = "0" } }
+
+ test Limits.lns put conf after
+ insa "domain" "domain[last()]" ;
+ set "domain[last()]" "*" ;
+ set "domain[last()]/type" "-" ;
+ set "domain[last()]/item" "nofile" ;
+ set "domain[last()]/value" "4096"
+ = "@audio - rtprio 99
+ftp hard nproc /ftp
+1200:2000 - as 1024
+* soft core 0
+* - nofile 4096\n"
+
+ test Limits.lns get "* soft core 0 # clever comment\n" =
+ { "domain" = "*"
+ { "type" = "soft" }
+ { "item" = "core" }
+ { "value" = "0" }
+ { "#comment" = "clever comment" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_login_defs.aug b/Sharp.Augeas.Test/lens/tests/test_login_defs.aug
new file mode 100644
index 0000000..00d7ce8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_login_defs.aug
@@ -0,0 +1,26 @@
+(*
+Module: Test_login_defs
+ Test cases for the login_defs lense
+
+Author: Erinn Looney-Triggs
+
+About: License
+ This file is licensed under the LGPLv2+, like the rest of Augeas.
+*)
+module Test_login_defs =
+
+let record = "MAIL_DIR /var/spool/mail
+ENCRYPT_METHOD SHA512
+UMASK 077
+"
+
+test Login_defs.lns get record =
+ { "MAIL_DIR" = "/var/spool/mail" }
+ { "ENCRYPT_METHOD" = "SHA512" }
+ { "UMASK" = "077" }
+
+let comment ="# *REQUIRED*
+"
+
+test Login_defs.lns get comment =
+ {"#comment" = "*REQUIRED*"}
diff --git a/Sharp.Augeas.Test/lens/tests/test_logrotate.aug b/Sharp.Augeas.Test/lens/tests/test_logrotate.aug
new file mode 100644
index 0000000..00ba23b
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_logrotate.aug
@@ -0,0 +1,290 @@
+module Test_logrotate =
+
+test Logrotate.body get "\n{\n monthly\n}" =
+ { "schedule" = "monthly" }
+
+test Logrotate.rule get "/var/log/foo\n{\n monthly\n}\n" =
+ { "rule"
+ { "file" = "/var/log/foo" }
+ { "schedule" = "monthly" } }
+
+test Logrotate.rule get "/var/log/foo /var/log/bar\n{\n monthly\n}\n" =
+ { "rule"
+ { "file" = "/var/log/foo" }
+ { "file" = "/var/log/bar" }
+ { "schedule" = "monthly" } }
+
+test Logrotate.rule get "\"/var/log/foo\"\n{\n monthly\n}\n" =
+ { "rule"
+ { "file" = "/var/log/foo" }
+ { "schedule" = "monthly" } }
+
+let conf = "# see man logrotate for details
+# rotate log files weekly
+weekly
+
+# keep 4 weeks worth of backlogs
+rotate 4
+
+# create new (empty) log files after rotating old ones
+create
+
+# uncomment this if you want your log files compressed
+#compress
+
+tabooext + .old .orig .ignore
+
+# packages drop log rotation information into this directory
+include /etc/logrotate.d
+
+# no packages own wtmp, or btmp -- we'll rotate them here
+/var/log/wtmp
+/var/log/wtmp2
+{
+ missingok
+ monthly
+ create 0664 root utmp
+ rotate 1
+}
+
+/var/log/btmp /var/log/btmp* {
+ missingok
+ # ftpd doesn't handle SIGHUP properly
+ monthly
+ create 0664 root utmp
+ rotate 1
+}
+/var/log/vsftpd.log {
+ # ftpd doesn't handle SIGHUP properly
+ nocompress
+ missingok
+ notifempty
+ rotate 4
+ weekly
+}
+
+/var/log/apache2/*.log {
+ weekly
+ missingok
+ rotate 52
+ compress
+ delaycompress
+ notifempty
+ create 640 root adm
+ sharedscripts
+ prerotate
+ if [ -f /var/run/apache2.pid ]; then
+ /etc/init.d/apache2 restart > /dev/null
+ fi
+ endscript
+}
+/var/log/mailman/digest {
+ su root list
+ monthly
+ missingok
+ create 0664 list list
+ rotate 4
+ compress
+ delaycompress
+ sharedscripts
+ postrotate
+ [ -f '/var/run/mailman/mailman.pid' ] && /usr/lib/mailman/bin/mailmanctl -q reopen || exit 0
+ endscript
+}
+/var/log/ntp {
+ compress
+ dateext
+ maxage 365
+ rotate 99
+ size=+2048k
+ notifempty
+ missingok
+ copytruncate
+ postrotate
+ chmod 644 /var/log/ntp
+ endscript
+}
+"
+
+test Logrotate.lns get conf =
+ { "#comment" = "see man logrotate for details" }
+ { "#comment" = "rotate log files weekly" }
+ { "schedule" = "weekly" }
+ {}
+ { "#comment" = "keep 4 weeks worth of backlogs" }
+ { "rotate" = "4" }
+ {}
+ { "#comment" = "create new (empty) log files after rotating old ones" }
+ { "create" }
+ {}
+ { "#comment" = "uncomment this if you want your log files compressed" }
+ { "#comment" = "compress" }
+ {}
+ { "tabooext" = "+" { ".old" } { ".orig" } { ".ignore" } }
+ {}
+ { "#comment" = "packages drop log rotation information into this directory" }
+ { "include" = "/etc/logrotate.d" }
+ {}
+ { "#comment" = "no packages own wtmp, or btmp -- we'll rotate them here" }
+ { "rule"
+ { "file" = "/var/log/wtmp" }
+ { "file" = "/var/log/wtmp2" }
+ { "missingok" = "missingok" }
+ { "schedule" = "monthly" }
+ { "create"
+ { "mode" = "0664" }
+ { "owner" = "root" }
+ { "group" = "utmp" } }
+ { "rotate" = "1" } }
+ {}
+ { "rule"
+ { "file" = "/var/log/btmp" }
+ { "file" = "/var/log/btmp*" }
+ { "missingok" = "missingok" }
+ { "#comment" = "ftpd doesn't handle SIGHUP properly" }
+ { "schedule" = "monthly" }
+ { "create"
+ { "mode" = "0664" }
+ { "owner" = "root" }
+ { "group" = "utmp" } }
+ { "rotate" = "1" } }
+ { "rule"
+ { "file" = "/var/log/vsftpd.log" }
+ { "#comment" = "ftpd doesn't handle SIGHUP properly" }
+ { "compress" = "nocompress" }
+ { "missingok" = "missingok" }
+ { "ifempty" = "notifempty" }
+ { "rotate" = "4" }
+ { "schedule" = "weekly" } }
+ {}
+ { "rule"
+ { "file" = "/var/log/apache2/*.log" }
+ { "schedule" = "weekly" }
+ { "missingok" = "missingok" }
+ { "rotate" = "52" }
+ { "compress" = "compress" }
+ { "delaycompress" = "delaycompress" }
+ { "ifempty" = "notifempty" }
+ { "create"
+ { "mode" = "640" }
+ { "owner" = "root" }
+ { "group" = "adm" } }
+ { "sharedscripts" = "sharedscripts" }
+ { "prerotate" = " if [ -f /var/run/apache2.pid ]; then
+ /etc/init.d/apache2 restart > /dev/null
+ fi" } }
+ { "rule"
+ { "file" = "/var/log/mailman/digest" }
+ { "su"
+ { "owner" = "root" }
+ { "group" = "list" } }
+ { "schedule" = "monthly" }
+ { "missingok" = "missingok" }
+ { "create"
+ { "mode" = "0664" }
+ { "owner" = "list" }
+ { "group" = "list" } }
+ { "rotate" = "4" }
+ { "compress" = "compress" }
+ { "delaycompress" = "delaycompress" }
+ { "sharedscripts" = "sharedscripts" }
+ { "postrotate" = " [ -f '/var/run/mailman/mailman.pid' ] && /usr/lib/mailman/bin/mailmanctl -q reopen || exit 0" } }
+ { "rule"
+ { "file" = "/var/log/ntp" }
+ { "compress" = "compress" }
+ { "dateext" = "dateext" }
+ { "maxage" = "365" }
+ { "rotate" = "99" }
+ { "size" = "+2048k" }
+ { "ifempty" = "notifempty" }
+ { "missingok" = "missingok" }
+ { "copytruncate" = "copytruncate" }
+ { "postrotate" = " chmod 644 /var/log/ntp" } }
+
+test Logrotate.lns get "/var/log/file {\n dateext\n}\n" =
+ { "rule"
+ { "file" = "/var/log/file" }
+ { "dateext" = "dateext" } }
+
+ (* Make sure 'minsize 1M' works *)
+test Logrotate.lns get "/avr/log/wtmp {\n minsize 1M\n}\n" =
+ { "rule"
+ { "file" = "/avr/log/wtmp" }
+ { "minsize" = "1M" } }
+
+ (* '=' is a legal separator, file names can be indented *)
+test Logrotate.lns get " \t /file {\n size=5M\n}\n" =
+ { "rule"
+ { "file" = "/file" }
+ { "size" = "5M" } }
+
+ (* Can leave owner/group off a create statement *)
+test Logrotate.lns get "/file {
+ create 600\n}\n" =
+ { "rule"
+ { "file" = "/file" }
+ { "create"
+ { "mode" = "600" } } }
+
+test Logrotate.lns put "/file {\n create 600\n}\n" after
+ set "/rule/create/owner" "user"
+ = "/file {\n create 600 user\n}\n"
+
+ (* The newline at the end of a script is optional *)
+test Logrotate.lns put "/file {\n size=5M\n}\n" after
+ set "/rule/prerotate" "\tfoobar"
+ =
+"/file {
+ size=5M
+\tprerotate
+\tfoobar
+\tendscript\n}\n"
+
+test Logrotate.lns put "/file {\n size=5M\n}\n" after
+ set "/rule/prerotate" "\tfoobar\n"
+ =
+"/file {
+ size=5M
+\tprerotate
+\tfoobar\n
+\tendscript\n}\n"
+
+(* Bug #101: whitespace at the end of the line *)
+test Logrotate.lns get "/file {\n missingok \t\n}\n" =
+ { "rule"
+ { "file" = "/file" }
+ { "missingok" = "missingok" } }
+
+(* Bug #104: file names can be separated by newlines *)
+let conf2 = "/var/log/mail.info
+/var/log/mail.warn
+/var/log/mail.err
+{
+ weekly
+}
+"
+test Logrotate.lns get conf2 =
+ { "rule"
+ { "file" = "/var/log/mail.info" }
+ { "file" = "/var/log/mail.warn" }
+ { "file" = "/var/log/mail.err" }
+ { "schedule" = "weekly" } }
+
+(* Issue #217: support for dateformat *)
+let dateformat = "dateformat -%Y%m%d\n"
+
+test Logrotate.lns get dateformat =
+ { "dateformat" = "-%Y%m%d" }
+
+(* Issue #123: no space before '{' *)
+test Logrotate.lns get "/file{\n missingok \t\n}\n" =
+ { "rule"
+ { "file" = "/file" }
+ { "missingok" = "missingok" } }
+
+(* RHBZ#1213292: maxsize 30k *)
+test Logrotate.lns get "/var/log/yum.log {\n maxsize 30k\n}\n" =
+ { "rule"
+ { "file" = "/var/log/yum.log" }
+ { "maxsize" = "30k" } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_logwatch.aug b/Sharp.Augeas.Test/lens/tests/test_logwatch.aug
new file mode 100644
index 0000000..f2ba806
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_logwatch.aug
@@ -0,0 +1,15 @@
+module Test_logwatch =
+
+let conf = "# Configuration file for logwatch.
+#
+#Mailto_host1 = user@example.com
+
+MailFrom = root@example.com
+"
+
+test Logwatch.lns get conf =
+ { "#comment" = "Configuration file for logwatch." }
+ {}
+ { "#comment" = "Mailto_host1 = user@example.com" }
+ {}
+ { "MailFrom" = "root@example.com" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_lokkit.aug b/Sharp.Augeas.Test/lens/tests/test_lokkit.aug
new file mode 100644
index 0000000..c197687
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_lokkit.aug
@@ -0,0 +1,88 @@
+module Test_lokkit =
+
+let conf = "# Configuration file for system-config-firewall
+
+--enabled
+--port=111:tcp
+-p 111:udp
+-p 2020-2049:tcp
+--port=5900-5910:tcp
+--custom-rules=ipv4:filter:/var/lib/misc/iptables-forward-bridged
+-s dns
+--service=ssh
+--trust=trust1
+--masq=eth42
+--block-icmp=5
+-t trust0
+--addmodule=fancy
+--removemodule=broken
+--forward-port=if=forw0:port=42:proto=tcp:toport=42:toaddr=192.168.0.42
+--selinux=permissive
+"
+
+test Lokkit.lns get conf =
+ { "#comment" = "Configuration file for system-config-firewall" }
+ { }
+ { "enabled" }
+ { "port"
+ { "start" = "111" }
+ { "protocol" = "tcp" } }
+ { "port"
+ { "start" = "111" }
+ { "protocol" = "udp" } }
+ { "port"
+ { "start" = "2020" }
+ { "end" = "2049" }
+ { "protocol" = "tcp" } }
+ { "port"
+ { "start" = "5900" }
+ { "end" = "5910" }
+ { "protocol" = "tcp" } }
+ { "custom-rules" = "/var/lib/misc/iptables-forward-bridged"
+ { "type" = "ipv4" }
+ { "table" = "filter" } }
+ { "service" = "dns" }
+ { "service" = "ssh" }
+ { "trust" = "trust1" }
+ { "masq" = "eth42" }
+ { "block-icmp" = "5" }
+ { "trust" = "trust0" }
+ { "addmodule" = "fancy" }
+ { "removemodule" = "broken" }
+ { "forward-port"
+ { "if" = "forw0" }
+ { "port" = "42" }
+ { "proto" = "tcp" }
+ { "toport" = "42" }
+ { "toaddr" = "192.168.0.42" } }
+ { "selinux" = "permissive" }
+
+test Lokkit.custom_rules get
+"--custom-rules=ipv4:filter:/some/file\n" =
+ { "custom-rules" = "/some/file"
+ { "type" = "ipv4" }
+ { "table" = "filter" } }
+
+test Lokkit.custom_rules get
+"--custom-rules=filter:/some/file\n" =
+ { "custom-rules" = "/some/file"
+ { "table" = "filter" } }
+
+test Lokkit.custom_rules get
+"--custom-rules=ipv4:/some/file\n" =
+ { "custom-rules" = "/some/file"
+ { "type" = "ipv4" } }
+
+test Lokkit.custom_rules get
+"--custom-rules=/some/file\n" =
+ { "custom-rules" = "/some/file" }
+
+test Lokkit.lns get
+"--trust=tun+\n--trust=eth0.42\n--trust=eth0:1\n" =
+ { "trust" = "tun+" }
+ { "trust" = "eth0.42" }
+ { "trust" = "eth0:1" }
+
+(* We didn't allow '-' in the service name *)
+test Lokkit.lns get "--service=samba-client\n" =
+ { "service" = "samba-client" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_lvm.aug b/Sharp.Augeas.Test/lens/tests/test_lvm.aug
new file mode 100644
index 0000000..8ee2377
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_lvm.aug
@@ -0,0 +1,253 @@
+(*
+Module: Test_LVM
+ Provides unit tests and examples for the <LVM> lens.
+*)
+
+module Test_LVM =
+
+(* Variable: conf
+ A full configuration file *)
+let conf = "# Generated by LVM2: date
+
+contents = \"Text Format Volume Group\"
+version = 1
+
+description = \"Created *after* executing 'eek'\"
+
+creation_host = \"eek\" # Linux eek
+creation_time = 6666666666 # eeeek
+
+VG1 {
+ id = \"uuid-uuid-uuid-uuid\"
+ seqno = 2
+ status = [\"RESIZEABLE\", \"READ\", \"WRITE\"]
+ extent_size = 8192 # 4 Megabytes
+ max_lv = 0
+ max_pv = 0
+ process_priority = -18
+
+ physical_volumes {
+ pv0 {
+ id = \"uuid-uuid-uuid-uuid\"
+ device = \"/dev/sda6\" # Hint only
+
+ status = [\"ALLOCATABLE\"]
+ pe_start = 123
+ pe_count = 123456 # many Gigabytes
+ }
+ }
+
+ logical_volumes {
+ LogicalEek {
+ id = \"uuid-uuid-uuid-uuid\"
+ status = [\"READ\", \"WRITE\", \"VISIBLE\"]
+ segment_count = 1
+
+ segment1 {
+ start_extent = 0
+ extent_count = 123456 # beaucoup Gigabytes
+
+ type = \"striped\"
+ stripe_count = 1 # linear
+
+ stripes = [
+ \"pv0\", 0
+ ]
+ }
+ }
+ }
+}
+"
+
+test LVM.int get "5" = { "int" = "5" }
+test LVM.str get "\"abc\"" = { "str" = "abc"}
+test LVM.lns get "\n" = {}
+test LVM.lns get "#foo\n" = { "#comment" = "foo"}
+
+test LVM.lns get "# Generated by LVM2: date
+
+contents = \"Text Format Volume Group\"
+version = 1
+
+description = \"Created *after* executing 'eek'\"
+
+creation_host = \"eek\" # Linux eek
+creation_time = 6666666666 # eeeek\n" =
+ { "#comment" = "Generated by LVM2: date" }
+ {}
+ { "contents"
+ { "str" = "Text Format Volume Group" }
+ }
+ { "version"
+ { "int" = "1" }
+ }
+ {}
+ { "description"
+ { "str" = "Created *after* executing 'eek'" }
+ }
+ {}
+ { "creation_host"
+ { "str" = "eek" }
+ { "#comment" = "Linux eek" }
+ }
+ { "creation_time"
+ { "int" = "6666666666" }
+ { "#comment" = "eeeek" }
+ }
+
+(* Test: LVM.lns
+ Test the full <conf> *)
+test LVM.lns get conf =
+ { "#comment" = "Generated by LVM2: date" }
+ {}
+ { "contents"
+ { "str" = "Text Format Volume Group" }
+ }
+ { "version"
+ { "int" = "1" }
+ }
+ {}
+ { "description"
+ { "str" = "Created *after* executing 'eek'" }
+ }
+ {}
+ { "creation_host"
+ { "str" = "eek" }
+ { "#comment" = "Linux eek" }
+ }
+ { "creation_time"
+ { "int" = "6666666666" }
+ { "#comment" = "eeeek" }
+ }
+ {}
+ { "VG1"
+ { "dict"
+ { "id"
+ { "str" = "uuid-uuid-uuid-uuid" }
+ }
+ { "seqno"
+ { "int" = "2" }
+ }
+ { "status"
+ { "list"
+ { "1"
+ { "str" = "RESIZEABLE" }
+ }
+ { "2"
+ { "str" = "READ" }
+ }
+ { "3"
+ { "str" = "WRITE" }
+ }
+ }
+ }
+ { "extent_size"
+ { "int" = "8192" }
+ { "#comment" = "4 Megabytes" }
+ }
+ { "max_lv"
+ { "int" = "0" }
+ }
+ { "max_pv"
+ { "int" = "0" }
+ }
+ { "process_priority"
+ { "int" = "-18" }
+ }
+ {}
+ { "physical_volumes"
+ { "dict"
+ { "pv0"
+ { "dict"
+ { "id"
+ { "str" = "uuid-uuid-uuid-uuid" }
+ }
+ { "device"
+ { "str" = "/dev/sda6" }
+ { "#comment" = "Hint only" }
+ }
+ {}
+ { "status"
+ { "list"
+ { "1"
+ { "str" = "ALLOCATABLE" }
+ }
+ }
+ }
+ { "pe_start"
+ { "int" = "123" }
+ }
+ { "pe_count"
+ { "int" = "123456" }
+ { "#comment" = "many Gigabytes" }
+ }
+ }
+ }
+ }
+ }
+ {}
+ { "logical_volumes"
+ { "dict"
+ { "LogicalEek"
+ { "dict"
+ { "id"
+ { "str" = "uuid-uuid-uuid-uuid" }
+ }
+ { "status"
+ { "list"
+ { "1"
+ { "str" = "READ" }
+ }
+ { "2"
+ { "str" = "WRITE" }
+ }
+ { "3"
+ { "str" = "VISIBLE" }
+ }
+ }
+ }
+ { "segment_count"
+ { "int" = "1" }
+ }
+ {}
+ { "segment1"
+ { "dict"
+ { "start_extent"
+ { "int" = "0" }
+ }
+ { "extent_count"
+ { "int" = "123456" }
+ { "#comment" = "beaucoup Gigabytes" }
+ }
+ {}
+ { "type"
+ { "str" = "striped" }
+ }
+ { "stripe_count"
+ { "int" = "1" }
+ { "#comment" = "linear" }
+ }
+ {}
+ { "stripes"
+ { "list"
+ { "1"
+ { "str" = "pv0" }
+ }
+ { "2"
+ { "int" = "0" }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+ }
+
+(* Parse description from RHEL 6 *)
+let descr="\"Created *before* executing '/sbin/vgs --noheadings -o name --config 'log{command_names=0 prefix=\\\" \\\"}''\""
+test LVM.str get descr =
+ { "str" = "Created *before* executing '/sbin/vgs --noheadings -o name --config 'log{command_names=0 prefix=\\\" \\\"}''" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_mailscanner.aug b/Sharp.Augeas.Test/lens/tests/test_mailscanner.aug
new file mode 100644
index 0000000..4c60e31
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_mailscanner.aug
@@ -0,0 +1,745 @@
+module Test_Mailscanner =
+
+let conf = "# Main configuration file for the MailScanner E-Mail Virus Scanner
+%org-name% = BARUWA
+%org-long-name% = BARUWA MAILFW
+%web-site% = www.baruwa.com
+%etc-dir% = /etc/MailScanner
+%reports-base% = /etc/MailScanner/reports
+%report-dir% = /etc/MailScanner/reports/en
+%rules-dir% = /etc/MailScanner/rules
+%mcp-dir% = /etc/MailScanner/mcp
+%spool-dir% = /var/spool/MailScanner
+%signature-dir% = /etc/MailScanner/baruwa/signatures
+%brules-dir% = /etc/MailScanner/baruwa/rules
+Max Children = 5
+Run As User = exim
+Run As Group = exim
+Queue Scan Interval = 6
+Incoming Queue Dir = /var/spool/exim.in/input
+Outgoing Queue Dir = /var/spool/exim/input
+Incoming Work Dir = %spool-dir%/incoming
+Quarantine Dir = %spool-dir%/quarantine
+PID file = /var/run/MailScanner/MailScanner.pid
+Restart Every = 7200
+MTA = exim
+Sendmail = /usr/sbin/exim -C /etc/exim/exim_out.conf
+Sendmail2 = /usr/sbin/exim -C /etc/exim/exim_out.conf
+Incoming Work User = exim
+Incoming Work Group = clam
+Incoming Work Permissions = 0640
+Quarantine User = exim
+Quarantine Group = baruwa
+Quarantine Permissions = 0660
+Max Unscanned Bytes Per Scan = 100m
+Max Unsafe Bytes Per Scan = 50m
+Max Unscanned Messages Per Scan = 30
+Max Unsafe Messages Per Scan = 30
+Max Normal Queue Size = 800
+Scan Messages = %rules-dir%/scan.messages.rules
+Reject Message = no
+Maximum Processing Attempts = 6
+Processing Attempts Database = %spool-dir%/incoming/Processing.db
+Maximum Attachments Per Message = 200
+Expand TNEF = yes
+Use TNEF Contents = replace
+Deliver Unparsable TNEF = no
+TNEF Expander = /usr/bin/tnef --maxsize=100000000
+TNEF Timeout = 120
+File Command = /usr/sbin/file-wrapper
+File Timeout = 20
+Gunzip Command = /bin/gunzip
+Gunzip Timeout = 50
+Unrar Command = /usr/bin/unrar
+Unrar Timeout = 50
+Find UU-Encoded Files = no
+Maximum Message Size = %brules-dir%/message.size.rules
+Maximum Attachment Size = -1
+Minimum Attachment Size = -1
+Maximum Archive Depth = 4
+Find Archives By Content = yes
+Unpack Microsoft Documents = yes
+Zip Attachments = no
+Attachments Zip Filename = MessageAttachments.zip
+Attachments Min Total Size To Zip = 100k
+Attachment Extensions Not To Zip = .zip .rar .gz .tgz .jpg .jpeg .mpg .mpe .mpeg .mp3 .rpm .htm .html .eml
+Add Text Of Doc = no
+Antiword = /usr/bin/antiword -f
+Antiword Timeout = 50
+Unzip Maximum Files Per Archive = 0
+Unzip Maximum File Size = 50k
+Unzip Filenames = *.txt *.ini *.log *.csv
+Unzip MimeType = text/plain
+Virus Scanning = %brules-dir%/virus.checks.rules
+Virus Scanners = auto
+Virus Scanner Timeout = 300
+Deliver Disinfected Files = no
+Silent Viruses = HTML-IFrame All-Viruses
+Still Deliver Silent Viruses = no
+Non-Forging Viruses = Joke/ OF97/ WM97/ W97M/ eicar
+Spam-Virus Header = X-%org-name%-BaruwaFW-SpamVirus-Report:
+Virus Names Which Are Spam = Sanesecurity.Spam*UNOFFICIAL HTML/* *Phish* *Suspected-phishing_safebrowsing*
+Block Encrypted Messages = no
+Block Unencrypted Messages = no
+Allow Password-Protected Archives = yes
+Check Filenames In Password-Protected Archives = yes
+Allowed Sophos Error Messages =
+Sophos IDE Dir = /opt/sophos-av/lib/sav
+Sophos Lib Dir = /opt/sophos-av/lib
+Monitors For Sophos Updates = /opt/sophos-av/lib/sav/*.ide
+Monitors for ClamAV Updates = /var/lib/clamav/*.cvd
+ClamAVmodule Maximum Recursion Level = 8
+ClamAVmodule Maximum Files = 1000
+ClamAVmodule Maximum File Size = 10000000
+ClamAVmodule Maximum Compression Ratio = 250
+Clamd Port = 3310
+Clamd Socket = /var/run/clamav/clamd.sock
+Clamd Lock File =
+Clamd Use Threads = no
+ClamAV Full Message Scan = yes
+Fpscand Port = 10200
+Dangerous Content Scanning = %rules-dir%/content.scanning.rules
+Allow Partial Messages = no
+Allow External Message Bodies = no
+Find Phishing Fraud = yes
+Also Find Numeric Phishing = yes
+Use Stricter Phishing Net = yes
+Highlight Phishing Fraud = yes
+Phishing Safe Sites File = %etc-dir%/phishing.safe.sites.conf
+Phishing Bad Sites File = %etc-dir%/phishing.bad.sites.conf
+Country Sub-Domains List = %etc-dir%/country.domains.conf
+Allow IFrame Tags = disarm
+Allow Form Tags = disarm
+Allow Script Tags = disarm
+Allow WebBugs = disarm
+Ignored Web Bug Filenames = spacer pixel.gif pixel.png gap
+Known Web Bug Servers = msgtag.com
+Web Bug Replacement = https://datafeeds.baruwa.com/1x1spacer.gif
+Allow Object Codebase Tags = disarm
+Convert Dangerous HTML To Text = no
+Convert HTML To Text = no
+Archives Are = zip rar ole
+Allow Filenames =
+Deny Filenames =
+Filename Rules = %rules-dir%/filename.rules
+Allow Filetypes =
+Allow File MIME Types =
+Deny Filetypes =
+Deny File MIME Types =
+Filetype Rules = %rules-dir%/filetype.rules
+Archives: Allow Filenames =
+Archives: Deny Filenames =
+Archives: Filename Rules = %etc-dir%/archives.filename.rules.conf
+Archives: Allow Filetypes =
+Archives: Allow File MIME Types =
+Archives: Deny Filetypes =
+Archives: Deny File MIME Types =
+Archives: Filetype Rules = %etc-dir%/archives.filetype.rules.conf
+Default Rename Pattern = __FILENAME__.disarmed
+Quarantine Infections = yes
+Quarantine Silent Viruses = no
+Quarantine Modified Body = no
+Quarantine Whole Message = yes
+Quarantine Whole Messages As Queue Files = no
+Keep Spam And MCP Archive Clean = yes
+Language Strings = %brules-dir%/languages.rules
+Rejection Report = %brules-dir%/rejectionreport.rules
+Deleted Bad Content Message Report = %brules-dir%/deletedcontentmessage.rules
+Deleted Bad Filename Message Report = %brules-dir%/deletedfilenamemessage.rules
+Deleted Virus Message Report = %brules-dir%/deletedvirusmessage.rules
+Deleted Size Message Report = %brules-dir%/deletedsizemessage.rules
+Stored Bad Content Message Report = %brules-dir%/storedcontentmessage.rules
+Stored Bad Filename Message Report = %brules-dir%/storedfilenamemessage.rules
+Stored Virus Message Report = %brules-dir%/storedvirusmessage.rules
+Stored Size Message Report = %brules-dir%/storedsizemessage.rules
+Disinfected Report = %brules-dir%/disinfectedreport.rules
+Inline HTML Signature = %brules-dir%/html.sigs.rules
+Inline Text Signature = %brules-dir%/text.sigs.rules
+Signature Image Filename = %brules-dir%/sig.imgs.names.rules
+Signature Image <img> Filename = %brules-dir%/sig.imgs.rules
+Inline HTML Warning = %brules-dir%/inlinewarninghtml.rules
+Inline Text Warning = %brules-dir%/inlinewarningtxt.rules
+Sender Content Report = %brules-dir%/sendercontentreport.rules
+Sender Error Report = %brules-dir%/sendererrorreport.rules
+Sender Bad Filename Report = %brules-dir%/senderfilenamereport.rules
+Sender Virus Report = %brules-dir%/sendervirusreport.rules
+Sender Size Report = %brules-dir%/sendersizereport.rules
+Hide Incoming Work Dir = yes
+Include Scanner Name In Reports = yes
+Mail Header = X-%org-name%-BaruwaFW:
+Spam Header = X-%org-name%-BaruwaFW-SpamCheck:
+Spam Score Header = X-%org-name%-BaruwaFW-SpamScore:
+Information Header = X-%org-name%-BaruwaFW-Information:
+Add Envelope From Header = yes
+Add Envelope To Header = no
+Envelope From Header = X-BARUWA-BaruwaFW-From:
+Envelope To Header = X-%org-name%-BaruwaFW-To:
+ID Header = X-%org-name%-BaruwaFW-ID:
+IP Protocol Version Header =
+Spam Score Character = s
+SpamScore Number Instead Of Stars = no
+Minimum Stars If On Spam List = 0
+Clean Header Value = Found to be clean
+Infected Header Value = Found to be infected
+Disinfected Header Value = Disinfected
+Information Header Value = Please contact %org-long-name% for more information
+Detailed Spam Report = yes
+Include Scores In SpamAssassin Report = yes
+Always Include SpamAssassin Report = no
+Multiple Headers = add
+Place New Headers At Top Of Message = yes
+Hostname = the %org-name% ($HOSTNAME) Baruwa
+Sign Messages Already Processed = no
+Sign Clean Messages = %brules-dir%/sign.clean.msgs.rules
+Attach Image To Signature = yes
+Attach Image To HTML Message Only = yes
+Allow Multiple HTML Signatures = no
+Dont Sign HTML If Headers Exist =
+Mark Infected Messages = yes
+Mark Unscanned Messages = no
+Unscanned Header Value = Not scanned: please contact %org-long-name% for details
+Remove These Headers = X-Mozilla-Status: X-Mozilla-Status2:
+Deliver Cleaned Messages = yes
+Notify Senders = no
+Notify Senders Of Viruses = no
+Notify Senders Of Blocked Filenames Or Filetypes = no
+Notify Senders Of Blocked Size Attachments = no
+Notify Senders Of Other Blocked Content = no
+Never Notify Senders Of Precedence = list bulk
+Scanned Modify Subject = no
+Scanned Subject Text = {Scanned}
+Virus Modify Subject = no
+Virus Subject Text = {Virus?}
+Filename Modify Subject = no
+Filename Subject Text = {Filename?}
+Content Modify Subject = no
+Content Subject Text = {Dangerous Content?}
+Size Modify Subject = no
+Size Subject Text = {Size}
+Disarmed Modify Subject = no
+Disarmed Subject Text = {Disarmed}
+Phishing Modify Subject = yes
+Phishing Subject Text = {Suspected Phishing?}
+Spam Modify Subject = no
+Spam Subject Text = {Spam?}
+High Scoring Spam Modify Subject = no
+High Scoring Spam Subject Text = {Spam?}
+Warning Is Attachment = yes
+Attachment Warning Filename = %org-name%-Attachment-Warning.txt
+Attachment Encoding Charset = ISO-8859-1
+Archive Mail =
+Missing Mail Archive Is = file
+Send Notices = no
+Notices Include Full Headers = yes
+Hide Incoming Work Dir in Notices = yes
+Notice Signature = -- \\n%org-name%\\nEmail Security\\n%website%
+Notices From = Baruwa
+Notices To = postmaster
+Local Postmaster = postmaster
+Spam List Definitions = %etc-dir%/spam.lists.conf
+Virus Scanner Definitions = %etc-dir%/virus.scanners.conf
+Spam Checks = %brules-dir%/spam.checks.rules
+Spam List =
+Spam Domain List =
+Spam Lists To Be Spam = 1
+Spam Lists To Reach High Score = 3
+Spam List Timeout = 10
+Max Spam List Timeouts = 7
+Spam List Timeouts History = 10
+Is Definitely Not Spam = %brules-dir%/approved.senders.rules
+Is Definitely Spam = %brules-dir%/banned.senders.rules
+Definite Spam Is High Scoring = yes
+Ignore Spam Whitelist If Recipients Exceed = 20
+Max Spam Check Size = 4000k
+Use Watermarking = no
+Add Watermark = yes
+Check Watermarks With No Sender = yes
+Treat Invalid Watermarks With No Sender as Spam = nothing
+Check Watermarks To Skip Spam Checks = yes
+Watermark Secret = %org-name%-BaruwaFW-Secret
+Watermark Lifetime = 604800
+Watermark Header = X-%org-name%-BaruwaFW-Watermark:
+Use SpamAssassin = yes
+Max SpamAssassin Size = 800k
+Required SpamAssassin Score = %brules-dir%/spam.score.rules
+High SpamAssassin Score = %brules-dir%/highspam.score.rules
+SpamAssassin Auto Whitelist = yes
+SpamAssassin Timeout = 75
+Max SpamAssassin Timeouts = 10
+SpamAssassin Timeouts History = 30
+Check SpamAssassin If On Spam List = yes
+Include Binary Attachments In SpamAssassin = no
+Spam Score = yes
+Cache SpamAssassin Results = yes
+SpamAssassin Cache Database File = %spool-dir%/incoming/SpamAssassin.cache.db
+Rebuild Bayes Every = 0
+Wait During Bayes Rebuild = no
+Use Custom Spam Scanner = no
+Max Custom Spam Scanner Size = 20k
+Custom Spam Scanner Timeout = 20
+Max Custom Spam Scanner Timeouts = 10
+Custom Spam Scanner Timeout History = 20
+Spam Actions = %brules-dir%/spam.actions.rules
+High Scoring Spam Actions = %brules-dir%/highspam.actions.rules
+Non Spam Actions = %rules-dir%/nonspam.actions.rules
+SpamAssassin Rule Actions =
+Sender Spam Report = %brules-dir%/senderspamreport.rules
+Sender Spam List Report = %brules-dir%/senderspamrblreport.rules
+Sender SpamAssassin Report = %brules-dir%/senderspamsareport.rules
+Inline Spam Warning = %brules-dir%/inlinespamwarning.rules
+Recipient Spam Report = %brules-dir%/recipientspamreport.rules
+Enable Spam Bounce = %rules-dir%/bounce.rules
+Bounce Spam As Attachment = no
+Syslog Facility = mail
+Log Speed = no
+Log Spam = no
+Log Non Spam = no
+Log Delivery And Non-Delivery = no
+Log Permitted Filenames = no
+Log Permitted Filetypes = no
+Log Permitted File MIME Types = no
+Log Silent Viruses = no
+Log Dangerous HTML Tags = no
+Log SpamAssassin Rule Actions = no
+SpamAssassin Temporary Dir = /var/spool/MailScanner/incoming/SpamAssassin-Temp
+SpamAssassin User State Dir =
+SpamAssassin Install Prefix =
+SpamAssassin Site Rules Dir = /etc/mail/spamassassin
+SpamAssassin Local Rules Dir =
+SpamAssassin Local State Dir =
+SpamAssassin Default Rules Dir =
+DB DSN = DBI:Pg:database=baruwa
+DB Username = baruwa
+DB Password = password
+SQL Serial Number = SELECT MAX(value) AS confserialnumber FROM configurations WHERE internal='confserialnumber'
+SQL Quick Peek = SELECT dbvalue(value) AS value FROM quickpeek WHERE external = ? AND (hostname = ? OR hostname='default') LIMIT 1
+SQL Config = SELECT internal, dbvalue(value) AS value, hostname FROM quickpeek WHERE hostname=? OR hostname='default'
+SQL Ruleset = SELECT row_number, ruleset AS rule FROM msrulesets WHERE name=?
+SQL SpamAssassin Config =
+SQL Debug = no
+Sphinx Host = 127.0.0.1
+Sphinx Port = 9306
+MCP Checks = no
+First Check = spam
+MCP Required SpamAssassin Score = 1
+MCP High SpamAssassin Score = 10
+MCP Error Score = 1
+MCP Header = X-%org-name%-BaruwaFW-MCPCheck:
+Non MCP Actions = deliver
+MCP Actions = deliver
+High Scoring MCP Actions = deliver
+Bounce MCP As Attachment = no
+MCP Modify Subject = start
+MCP Subject Text = {MCP?}
+High Scoring MCP Modify Subject = start
+High Scoring MCP Subject Text = {MCP?}
+Is Definitely MCP = no
+Is Definitely Not MCP = no
+Definite MCP Is High Scoring = no
+Always Include MCP Report = no
+Detailed MCP Report = yes
+Include Scores In MCP Report = no
+Log MCP = no
+MCP Max SpamAssassin Timeouts = 20
+MCP Max SpamAssassin Size = 100k
+MCP SpamAssassin Timeout = 10
+MCP SpamAssassin Prefs File = %mcp-dir%/mcp.spam.assassin.prefs.conf
+MCP SpamAssassin User State Dir =
+MCP SpamAssassin Local Rules Dir = %mcp-dir%
+MCP SpamAssassin Default Rules Dir = %mcp-dir%
+MCP SpamAssassin Install Prefix = %mcp-dir%
+Recipient MCP Report = %report-dir%/recipient.mcp.report.txt
+Sender MCP Report = %report-dir%/sender.mcp.report.txt
+Use Default Rules With Multiple Recipients = no
+Read IP Address From Received Header = no
+Spam Score Number Format = %d.1f
+MailScanner Version Number = 4.85.5
+SpamAssassin Cache Timings = 1800,300,10800,172800,600
+Debug = no
+Debug SpamAssassin = no
+Run In Foreground = no
+Always Looked Up Last = &BaruwaLog
+Always Looked Up Last After Batch = no
+Deliver In Background = yes
+Delivery Method = batch
+Split Exim Spool = no
+Lockfile Dir = %spool-dir%/incoming/Locks
+Custom Functions Dir = /usr/share/baruwa/CustomFunctions
+Lock Type =
+Syslog Socket Type =
+Automatic Syntax Check = yes
+Minimum Code Status = supported
+include /etc/MailScanner/conf.d/*.conf
+"
+
+test Mailscanner.lns get conf =
+ { "#comment" = "Main configuration file for the MailScanner E-Mail Virus Scanner"}
+ { "%org-name%" = "BARUWA" }
+ { "%org-long-name%" = "BARUWA MAILFW" }
+ { "%web-site%" = "www.baruwa.com" }
+ { "%etc-dir%" = "/etc/MailScanner" }
+ { "%reports-base%" = "/etc/MailScanner/reports" }
+ { "%report-dir%" = "/etc/MailScanner/reports/en" }
+ { "%rules-dir%" = "/etc/MailScanner/rules" }
+ { "%mcp-dir%" = "/etc/MailScanner/mcp" }
+ { "%spool-dir%" = "/var/spool/MailScanner" }
+ { "%signature-dir%" = "/etc/MailScanner/baruwa/signatures" }
+ { "%brules-dir%" = "/etc/MailScanner/baruwa/rules" }
+ { "Max Children" = "5" }
+ { "Run As User" = "exim" }
+ { "Run As Group" = "exim" }
+ { "Queue Scan Interval" = "6" }
+ { "Incoming Queue Dir" = "/var/spool/exim.in/input" }
+ { "Outgoing Queue Dir" = "/var/spool/exim/input" }
+ { "Incoming Work Dir" = "%spool-dir%/incoming" }
+ { "Quarantine Dir" = "%spool-dir%/quarantine" }
+ { "PID file" = "/var/run/MailScanner/MailScanner.pid" }
+ { "Restart Every" = "7200" }
+ { "MTA" = "exim" }
+ { "Sendmail" = "/usr/sbin/exim -C /etc/exim/exim_out.conf" }
+ { "Sendmail2" = "/usr/sbin/exim -C /etc/exim/exim_out.conf" }
+ { "Incoming Work User" = "exim" }
+ { "Incoming Work Group" = "clam" }
+ { "Incoming Work Permissions" = "0640" }
+ { "Quarantine User" = "exim" }
+ { "Quarantine Group" = "baruwa" }
+ { "Quarantine Permissions" = "0660" }
+ { "Max Unscanned Bytes Per Scan" = "100m" }
+ { "Max Unsafe Bytes Per Scan" = "50m" }
+ { "Max Unscanned Messages Per Scan" = "30" }
+ { "Max Unsafe Messages Per Scan" = "30" }
+ { "Max Normal Queue Size" = "800" }
+ { "Scan Messages" = "%rules-dir%/scan.messages.rules" }
+ { "Reject Message" = "no" }
+ { "Maximum Processing Attempts" = "6" }
+ { "Processing Attempts Database" = "%spool-dir%/incoming/Processing.db" }
+ { "Maximum Attachments Per Message" = "200" }
+ { "Expand TNEF" = "yes" }
+ { "Use TNEF Contents" = "replace" }
+ { "Deliver Unparsable TNEF" = "no" }
+ { "TNEF Expander" = "/usr/bin/tnef --maxsize=100000000" }
+ { "TNEF Timeout" = "120" }
+ { "File Command" = "/usr/sbin/file-wrapper" }
+ { "File Timeout" = "20" }
+ { "Gunzip Command" = "/bin/gunzip" }
+ { "Gunzip Timeout" = "50" }
+ { "Unrar Command" = "/usr/bin/unrar" }
+ { "Unrar Timeout" = "50" }
+ { "Find UU-Encoded Files" = "no" }
+ { "Maximum Message Size" = "%brules-dir%/message.size.rules" }
+ { "Maximum Attachment Size" = "-1" }
+ { "Minimum Attachment Size" = "-1" }
+ { "Maximum Archive Depth" = "4" }
+ { "Find Archives By Content" = "yes" }
+ { "Unpack Microsoft Documents" = "yes" }
+ { "Zip Attachments" = "no" }
+ { "Attachments Zip Filename" = "MessageAttachments.zip" }
+ { "Attachments Min Total Size To Zip" = "100k" }
+ { "Attachment Extensions Not To Zip" = ".zip .rar .gz .tgz .jpg .jpeg .mpg .mpe .mpeg .mp3 .rpm .htm .html .eml" }
+ { "Add Text Of Doc" = "no" }
+ { "Antiword" = "/usr/bin/antiword -f" }
+ { "Antiword Timeout" = "50" }
+ { "Unzip Maximum Files Per Archive" = "0" }
+ { "Unzip Maximum File Size" = "50k" }
+ { "Unzip Filenames" = "*.txt *.ini *.log *.csv" }
+ { "Unzip MimeType" = "text/plain" }
+ { "Virus Scanning" = "%brules-dir%/virus.checks.rules" }
+ { "Virus Scanners" = "auto" }
+ { "Virus Scanner Timeout" = "300" }
+ { "Deliver Disinfected Files" = "no" }
+ { "Silent Viruses" = "HTML-IFrame All-Viruses" }
+ { "Still Deliver Silent Viruses" = "no" }
+ { "Non-Forging Viruses" = "Joke/ OF97/ WM97/ W97M/ eicar" }
+ { "Spam-Virus Header" = "X-%org-name%-BaruwaFW-SpamVirus-Report:" }
+ { "Virus Names Which Are Spam" = "Sanesecurity.Spam*UNOFFICIAL HTML/* *Phish* *Suspected-phishing_safebrowsing*" }
+ { "Block Encrypted Messages" = "no" }
+ { "Block Unencrypted Messages" = "no" }
+ { "Allow Password-Protected Archives" = "yes" }
+ { "Check Filenames In Password-Protected Archives" = "yes" }
+ { "Allowed Sophos Error Messages" }
+ { "Sophos IDE Dir" = "/opt/sophos-av/lib/sav" }
+ { "Sophos Lib Dir" = "/opt/sophos-av/lib" }
+ { "Monitors For Sophos Updates" = "/opt/sophos-av/lib/sav/*.ide" }
+ { "Monitors for ClamAV Updates" = "/var/lib/clamav/*.cvd" }
+ { "ClamAVmodule Maximum Recursion Level" = "8" }
+ { "ClamAVmodule Maximum Files" = "1000" }
+ { "ClamAVmodule Maximum File Size" = "10000000" }
+ { "ClamAVmodule Maximum Compression Ratio" = "250" }
+ { "Clamd Port" = "3310" }
+ { "Clamd Socket" = "/var/run/clamav/clamd.sock" }
+ { "Clamd Lock File" }
+ { "Clamd Use Threads" = "no" }
+ { "ClamAV Full Message Scan" = "yes" }
+ { "Fpscand Port" = "10200" }
+ { "Dangerous Content Scanning" = "%rules-dir%/content.scanning.rules" }
+ { "Allow Partial Messages" = "no" }
+ { "Allow External Message Bodies" = "no" }
+ { "Find Phishing Fraud" = "yes" }
+ { "Also Find Numeric Phishing" = "yes" }
+ { "Use Stricter Phishing Net" = "yes" }
+ { "Highlight Phishing Fraud" = "yes" }
+ { "Phishing Safe Sites File" = "%etc-dir%/phishing.safe.sites.conf" }
+ { "Phishing Bad Sites File" = "%etc-dir%/phishing.bad.sites.conf" }
+ { "Country Sub-Domains List" = "%etc-dir%/country.domains.conf" }
+ { "Allow IFrame Tags" = "disarm" }
+ { "Allow Form Tags" = "disarm" }
+ { "Allow Script Tags" = "disarm" }
+ { "Allow WebBugs" = "disarm" }
+ { "Ignored Web Bug Filenames" = "spacer pixel.gif pixel.png gap" }
+ { "Known Web Bug Servers" = "msgtag.com" }
+ { "Web Bug Replacement" = "https://datafeeds.baruwa.com/1x1spacer.gif" }
+ { "Allow Object Codebase Tags" = "disarm" }
+ { "Convert Dangerous HTML To Text" = "no" }
+ { "Convert HTML To Text" = "no" }
+ { "Archives Are" = "zip rar ole" }
+ { "Allow Filenames" }
+ { "Deny Filenames" }
+ { "Filename Rules" = "%rules-dir%/filename.rules" }
+ { "Allow Filetypes" }
+ { "Allow File MIME Types" }
+ { "Deny Filetypes" }
+ { "Deny File MIME Types" }
+ { "Filetype Rules" = "%rules-dir%/filetype.rules" }
+ { "Archives: Allow Filenames" }
+ { "Archives: Deny Filenames" }
+ { "Archives: Filename Rules" = "%etc-dir%/archives.filename.rules.conf" }
+ { "Archives: Allow Filetypes" }
+ { "Archives: Allow File MIME Types" }
+ { "Archives: Deny Filetypes" }
+ { "Archives: Deny File MIME Types" }
+ { "Archives: Filetype Rules" = "%etc-dir%/archives.filetype.rules.conf" }
+ { "Default Rename Pattern" = "__FILENAME__.disarmed" }
+ { "Quarantine Infections" = "yes" }
+ { "Quarantine Silent Viruses" = "no" }
+ { "Quarantine Modified Body" = "no" }
+ { "Quarantine Whole Message" = "yes" }
+ { "Quarantine Whole Messages As Queue Files" = "no" }
+ { "Keep Spam And MCP Archive Clean" = "yes" }
+ { "Language Strings" = "%brules-dir%/languages.rules" }
+ { "Rejection Report" = "%brules-dir%/rejectionreport.rules" }
+ { "Deleted Bad Content Message Report" = "%brules-dir%/deletedcontentmessage.rules" }
+ { "Deleted Bad Filename Message Report" = "%brules-dir%/deletedfilenamemessage.rules" }
+ { "Deleted Virus Message Report" = "%brules-dir%/deletedvirusmessage.rules" }
+ { "Deleted Size Message Report" = "%brules-dir%/deletedsizemessage.rules" }
+ { "Stored Bad Content Message Report" = "%brules-dir%/storedcontentmessage.rules" }
+ { "Stored Bad Filename Message Report" = "%brules-dir%/storedfilenamemessage.rules" }
+ { "Stored Virus Message Report" = "%brules-dir%/storedvirusmessage.rules" }
+ { "Stored Size Message Report" = "%brules-dir%/storedsizemessage.rules" }
+ { "Disinfected Report" = "%brules-dir%/disinfectedreport.rules" }
+ { "Inline HTML Signature" = "%brules-dir%/html.sigs.rules" }
+ { "Inline Text Signature" = "%brules-dir%/text.sigs.rules" }
+ { "Signature Image Filename" = "%brules-dir%/sig.imgs.names.rules" }
+ { "Signature Image <img> Filename" = "%brules-dir%/sig.imgs.rules" }
+ { "Inline HTML Warning" = "%brules-dir%/inlinewarninghtml.rules" }
+ { "Inline Text Warning" = "%brules-dir%/inlinewarningtxt.rules" }
+ { "Sender Content Report" = "%brules-dir%/sendercontentreport.rules" }
+ { "Sender Error Report" = "%brules-dir%/sendererrorreport.rules" }
+ { "Sender Bad Filename Report" = "%brules-dir%/senderfilenamereport.rules" }
+ { "Sender Virus Report" = "%brules-dir%/sendervirusreport.rules" }
+ { "Sender Size Report" = "%brules-dir%/sendersizereport.rules" }
+ { "Hide Incoming Work Dir" = "yes" }
+ { "Include Scanner Name In Reports" = "yes" }
+ { "Mail Header" = "X-%org-name%-BaruwaFW:" }
+ { "Spam Header" = "X-%org-name%-BaruwaFW-SpamCheck:" }
+ { "Spam Score Header" = "X-%org-name%-BaruwaFW-SpamScore:" }
+ { "Information Header" = "X-%org-name%-BaruwaFW-Information:" }
+ { "Add Envelope From Header" = "yes" }
+ { "Add Envelope To Header" = "no" }
+ { "Envelope From Header" = "X-BARUWA-BaruwaFW-From:" }
+ { "Envelope To Header" = "X-%org-name%-BaruwaFW-To:" }
+ { "ID Header" = "X-%org-name%-BaruwaFW-ID:" }
+ { "IP Protocol Version Header" }
+ { "Spam Score Character" = "s" }
+ { "SpamScore Number Instead Of Stars" = "no" }
+ { "Minimum Stars If On Spam List" = "0" }
+ { "Clean Header Value" = "Found to be clean" }
+ { "Infected Header Value" = "Found to be infected" }
+ { "Disinfected Header Value" = "Disinfected" }
+ { "Information Header Value" = "Please contact %org-long-name% for more information" }
+ { "Detailed Spam Report" = "yes" }
+ { "Include Scores In SpamAssassin Report" = "yes" }
+ { "Always Include SpamAssassin Report" = "no" }
+ { "Multiple Headers" = "add" }
+ { "Place New Headers At Top Of Message" = "yes" }
+ { "Hostname" = "the %org-name% ($HOSTNAME) Baruwa" }
+ { "Sign Messages Already Processed" = "no" }
+ { "Sign Clean Messages" = "%brules-dir%/sign.clean.msgs.rules" }
+ { "Attach Image To Signature" = "yes" }
+ { "Attach Image To HTML Message Only" = "yes" }
+ { "Allow Multiple HTML Signatures" = "no" }
+ { "Dont Sign HTML If Headers Exist" }
+ { "Mark Infected Messages" = "yes" }
+ { "Mark Unscanned Messages" = "no" }
+ { "Unscanned Header Value" = "Not scanned: please contact %org-long-name% for details" }
+ { "Remove These Headers" = "X-Mozilla-Status: X-Mozilla-Status2:" }
+ { "Deliver Cleaned Messages" = "yes" }
+ { "Notify Senders" = "no" }
+ { "Notify Senders Of Viruses" = "no" }
+ { "Notify Senders Of Blocked Filenames Or Filetypes" = "no" }
+ { "Notify Senders Of Blocked Size Attachments" = "no" }
+ { "Notify Senders Of Other Blocked Content" = "no" }
+ { "Never Notify Senders Of Precedence" = "list bulk" }
+ { "Scanned Modify Subject" = "no" }
+ { "Scanned Subject Text" = "{Scanned}" }
+ { "Virus Modify Subject" = "no" }
+ { "Virus Subject Text" = "{Virus?}" }
+ { "Filename Modify Subject" = "no" }
+ { "Filename Subject Text" = "{Filename?}" }
+ { "Content Modify Subject" = "no" }
+ { "Content Subject Text" = "{Dangerous Content?}" }
+ { "Size Modify Subject" = "no" }
+ { "Size Subject Text" = "{Size}" }
+ { "Disarmed Modify Subject" = "no" }
+ { "Disarmed Subject Text" = "{Disarmed}" }
+ { "Phishing Modify Subject" = "yes" }
+ { "Phishing Subject Text" = "{Suspected Phishing?}" }
+ { "Spam Modify Subject" = "no" }
+ { "Spam Subject Text" = "{Spam?}" }
+ { "High Scoring Spam Modify Subject" = "no" }
+ { "High Scoring Spam Subject Text" = "{Spam?}" }
+ { "Warning Is Attachment" = "yes" }
+ { "Attachment Warning Filename" = "%org-name%-Attachment-Warning.txt" }
+ { "Attachment Encoding Charset" = "ISO-8859-1" }
+ { "Archive Mail" }
+ { "Missing Mail Archive Is" = "file" }
+ { "Send Notices" = "no" }
+ { "Notices Include Full Headers" = "yes" }
+ { "Hide Incoming Work Dir in Notices" = "yes" }
+ { "Notice Signature" = "-- \\n%org-name%\\nEmail Security\\n%website%" }
+ { "Notices From" = "Baruwa" }
+ { "Notices To" = "postmaster" }
+ { "Local Postmaster" = "postmaster" }
+ { "Spam List Definitions" = "%etc-dir%/spam.lists.conf" }
+ { "Virus Scanner Definitions" = "%etc-dir%/virus.scanners.conf" }
+ { "Spam Checks" = "%brules-dir%/spam.checks.rules" }
+ { "Spam List" }
+ { "Spam Domain List" }
+ { "Spam Lists To Be Spam" = "1" }
+ { "Spam Lists To Reach High Score" = "3" }
+ { "Spam List Timeout" = "10" }
+ { "Max Spam List Timeouts" = "7" }
+ { "Spam List Timeouts History" = "10" }
+ { "Is Definitely Not Spam" = "%brules-dir%/approved.senders.rules" }
+ { "Is Definitely Spam" = "%brules-dir%/banned.senders.rules" }
+ { "Definite Spam Is High Scoring" = "yes" }
+ { "Ignore Spam Whitelist If Recipients Exceed" = "20" }
+ { "Max Spam Check Size" = "4000k" }
+ { "Use Watermarking" = "no" }
+ { "Add Watermark" = "yes" }
+ { "Check Watermarks With No Sender" = "yes" }
+ { "Treat Invalid Watermarks With No Sender as Spam" = "nothing" }
+ { "Check Watermarks To Skip Spam Checks" = "yes" }
+ { "Watermark Secret" = "%org-name%-BaruwaFW-Secret" }
+ { "Watermark Lifetime" = "604800" }
+ { "Watermark Header" = "X-%org-name%-BaruwaFW-Watermark:" }
+ { "Use SpamAssassin" = "yes" }
+ { "Max SpamAssassin Size" = "800k" }
+ { "Required SpamAssassin Score" = "%brules-dir%/spam.score.rules" }
+ { "High SpamAssassin Score" = "%brules-dir%/highspam.score.rules" }
+ { "SpamAssassin Auto Whitelist" = "yes" }
+ { "SpamAssassin Timeout" = "75" }
+ { "Max SpamAssassin Timeouts" = "10" }
+ { "SpamAssassin Timeouts History" = "30" }
+ { "Check SpamAssassin If On Spam List" = "yes" }
+ { "Include Binary Attachments In SpamAssassin" = "no" }
+ { "Spam Score" = "yes" }
+ { "Cache SpamAssassin Results" = "yes" }
+ { "SpamAssassin Cache Database File" = "%spool-dir%/incoming/SpamAssassin.cache.db" }
+ { "Rebuild Bayes Every" = "0" }
+ { "Wait During Bayes Rebuild" = "no" }
+ { "Use Custom Spam Scanner" = "no" }
+ { "Max Custom Spam Scanner Size" = "20k" }
+ { "Custom Spam Scanner Timeout" = "20" }
+ { "Max Custom Spam Scanner Timeouts" = "10" }
+ { "Custom Spam Scanner Timeout History" = "20" }
+ { "Spam Actions" = "%brules-dir%/spam.actions.rules" }
+ { "High Scoring Spam Actions" = "%brules-dir%/highspam.actions.rules" }
+ { "Non Spam Actions" = "%rules-dir%/nonspam.actions.rules" }
+ { "SpamAssassin Rule Actions" }
+ { "Sender Spam Report" = "%brules-dir%/senderspamreport.rules" }
+ { "Sender Spam List Report" = "%brules-dir%/senderspamrblreport.rules" }
+ { "Sender SpamAssassin Report" = "%brules-dir%/senderspamsareport.rules" }
+ { "Inline Spam Warning" = "%brules-dir%/inlinespamwarning.rules" }
+ { "Recipient Spam Report" = "%brules-dir%/recipientspamreport.rules" }
+ { "Enable Spam Bounce" = "%rules-dir%/bounce.rules" }
+ { "Bounce Spam As Attachment" = "no" }
+ { "Syslog Facility" = "mail" }
+ { "Log Speed" = "no" }
+ { "Log Spam" = "no" }
+ { "Log Non Spam" = "no" }
+ { "Log Delivery And Non-Delivery" = "no" }
+ { "Log Permitted Filenames" = "no" }
+ { "Log Permitted Filetypes" = "no" }
+ { "Log Permitted File MIME Types" = "no" }
+ { "Log Silent Viruses" = "no" }
+ { "Log Dangerous HTML Tags" = "no" }
+ { "Log SpamAssassin Rule Actions" = "no" }
+ { "SpamAssassin Temporary Dir" = "/var/spool/MailScanner/incoming/SpamAssassin-Temp" }
+ { "SpamAssassin User State Dir" }
+ { "SpamAssassin Install Prefix" }
+ { "SpamAssassin Site Rules Dir" = "/etc/mail/spamassassin" }
+ { "SpamAssassin Local Rules Dir" }
+ { "SpamAssassin Local State Dir" }
+ { "SpamAssassin Default Rules Dir" }
+ { "DB DSN" = "DBI:Pg:database=baruwa" }
+ { "DB Username" = "baruwa" }
+ { "DB Password" = "password" }
+ { "SQL Serial Number" = "SELECT MAX(value) AS confserialnumber FROM configurations WHERE internal='confserialnumber'" }
+ { "SQL Quick Peek" = "SELECT dbvalue(value) AS value FROM quickpeek WHERE external = ? AND (hostname = ? OR hostname='default') LIMIT 1" }
+ { "SQL Config" = "SELECT internal, dbvalue(value) AS value, hostname FROM quickpeek WHERE hostname=? OR hostname='default'" }
+ { "SQL Ruleset" = "SELECT row_number, ruleset AS rule FROM msrulesets WHERE name=?" }
+ { "SQL SpamAssassin Config" }
+ { "SQL Debug" = "no" }
+ { "Sphinx Host" = "127.0.0.1" }
+ { "Sphinx Port" = "9306" }
+ { "MCP Checks" = "no" }
+ { "First Check" = "spam" }
+ { "MCP Required SpamAssassin Score" = "1" }
+ { "MCP High SpamAssassin Score" = "10" }
+ { "MCP Error Score" = "1" }
+ { "MCP Header" = "X-%org-name%-BaruwaFW-MCPCheck:" }
+ { "Non MCP Actions" = "deliver" }
+ { "MCP Actions" = "deliver" }
+ { "High Scoring MCP Actions" = "deliver" }
+ { "Bounce MCP As Attachment" = "no" }
+ { "MCP Modify Subject" = "start" }
+ { "MCP Subject Text" = "{MCP?}" }
+ { "High Scoring MCP Modify Subject" = "start" }
+ { "High Scoring MCP Subject Text" = "{MCP?}" }
+ { "Is Definitely MCP" = "no" }
+ { "Is Definitely Not MCP" = "no" }
+ { "Definite MCP Is High Scoring" = "no" }
+ { "Always Include MCP Report" = "no" }
+ { "Detailed MCP Report" = "yes" }
+ { "Include Scores In MCP Report" = "no" }
+ { "Log MCP" = "no" }
+ { "MCP Max SpamAssassin Timeouts" = "20" }
+ { "MCP Max SpamAssassin Size" = "100k" }
+ { "MCP SpamAssassin Timeout" = "10" }
+ { "MCP SpamAssassin Prefs File" = "%mcp-dir%/mcp.spam.assassin.prefs.conf" }
+ { "MCP SpamAssassin User State Dir" }
+ { "MCP SpamAssassin Local Rules Dir" = "%mcp-dir%" }
+ { "MCP SpamAssassin Default Rules Dir" = "%mcp-dir%" }
+ { "MCP SpamAssassin Install Prefix" = "%mcp-dir%" }
+ { "Recipient MCP Report" = "%report-dir%/recipient.mcp.report.txt" }
+ { "Sender MCP Report" = "%report-dir%/sender.mcp.report.txt" }
+ { "Use Default Rules With Multiple Recipients" = "no" }
+ { "Read IP Address From Received Header" = "no" }
+ { "Spam Score Number Format" = "%d.1f" }
+ { "MailScanner Version Number" = "4.85.5" }
+ { "SpamAssassin Cache Timings" = "1800,300,10800,172800,600" }
+ { "Debug" = "no" }
+ { "Debug SpamAssassin" = "no" }
+ { "Run In Foreground" = "no" }
+ { "Always Looked Up Last" = "&BaruwaLog" }
+ { "Always Looked Up Last After Batch" = "no" }
+ { "Deliver In Background" = "yes" }
+ { "Delivery Method" = "batch" }
+ { "Split Exim Spool" = "no" }
+ { "Lockfile Dir" = "%spool-dir%/incoming/Locks" }
+ { "Custom Functions Dir" = "/usr/share/baruwa/CustomFunctions" }
+ { "Lock Type" }
+ { "Syslog Socket Type" }
+ { "Automatic Syntax Check" = "yes" }
+ { "Minimum Code Status" = "supported" }
+ { "include" = "/etc/MailScanner/conf.d/*.conf"}
\ No newline at end of file
diff --git a/Sharp.Augeas.Test/lens/tests/test_mailscanner_rules.aug b/Sharp.Augeas.Test/lens/tests/test_mailscanner_rules.aug
new file mode 100644
index 0000000..c8acf7a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_mailscanner_rules.aug
@@ -0,0 +1,59 @@
+module Test_Mailscanner_Rules =
+let conf = "# JKF 10/08/2007 Adobe Acrobat nastiness
+rename \.fdf$ Dangerous Adobe Acrobat data-file Opening this file can cause auto-loading of any file from the internet
+
+# JKF 04/01/2005 More Microsoft security vulnerabilities
+deny \.ico$ Windows icon file security vulnerability Possible buffer overflow in Windows
+allow \.(jan|feb|mar|apr|may|jun|june|jul|july|aug|sep|sept|oct|nov|dec)\.[a-z0-9]{3}$ - -
+deny+delete \.cur$ Windows cursor file security vulnerability Possible buffer overflow in Windows
+andrew@baruwa.com,andrew@baruwa.net \.reg$ Possible Windows registry attack Windows registry entries are very dangerous in email
+andrew@baruwa.com andrew@baruwa.net \.chm$ Possible compiled Help file-based virus Compiled help files are very dangerous in email
+rename to .ppt \.pps$ Renamed .pps to .ppt Renamed .pps to .ppt
+"
+
+test Mailscanner_Rules.lns get conf =
+ { "#comment" = "JKF 10/08/2007 Adobe Acrobat nastiness" }
+ { "1"
+ { "action" = "rename" }
+ { "regex" = "\.fdf$" }
+ { "log-text" = "Dangerous Adobe Acrobat data-file" }
+ { "user-report" = "Opening this file can cause auto-loading of any file from the internet" }
+ }
+ {}
+ { "#comment" = "JKF 04/01/2005 More Microsoft security vulnerabilities" }
+ { "2"
+ { "action" = "deny" }
+ { "regex" = "\.ico$" }
+ { "log-text" = "Windows icon file security vulnerability" }
+ { "user-report" = "Possible buffer overflow in Windows" }
+ }
+ { "3"
+ { "action" = "allow" }
+ { "regex" = "\.(jan|feb|mar|apr|may|jun|june|jul|july|aug|sep|sept|oct|nov|dec)\.[a-z0-9]{3}$" }
+ { "log-text" = "-" }
+ { "user-report" = "-" }
+ }
+ { "4"
+ { "action" = "deny+delete" }
+ { "regex" = "\.cur$" }
+ { "log-text" = "Windows cursor file security vulnerability" }
+ { "user-report" = "Possible buffer overflow in Windows" }
+ }
+ { "5"
+ { "action" = "andrew@baruwa.com,andrew@baruwa.net" }
+ { "regex" = "\.reg$" }
+ { "log-text" = "Possible Windows registry attack" }
+ { "user-report" = "Windows registry entries are very dangerous in email" }
+ }
+ { "6"
+ { "action" = "andrew@baruwa.com andrew@baruwa.net" }
+ { "regex" = "\.chm$" }
+ { "log-text" = "Possible compiled Help file-based virus" }
+ { "user-report" = "Compiled help files are very dangerous in email" }
+ }
+ { "7"
+ { "action" = "rename to .ppt" }
+ { "regex" = "\.pps$" }
+ { "log-text" = "Renamed .pps to .ppt" }
+ { "user-report" = "Renamed .pps to .ppt" }
+ }
\ No newline at end of file
diff --git a/Sharp.Augeas.Test/lens/tests/test_masterpasswd.aug b/Sharp.Augeas.Test/lens/tests/test_masterpasswd.aug
new file mode 100644
index 0000000..838b7bd
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_masterpasswd.aug
@@ -0,0 +1,125 @@
+module Test_MasterPasswd =
+
+let conf = "root:*:0:0:daemon:0:0:Charlie &:/root:/bin/ksh
+sshd:*:27:27::0:0:sshd privsep:/var/empty:/sbin/nologin
+_portmap:*:28:28::0:0:portmap:/var/empty:/sbin/nologin
+test:x:1000:1000:ldap:1434329080:1434933880:Test User,,,:/home/test:/bin/bash
+"
+
+test MasterPasswd.lns get conf =
+ { "root"
+ { "password" = "*" }
+ { "uid" = "0" }
+ { "gid" = "0" }
+ { "class" = "daemon" }
+ { "change_date" = "0" }
+ { "expire_date" = "0" }
+ { "name" = "Charlie &" }
+ { "home" = "/root" }
+ { "shell" = "/bin/ksh" } }
+ { "sshd"
+ { "password" = "*" }
+ { "uid" = "27" }
+ { "gid" = "27" }
+ { "class" }
+ { "change_date" = "0" }
+ { "expire_date" = "0" }
+ { "name" = "sshd privsep" }
+ { "home" = "/var/empty" }
+ { "shell" = "/sbin/nologin" } }
+ { "_portmap"
+ { "password" = "*" }
+ { "uid" = "28" }
+ { "gid" = "28" }
+ { "class" }
+ { "change_date" = "0" }
+ { "expire_date" = "0" }
+ { "name" = "portmap" }
+ { "home" = "/var/empty" }
+ { "shell" = "/sbin/nologin" } }
+ { "test"
+ { "password" = "x" }
+ { "uid" = "1000" }
+ { "gid" = "1000" }
+ { "class" = "ldap" }
+ { "change_date" = "1434329080" }
+ { "expire_date" = "1434933880" }
+ { "name" = "Test User,,," }
+ { "home" = "/home/test" }
+ { "shell" = "/bin/bash" } }
+
+(* Popular on Solaris *)
+test MasterPasswd.lns get "+@some-nis-group:::::::::\n" =
+ { "@nis" = "some-nis-group" }
+
+test MasterPasswd.lns get "+\n" =
+ { "@nisdefault" }
+
+test MasterPasswd.lns get "+:::::::::\n" =
+ { "@nisdefault"
+ { "password" = "" }
+ { "uid" = "" }
+ { "gid" = "" }
+ { "class" }
+ { "change_date" = "" }
+ { "expire_date" = "" }
+ { "name" }
+ { "home" }
+ { "shell" } }
+
+test MasterPasswd.lns get "+:::::::::/sbin/nologin\n" =
+ { "@nisdefault"
+ { "password" = "" }
+ { "uid" = "" }
+ { "gid" = "" }
+ { "class" }
+ { "change_date" = "" }
+ { "expire_date" = "" }
+ { "name" }
+ { "home" }
+ { "shell" = "/sbin/nologin" } }
+
+test MasterPasswd.lns get "+:*:::ldap:::::\n" =
+ { "@nisdefault"
+ { "password" = "*" }
+ { "uid" = "" }
+ { "gid" = "" }
+ { "class" = "ldap" }
+ { "change_date" = "" }
+ { "expire_date" = "" }
+ { "name" }
+ { "home" }
+ { "shell" } }
+
+(* NIS entries with overrides, ticket #339 *)
+test MasterPasswd.lns get "+@bob::::::::/home/bob:/bin/bash\n" =
+ { "@nis" = "bob"
+ { "home" = "/home/bob" }
+ { "shell" = "/bin/bash" } }
+
+(* NIS user entries *)
+test MasterPasswd.lns get "+bob:::::::::\n" =
+ { "@+nisuser" = "bob" }
+
+test MasterPasswd.lns get "+bob:::::::User Comment:/home/bob:/bin/bash\n" =
+ { "@+nisuser" = "bob"
+ { "name" = "User Comment" }
+ { "home" = "/home/bob" }
+ { "shell" = "/bin/bash" } }
+
+test MasterPasswd.lns put "+bob:::::::::\n" after
+ set "@+nisuser" "alice"
+= "+alice:::::::::\n"
+
+test MasterPasswd.lns put "+bob:::::::::\n" after
+ set "@+nisuser/name" "User Comment";
+ set "@+nisuser/home" "/home/bob";
+ set "@+nisuser/shell" "/bin/bash"
+= "+bob:::::::User Comment:/home/bob:/bin/bash\n"
+
+test MasterPasswd.lns get "-bob:::::::::\n" =
+ { "@-nisuser" = "bob" }
+
+test MasterPasswd.lns put "-bob:::::::::\n" after
+ set "@-nisuser" "alice"
+= "-alice:::::::::\n"
diff --git a/Sharp.Augeas.Test/lens/tests/test_mcollective.aug b/Sharp.Augeas.Test/lens/tests/test_mcollective.aug
new file mode 100644
index 0000000..e71a85d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_mcollective.aug
@@ -0,0 +1,53 @@
+(*
+Module: Test_MCollective
+ Provides unit tests and examples for the <MCollective> lens.
+*)
+
+module Test_MCollective =
+
+let conf = "topicprefix = /topic/
+main_collective = mcollective
+collectives = mcollective
+libdir = /usr/libexec/mcollective
+logger_type = console
+loglevel = warn
+
+# Plugins
+securityprovider = psk
+plugin.psk = unset
+
+connector = stomp
+plugin.stomp.host = localhost
+plugin.stomp.port = 61613
+plugin.stomp.user = mcollective
+plugin.stomp.password = secret
+
+# Facts
+factsource = yaml # bla
+plugin.yaml=/etc/mcollective/facts.yaml
+"
+
+test MCollective.lns get conf =
+ { "topicprefix" = "/topic/" }
+ { "main_collective" = "mcollective" }
+ { "collectives" = "mcollective" }
+ { "libdir" = "/usr/libexec/mcollective" }
+ { "logger_type" = "console" }
+ { "loglevel" = "warn" }
+ { }
+ { "#comment" = "Plugins" }
+ { "securityprovider" = "psk" }
+ { "plugin.psk" = "unset" }
+ { }
+ { "connector" = "stomp" }
+ { "plugin.stomp.host" = "localhost" }
+ { "plugin.stomp.port" = "61613" }
+ { "plugin.stomp.user" = "mcollective" }
+ { "plugin.stomp.password" = "secret" }
+ { }
+ { "#comment" = "Facts" }
+ { "factsource" = "yaml"
+ { "#comment" = "bla" }
+ }
+ { "plugin.yaml" = "/etc/mcollective/facts.yaml" }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_mdadm_conf.aug b/Sharp.Augeas.Test/lens/tests/test_mdadm_conf.aug
new file mode 100644
index 0000000..a7622cd
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_mdadm_conf.aug
@@ -0,0 +1,94 @@
+module Test_mdadm_conf =
+
+let conf = "
+# Comment
+device containers
+ # Comment
+DEVICE partitions \ndev
+ /dev/hda* \n /dev/hdc*
+deVI
+ARRAY /dev/md0 UUID=c3d3134f-2aa9-4514-9da3-82ccd1cccc7b Name=foo=bar
+ supeR-minor=3 devicEs=/dev/hda,/dev/hdb Level=1 num-devices=5 spares=2
+ spare-group=bar auTo=yes BITMAP=/path/to/bitmap metadata=frob
+ container=/dev/sda member=1
+MAIL # Initial comment
+ user@example.com # End of line comment
+MAILF user@example.com # MAILFROM can only be abbreviated to 5 characters
+PROGRA /usr/sbin/handle-mdadm-events
+CREA group=system mode=0640 auto=part-8
+HOME <system>
+AUT +1.x Homehost -all
+POL domain=domain1 metadata=imsm path=pci-0000:00:1f.2-scsi-*
+ action=spare
+PART domain=domain1 metadata=imsm path=pci-0000:04:00.0-scsi-[01]*
+ action=include
+"
+
+test Mdadm_conf.lns get conf =
+ {}
+ { "#comment" = "Comment" }
+ { "device"
+ { "containers" }
+ }
+ { "#comment" = "Comment" }
+ { "device"
+ { "partitions" }
+ }
+ { "device"
+ { "name" = "/dev/hda*" }
+ { "name" = "/dev/hdc*" }
+ }
+ { "device" }
+ { "array"
+ { "devicename" = "/dev/md0" }
+ { "uuid" = "c3d3134f-2aa9-4514-9da3-82ccd1cccc7b" }
+ { "name" = "foo=bar" }
+ { "super-minor" = "3" }
+ { "devices" = "/dev/hda,/dev/hdb" }
+ { "level" = "1" }
+ { "num-devices" = "5" }
+ { "spares" = "2" }
+ { "spare-group" = "bar" }
+ { "auto" = "yes" }
+ { "bitmap" = "/path/to/bitmap" }
+ { "metadata" = "frob" }
+ { "container" = "/dev/sda" }
+ { "member" = "1" }
+ }
+ { "mailaddr"
+ { "#comment" = "Initial comment" }
+ { "value" = "user@example.com" }
+ { "#comment" = "End of line comment" }
+ }
+ { "mailfrom"
+ { "value" = "user@example.com" }
+ { "#comment" = "MAILFROM can only be abbreviated to 5 characters" }
+ }
+ { "program"
+ { "value" = "/usr/sbin/handle-mdadm-events" }
+ }
+ { "create"
+ { "group" = "system" }
+ { "mode" = "0640" }
+ { "auto" = "part-8" }
+ }
+ { "homehost"
+ { "value" = "<system>" }
+ }
+ { "auto"
+ { "+" = "1.x" }
+ { "homehost" }
+ { "-" = "all" }
+ }
+ { "policy"
+ { "domain" = "domain1" }
+ { "metadata" = "imsm" }
+ { "path" = "pci-0000:00:1f.2-scsi-*" }
+ { "action" = "spare" }
+ }
+ { "part-policy"
+ { "domain" = "domain1" }
+ { "metadata" = "imsm" }
+ { "path" = "pci-0000:04:00.0-scsi-[01]*" }
+ { "action" = "include" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_memcached.aug b/Sharp.Augeas.Test/lens/tests/test_memcached.aug
new file mode 100644
index 0000000..2a287c2
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_memcached.aug
@@ -0,0 +1,43 @@
+(*
+Module: Test_Memcached
+ Provides unit tests and examples for the <Memcached> lens.
+*)
+
+module Test_Memcached =
+
+let conf = "# memcached default config file
+
+# Run memcached as a daemon. This command is implied, and is not needed for the
+# daemon to run. See the README.Debian that comes with this package for more
+# information.
+-d
+-l 127.0.0.1
+
+# Log memcached's output to /var/log/memcached
+logfile /var/log/memcached.log
+
+# Default connection port is 11211
+-p 11211
+-m 64 # Start with a cap of 64 megs of memory.
+-M
+"
+
+test Memcached.lns get conf =
+ { "#comment" = "memcached default config file" }
+ { }
+ { "#comment" = "Run memcached as a daemon. This command is implied, and is not needed for the" }
+ { "#comment" = "daemon to run. See the README.Debian that comes with this package for more" }
+ { "#comment" = "information." }
+ { "d" }
+ { "l" = "127.0.0.1" }
+ { }
+ { "#comment" = "Log memcached's output to /var/log/memcached" }
+ { "logfile" = "/var/log/memcached.log" }
+ { }
+ { "#comment" = "Default connection port is 11211" }
+ { "p" = "11211" }
+ { "m" = "64"
+ { "#comment" = "Start with a cap of 64 megs of memory." }
+ }
+ { "M" }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_mke2fs.aug b/Sharp.Augeas.Test/lens/tests/test_mke2fs.aug
new file mode 100644
index 0000000..bcf2fe6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_mke2fs.aug
@@ -0,0 +1,126 @@
+(* Test for keepalived lens *)
+
+module Test_mke2fs =
+
+ let conf = "# This is a comment
+; and another comment
+
+[defaults]
+ base_features = sparse_super,filetype,resize_inode,dir_index,ext_attr
+ default_mntopts = acl,user_xattr
+ enable_periodic_fsck = 0
+ blocksize = 4096
+ inode_size = 256
+ ; here goes inode_ratio
+ inode_ratio = 16384
+
+[fs_types]
+ ; here we have fs_types
+ ext4dev = {
+ # this is ext4dev conf
+
+ features = has_journal,^extent
+ auto_64-bit_support = 1
+ inode_size = 256
+ options = test_fs=1
+ }
+ small = {
+ blocksize = 1024
+ inode_size = 128
+ inode_ratio = 4096
+ }
+ largefile = {
+ inode_ratio = 1048576
+ blocksize = -1
+ }
+
+[options]
+ proceed_delay = 1
+ sync_kludge = 1
+"
+
+ test Mke2fs.lns get conf =
+ { "#comment" = "This is a comment" }
+ { "#comment" = "and another comment" }
+ {}
+ { "defaults"
+ { "base_features"
+ { "sparse_super" }
+ { "filetype" }
+ { "resize_inode" }
+ { "dir_index" }
+ { "ext_attr" } }
+ { "default_mntopts"
+ { "acl" }
+ { "user_xattr" } }
+ { "enable_periodic_fsck" = "0" }
+ { "blocksize" = "4096" }
+ { "inode_size" = "256" }
+ { "#comment" = "here goes inode_ratio" }
+ { "inode_ratio" = "16384" }
+ {} }
+ { "fs_types"
+ { "#comment" = "here we have fs_types" }
+ { "filesystem" = "ext4dev"
+ { "#comment" = "this is ext4dev conf" }
+ {}
+ { "features"
+ { "has_journal" }
+ { "extent"
+ { "disable" } } }
+ { "auto_64-bit_support" = "1" }
+ { "inode_size" = "256" }
+ { "options"
+ { "test_fs" = "1" } } }
+ { "filesystem" = "small"
+ { "blocksize" = "1024" }
+ { "inode_size" = "128" }
+ { "inode_ratio" = "4096" } }
+ { "filesystem" = "largefile"
+ { "inode_ratio" = "1048576" }
+ { "blocksize" = "-1" } }
+ {} }
+ { "options"
+ { "proceed_delay" = "1" }
+ { "sync_kludge" = "1" } }
+
+
+ let quoted_conf = "[defaults]
+ base_features = \"sparse_super,filetype,resize_inode,dir_index,ext_attr\"
+
+[fs_types]
+ ext4dev = {
+ features = \"has_journal,^extent\"
+ default_mntopts = \"user_xattr\"
+ encoding = \"utf8\"
+ encoding = \"\"
+ }
+"
+
+ test Mke2fs.lns get quoted_conf =
+ { "defaults"
+ { "base_features"
+ { "sparse_super" }
+ { "filetype" }
+ { "resize_inode" }
+ { "dir_index" }
+ { "ext_attr" } }
+ {} }
+ { "fs_types"
+ { "filesystem" = "ext4dev"
+ { "features"
+ { "has_journal" }
+ { "extent"
+ { "disable" } } }
+ { "default_mntopts"
+ { "user_xattr" } }
+ { "encoding" = "utf8" }
+ { "encoding" }
+ } }
+
+
+test Mke2fs.common_entry
+ put "features = has_journal,^extent\n"
+ after set "/features/has_journal/disable" "";
+ rm "/features/extent/disable" = "features = ^has_journal,extent\n"
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_modprobe.aug b/Sharp.Augeas.Test/lens/tests/test_modprobe.aug
new file mode 100644
index 0000000..30a7bce
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_modprobe.aug
@@ -0,0 +1,147 @@
+module Test_modprobe =
+
+(* Based on 04config.sh from module-init-tools *)
+
+let conf = "# Various aliases
+alias alias_to_foo foo
+alias alias_to_bar bar
+alias alias_to_export_dep-$BITNESS export_dep-$BITNESS
+
+# Various options, including options to aliases.
+options alias_to_export_dep-$BITNESS I am alias to export_dep
+options alias_to_noexport_nodep-$BITNESS_with_tabbed_options index=0 id=\"Thinkpad\" isapnp=0 \\
+\tport=0x530 cport=0x538 fm_port=0x388 \\
+\tmpu_port=-1 mpu_irq=-1 \\
+\tirq=9 dma1=1 dma2=3 \\
+\tenable=1 isapnp=0
+
+# Blacklist
+blacklist watchdog_drivers \t
+
+# Install commands
+install bar echo Installing bar
+install foo echo Installing foo
+install export_nodep-$BITNESS echo Installing export_nodep
+
+# Remove commands
+remove bar echo Removing bar
+remove foo echo Removing foo
+remove export_nodep-$BITNESS echo Removing export_nodep
+
+# Softdep
+softdep uhci-hcd post: foo
+softdep uhci-hcd pre: ehci-hcd foo
+softdep uhci-hcd pre: ehci-hcd foo post: foo
+"
+
+test Modprobe.lns get conf =
+ { "#comment" = "Various aliases" }
+ { "alias" = "alias_to_foo"
+ { "modulename" = "foo" }
+ }
+ { "alias" = "alias_to_bar"
+ { "modulename" = "bar" }
+ }
+ { "alias" = "alias_to_export_dep-$BITNESS"
+ { "modulename" = "export_dep-$BITNESS" }
+ }
+ { }
+ { "#comment" = "Various options, including options to aliases." }
+ { "options" = "alias_to_export_dep-$BITNESS"
+ { "I" }
+ { "am" }
+ { "alias" }
+ { "to" }
+ { "export_dep" }
+ }
+ { "options" = "alias_to_noexport_nodep-$BITNESS_with_tabbed_options"
+ { "index" = "0" }
+ { "id" = "\"Thinkpad\"" }
+ { "isapnp" = "0" }
+ { "port" = "0x530" }
+ { "cport" = "0x538" }
+ { "fm_port" = "0x388" }
+ { "mpu_port" = "-1" }
+ { "mpu_irq" = "-1" }
+ { "irq" = "9" }
+ { "dma1" = "1" }
+ { "dma2" = "3" }
+ { "enable" = "1" }
+ { "isapnp" = "0" }
+ }
+ { }
+ { "#comment" = "Blacklist" }
+ { "blacklist" = "watchdog_drivers" }
+ { }
+ { "#comment" = "Install commands" }
+ { "install" = "bar"
+ { "command" = "echo Installing bar" }
+ }
+ { "install" = "foo"
+ { "command" = "echo Installing foo" }
+ }
+ { "install" = "export_nodep-$BITNESS"
+ { "command" = "echo Installing export_nodep" }
+ }
+ { }
+ { "#comment" = "Remove commands" }
+ { "remove" = "bar"
+ { "command" = "echo Removing bar" }
+ }
+ { "remove" = "foo"
+ { "command" = "echo Removing foo" }
+ }
+ { "remove" = "export_nodep-$BITNESS"
+ { "command" = "echo Removing export_nodep" }
+ }
+ { }
+ { "#comment" = "Softdep" }
+ { "softdep" = "uhci-hcd"
+ { "post" = "foo" }
+ }
+ { "softdep" = "uhci-hcd"
+ { "pre" = "ehci-hcd" }
+ { "pre" = "foo" }
+ }
+ { "softdep" = "uhci-hcd"
+ { "pre" = "ehci-hcd" }
+ { "pre" = "foo" }
+ { "post" = "foo" }
+ }
+
+
+(* eol-comments *)
+test Modprobe.lns get "blacklist brokenmodule # never worked\n" =
+ { "blacklist" = "brokenmodule"
+ { "#comment" = "never worked" } }
+
+
+(* Ticket 108 *)
+let options_space_quote = "options name attr1=\"val\" attr2=\"val2 val3\"\n"
+
+test Modprobe.entry get options_space_quote =
+ { "options" = "name"
+ { "attr1" = "\"val\"" }
+ { "attr2" = "\"val2 val3\"" }
+ }
+
+(* Allow spaces around the '=', BZ 826752 *)
+test Modprobe.entry get "options ipv6 disable = 1\n" =
+ { "options" = "ipv6"
+ { "disable" = "1" } }
+
+(* Support multiline split commands, Ubuntu bug #1054306 *)
+test Modprobe.lns get "# /etc/modprobe.d/iwlwifi.conf
+# iwlwifi will dyamically load either iwldvm or iwlmvm depending on the
+# microcode file installed on the system. When removing iwlwifi, first
+# remove the iwl?vm module and then iwlwifi.
+remove iwlwifi \
+(/sbin/lsmod | grep -o -e ^iwlmvm -e ^iwldvm -e ^iwlwifi | xargs /sbin/rmmod) \
+&& /sbin/modprobe -r mac80211\n" =
+ { "#comment" = "/etc/modprobe.d/iwlwifi.conf" }
+ { "#comment" = "iwlwifi will dyamically load either iwldvm or iwlmvm depending on the" }
+ { "#comment" = "microcode file installed on the system. When removing iwlwifi, first" }
+ { "#comment" = "remove the iwl?vm module and then iwlwifi." }
+ { "remove" = "iwlwifi"
+ { "command" = "(/sbin/lsmod | grep -o -e ^iwlmvm -e ^iwldvm -e ^iwlwifi | xargs /sbin/rmmod) \\\n&& /sbin/modprobe -r mac80211" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_modules.aug b/Sharp.Augeas.Test/lens/tests/test_modules.aug
new file mode 100644
index 0000000..f024aca
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_modules.aug
@@ -0,0 +1,13 @@
+module Test_Modules =
+
+let conf = "# /etc/modules: kernel modules to load at boot time.
+
+lp
+rtc
+"
+
+test Modules.lns get conf =
+ { "#comment" = "/etc/modules: kernel modules to load at boot time." }
+ { }
+ { "lp" }
+ { "rtc" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_modules_conf.aug b/Sharp.Augeas.Test/lens/tests/test_modules_conf.aug
new file mode 100644
index 0000000..264bbb9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_modules_conf.aug
@@ -0,0 +1,120 @@
+module Test_modules_conf =
+
+(* Based on 04config.sh from module-init-tools *)
+
+let conf = "# Various aliases
+alias alias_to_foo foo
+alias alias_to_bar bar
+alias alias_to_export_dep-$BITNESS export_dep-$BITNESS
+
+# Various options, including options to aliases.
+options alias_to_export_dep-$BITNESS I am alias to export_dep
+options alias_to_noexport_nodep-$BITNESS_with_tabbed_options index=0 id=\"Thinkpad\" isapnp=0 \\
+\tport=0x530 cport=0x538 fm_port=0x388 \\
+\tmpu_port=-1 mpu_irq=-1 \\
+\tirq=9 dma1=1 dma2=3 \\
+\tenable=1 isapnp=0
+
+# Install commands
+install bar echo Installing bar
+install foo echo Installing foo
+install export_nodep-$BITNESS echo Installing export_nodep
+
+# Pre- and post- install something
+pre-install ide-scsi modprobe ide-cd # load ide-cd before ide-scsi
+post-install serial /etc/init.d/setserial modload > /dev/null 2> /dev/null
+
+# Remove commands
+remove bar echo Removing bar
+remove foo echo Removing foo
+remove export_nodep-$BITNESS echo Removing export_nodep
+
+#Pre- and post- remove something
+pre-remove serial /etc/init.d/setserial modsave > /dev/null 2> /dev/null
+post-remove bttv rmmod tuner
+
+# Misc other directives
+probeall /dev/cdroms
+keep
+path=/lib/modules/`uname -r`/alsa
+"
+
+test Modules_conf.lns get conf =
+ { "#comment" = "Various aliases" }
+ { "alias" = "alias_to_foo"
+ { "modulename" = "foo" }
+ }
+ { "alias" = "alias_to_bar"
+ { "modulename" = "bar" }
+ }
+ { "alias" = "alias_to_export_dep-$BITNESS"
+ { "modulename" = "export_dep-$BITNESS" }
+ }
+ { }
+ { "#comment" = "Various options, including options to aliases." }
+ { "options" = "alias_to_export_dep-$BITNESS"
+ { "I" }
+ { "am" }
+ { "alias" }
+ { "to" }
+ { "export_dep" }
+ }
+ { "options" = "alias_to_noexport_nodep-$BITNESS_with_tabbed_options"
+ { "index" = "0" }
+ { "id" = "\"Thinkpad\"" }
+ { "isapnp" = "0" }
+ { "port" = "0x530" }
+ { "cport" = "0x538" }
+ { "fm_port" = "0x388" }
+ { "mpu_port" = "-1" }
+ { "mpu_irq" = "-1" }
+ { "irq" = "9" }
+ { "dma1" = "1" }
+ { "dma2" = "3" }
+ { "enable" = "1" }
+ { "isapnp" = "0" }
+ }
+ { }
+ { "#comment" = "Install commands" }
+ { "install" = "bar"
+ { "command" = "echo Installing bar" }
+ }
+ { "install" = "foo"
+ { "command" = "echo Installing foo" }
+ }
+ { "install" = "export_nodep-$BITNESS"
+ { "command" = "echo Installing export_nodep" }
+ }
+ { }
+ { "#comment" = "Pre- and post- install something" }
+ { "pre-install" = "ide-scsi"
+ { "command" = "modprobe ide-cd" }
+ { "#comment" = "load ide-cd before ide-scsi" }
+ }
+ { "post-install" = "serial"
+ { "command" = "/etc/init.d/setserial modload > /dev/null 2> /dev/null" }
+ }
+ { }
+ { "#comment" = "Remove commands" }
+ { "remove" = "bar"
+ { "command" = "echo Removing bar" }
+ }
+ { "remove" = "foo"
+ { "command" = "echo Removing foo" }
+ }
+ { "remove" = "export_nodep-$BITNESS"
+ { "command" = "echo Removing export_nodep" }
+ }
+ { }
+ { "#comment" = "Pre- and post- remove something" }
+ { "pre-remove" = "serial"
+ { "command" = "/etc/init.d/setserial modsave > /dev/null 2> /dev/null" }
+ }
+ { "post-remove" = "bttv"
+ { "command" = "rmmod tuner" }
+ }
+ { }
+ { "#comment" = "Misc other directives" }
+ { "probeall" = "/dev/cdroms" }
+ { "keep" }
+ { "path" = "/lib/modules/`uname -r`/alsa" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_mongodbserver.aug b/Sharp.Augeas.Test/lens/tests/test_mongodbserver.aug
new file mode 100644
index 0000000..8363d7b
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_mongodbserver.aug
@@ -0,0 +1,31 @@
+(*
+Module: Test_MongoDBServer
+ Provides unit tests and examples for the <MongoDBServer> lens.
+*)
+
+module Test_MongoDBServer =
+
+(* Variable: conf *)
+let conf = "port = 27017
+fork = true
+pidfilepath = /var/run/mongodb/mongodb.pid
+logpath = /var/log/mongodb/mongodb.log
+dbpath =/var/lib/mongodb
+journal = true
+nohttpinterface = true
+"
+
+(* Test: MongoDBServer.lns *)
+test MongoDBServer.lns get conf =
+ { "port" = "27017" }
+ { "fork" = "true" }
+ { "pidfilepath" = "/var/run/mongodb/mongodb.pid" }
+ { "logpath" = "/var/log/mongodb/mongodb.log" }
+ { "dbpath" = "/var/lib/mongodb" }
+ { "journal" = "true" }
+ { "nohttpinterface" = "true" }
+
+(* Test: MongoDBServer.lns
+ Values have to be without quotes *)
+test MongoDBServer.lns get "port = 27017\n" =
+ { "port" = "27017" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_monit.aug b/Sharp.Augeas.Test/lens/tests/test_monit.aug
new file mode 100644
index 0000000..e27974d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_monit.aug
@@ -0,0 +1,35 @@
+module Test_monit =
+
+let conf = "# Configuration file for monit.
+#
+set alert root@localhost
+include /my/monit/conf
+
+check process sshd
+ start program \"/etc/init.d/ssh start\"
+ if failed port 22 protocol ssh then restart
+
+check process httpd with pidfile /usr/local/apache2/logs/httpd.pid
+ group www-data
+ start program \"/usr/local/apache2/bin/apachectl start\"
+ stop program \"/usr/local/apache2/bin/apachectl stop\"
+"
+
+test Monit.lns get conf =
+ { "#comment" = "Configuration file for monit." }
+ {}
+ { "set"
+ {"alert" = "root@localhost" } }
+ { "include" = "/my/monit/conf" }
+ {}
+ { "check"
+ { "process" = "sshd" }
+ { "start" = "program \"/etc/init.d/ssh start\"" }
+ { "if" = "failed port 22 protocol ssh then restart" } }
+ {}
+ { "check"
+ { "process" = "httpd with pidfile /usr/local/apache2/logs/httpd.pid" }
+ { "group" = "www-data" }
+ { "start" = "program \"/usr/local/apache2/bin/apachectl start\"" }
+ { "stop" = "program \"/usr/local/apache2/bin/apachectl stop\"" }
+}
diff --git a/Sharp.Augeas.Test/lens/tests/test_multipath.aug b/Sharp.Augeas.Test/lens/tests/test_multipath.aug
new file mode 100644
index 0000000..c32f1d4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_multipath.aug
@@ -0,0 +1,247 @@
+module Test_multipath =
+
+ let conf = "# Blacklist all devices by default.
+blacklist {
+ devnode \"*\"
+ wwid *
+}
+
+# By default, devices with vendor = \"IBM\" and product = \"S/390.*\" are
+# blacklisted. To enable mulitpathing on these devies, uncomment the
+# following lines.
+blacklist_exceptions {
+ device {
+ vendor \"IBM\"
+ product \"S/390.*\"
+ }
+}
+
+#
+# Here is an example of how to configure some standard options.
+#
+
+defaults {
+ udev_dir /dev
+ polling_interval 10
+ selector \"round-robin 0\"
+ path_grouping_policy multibus
+ getuid_callout \"/sbin/scsi_id --whitelisted /dev/%n\"
+ prio alua
+ path_checker readsector0
+ rr_min_io 100
+ max_fds 8192
+ rr_weight priorities
+ failback immediate
+ no_path_retry fail
+ user_friendly_names yes
+ dev_loss_tmo 30
+ max_polling_interval 300
+ verbosity 2
+ reassign_maps yes
+ fast_io_fail_tmo 5
+ async_timeout 5
+ flush_on_last_del no
+ delay_watch_checks no
+ delay_wait_checks no
+ find_multipaths yes
+ checker_timeout 10
+ hwtable_regex_match yes
+ reload_readwrite no
+ force_sync yes
+ config_dir /etc/multipath/conf.d
+}
+
+# Sections without empty lines in between
+blacklist {
+ wwid 26353900f02796769
+ devnode \"^(ram|raw|loop|fd|md|dm-|sr|scd|st)[0-9]*\"
+
+ # Comments and blank lines inside a section
+ devnode \"^hd[a-z]\"
+
+}
+multipaths {
+ multipath {
+ wwid 3600508b4000156d700012000000b0000
+ alias yellow
+ path_grouping_policy multibus
+ path_checker readsector0
+ path_selector \"round-robin 0\"
+ failback manual
+ rr_weight priorities
+ no_path_retry 5
+ flush_on_last_del yes
+ }
+ multipath {
+ wwid 1DEC_____321816758474
+ alias red
+ }
+}
+devices {
+ device {
+ vendor \"COMPAQ \"
+ product \"HSV110 (C)COMPAQ\"
+ path_grouping_policy multibus
+ getuid_callout \"/sbin/scsi_id --whitelisted /dev/%n\"
+ path_checker readsector0
+ path_selector \"round-robin 0\"
+ hardware_handler \"0\"
+ failback 15
+ rr_weight priorities
+ rr_min_io_rq 75
+ no_path_retry queue
+ reservation_key a12345
+ }
+ device {
+ vendor \"COMPAQ \"
+ product \"MSA1000 \"
+ path_grouping_policy multibus
+ polling_interval 9
+ delay_watch_checks 10
+ delay_wait_checks 10
+ }
+}\n"
+
+test Multipath.lns get conf =
+ { "#comment" = "Blacklist all devices by default." }
+ { "blacklist"
+ { "devnode" = "*" }
+ { "wwid" = "*" } }
+ { }
+ { "#comment" = "By default, devices with vendor = \"IBM\" and product = \"S/390.*\" are" }
+ { "#comment" = "blacklisted. To enable mulitpathing on these devies, uncomment the" }
+ { "#comment" = "following lines." }
+ { "blacklist_exceptions"
+ { "device"
+ { "vendor" = "IBM" }
+ { "product" = "S/390.*" } } }
+ { }
+ { }
+ { "#comment" = "Here is an example of how to configure some standard options." }
+ { }
+ { }
+ { "defaults"
+ { "udev_dir" = "/dev" }
+ { "polling_interval" = "10" }
+ { "selector" = "round-robin 0" }
+ { "path_grouping_policy" = "multibus" }
+ { "getuid_callout" = "/sbin/scsi_id --whitelisted /dev/%n" }
+ { "prio" = "alua" }
+ { "path_checker" = "readsector0" }
+ { "rr_min_io" = "100" }
+ { "max_fds" = "8192" }
+ { "rr_weight" = "priorities" }
+ { "failback" = "immediate" }
+ { "no_path_retry" = "fail" }
+ { "user_friendly_names" = "yes" }
+ { "dev_loss_tmo" = "30" }
+ { "max_polling_interval" = "300" }
+ { "verbosity" = "2" }
+ { "reassign_maps" = "yes" }
+ { "fast_io_fail_tmo" = "5" }
+ { "async_timeout" = "5" }
+ { "flush_on_last_del" = "no" }
+ { "delay_watch_checks" = "no" }
+ { "delay_wait_checks" = "no" }
+ { "find_multipaths" = "yes" }
+ { "checker_timeout" = "10" }
+ { "hwtable_regex_match" = "yes" }
+ { "reload_readwrite" = "no" }
+ { "force_sync" = "yes" }
+ { "config_dir" = "/etc/multipath/conf.d" } }
+ { }
+ { "#comment" = "Sections without empty lines in between" }
+ { "blacklist"
+ { "wwid" = "26353900f02796769" }
+ { "devnode" = "^(ram|raw|loop|fd|md|dm-|sr|scd|st)[0-9]*" }
+ { }
+ { "#comment" = "Comments and blank lines inside a section" }
+ { "devnode" = "^hd[a-z]" }
+ { } }
+ { "multipaths"
+ { "multipath"
+ { "wwid" = "3600508b4000156d700012000000b0000" }
+ { "alias" = "yellow" }
+ { "path_grouping_policy" = "multibus" }
+ { "path_checker" = "readsector0" }
+ { "path_selector" = "round-robin 0" }
+ { "failback" = "manual" }
+ { "rr_weight" = "priorities" }
+ { "no_path_retry" = "5" }
+ { "flush_on_last_del" = "yes" } }
+ { "multipath"
+ { "wwid" = "1DEC_____321816758474" }
+ { "alias" = "red" } } }
+ { "devices"
+ { "device"
+ { "vendor" = "COMPAQ " }
+ { "product" = "HSV110 (C)COMPAQ" }
+ { "path_grouping_policy" = "multibus" }
+ { "getuid_callout" = "/sbin/scsi_id --whitelisted /dev/%n" }
+ { "path_checker" = "readsector0" }
+ { "path_selector" = "round-robin 0" }
+ { "hardware_handler" = "0" }
+ { "failback" = "15" }
+ { "rr_weight" = "priorities" }
+ { "rr_min_io_rq" = "75" }
+ { "no_path_retry" = "queue" }
+ { "reservation_key" = "a12345" } }
+ { "device"
+ { "vendor" = "COMPAQ " }
+ { "product" = "MSA1000 " }
+ { "path_grouping_policy" = "multibus" }
+ { "polling_interval" = "9" }
+ { "delay_watch_checks" = "10" }
+ { "delay_wait_checks" = "10" } } }
+
+test Multipath.lns get "blacklist {
+ devnode \".*\"
+ wwid \"([a-z]+|ab?c).*\"
+}\n" =
+ { "blacklist"
+ { "devnode" = ".*" }
+ { "wwid" = "([a-z]+|ab?c).*" } }
+
+test Multipath.lns get "blacklist {\n property \"[a-z]+\"\n}\n" =
+ { "blacklist"
+ { "property" = "[a-z]+" } }
+
+(* Check that '""' inside a string works *)
+test Multipath.lns get "blacklist {
+ device {
+ vendor SomeCorp
+ product \"2.5\"\" SSD\"
+ }
+}\n" =
+ { "blacklist"
+ { "device"
+ { "vendor" = "SomeCorp" }
+ { "product" = "2.5\"\" SSD" } } }
+
+(* Issue #583 - allow optional quotes around values and strip them *)
+test Multipath.lns get "devices {
+ device {
+ vendor \"COMPELNT\"
+ product \"Compellent Vol\"
+ path_grouping_policy \"multibus\"
+ path_checker \"tur\"
+ features \"0\"
+ hardware_handler \"0\"
+ prio \"const\"
+ failback \"immediate\"
+ rr_weight \"uniform\"
+ no_path_retry \"queue\"
+ }
+}\n" =
+ { "devices"
+ { "device"
+ { "vendor" = "COMPELNT" }
+ { "product" = "Compellent Vol" }
+ { "path_grouping_policy" = "multibus" }
+ { "path_checker" = "tur" }
+ { "features" = "0" }
+ { "hardware_handler" = "0" }
+ { "prio" = "const" }
+ { "failback" = "immediate" }
+ { "rr_weight" = "uniform" }
+ { "no_path_retry" = "queue" } } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_mysql.aug b/Sharp.Augeas.Test/lens/tests/test_mysql.aug
new file mode 100644
index 0000000..9356204
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_mysql.aug
@@ -0,0 +1,283 @@
+module Test_mysql =
+
+ let conf = "# The MySQL database server configuration file.
+#
+# You can copy this to one of:
+#
+# One can use all long options that the program supports.
+# Run program with --help to get a list of available options and with
+# --print-defaults to see which it would actually understand and use.
+#
+# For explanations see
+# http://dev.mysql.com/doc/mysql/en/server-system-variables.html
+
+# This will be passed to all mysql clients
+# It has been reported that passwords should be enclosed with ticks/quotes
+# Remember to edit /etc/mysql/debian.cnf when changing the socket location.
+ [client]
+ port = 3306
+socket = /var/run/mysqld/mysqld.sock
+
+# Here is entries for some specific programs
+# The following values assume you have at least 32M ram
+
+# This was formally known as [safe_mysqld]. Both versions are currently parsed.
+ [mysqld_safe]
+socket = /var/run/mysqld/mysqld.sock
+nice = 0
+
+[mysqld]
+#
+# * Basic Settings
+#
+user = mysql
+pid-file = /var/run/mysqld/mysqld.pid
+socket = /var/run/mysqld/mysqld.sock
+port = 3306
+basedir = /usr
+datadir = /var/lib/mysql
+tmpdir = /tmp
+language = /usr/share/mysql/english
+ skip-external-locking
+#
+# Instead of skip-networking the default is now to listen only on
+# localhost which is more compatible and is not less secure.
+bind-address = 127.0.0.1
+#
+# * Fine Tuning
+#
+key_buffer = 16M
+max_allowed_packet = 16M
+thread_stack = 128K
+thread_cache_size = 8
+#max_connections = 100
+#table_cache = 64
+#thread_concurrency = 10
+#
+# * Query Cache Configuration
+#
+query_cache_limit = 1M
+query_cache_size = 16M
+#
+# * Logging and Replication
+#
+# Both location gets rotated by the cronjob.
+# Be aware that this log type is a performance killer.
+#log = /var/log/mysql/mysql.log
+#
+# Error logging goes to syslog. This is a Debian improvement :)
+#
+# Here you can see queries with especially long duration
+#log_slow_queries = /var/log/mysql/mysql-slow.log
+#long_query_time = 2
+#log-queries-not-using-indexes
+#
+# The following can be used as easy to replay backup logs or for replication.
+#server-id = 1
+#log_bin = /var/log/mysql/mysql-bin.log
+# WARNING: Using expire_logs_days without bin_log crashes the server! See README.Debian!
+#expire_logs_days = 10
+#max_binlog_size = 100M
+#binlog_do_db = include_database_name
+#binlog_ignore_db = include_database_name
+#
+# * BerkeleyDB
+#
+# Using BerkeleyDB is now discouraged as its support will cease in 5.1.12.
+skip-bdb
+#
+# * InnoDB
+#
+# InnoDB is enabled by default with a 10MB datafile in /var/lib/mysql/.
+# Read the manual for more InnoDB related options. There are many!
+# You might want to disable InnoDB to shrink the mysqld process by circa 100MB.
+#skip-innodb
+#
+# * Security Features
+#
+# Read the manual, too, if you want chroot!
+# chroot = /var/lib/mysql/
+#
+#
+# ssl-ca=/etc/mysql/cacert.pem
+# ssl-cert=/etc/mysql/server-cert.pem
+# ssl-key=/etc/mysql/server-key.pem
+
+
+
+[mysqldump]
+quick
+quote-names
+max_allowed_packet = 16M
+
+[mysql]
+#no-auto-rehash # faster start of mysql but no tab completition
+
+[isamchk]
+key_buffer = 16M
+
+#
+# * NDB Cluster
+#
+# See /usr/share/doc/mysql-server-*/README.Debian for more information.
+#
+# The following configuration is read by the NDB Data Nodes (ndbd processes)
+# not from the NDB Management Nodes (ndb_mgmd processes).
+#
+# [MYSQL_CLUSTER]
+# ndb-connectstring=127.0.0.1
+
+
+#
+# * IMPORTANT: Additional settings that can override those from this file!
+#
+!includedir /etc/mysql/conf.d/
+!include /etc/mysql/other_conf.d/someconf.cnf
+# Another comment
+
+"
+
+
+ test MySQL.lns get conf = { "#comment" = "The MySQL database server configuration file." }
+ {}
+ { "#comment" = "You can copy this to one of:" }
+ {}
+ { "#comment" = "One can use all long options that the program supports." }
+ { "#comment" = "Run program with --help to get a list of available options and with" }
+ { "#comment" = "--print-defaults to see which it would actually understand and use." }
+ {}
+ { "#comment" = "For explanations see" }
+ { "#comment" = "http://dev.mysql.com/doc/mysql/en/server-system-variables.html" }
+ { }
+ { "#comment" = "This will be passed to all mysql clients" }
+ { "#comment" = "It has been reported that passwords should be enclosed with ticks/quotes" }
+ { "#comment" = "Remember to edit /etc/mysql/debian.cnf when changing the socket location." }
+ { "target" = "client"
+ { "port" = "3306" }
+ { "socket" = "/var/run/mysqld/mysqld.sock" }
+ { }
+ { "#comment" = "Here is entries for some specific programs" }
+ { "#comment" = "The following values assume you have at least 32M ram" }
+ { }
+ { "#comment" = "This was formally known as [safe_mysqld]. Both versions are currently parsed." }
+ }
+ { "target" = "mysqld_safe"
+ { "socket" = "/var/run/mysqld/mysqld.sock" }
+ { "nice" = "0" }
+ { }
+ }
+ { "target" = "mysqld"
+ {}
+ { "#comment" = "* Basic Settings" }
+ {}
+ { "user" = "mysql" }
+ { "pid-file" = "/var/run/mysqld/mysqld.pid" }
+ { "socket" = "/var/run/mysqld/mysqld.sock" }
+ { "port" = "3306" }
+ { "basedir" = "/usr" }
+ { "datadir" = "/var/lib/mysql" }
+ { "tmpdir" = "/tmp" }
+ { "language" = "/usr/share/mysql/english" }
+ { "skip-external-locking" = "" }
+ {}
+ { "#comment" = "Instead of skip-networking the default is now to listen only on" }
+ { "#comment" = "localhost which is more compatible and is not less secure." }
+ { "bind-address" = "127.0.0.1" }
+ {}
+ { "#comment" = "* Fine Tuning" }
+ {}
+ { "key_buffer" = "16M" }
+ { "max_allowed_packet" = "16M" }
+ { "thread_stack" = "128K" }
+ { "thread_cache_size" = "8" }
+ { "#comment" = "max_connections = 100" }
+ { "#comment" = "table_cache = 64" }
+ { "#comment" = "thread_concurrency = 10" }
+ {}
+ { "#comment" = "* Query Cache Configuration" }
+ {}
+ { "query_cache_limit" = "1M" }
+ { "query_cache_size" = "16M" }
+ {}
+ { "#comment" = "* Logging and Replication" }
+ {}
+ { "#comment" = "Both location gets rotated by the cronjob." }
+ { "#comment" = "Be aware that this log type is a performance killer." }
+ { "#comment" = "log = /var/log/mysql/mysql.log" }
+ {}
+ { "#comment" = "Error logging goes to syslog. This is a Debian improvement :)" }
+ {}
+ { "#comment" = "Here you can see queries with especially long duration" }
+ { "#comment" = "log_slow_queries = /var/log/mysql/mysql-slow.log" }
+ { "#comment" = "long_query_time = 2" }
+ { "#comment" = "log-queries-not-using-indexes" }
+ {}
+ { "#comment" = "The following can be used as easy to replay backup logs or for replication." }
+ { "#comment" = "server-id = 1" }
+ { "#comment" = "log_bin = /var/log/mysql/mysql-bin.log" }
+ { "#comment" = "WARNING: Using expire_logs_days without bin_log crashes the server! See README.Debian!" }
+ { "#comment" = "expire_logs_days = 10" }
+ { "#comment" = "max_binlog_size = 100M" }
+ { "#comment" = "binlog_do_db = include_database_name" }
+ { "#comment" = "binlog_ignore_db = include_database_name" }
+ {}
+ { "#comment" = "* BerkeleyDB" }
+ {}
+ { "#comment" = "Using BerkeleyDB is now discouraged as its support will cease in 5.1.12." }
+ { "skip-bdb" = "" }
+ {}
+ { "#comment" = "* InnoDB" }
+ {}
+ { "#comment" = "InnoDB is enabled by default with a 10MB datafile in /var/lib/mysql/." }
+ { "#comment" = "Read the manual for more InnoDB related options. There are many!" }
+ { "#comment" = "You might want to disable InnoDB to shrink the mysqld process by circa 100MB." }
+ { "#comment" = "skip-innodb" }
+ {}
+ { "#comment" = "* Security Features" }
+ {}
+ { "#comment" = "Read the manual, too, if you want chroot!" }
+ { "#comment" = "chroot = /var/lib/mysql/" }
+ {}
+ {}
+ { "#comment" = "ssl-ca=/etc/mysql/cacert.pem" }
+ { "#comment" = "ssl-cert=/etc/mysql/server-cert.pem" }
+ { "#comment" = "ssl-key=/etc/mysql/server-key.pem" }
+ { }
+ { }
+ { }
+ }
+ { "target" = "mysqldump"
+ { "quick" = "" }
+ { "quote-names" = "" }
+ { "max_allowed_packet" = "16M" }
+ { }
+ }
+ { "target" = "mysql"
+ { "#comment" = "no-auto-rehash # faster start of mysql but no tab completition" }
+ { }
+ }
+ { "target" = "isamchk"
+ { "key_buffer" = "16M" }
+ { }
+ {}
+ { "#comment" = "* NDB Cluster" }
+ {}
+ { "#comment" = "See /usr/share/doc/mysql-server-*/README.Debian for more information." }
+ {}
+ { "#comment" = "The following configuration is read by the NDB Data Nodes (ndbd processes)" }
+ { "#comment" = "not from the NDB Management Nodes (ndb_mgmd processes)." }
+ {}
+ { "#comment" = "[MYSQL_CLUSTER]" }
+ { "#comment" = "ndb-connectstring=127.0.0.1" }
+ { }
+ { }
+ {}
+ { "#comment" = "* IMPORTANT: Additional settings that can override those from this file!" }
+ {}
+ }
+ { "!includedir" = "/etc/mysql/conf.d/" }
+ { "!include" = "/etc/mysql/other_conf.d/someconf.cnf" }
+ { "#comment" = "Another comment" }
+ { }
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_nagioscfg.aug b/Sharp.Augeas.Test/lens/tests/test_nagioscfg.aug
new file mode 100644
index 0000000..5552341
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_nagioscfg.aug
@@ -0,0 +1,89 @@
+(*
+Module: Test_NagiosCfg
+ Provides unit tests and examples for the <NagiosCfg> lens.
+*)
+
+module Test_NagiosCfg =
+ let conf="
+# LOG FILE
+log_file=/var/log/nagios3/nagios.log
+
+# OBJECT CONFIGURATION FILE(S)
+cfg_file=/etc/nagios3/objects/check_commands.cfg
+cfg_file=/etc/nagios3/objects/contact_groups.cfg
+cfg_file=/etc/nagios3/objects/contacts.cfg
+cfg_file=/etc/nagios3/objects/hostgroups.cfg
+cfg_file=/etc/nagios3/objects/hosts.cfg
+cfg_file=/etc/nagios3/objects/services.cfg
+
+# NAGIOS USER
+nagios_user=nagios
+
+# NAGIOS GROUP
+nagios_group=nagios
+
+# DATE FORMAT
+date_format=iso8601
+
+# ILLEGAL OBJECT NAME CHARS
+illegal_object_name_chars=`~!$%^&*|'\"<>?,()'=
+
+# ILLEGAL MACRO OUTPUT CHARS
+illegal_macro_output_chars=`~$&|'\"<>
+
+# MISC DIRECTIVES
+p1_file=/usr/lib/nagios3/p1.pl
+event_broker_options=-1
+use_large_installation_tweaks=1
+broker_module=/usr/lib/nagios3/libNagiosCluster-1.0.so.4.0.0
+broker_module=/usr/sbin/ndomod.o config_file=/etc/nagios3/ndomod.cfg
+"
+
+ test NagiosCfg.lns get conf =
+ {}
+ { "#comment" = "LOG FILE" }
+ { "log_file" = "/var/log/nagios3/nagios.log" }
+ {}
+ { "#comment" = "OBJECT CONFIGURATION FILE(S)" }
+ { "cfg_file" = "/etc/nagios3/objects/check_commands.cfg" }
+ { "cfg_file" = "/etc/nagios3/objects/contact_groups.cfg" }
+ { "cfg_file" = "/etc/nagios3/objects/contacts.cfg" }
+ { "cfg_file" = "/etc/nagios3/objects/hostgroups.cfg" }
+ { "cfg_file" = "/etc/nagios3/objects/hosts.cfg" }
+ { "cfg_file" = "/etc/nagios3/objects/services.cfg" }
+ {}
+ { "#comment" = "NAGIOS USER" }
+ { "nagios_user" = "nagios" }
+ {}
+ { "#comment" = "NAGIOS GROUP" }
+ { "nagios_group"= "nagios" }
+ {}
+ { "#comment" = "DATE FORMAT" }
+ { "date_format" = "iso8601" }
+ {}
+ { "#comment" = "ILLEGAL OBJECT NAME CHARS" }
+ { "illegal_object_name_chars" = "`~!$%^&*|'\"<>?,()'=" }
+ {}
+ { "#comment" = "ILLEGAL MACRO OUTPUT CHARS" }
+ { "illegal_macro_output_chars" = "`~$&|'\"<>" }
+ {}
+ { "#comment" = "MISC DIRECTIVES" }
+ { "p1_file" = "/usr/lib/nagios3/p1.pl" }
+ { "event_broker_options" = "-1" }
+ { "use_large_installation_tweaks" = "1" }
+ { "broker_module" = "/usr/lib/nagios3/libNagiosCluster-1.0.so.4.0.0" }
+ { "broker_module" = "/usr/sbin/ndomod.o"
+ { "config_file" = "/etc/nagios3/ndomod.cfg" } }
+
+
+(* Spaces are fine in values *)
+let space_in = "nagios_check_command=/usr/lib/nagios/plugins/check_nagios /var/cache/nagios3/status.dat 5 '/usr/sbin/nagios3'\n"
+
+test NagiosCfg.lns get space_in =
+ { "nagios_check_command" = "/usr/lib/nagios/plugins/check_nagios /var/cache/nagios3/status.dat 5 '/usr/sbin/nagios3'" }
+
+test NagiosCfg.lns get "$USER1$=/usr/local/libexec/nagios\n" =
+ { "$USER1$" = "/usr/local/libexec/nagios" }
+
+test NagiosCfg.lns get "$USER3$=somepassword\n" =
+ { "$USER3$" = "somepassword" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_nagiosobjects.aug b/Sharp.Augeas.Test/lens/tests/test_nagiosobjects.aug
new file mode 100644
index 0000000..20b02d8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_nagiosobjects.aug
@@ -0,0 +1,61 @@
+module Test_NagiosObjects =
+ let conf="
+#
+# Nagios Objects definitions file
+#
+
+define host {
+ host_name plonk
+ alias plonk
+ address plonk
+ use generic_template
+ contact_groups Monitoring-Team,admins
+}
+
+define service {
+ service_description gen
+ use generic_template_passive
+ host_name plonk
+ check_command nopassivecheckreceived
+ contact_groups admins
+}
+
+; This is a semicolon comment
+
+define service{
+ service_description gen2
+ use generic_template_passive
+ host_name plonk
+ }
+"
+
+ test NagiosObjects.lns get conf =
+ {}
+ {}
+ { "#comment" = "Nagios Objects definitions file" }
+ {}
+ {}
+ { "host"
+ { "host_name" = "plonk" }
+ { "alias" = "plonk" }
+ { "address" = "plonk" }
+ { "use" = "generic_template" }
+ { "contact_groups" = "Monitoring-Team,admins" }
+ }
+ {}
+ { "service"
+ { "service_description" = "gen" }
+ { "use" = "generic_template_passive" }
+ { "host_name" = "plonk" }
+ { "check_command" = "nopassivecheckreceived" }
+ { "contact_groups" = "admins" }
+ }
+ {}
+ { "#comment" = "This is a semicolon comment" }
+ {}
+ { "service"
+ { "service_description" = "gen2" }
+ { "use" = "generic_template_passive" }
+ { "host_name" = "plonk" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_netmasks.aug b/Sharp.Augeas.Test/lens/tests/test_netmasks.aug
new file mode 100644
index 0000000..57a9edc
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_netmasks.aug
@@ -0,0 +1,26 @@
+(* Test for netmasks lens *)
+module Test_netmasks =
+
+ let conf = "# The netmasks file associates Internet Protocol (IP) address
+# masks with IP network numbers.
+#
+
+192.168.1.0 255.255.255.0
+10.0.0.0 255.0.0.0
+"
+
+ test Netmasks.lns get conf =
+ { "#comment" = "The netmasks file associates Internet Protocol (IP) address" }
+ { "#comment" = "masks with IP network numbers." }
+ { }
+ { }
+ { "1"
+ { "network" = "192.168.1.0" }
+ { "netmask" = "255.255.255.0" } }
+ { "2"
+ { "network" = "10.0.0.0" }
+ { "netmask" = "255.0.0.0" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_networkmanager.aug b/Sharp.Augeas.Test/lens/tests/test_networkmanager.aug
new file mode 100644
index 0000000..cda2e67
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_networkmanager.aug
@@ -0,0 +1,98 @@
+(*
+Module: Test_NetworkManager
+ Provides unit tests and examples for the <NetworkManager> lens.
+*)
+
+module Test_NetworkManager =
+
+(* Variable: conf *)
+let conf = "[connection]
+id=wifoobar
+uuid=16fa8830-cf15-4523-8c1f-c6c635246855
+permissions=user:foo:;
+type=802-11-wireless
+
+[802-11-wireless]
+ssid=wifoobar
+mode=infrastructure
+mac-address=11:00:99:33:33:AA
+security=802-11-wireless-security
+
+[802-11-wireless-security]
+key-mgmt=none
+wep-key0=123abc123abc
+
+[ipv4]
+method=auto
+
+[ipv6]
+method=auto
+
+[vpn]
+NAT Traversal Mode=natt
+DPD idle timeout (our side)=0\n"
+
+let conf_psk = "[wifi]
+ssid=TEST
+mode=infrastructure
+
+[wifi-security]
+key-mgmt=wpa-psk
+auth-alg=open
+psk=\"#weird but valid psk!\"\n"
+
+let conf_empty = ""
+
+(* Test: NetworkManager.lns *)
+test NetworkManager.lns get conf =
+ { "connection"
+ { "id" = "wifoobar" }
+ { "uuid" = "16fa8830-cf15-4523-8c1f-c6c635246855" }
+ { "permissions" = "user:foo:;" }
+ { "type" = "802-11-wireless" }
+ { }
+ }
+ { "802-11-wireless"
+ { "ssid" = "wifoobar" }
+ { "mode" = "infrastructure" }
+ { "mac-address" = "11:00:99:33:33:AA" }
+ { "security" = "802-11-wireless-security" }
+ { }
+ }
+ { "802-11-wireless-security"
+ { "key-mgmt" = "none" }
+ { "wep-key0" = "123abc123abc" }
+ { }
+ }
+ { "ipv4"
+ { "method" = "auto" }
+ { }
+ }
+ { "ipv6"
+ { "method" = "auto" }
+ { }
+ }
+ { "vpn"
+ { "NAT Traversal Mode" = "natt" }
+ { "DPD idle timeout (our side)" = "0" }
+ }
+
+(* Test: NetworkManager.lns - nontrivial WPA-PSK *)
+test NetworkManager.lns get conf_psk =
+ { "wifi"
+ { "ssid" = "TEST" }
+ { "mode" = "infrastructure" }
+ { }
+ }
+ { "wifi-security"
+ { "key-mgmt" = "wpa-psk" }
+ { "auth-alg" = "open" }
+ { "psk" = "\"#weird but valid psk!\"" }
+ }
+
+(* Test: NetworkManager.lns - write new values unquoted *)
+test NetworkManager.lns put conf_empty after
+ insa "wifi-security" "/";
+ set "wifi-security/psk" "#the key"
+ = "[wifi-security]
+psk=#the key\n"
diff --git a/Sharp.Augeas.Test/lens/tests/test_networks.aug b/Sharp.Augeas.Test/lens/tests/test_networks.aug
new file mode 100644
index 0000000..d5caf10
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_networks.aug
@@ -0,0 +1,50 @@
+module Test_Networks =
+
+let conf = "# Sample networks
+default 0.0.0.0 # default route - mandatory
+loopnet 127.0.0.0 loopnet_alias loopnet_alias2 # loopback network - mandatory
+mynet 128.253.154 # Modify for your own network address
+
+loopback 127
+arpanet 10 arpa # Historical
+localnet 192.168.25.192
+"
+
+test Networks.lns get conf =
+ { "#comment" = "Sample networks" }
+ { "1"
+ { "name" = "default" }
+ { "number" = "0.0.0.0" }
+ { "#comment" = "default route - mandatory" }
+ }
+ { "2"
+ { "name" = "loopnet" }
+ { "number" = "127.0.0.0" }
+ { "aliases"
+ { "1" = "loopnet_alias" }
+ { "2" = "loopnet_alias2" }
+ }
+ { "#comment" = "loopback network - mandatory" }
+ }
+ { "3"
+ { "name" = "mynet" }
+ { "number" = "128.253.154" }
+ { "#comment" = "Modify for your own network address" }
+ }
+ {}
+ { "4"
+ { "name" = "loopback" }
+ { "number" = "127" }
+ }
+ { "5"
+ { "name" = "arpanet" }
+ { "number" = "10" }
+ { "aliases"
+ { "1" = "arpa" }
+ }
+ { "#comment" = "Historical" }
+ }
+ { "6"
+ { "name" = "localnet" }
+ { "number" = "192.168.25.192" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_nginx.aug b/Sharp.Augeas.Test/lens/tests/test_nginx.aug
new file mode 100644
index 0000000..38336b0
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_nginx.aug
@@ -0,0 +1,299 @@
+(*
+Module: Test_Nginx
+ Provides unit tests and examples for the <Nginx> lens.
+*)
+module Test_nginx =
+
+(* Check for non-recursive ambiguities *)
+let directive = Nginx.simple
+ | Nginx.block (
+ Nginx.simple
+ | Nginx.block Nginx.simple
+ )
+
+(* Do some limited typechecking on the recursive lens; note that
+ unrolling once more leads to a typecheck error that seems to
+ be spurious, though it's not clear why
+
+ Unrolling once more amounts to adding the clause
+ Nginx.block (Nginx.block Nginx.simple)
+ to unrolled and results in an error
+ overlapping lenses in union.get
+ Example matched by both: 'upstream{}\n'
+*)
+let unrolled = Nginx.simple | Nginx.block Nginx.simple
+
+let lns_unrolled = (Util.comment | Util.empty | unrolled)
+
+(* Normal unit tests *)
+let lns = Nginx.lns
+
+let conf ="user nginx nginx;
+worker_processes 1;
+error_log /var/log/nginx/error_log info;
+
+events {
+ worker_connections 1024;
+ use epoll;
+}
+
+# comment1
+# comment2
+
+http {
+ # comment3
+ include /etc/nginx/mime.types;
+ default_type application/octet-stream;
+ log_format main
+ '$remote_addr - $remote_user [$time_local] '
+ '\"$request\" $status $bytes_sent '
+ '\"$http_referer\" \"$http_user_agent\" '
+ '\"$gzip_ratio\"';
+ client_header_timeout 10m;
+ client_body_timeout 10m;
+ send_timeout 10m;
+ connection_pool_size 256;
+ client_header_buffer_size 2k;
+ large_client_header_buffers 4 8k;
+ request_pool_size 4k;
+ gzip on;
+ gzip_min_length 1000;
+ gzip_buffers 4 8k;
+ gzip_types text/plain application/json;
+ output_buffers 1 32k;
+ postpone_output 1460;
+ sendfile on;
+ tcp_nopush on;
+ tcp_nodelay on;
+ keepalive_timeout 75 20;
+ ignore_invalid_headers on;
+ index index.html index.php;
+ include vhosts/*.conf;
+}
+"
+
+test lns get conf =
+ { "user" = "nginx nginx" }
+ { "worker_processes" = "1" }
+ { "error_log" = "/var/log/nginx/error_log info" }
+ {}
+ { "events"
+ { "worker_connections" = "1024" }
+ { "use" = "epoll" } }
+ {}
+ { "#comment" = "comment1" }
+ { "#comment" = "comment2" }
+ {}
+ { "http"
+ { "#comment" = "comment3" }
+ { "include" = "/etc/nginx/mime.types" }
+ { "default_type" = "application/octet-stream" }
+ { "log_format" = "main
+ '$remote_addr - $remote_user [$time_local] '
+ '\"$request\" $status $bytes_sent '
+ '\"$http_referer\" \"$http_user_agent\" '
+ '\"$gzip_ratio\"'" }
+ { "client_header_timeout" = "10m" }
+ { "client_body_timeout" = "10m" }
+ { "send_timeout" = "10m" }
+ { "connection_pool_size" = "256" }
+ { "client_header_buffer_size" = "2k" }
+ { "large_client_header_buffers" = "4 8k" }
+ { "request_pool_size" = "4k" }
+ { "gzip" = "on" }
+ { "gzip_min_length" = "1000" }
+ { "gzip_buffers" = "4 8k" }
+ { "gzip_types" = "text/plain application/json" }
+ { "output_buffers" = "1 32k" }
+ { "postpone_output" = "1460" }
+ { "sendfile" = "on" }
+ { "tcp_nopush" = "on" }
+ { "tcp_nodelay" = "on" }
+ { "keepalive_timeout" = "75 20" }
+ { "ignore_invalid_headers" = "on" }
+ { "index" = "index.html index.php" }
+ { "include" = "vhosts/*.conf" } }
+
+(* location blocks *)
+test lns get "location / { }\n" =
+ { "location"
+ { "#uri" = "/" } }
+
+test lns get "location = / { }\n" =
+ { "location"
+ { "#comp" = "=" }
+ { "#uri" = "/" } }
+
+test lns get "location /documents/ { }\n" =
+ { "location"
+ { "#uri" = "/documents/" } }
+
+test lns get "location ^~ /images/ { }\n" =
+ { "location"
+ { "#comp" = "^~" }
+ { "#uri" = "/images/" } }
+
+test lns get "location ~* \.(gif|jpg|jpeg)$ { }\n" =
+ { "location"
+ { "#comp" = "~*" }
+ { "#uri" = "\.(gif|jpg|jpeg)$" } }
+
+test lns get "location @fallback { }\n" =
+ { "location"
+ { "#uri" = "@fallback" } }
+
+(* if blocks *)
+test lns get "if ($slow) {
+ tcp_nodelay on;
+}\n" =
+ { "if"
+ { "#cond" = "($slow)" }
+ { "tcp_nodelay" = "on" } }
+
+test lns get "if ($request_method = POST) { }\n" =
+ { "if"
+ { "#cond" = "($request_method = POST)" } }
+
+
+test lns get "if ($http_cookie ~* \"id=([^;]+)(?:;|$)\") { }\n" =
+ { "if"
+ { "#cond" = "($http_cookie ~* \"id=([^;]+)(?:;|$)\")" } }
+
+(* geo blocks *)
+test lns get "geo $geo { }\n" =
+ { "geo"
+ { "#geo" = "$geo" } }
+
+test lns get "geo $address $geo { }\n" =
+ { "geo"
+ { "#address" = "$address" }
+ { "#geo" = "$geo" } }
+
+(* map blocks *)
+test lns get "map $http_host $name { }\n" =
+ { "map"
+ { "#source" = "$http_host" }
+ { "#variable" = "$name" } }
+
+(* split_clients block *)
+test lns get "split_clients \"${remote_addr}AAA\" $variable { }\n" =
+ { "split_clients"
+ { "#string" = "\"${remote_addr}AAA\"" }
+ { "#variable" = "$variable" } }
+
+(* upstream block *)
+test lns get "upstream backend { }\n" =
+ { "upstream"
+ { "#name" = "backend" } }
+
+(* GH #179 - recursive blocks *)
+let http = "http {
+ server {
+ listen 80;
+ location / {
+ root\thtml;
+ }
+ }
+ gzip on;
+}\n"
+
+test lns get http =
+ { "http"
+ { "server"
+ { "listen" = "80" }
+ { "location"
+ { "#uri" = "/" }
+ { "root" = "html" } } }
+ { "gzip" = "on" } }
+
+
+(* GH #335 - server single line entries *)
+let http_server_single_line_entries = "http {
+ upstream big_server_com {
+ server 127.0.0.3:8000 weight=5;
+ server 127.0.0.3:8001 weight=5;
+ server 192.168.0.1:8000;
+ server 192.168.0.1:8001;
+ server backend2.example.com:8080 fail_timeout=5s slow_start=30s;
+ server backend3.example.com resolve;
+ }
+}\n"
+
+test lns get http_server_single_line_entries =
+ { "http"
+ { "upstream"
+ { "#name" = "big_server_com" }
+ { "@server" { "@address" = "127.0.0.3:8000" } { "weight" = "5" } }
+ { "@server" { "@address" = "127.0.0.3:8001" } { "weight" = "5" } }
+ { "@server" { "@address" = "192.168.0.1:8000" } }
+ { "@server" { "@address" = "192.168.0.1:8001" } }
+ { "@server"
+ { "@address" = "backend2.example.com:8080" }
+ { "fail_timeout" = "5s" }
+ { "slow_start" = "30s" } }
+ { "@server"
+ { "@address" = "backend3.example.com" }
+ { "resolve" } } } }
+
+(* Make sure we do not screw up the indentation of the file *)
+test lns put http after set "/http/gzip" "off" =
+"http {
+ server {
+ listen 80;
+ location / {
+ root\thtml;
+ }
+ }
+ gzip off;
+}\n"
+
+(* Test lns
+ GH #260 *)
+test lns get "http {
+ geo $geo {
+ default 0;
+
+ 127.0.0.1 2;
+ 192.168.1.0/24 1;
+ 10.1.0.0/16 1;
+
+ ::1 2;
+ 2001:0db8::/32 1;
+ }
+}\n" =
+ { "http"
+ { "geo"
+ { "#geo" = "$geo" }
+ { "default" = "0" }
+ { }
+ { "127.0.0.1" = "2" }
+ { "192.168.1.0" = "1"
+ { "mask" = "24" } }
+ { "10.1.0.0" = "1"
+ { "mask" = "16" } }
+ { }
+ { "::1" = "2" }
+ { "2001:0db8::" = "1"
+ { "mask" = "32" } } } }
+
+test lns get "add_header X-XSS-Protection \"1; mode=block\" always;\n" =
+ { "add_header" = "X-XSS-Protection \"1; mode=block\" always" }
+
+test lns get "location /foo {
+ root /var/www/html;
+ internal; # only valid in location blocks
+}\n" =
+ { "location"
+ { "#uri" = "/foo" }
+ { "root" = "/var/www/html" }
+ { "internal"
+ { "#comment" = "only valid in location blocks" } } }
+
+test lns get "upstream php-handler {
+ server unix:/var/run/php/php7.3-fpm.sock;
+}\n" =
+ { "upstream"
+ { "#name" = "php-handler" }
+ { "@server"
+ { "@address" = "unix:/var/run/php/php7.3-fpm.sock" } } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_nrpe.aug b/Sharp.Augeas.Test/lens/tests/test_nrpe.aug
new file mode 100644
index 0000000..e86a241
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_nrpe.aug
@@ -0,0 +1,101 @@
+module Test_nrpe =
+
+ let command = "command[foo]=bar\n"
+
+ test Nrpe.command get command =
+ { "command"
+ { "foo" = "bar" }
+ }
+
+
+ let item = "nrpe_user=nagios\n"
+
+ test Nrpe.item get item =
+ { "nrpe_user" = "nagios" }
+
+
+ let include = "include=/path/to/file.cfg\n"
+
+ test Nrpe.include get include =
+ { "include"
+ { "file" = "/path/to/file.cfg" }
+ }
+
+
+ let comment = "# a comment\n"
+
+ test Nrpe.comment get comment =
+ { "#comment" = "a comment" }
+
+
+ let empty = "# \n"
+
+ test Nrpe.empty get empty =
+ { }
+
+
+ (* Debian bug #749919 *)
+ let allowed_hosts_1 = "allowed_hosts=127.0.0.1\n"
+
+ test Nrpe.item get allowed_hosts_1 =
+ { "allowed_hosts" = "127.0.0.1" }
+
+
+ let allowed_hosts_2 = "allowed_hosts=127.0.0.1, 127.0.0.2\n"
+
+ test Nrpe.item get allowed_hosts_2 =
+ { "allowed_hosts" = "127.0.0.1, 127.0.0.2" }
+
+
+ let lns = "
+#
+# server address:
+server_address=127.0.0.1
+
+nrpe_user=nagios
+nrpe_group=nagios
+
+include=/etc/nrpe_local.cfg
+
+command[check_users]=/usr/lib/nagios/check_users -w 5 -c 10
+command[check_load]=/usr/lib/nagios/check_load -w 15,10,5 -c 30,25,20
+command[check_mongoscl_proc]=/usr/lib64/nagios/plugins/check_procs -c 1:1 --ereg-argument-array=mongosCL
+command[test_command]= foo bar \n
+include=/etc/nrpe/nrpe.cfg
+include_dir=/etc/nrpe/cfgdir/ \n
+# trailing whitespaces \n"
+
+ test Nrpe.lns get lns =
+ { }
+ { }
+ { "#comment" = "server address:" }
+ { "server_address" = "127.0.0.1" }
+ { }
+ { "nrpe_user" = "nagios" }
+ { "nrpe_group" = "nagios" }
+ { }
+ { "include"
+ { "file" = "/etc/nrpe_local.cfg" }
+ }
+ { }
+ { "command"
+ { "check_users" = "/usr/lib/nagios/check_users -w 5 -c 10" }
+ }
+ { "command"
+ { "check_load" = "/usr/lib/nagios/check_load -w 15,10,5 -c 30,25,20" }
+ }
+ { "command"
+ { "check_mongoscl_proc" = "/usr/lib64/nagios/plugins/check_procs -c 1:1 --ereg-argument-array=mongosCL" }
+ }
+ { "command"
+ { "test_command" = " foo bar " }
+ }
+ { }
+ { "include"
+ { "file" = "/etc/nrpe/nrpe.cfg" }
+ }
+ { "include_dir"
+ { "dir" = "/etc/nrpe/cfgdir/" }
+ }
+ { }
+ { "#comment" = "trailing whitespaces" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_nslcd.aug b/Sharp.Augeas.Test/lens/tests/test_nslcd.aug
new file mode 100644
index 0000000..7d3d4e4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_nslcd.aug
@@ -0,0 +1,415 @@
+(*
+Module: Test_Nslcd
+ Provides unit tests and examples for the <Nslcd> lens.
+*)
+
+module Test_nslcd =
+
+let real_file = "# /etc/nslcd.conf
+# nslcd configuration file. See nslcd.conf(5)
+# for details.
+
+# Specifies the number of threads to start that can handle requests and perform LDAP queries.
+threads 5
+
+# The user and group nslcd should run as.
+uid nslcd
+gid nslcd
+
+# This option controls the way logging is done.
+log syslog info
+
+# The location at which the LDAP server(s) should be reachable.
+uri ldaps://XXX.XXX.XXX ldaps://YYY.YYY.YYY
+
+# The search base that will be used for all queries.
+base dc=XXX,dc=XXX
+
+# The LDAP protocol version to use.
+ldap_version 3
+
+# The DN to bind with for normal lookups.
+binddn cn=annonymous,dc=example,dc=net
+bindpw secret
+
+
+# The DN used for password modifications by root.
+rootpwmoddn cn=admin,dc=example,dc=com
+
+# The password used for password modifications by root.
+rootpwmodpw XXXXXX
+
+
+# SASL authentication options
+sasl_mech OTP
+sasl_realm realm
+sasl_authcid authcid
+sasl_authzid dn:cn=annonymous,dc=example,dc=net
+sasl_secprops noanonymous,noplain,minssf=0,maxssf=2,maxbufsize=65535
+sasl_canonicalize yes
+
+# Kerberos authentication options
+krb5_ccname ccname
+
+# Search/mapping options
+
+# Specifies the base distinguished name (DN) to use as search base.
+base dc=people,dc=example,dc=com
+base dc=morepeople,dc=example,dc=com
+base alias dc=aliases,dc=example,dc=com
+base alias dc=morealiases,dc=example,dc=com
+base group dc=group,dc=example,dc=com
+base group dc=moregroup,dc=example,dc=com
+base passwd dc=users,dc=example,dc=com
+
+# Specifies the search scope (subtree, onelevel, base or children).
+scope sub
+scope passwd sub
+scope aliases sub
+
+# Specifies the policy for dereferencing aliases.
+deref never
+
+# Specifies whether automatic referral chasing should be enabled.
+referrals yes
+
+# The FILTER is an LDAP search filter to use for a specific map.
+filter group (objectClass=posixGroup)
+
+# This option allows for custom attributes to be looked up instead of the default RFC 2307 attributes.
+map passwd homeDirectory \"${homeDirectory:-/home/$uid}\"
+map passwd loginShell \"${loginShell:-/bin/bash}\"
+map shadow userPassword myPassword
+
+# Timing/reconnect options
+
+# Specifies the time limit (in seconds) to use when connecting to the directory server.
+bind_timelimit 30
+
+# Specifies the time limit (in seconds) to wait for a response from the LDAP server.
+timelimit 5
+
+# Specifies the period if inactivity (in seconds) after which the connection to the LDAP server will be closed.
+idle_timelimit 10
+
+# Specifies the number of seconds to sleep when connecting to all LDAP servers fails.
+reconnect_sleeptime 10
+
+# Specifies the time after which the LDAP server is considered to be permanently unavailable.
+reconnect_retrytime 10
+
+# SSL/TLS options
+
+# Specifies whether to use SSL/TLS or not (the default is not to).
+ssl start_tls
+# Specifies what checks to perform on a server-supplied certificate.
+tls_reqcert never
+# Specifies the directory containing X.509 certificates for peer authentication.
+tls_cacertdir /etc/ssl/ca
+# Specifies the path to the X.509 certificate for peer authentication.
+tls_cacertfile /etc/ssl/certs/ca-certificates.crt
+# Specifies the path to an entropy source.
+tls_randfile /dev/random
+# Specifies the ciphers to use for TLS.
+tls_ciphers TLSv1
+# Specifies the path to the file containing the local certificate for client TLS authentication.
+tls_cert /etc/ssl/certs/cert.pem
+# Specifies the path to the file containing the private key for client TLS authentication.
+tls_key /etc/ssl/private/cert.pem
+
+# Other options
+pagesize 100
+nss_initgroups_ignoreusers user1,user2,user3
+nss_min_uid 1000
+nss_nested_groups yes
+nss_getgrent_skipmembers yes
+nss_disable_enumeration yes
+validnames /^[a-z0-9._@$()]([a-z0-9._@$() \\~-]*[a-z0-9._@$()~-])?$/i
+ignorecase yes
+pam_authc_ppolicy yes
+pam_authz_search (&(objectClass=posixAccount)(uid=$username)(|(authorizedService=$service)(!(authorizedService=*))))
+pam_password_prohibit_message \"MESSAGE LONG AND WITH SPACES\"
+reconnect_invalidate nfsidmap,db2,db3
+cache dn2uid 1s 2h
+
+"
+
+test Nslcd.lns get real_file =
+ { "#comment" = "/etc/nslcd.conf" }
+ { "#comment" = "nslcd configuration file. See nslcd.conf(5)" }
+ { "#comment" = "for details." }
+ { }
+ { "#comment" = "Specifies the number of threads to start that can handle requests and perform LDAP queries." }
+ { "threads" = "5" }
+ { }
+ { "#comment" = "The user and group nslcd should run as." }
+ { "uid" = "nslcd" }
+ { "gid" = "nslcd" }
+ { }
+ { "#comment" = "This option controls the way logging is done." }
+ { "log" = "syslog info" }
+ { }
+ { "#comment" = "The location at which the LDAP server(s) should be reachable." }
+ { "uri"
+ { "1" = "ldaps://XXX.XXX.XXX" }
+ { "2" = "ldaps://YYY.YYY.YYY" }
+ }
+ { }
+ { "#comment" = "The search base that will be used for all queries." }
+ { "base" = "dc=XXX,dc=XXX" }
+ { }
+ { "#comment" = "The LDAP protocol version to use." }
+ { "ldap_version" = "3" }
+ { }
+ { "#comment" = "The DN to bind with for normal lookups." }
+ { "binddn" = "cn=annonymous,dc=example,dc=net" }
+ { "bindpw" = "secret" }
+ { }
+ { }
+ { "#comment" = "The DN used for password modifications by root." }
+ { "rootpwmoddn" = "cn=admin,dc=example,dc=com" }
+ { }
+ { "#comment" = "The password used for password modifications by root." }
+ { "rootpwmodpw" = "XXXXXX" }
+ { }
+ { }
+ { "#comment" = "SASL authentication options" }
+ { "sasl_mech" = "OTP" }
+ { "sasl_realm" = "realm" }
+ { "sasl_authcid" = "authcid" }
+ { "sasl_authzid" = "dn:cn=annonymous,dc=example,dc=net" }
+ { "sasl_secprops" = "noanonymous,noplain,minssf=0,maxssf=2,maxbufsize=65535" }
+ { "sasl_canonicalize" = "yes" }
+ { }
+ { "#comment" = "Kerberos authentication options" }
+ { "krb5_ccname" = "ccname" }
+ { }
+ { "#comment" = "Search/mapping options" }
+ { }
+ { "#comment" = "Specifies the base distinguished name (DN) to use as search base." }
+ { "base" = "dc=people,dc=example,dc=com" }
+ { "base" = "dc=morepeople,dc=example,dc=com" }
+ { "base"
+ { "alias" = "dc=aliases,dc=example,dc=com" }
+ }
+ { "base"
+ { "alias" = "dc=morealiases,dc=example,dc=com" }
+ }
+ { "base"
+ { "group" = "dc=group,dc=example,dc=com" }
+ }
+ { "base"
+ { "group" = "dc=moregroup,dc=example,dc=com" }
+ }
+ { "base"
+ { "passwd" = "dc=users,dc=example,dc=com" }
+ }
+ { }
+ { "#comment" = "Specifies the search scope (subtree, onelevel, base or children)." }
+ { "scope" = "sub" }
+ { "scope"
+ { "passwd" = "sub" }
+ }
+ { "scope"
+ { "aliases" = "sub" }
+ }
+ { }
+ { "#comment" = "Specifies the policy for dereferencing aliases." }
+ { "deref" = "never" }
+ { }
+ { "#comment" = "Specifies whether automatic referral chasing should be enabled." }
+ { "referrals" = "yes" }
+ { }
+ { "#comment" = "The FILTER is an LDAP search filter to use for a specific map." }
+ { "filter"
+ { "group" = "(objectClass=posixGroup)" }
+ }
+ { }
+ { "#comment" = "This option allows for custom attributes to be looked up instead of the default RFC 2307 attributes." }
+ { "map"
+ { "passwd"
+ { "homeDirectory" = "\"${homeDirectory:-/home/$uid}\"" }
+ }
+ }
+ { "map"
+ { "passwd"
+ { "loginShell" = "\"${loginShell:-/bin/bash}\"" }
+ }
+ }
+ { "map"
+ { "shadow"
+ { "userPassword" = "myPassword" }
+ }
+ }
+ { }
+ { "#comment" = "Timing/reconnect options" }
+ { }
+ { "#comment" = "Specifies the time limit (in seconds) to use when connecting to the directory server." }
+ { "bind_timelimit" = "30" }
+ { }
+ { "#comment" = "Specifies the time limit (in seconds) to wait for a response from the LDAP server." }
+ { "timelimit" = "5" }
+ { }
+ { "#comment" = "Specifies the period if inactivity (in seconds) after which the connection to the LDAP server will be closed." }
+ { "idle_timelimit" = "10" }
+ { }
+ { "#comment" = "Specifies the number of seconds to sleep when connecting to all LDAP servers fails." }
+ { "reconnect_sleeptime" = "10" }
+ { }
+ { "#comment" = "Specifies the time after which the LDAP server is considered to be permanently unavailable." }
+ { "reconnect_retrytime" = "10" }
+ { }
+ { "#comment" = "SSL/TLS options" }
+ { }
+ { "#comment" = "Specifies whether to use SSL/TLS or not (the default is not to)." }
+ { "ssl" = "start_tls" }
+ { "#comment" = "Specifies what checks to perform on a server-supplied certificate." }
+ { "tls_reqcert" = "never" }
+ { "#comment" = "Specifies the directory containing X.509 certificates for peer authentication." }
+ { "tls_cacertdir" = "/etc/ssl/ca" }
+ { "#comment" = "Specifies the path to the X.509 certificate for peer authentication." }
+ { "tls_cacertfile" = "/etc/ssl/certs/ca-certificates.crt" }
+ { "#comment" = "Specifies the path to an entropy source." }
+ { "tls_randfile" = "/dev/random" }
+ { "#comment" = "Specifies the ciphers to use for TLS." }
+ { "tls_ciphers" = "TLSv1" }
+ { "#comment" = "Specifies the path to the file containing the local certificate for client TLS authentication." }
+ { "tls_cert" = "/etc/ssl/certs/cert.pem" }
+ { "#comment" = "Specifies the path to the file containing the private key for client TLS authentication." }
+ { "tls_key" = "/etc/ssl/private/cert.pem" }
+ { }
+ { "#comment" = "Other options" }
+ { "pagesize" = "100" }
+ { "nss_initgroups_ignoreusers"
+ { "1" = "user1" }
+ { "2" = "user2" }
+ { "3" = "user3" }
+ }
+ { "nss_min_uid" = "1000" }
+ { "nss_nested_groups" = "yes" }
+ { "nss_getgrent_skipmembers" = "yes" }
+ { "nss_disable_enumeration" = "yes" }
+ { "validnames" = "/^[a-z0-9._@$()]([a-z0-9._@$() \~-]*[a-z0-9._@$()~-])?$/i" }
+ { "ignorecase" = "yes" }
+ { "pam_authc_ppolicy" = "yes" }
+ { "pam_authz_search" = "(&(objectClass=posixAccount)(uid=$username)(|(authorizedService=$service)(!(authorizedService=*))))" }
+ { "pam_password_prohibit_message" = "MESSAGE LONG AND WITH SPACES" }
+ { "reconnect_invalidate" = "nfsidmap,db2,db3" }
+ { "cache" = "dn2uid 1s 2h" }
+ { }
+(* Test writes *)
+
+(* Test a simple parameter *)
+test Nslcd.lns put "pagesize 9999\n" after
+ set "/pagesize" "1000" =
+ "pagesize 1000\n"
+
+(* Test base parameter *)
+test Nslcd.lns put "\n" after
+ set "/base" "dc=example,dc=com" =
+ "\nbase dc=example,dc=com\n"
+
+test Nslcd.lns put "base dc=change,dc=me\n" after
+ set "/base" "dc=example,dc=com" =
+ "base dc=example,dc=com\n"
+
+test Nslcd.lns put "\n" after
+ set "/base/passwd" "dc=example,dc=com" =
+ "\nbase passwd dc=example,dc=com\n"
+
+test Nslcd.lns put "base passwd dc=change,dc=me\n" after
+ set "/base[passwd]/passwd" "dc=example,dc=com";
+ set "/base[shadow]/shadow" "dc=example,dc=com" =
+ "base passwd dc=example,dc=com\nbase shadow dc=example,dc=com\n"
+
+(* Test scope entry *)
+test Nslcd.lns put "\n" after
+ set "/scope" "sub" =
+ "\nscope sub\n"
+
+test Nslcd.lns put "scope one\n" after
+ set "/scope" "subtree" =
+ "scope subtree\n"
+
+test Nslcd.lns put "\n" after
+ set "/scope/passwd" "base" =
+ "\nscope passwd base\n"
+
+test Nslcd.lns put "scope shadow onelevel\n" after
+ set "/scope[passwd]/passwd" "subtree";
+ set "/scope[shadow]/shadow" "base" =
+ "scope shadow base\nscope passwd subtree\n"
+
+(* Test filter entry *)
+test Nslcd.lns put "\n" after
+ set "/filter/passwd" "(objectClass=posixAccount)" =
+ "\nfilter passwd (objectClass=posixAccount)\n"
+
+test Nslcd.lns put "filter shadow (objectClass=posixAccount)\n" after
+ set "/filter[passwd]/passwd" "(objectClass=Account)";
+ set "/filter[shadow]/shadow" "(objectClass=Account)" =
+ "filter shadow (objectClass=Account)\nfilter passwd (objectClass=Account)\n"
+
+(* Test map entry *)
+test Nslcd.lns put "map passwd loginShell ab\n" after
+ set "/map/passwd/loginShell" "bc" =
+ "map passwd loginShell bc\n"
+
+test Nslcd.lns put "map passwd loginShell ab\n" after
+ set "/map[2]/passwd/homeDirectory" "bc" =
+ "map passwd loginShell ab\nmap passwd homeDirectory bc\n"
+
+test Nslcd.lns put "map passwd loginShell ab\n" after
+ set "/map[passwd/homeDirectory]/passwd/homeDirectory" "bc" =
+ "map passwd loginShell ab\nmap passwd homeDirectory bc\n"
+
+test Nslcd.lns put "map passwd loginShell ab\nmap passwd homeDirectory ab\n" after
+ set "/map[passwd/homeDirectory]/passwd/homeDirectory" "bc" =
+ "map passwd loginShell ab\nmap passwd homeDirectory bc\n"
+
+
+(* Test simple entries *)
+let simple = "uid nslcd\n"
+
+test Nslcd.lns get simple =
+{ "uid" = "nslcd" }
+
+(* Test simple entries with spaces at the end *)
+let simple_spaces = "uid nslcd \n"
+
+test Nslcd.lns get simple_spaces =
+{ "uid" = "nslcd" }
+
+(* Test multi valued entries *)
+
+let multi_valued = "cache 1 2 \n"
+
+test Nslcd.lns get multi_valued =
+{ "cache" = "1 2" }
+
+let multi_valued_real = "map passwd homeDirectory ${homeDirectory:-/home/$uid}\n"
+
+test Nslcd.lns get multi_valued_real =
+{ "map"
+ { "passwd"
+ { "homeDirectory" = "${homeDirectory:-/home/$uid}" }
+ }
+}
+
+(* Test multiline *)
+
+let simple_multiline = "uid nslcd\ngid nslcd\n"
+
+test Nslcd.lns get simple_multiline =
+{"uid" = "nslcd"}
+{"gid" = "nslcd"}
+
+
+let multiline_separators = "\n\n \nuid nslcd \ngid nslcd \n"
+
+test Nslcd.lns get multiline_separators =
+{}
+{}
+{}
+{"uid" = "nslcd"}
+{"gid" = "nslcd"}
diff --git a/Sharp.Augeas.Test/lens/tests/test_nsswitch.aug b/Sharp.Augeas.Test/lens/tests/test_nsswitch.aug
new file mode 100644
index 0000000..b467cf7
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_nsswitch.aug
@@ -0,0 +1,54 @@
+module Test_nsswitch =
+
+ let conf = "# Sample nsswitch.conf
+passwd: compat
+
+hosts: files mdns4_minimal [NOTFOUND=return] dns mdns4
+networks: nis [!UNAVAIL=return success=continue] files
+protocols: db files
+netgroup: nis
+bootparams: nisplus [NOTFOUND=return] files
+aliases: files # uses by mail
+sudoers: files ldap
+"
+
+test Nsswitch.lns get conf =
+ { "#comment" = "Sample nsswitch.conf" }
+ { "database" = "passwd"
+ { "service" = "compat" } }
+ {}
+ { "database" = "hosts"
+ { "service" = "files" }
+ { "service" = "mdns4_minimal" }
+ { "reaction"
+ { "status" = "NOTFOUND"
+ { "action" = "return" } } }
+ { "service" = "dns" }
+ { "service" = "mdns4" } }
+ { "database" = "networks"
+ { "service" = "nis" }
+ { "reaction"
+ { "status" = "UNAVAIL"
+ { "negate" }
+ { "action" = "return" } }
+ { "status" = "success"
+ { "action" = "continue" } } }
+ { "service" = "files" } }
+ { "database" = "protocols"
+ { "service" = "db" }
+ { "service" = "files" } }
+ { "database" = "netgroup"
+ { "service" = "nis" } }
+ { "database" = "bootparams"
+ { "service" = "nisplus" }
+ { "reaction"
+ { "status" = "NOTFOUND"
+ { "action" = "return" } } }
+ { "service" = "files" } }
+ { "database" = "aliases"
+ { "service" = "files" }
+ { "#comment" = "uses by mail" } }
+ { "database" = "sudoers"
+ { "service" = "files" }
+ { "service" = "ldap" } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_ntp.aug b/Sharp.Augeas.Test/lens/tests/test_ntp.aug
new file mode 100644
index 0000000..2eea1d8
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_ntp.aug
@@ -0,0 +1,185 @@
+module Test_ntp =
+
+ let conf = "#
+# Fichier genere par puppet
+# Environnement: development
+
+server dns01.echo-net.net version 3
+server dns02.echo-net.net version 4
+
+driftfile /var/lib/ntp/ntp.drift
+
+restrict default ignore
+
+#server dns01.echo-net.net
+restrict 192.168.0.150 nomodify
+
+# allow everything from localhost
+restrict 127.0.0.1
+
+logfile /var/log/ntpd
+statsdir /var/log/ntpstats/
+ntpsigndsocket /var/lib/samba/ntp_signd
+
+statistics loopstats peerstats clockstats
+filegen loopstats file loopstats type day enable link
+filegen peerstats file peerstats type day disable
+filegen clockstats file clockstats type day enable nolink
+
+interface ignore wildcard
+interface listen 127.0.0.1
+"
+
+ test Ntp.lns get conf =
+ { "#comment" = "" }
+ { "#comment" = "Fichier genere par puppet" }
+ { "#comment" = "Environnement: development" }
+ {}
+ { "server" = "dns01.echo-net.net"
+ { "version" = "3" } }
+ { "server" = "dns02.echo-net.net"
+ { "version" = "4" } }
+ {}
+ { "driftfile" = "/var/lib/ntp/ntp.drift" }
+ {}
+ { "restrict" = "default"
+ { "action" = "ignore" } }
+ {}
+ { "#comment" = "server dns01.echo-net.net" }
+ { "restrict" = "192.168.0.150"
+ { "action" = "nomodify" } }
+ {}
+ { "#comment" = "allow everything from localhost" }
+ { "restrict" = "127.0.0.1" }
+ {}
+ { "logfile" = "/var/log/ntpd" }
+ { "statsdir" = "/var/log/ntpstats/" }
+ { "ntpsigndsocket" = "/var/lib/samba/ntp_signd" }
+ {}
+ { "statistics"
+ { "loopstats" }
+ { "peerstats" }
+ { "clockstats" } }
+ { "filegen" = "loopstats"
+ { "file" = "loopstats" }
+ { "type" = "day" }
+ { "enable" = "enable" }
+ { "link" = "link" } }
+ { "filegen" = "peerstats"
+ { "file" = "peerstats" }
+ { "type" = "day" }
+ { "enable" = "disable" } }
+ { "filegen" = "clockstats"
+ { "file" = "clockstats" }
+ { "type" = "day" }
+ { "enable" = "enable" }
+ { "link" = "nolink" } }
+ { }
+ { "interface"
+ { "action" = "ignore" }
+ { "addresses" = "wildcard" } }
+ { "interface"
+ { "action" = "listen" }
+ { "addresses" = "127.0.0.1" } }
+
+ (* Some things needed to process the default ntp.conf on Fedora *)
+ test Ntp.lns get
+ "server 66.187.233.4 # added by /sbin/dhclient-script\n" =
+ { "server" = "66.187.233.4"
+ { "#comment" = "# added by /sbin/dhclient-script" } }
+
+ test Ntp.lns get
+ "server 0.fedora.pool.ntp.org iburst dynamic\n" =
+ { "server" = "0.fedora.pool.ntp.org" { "iburst" } { "dynamic" } }
+
+ test Ntp.lns get
+ "restrict 127.0.0.1 \n" =
+ { "restrict" = "127.0.0.1" }
+
+ test Ntp.lns get
+ "restrict default kod nomodify notrap nopeer noquery\n" =
+ { "restrict" = "default"
+ { "action" = "kod" }
+ { "action" = "nomodify" }
+ { "action" = "notrap" }
+ { "action" = "nopeer" }
+ { "action" = "noquery" } }
+
+ test Ntp.lns put
+ "restrict default kod nomodify notrap nopeer noquery\n"
+ after
+ insb "ipv6" "restrict/action[1]" =
+ "restrict -6 default kod nomodify notrap nopeer noquery\n"
+
+ test Ntp.lns get
+ "restrict -6 default kod nomodify notrap nopeer noquery\n" =
+ { "restrict" = "default"
+ { "ipv6" }
+ { "action" = "kod" }
+ { "action" = "nomodify" }
+ { "action" = "notrap" }
+ { "action" = "nopeer" }
+ { "action" = "noquery" } }
+
+ test Ntp.lns put
+ "restrict default kod nomodify notrap nopeer noquery\n"
+ after
+ insb "ipv4" "restrict/action[1]" =
+ "restrict -4 default kod nomodify notrap nopeer noquery\n"
+
+ test Ntp.lns get
+ "restrict -4 default notrap nomodify nopeer noquery\n" =
+ { "restrict" = "default"
+ { "ipv4" }
+ { "action" = "notrap" }
+ { "action" = "nomodify" }
+ { "action" = "nopeer" }
+ { "action" = "noquery" } }
+
+ test Ntp.lns get
+ "includefile /etc/ntp/crypto/pw\n" =
+ { "includefile" = "/etc/ntp/crypto/pw" }
+
+ test Ntp.lns get "fudge 127.127.1.0 stratum 10\n" =
+ { "fudge" = "127.127.1.0" { "stratum" = "10" } }
+
+ test Ntp.lns get "broadcast 192.168.1.255 key 42\n" =
+ { "broadcast" = "192.168.1.255" { "key" = "42" } }
+
+
+ test Ntp.lns get "multicastclient 224.0.1.1\n" =
+ { "multicastclient" = "224.0.1.1" }
+
+ test Ntp.lns put "broadcastclient\tnovolley # broadcast\n"
+ after rm "/*/novolley" = "broadcastclient # broadcast\n"
+
+ test Ntp.auth_command get "trustedkey 4 8 42\n" =
+ { "trustedkey"
+ { "key" = "4" }
+ { "key" = "8" }
+ { "key" = "42" } }
+
+ test Ntp.auth_command get "trustedkey 42\n" =
+ { "trustedkey" { "key" = "42" } }
+
+ test Ntp.lns get "broadcastdelay 0.008\n" =
+ { "broadcastdelay" = "0.008" }
+
+ test Ntp.lns get "enable auth calibrate\ndisable kernel stats\n" =
+ { "enable"
+ { "flag" = "auth" }
+ { "flag" = "calibrate" } }
+ { "disable"
+ { "flag" = "kernel" }
+ { "flag" = "stats" } }
+
+(* Bug #103: tinker directive *)
+test Ntp.tinker get "tinker panic 0 huffpuff 3.14\n" =
+ { "tinker"
+ { "panic" = "0" }
+ { "huffpuff" = "3.14" } }
+
+(* Bug #297: tos directive *)
+test Ntp.tos get "tos maxdist 16\n" =
+ { "tos"
+ { "maxdist" = "16" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_ntpd.aug b/Sharp.Augeas.Test/lens/tests/test_ntpd.aug
new file mode 100644
index 0000000..1d0e41c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_ntpd.aug
@@ -0,0 +1,80 @@
+(*
+Module: Test_Ntpd
+ Provides unit tests for the <Ntpd> lens.
+*)
+
+module Test_ntpd =
+
+test Ntpd.listen get "listen on *\n" =
+ { "listen on"
+ { "address" = "*" } }
+
+test Ntpd.listen get "listen on 127.0.0.1\n" =
+ { "listen on"
+ { "address" = "127.0.0.1" } }
+
+test Ntpd.listen get "listen on ::1\n" =
+ { "listen on"
+ { "address" = "::1" } }
+
+test Ntpd.listen get "listen on ::1 rtable 4\n" =
+ { "listen on"
+ { "address" = "::1" }
+ { "rtable" = "4" } }
+
+test Ntpd.server get "server ntp.example.org\n" =
+ { "server"
+ { "address" = "ntp.example.org" } }
+
+test Ntpd.server get "server ntp.example.org rtable 42\n" =
+ { "server"
+ { "address" = "ntp.example.org" }
+ { "rtable" = "42" } }
+
+test Ntpd.server get "server ntp.example.org weight 1 rtable 42\n" =
+ { "server"
+ { "address" = "ntp.example.org" }
+ { "weight" = "1" }
+ { "rtable" = "42" } }
+
+test Ntpd.server get "server ntp.example.org weight 10\n" =
+ { "server"
+ { "address" = "ntp.example.org" }
+ { "weight" = "10" } }
+
+
+test Ntpd.sensor get "sensor *\n" =
+ { "sensor"
+ { "device" = "*" } }
+
+test Ntpd.sensor get "sensor nmea0\n" =
+ { "sensor"
+ { "device" = "nmea0" } }
+
+test Ntpd.sensor get "sensor nmea0 correction 42\n" =
+ { "sensor"
+ { "device" = "nmea0" }
+ { "correction" = "42" } }
+
+test Ntpd.sensor get "sensor nmea0 correction -42\n" =
+ { "sensor"
+ { "device" = "nmea0" }
+ { "correction" = "-42" } }
+
+test Ntpd.sensor get "sensor nmea0 correction 42 weight 2\n" =
+ { "sensor"
+ { "device" = "nmea0" }
+ { "correction" = "42" }
+ { "weight" = "2" } }
+
+test Ntpd.sensor get "sensor nmea0 correction 42 refid Puffy\n" =
+ { "sensor"
+ { "device" = "nmea0" }
+ { "correction" = "42" }
+ { "refid" = "Puffy" } }
+
+test Ntpd.sensor get "sensor nmea0 correction 42 stratum 2\n" =
+ { "sensor"
+ { "device" = "nmea0" }
+ { "correction" = "42" }
+ { "stratum" = "2" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_odbc.aug b/Sharp.Augeas.Test/lens/tests/test_odbc.aug
new file mode 100644
index 0000000..b20edce
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_odbc.aug
@@ -0,0 +1,69 @@
+module Test_odbc =
+
+ let conf = "
+# Example driver definitinions
+#
+#
+
+# Included in the unixODBC package
+[PostgreSQL]
+Description = ODBC for PostgreSQL
+Driver = /usr/lib/libodbcpsql.so
+Setup = /usr/lib/libodbcpsqlS.so
+FileUsage = 1
+
+[MySQL]
+# Driver from the MyODBC package
+# Setup from the unixODBC package
+Description = ODBC for MySQL
+Driver = /usr/lib/libmyodbc.so
+Setup = /usr/lib/libodbcmyS.so
+FileUsage = 1
+"
+
+test Odbc.lns get conf =
+ { }
+ { "#comment" = "Example driver definitinions" }
+ {}
+ {}
+ { }
+ { "#comment" = "Included in the unixODBC package" }
+
+ { "PostgreSQL"
+ { "Description" = "ODBC for PostgreSQL" }
+ { "Driver" = "/usr/lib/libodbcpsql.so" }
+ { "Setup" = "/usr/lib/libodbcpsqlS.so" }
+ { "FileUsage" = "1" }
+ {}
+ }
+ { "MySQL"
+ { "#comment" = "Driver from the MyODBC package" }
+ { "#comment" = "Setup from the unixODBC package" }
+ { "Description" = "ODBC for MySQL" }
+ { "Driver" = "/usr/lib/libmyodbc.so" }
+ { "Setup" = "/usr/lib/libodbcmyS.so" }
+ { "FileUsage" = "1" }
+ }
+
+test Odbc.lns put conf after
+ set "MySQL/Driver" "/usr/lib64/libmyodbc3.so";
+ set "MySQL/Driver/#comment" "note the path" = "
+# Example driver definitinions
+#
+#
+
+# Included in the unixODBC package
+[PostgreSQL]
+Description = ODBC for PostgreSQL
+Driver = /usr/lib/libodbcpsql.so
+Setup = /usr/lib/libodbcpsqlS.so
+FileUsage = 1
+
+[MySQL]
+# Driver from the MyODBC package
+# Setup from the unixODBC package
+Description = ODBC for MySQL
+Driver = /usr/lib64/libmyodbc3.so#note the path
+Setup = /usr/lib/libodbcmyS.so
+FileUsage = 1
+"
diff --git a/Sharp.Augeas.Test/lens/tests/test_opendkim.aug b/Sharp.Augeas.Test/lens/tests/test_opendkim.aug
new file mode 100644
index 0000000..a91c41e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_opendkim.aug
@@ -0,0 +1,183 @@
+module Test_Opendkim =
+
+ let simple_string_value = "ADSPAction discard\n"
+ test Opendkim.lns get simple_string_value =
+ { "ADSPAction" = "discard" }
+ test Opendkim.lns put simple_string_value after
+ set "ADSPAction" "discard" = simple_string_value
+
+ let simple_integer_value = "AutoRestartCount 1\n"
+ test Opendkim.lns get simple_integer_value =
+ { "AutoRestartCount" = "1" }
+ test Opendkim.lns put simple_integer_value after
+ set "AutoRestartCount" "1" = simple_integer_value
+
+ let simple_boolean_value = "AddAllSignatureResults true\n"
+ test Opendkim.lns get simple_boolean_value =
+ { "AddAllSignatureResults" = "true" }
+ test Opendkim.lns put simple_boolean_value after
+ set "AddAllSignatureResults" "true" = simple_boolean_value
+
+ let yes_boolean_value= "AddAllSignatureResults yes\n"
+ test Opendkim.lns get yes_boolean_value =
+ { "AddAllSignatureResults" = "yes" }
+ test Opendkim.lns put yes_boolean_value after
+ set "AddAllSignatureResults" "yes" = yes_boolean_value
+
+ let one_boolean_value= "AddAllSignatureResults 1\n"
+ test Opendkim.lns get one_boolean_value =
+ { "AddAllSignatureResults" = "1" }
+ test Opendkim.lns put one_boolean_value after
+ set "AddAllSignatureResults" "1" = one_boolean_value
+
+ let one_boolean_value_uppercase_yes = "AutoRestart Yes\n"
+ test Opendkim.lns get one_boolean_value_uppercase_yes =
+ { "AutoRestart" = "Yes" }
+ test Opendkim.lns put one_boolean_value_uppercase_yes after
+ set "AutoRestart" "Yes" = one_boolean_value_uppercase_yes
+
+ let one_boolean_value_uppercase_no = "AutoRestart No\n"
+ test Opendkim.lns get one_boolean_value_uppercase_no =
+ { "AutoRestart" = "No" }
+ test Opendkim.lns put one_boolean_value_uppercase_no after
+ set "AutoRestart" "No" = one_boolean_value_uppercase_no
+
+ let one_boolean_value_uppercase_true = "AutoRestart True\n"
+ test Opendkim.lns get one_boolean_value_uppercase_true =
+ { "AutoRestart" = "True" }
+ test Opendkim.lns put one_boolean_value_uppercase_true after
+ set "AutoRestart" "True" = one_boolean_value_uppercase_true
+
+ let one_boolean_value_uppercase_false = "AutoRestart False\n"
+ test Opendkim.lns get one_boolean_value_uppercase_false =
+ { "AutoRestart" = "False" }
+ test Opendkim.lns put one_boolean_value_uppercase_false after
+ set "AutoRestart" "False" = one_boolean_value_uppercase_false
+
+ let string_value_starting_with_number = "AutoRestartRate 10/1h\n"
+ test Opendkim.lns get string_value_starting_with_number =
+ { "AutoRestartRate" = "10/1h" }
+ test Opendkim.lns put string_value_starting_with_number after
+ set "AutoRestartRate" "10/1h" = string_value_starting_with_number
+
+ let string_value_containing_slash = "TrustAnchorFile /usr/share/dns/root.key\n"
+ test Opendkim.lns get string_value_containing_slash =
+ { "TrustAnchorFile" = "/usr/share/dns/root.key" }
+ test Opendkim.lns put string_value_containing_slash after
+ set "TrustAnchorFile" "/usr/share/dns/root.key" = string_value_containing_slash
+
+ let logwhy_keyword_boolean = "LogWhy Yes\n"
+ test Opendkim.lns get logwhy_keyword_boolean =
+ { "LogWhy" = "Yes" }
+ test Opendkim.lns put logwhy_keyword_boolean after
+ set "LogWhy" "Yes" = logwhy_keyword_boolean
+
+ let three_type_value = "AddAllSignatureResults false\nADSPAction discard\nAutoRestartCount 2\n"
+ test Opendkim.lns get three_type_value =
+ { "AddAllSignatureResults" = "false" }
+ { "ADSPAction" = "discard" }
+ { "AutoRestartCount" = "2" }
+
+ test Opendkim.lns put "" after
+ set "AddAllSignatureResults" "false";
+ set "ADSPAction" "discard";
+ set "AutoRestartCount" "2" = three_type_value
+
+ let two_boolean_value = "AddAllSignatureResults false\nADSPNoSuchDomain true\n"
+ test Opendkim.lns get two_boolean_value =
+ { "AddAllSignatureResults" = "false" }
+ { "ADSPNoSuchDomain" = "true" }
+
+ test Opendkim.lns put "" after
+ set "AddAllSignatureResults" "false";
+ set "ADSPNoSuchDomain" "true" = two_boolean_value
+
+ let blank_line_between= "AddAllSignatureResults false\n\nADSPNoSuchDomain true\n"
+ test Opendkim.lns get blank_line_between =
+ { "AddAllSignatureResults" = "false" }
+ { }
+ { "ADSPNoSuchDomain" = "true" }
+
+ test Opendkim.lns put "" after
+ set "AddAllSignatureResults" "false";
+ set "ADSPNoSuchDomain" "true" = "AddAllSignatureResults false\nADSPNoSuchDomain true\n"
+
+ let include_comment_line= "AddAllSignatureResults false\n#A comment\nADSPNoSuchDomain true\n"
+ test Opendkim.lns get include_comment_line =
+ { "AddAllSignatureResults" = "false" }
+ { "#comment" = "A comment" }
+ { "ADSPNoSuchDomain" = "true" }
+
+ test Opendkim.lns put "" after
+ set "AddAllSignatureResults" "false";
+ set "#comment" "A comment";
+ set "ADSPNoSuchDomain" "true" = include_comment_line
+
+ let default_config_file = "# This is a basic configuration that can easily be adapted to suit a standard
+# installation. For more advanced options, see opendkim.conf(5) and/or
+# /usr/share/doc/opendkim/examples/opendkim.conf.sample.
+
+# Log to syslog
+Syslog yes
+# Required to use local socket with MTAs that access the socket as a non-
+# privileged user (e.g. Postfix)
+UMask 002
+
+# Sign for example.com with key in /etc/mail/dkim.key using
+# selector '2007' (e.g. 2007._domainkey.example.com)
+#Domain example.com
+#KeyFile /etc/mail/dkim.key
+#Selector 2007
+
+# Commonly-used options; the commented-out versions show the defaults.
+#Canonicalization simple
+#Mode sv
+#SubDomains no
+#ADSPAction continue
+
+# Always oversign From (sign using actual From and a null From to prevent
+# malicious signatures header fields (From and/or others) between the signer
+# and the verifier. From is oversigned by default in the Debian package
+# because it is often the identity key used by reputation systems and thus
+# somewhat security sensitive.
+OversignHeaders From
+
+# List domains to use for RFC 6541 DKIM Authorized Third-Party Signatures
+# (ATPS) (experimental)
+
+#ATPSDomains example.com
+"
+ test Opendkim.lns get default_config_file =
+ { "#comment" = "This is a basic configuration that can easily be adapted to suit a standard" }
+ { "#comment" = "installation. For more advanced options, see opendkim.conf(5) and/or" }
+ { "#comment" = "/usr/share/doc/opendkim/examples/opendkim.conf.sample." }
+ { }
+ { "#comment" = "Log to syslog" }
+ { "Syslog" = "yes" }
+ { "#comment" = "Required to use local socket with MTAs that access the socket as a non-" }
+ { "#comment" = "privileged user (e.g. Postfix)" }
+ { "UMask" = "002" }
+ { }
+ { "#comment" = "Sign for example.com with key in /etc/mail/dkim.key using" }
+ { "#comment" = "selector '2007' (e.g. 2007._domainkey.example.com)" }
+ { "#comment" = "Domain example.com" }
+ { "#comment" = "KeyFile /etc/mail/dkim.key" }
+ { "#comment" = "Selector 2007" }
+ { }
+ { "#comment" = "Commonly-used options; the commented-out versions show the defaults." }
+ { "#comment" = "Canonicalization simple" }
+ { "#comment" = "Mode sv" }
+ { "#comment" = "SubDomains no" }
+ { "#comment" = "ADSPAction continue" }
+ { }
+ { "#comment" = "Always oversign From (sign using actual From and a null From to prevent" }
+ { "#comment" = "malicious signatures header fields (From and/or others) between the signer" }
+ { "#comment" = "and the verifier. From is oversigned by default in the Debian package" }
+ { "#comment" = "because it is often the identity key used by reputation systems and thus" }
+ { "#comment" = "somewhat security sensitive." }
+ { "OversignHeaders" = "From" }
+ { }
+ { "#comment" = "List domains to use for RFC 6541 DKIM Authorized Third-Party Signatures" }
+ { "#comment" = "(ATPS) (experimental)" }
+ { }
+ { "#comment" = "ATPSDomains example.com" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_openshift_config.aug b/Sharp.Augeas.Test/lens/tests/test_openshift_config.aug
new file mode 100644
index 0000000..451e32f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_openshift_config.aug
@@ -0,0 +1,101 @@
+(*
+Module: Test_OpenShift_Config
+ Provides unit tests and examples for the <OpenShift_Config> lens.
+*)
+
+module Test_OpenShift_Config =
+
+(* Variable: conf *)
+let conf = "CLOUD_DOMAIN=\"example.com\"
+VALID_GEAR_SIZES=\"small,medium\"
+DEFAULT_MAX_GEARS=\"100\"
+DEFAULT_GEAR_CAPABILITIES=\"small\"
+DEFAULT_GEAR_SIZE=\"small\"
+MONGO_HOST_PORT=\"localhost:27017\"
+MONGO_USER=\"openshift\"
+MONGO_PASSWORD=\"mooo\"
+MONGO_DB=\"openshift_broker_dev\"
+MONGO_SSL=\"false\"
+ENABLE_USAGE_TRACKING_DATASTORE=\"false\"
+ENABLE_USAGE_TRACKING_AUDIT_LOG=\"false\"
+USAGE_TRACKING_AUDIT_LOG_FILE=\"/var/log/openshift/broker/usage.log\"
+ENABLE_ANALYTICS=\"false\"
+ENABLE_USER_ACTION_LOG=\"true\"
+USER_ACTION_LOG_FILE=\"/var/log/openshift/broker/user_action.log\"
+AUTH_PRIVKEYFILE=\"/etc/openshift/server_priv.pem\"
+AUTH_PRIVKEYPASS=\"\"
+AUTH_PUBKEYFILE=\"/etc/openshift/server_pub.pem\"
+AUTH_RSYNC_KEY_FILE=\"/etc/openshift/rsync_id_rsa\"
+AUTH_SCOPE_TIMEOUTS=\"session=1.days|7.days, *=1.months|6.months\"
+ENABLE_MAINTENANCE_MODE=\"false\"
+MAINTENANCE_NOTIFICATION_FILE=\"/etc/openshift/outage_notification.txt\"
+DOWNLOAD_CARTRIDGES_ENABLED=\"false\"
+"
+
+(* Variable: new_conf *)
+let new_conf = "CLOUD_DOMAIN=\"rhcloud.com\"
+VALID_GEAR_SIZES=\"small,medium\"
+DEFAULT_MAX_GEARS=\"100\"
+DEFAULT_GEAR_CAPABILITIES=\"small\"
+DEFAULT_GEAR_SIZE=\"small\"
+MONGO_HOST_PORT=\"localhost:27017\"
+MONGO_USER=\"openshift\"
+MONGO_PASSWORD=\"mooo\"
+MONGO_DB=\"openshift_broker_dev\"
+MONGO_SSL=\"false\"
+ENABLE_USAGE_TRACKING_DATASTORE=\"false\"
+ENABLE_USAGE_TRACKING_AUDIT_LOG=\"false\"
+USAGE_TRACKING_AUDIT_LOG_FILE=\"/var/log/openshift/broker/usage.log\"
+ENABLE_ANALYTICS=\"false\"
+ENABLE_USER_ACTION_LOG=\"true\"
+USER_ACTION_LOG_FILE=\"/var/log/openshift/broker/user_action.log\"
+AUTH_PRIVKEYFILE=\"/etc/openshift/server_priv.pem\"
+AUTH_PRIVKEYPASS=\"\"
+AUTH_PUBKEYFILE=\"/etc/openshift/server_pub.pem\"
+AUTH_RSYNC_KEY_FILE=\"/etc/openshift/rsync_id_rsa\"
+AUTH_SCOPE_TIMEOUTS=\"session=1.days|7.days, *=1.months|6.months\"
+ENABLE_MAINTENANCE_MODE=\"false\"
+MAINTENANCE_NOTIFICATION_FILE=\"/etc/openshift/outage_notification.txt\"
+DOWNLOAD_CARTRIDGES_ENABLED=\"false\"
+"
+
+(* Test: OpenShift_Config.lns *)
+test OpenShift_Config.lns get conf =
+ { "CLOUD_DOMAIN" = "example.com" }
+ { "VALID_GEAR_SIZES" = "small,medium" }
+ { "DEFAULT_MAX_GEARS" = "100" }
+ { "DEFAULT_GEAR_CAPABILITIES" = "small" }
+ { "DEFAULT_GEAR_SIZE" = "small" }
+ { "MONGO_HOST_PORT" = "localhost:27017" }
+ { "MONGO_USER" = "openshift" }
+ { "MONGO_PASSWORD" = "mooo" }
+ { "MONGO_DB" = "openshift_broker_dev" }
+ { "MONGO_SSL" = "false" }
+ { "ENABLE_USAGE_TRACKING_DATASTORE" = "false" }
+ { "ENABLE_USAGE_TRACKING_AUDIT_LOG" = "false" }
+ { "USAGE_TRACKING_AUDIT_LOG_FILE" = "/var/log/openshift/broker/usage.log" }
+ { "ENABLE_ANALYTICS" = "false" }
+ { "ENABLE_USER_ACTION_LOG" = "true" }
+ { "USER_ACTION_LOG_FILE" = "/var/log/openshift/broker/user_action.log" }
+ { "AUTH_PRIVKEYFILE" = "/etc/openshift/server_priv.pem" }
+ { "AUTH_PRIVKEYPASS" }
+ { "AUTH_PUBKEYFILE" = "/etc/openshift/server_pub.pem" }
+ { "AUTH_RSYNC_KEY_FILE" = "/etc/openshift/rsync_id_rsa" }
+ { "AUTH_SCOPE_TIMEOUTS" = "session=1.days|7.days, *=1.months|6.months" }
+ { "ENABLE_MAINTENANCE_MODE" = "false" }
+ { "MAINTENANCE_NOTIFICATION_FILE" = "/etc/openshift/outage_notification.txt" }
+ { "DOWNLOAD_CARTRIDGES_ENABLED" = "false" }
+
+(* Test: OpenShift_Config.lns
+ * Second get test against OpenShift configs
+*)
+test OpenShift_Config.lns get "MONGO_SSL=\"false\"\n" =
+ { "MONGO_SSL" = "false" }
+
+(* Test: OpenShift_Config.lns
+ * Put test changing CLOUD_DOMAIN to rhcloud.com
+*)
+test OpenShift_Config.lns put conf after set "CLOUD_DOMAIN" "rhcloud.com"
+ = new_conf
+
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_openshift_http.aug b/Sharp.Augeas.Test/lens/tests/test_openshift_http.aug
new file mode 100644
index 0000000..bc0fc53
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_openshift_http.aug
@@ -0,0 +1,71 @@
+(*
+Module: Test_OpenShift_Http
+ Provides unit tests and examples for the <OpenShift_Http> lens.
+*)
+
+module Test_OpenShift_Http =
+
+(* Variable: conf *)
+let conf = "Listen 127.0.0.1:8080
+User apache
+Group apache
+include /etc/httpd/conf.d/ruby193-passenger.conf
+PassengerUser apache
+PassengerMaxPoolSize 80
+PassengerMinInstances 2
+PassengerPreStart http://127.0.0.1:8080/
+PassengerUseGlobalQueue off
+RackBaseURI /broker
+PassengerRuby /var/www/openshift/broker/script/broker_ruby
+<Directory /var/www/openshift/broker/httpd/root/broker>
+ Options -MultiViews
+</Directory>
+"
+
+(* Variable: new_conf *)
+let new_conf = "Listen 127.0.0.1:8080
+User nobody
+Group apache
+include /etc/httpd/conf.d/ruby193-passenger.conf
+PassengerUser apache
+PassengerMaxPoolSize 80
+PassengerMinInstances 2
+PassengerPreStart http://127.0.0.1:8080/
+PassengerUseGlobalQueue off
+RackBaseURI /broker
+PassengerRuby /var/www/openshift/broker/script/broker_ruby
+<Directory /var/www/openshift/broker/httpd/root/broker>
+ Options -MultiViews
+</Directory>
+"
+
+let lns = OpenShift_Http.lns
+
+(* Test: OpenShift_Http.lns
+ * Get test against tree structure
+*)
+test lns get conf =
+ { "directive" = "Listen" {"arg" = "127.0.0.1:8080" } }
+ { "directive" = "User" { "arg" = "apache" } }
+ { "directive" = "Group" { "arg" = "apache" } }
+ { "directive" = "include" { "arg" = "/etc/httpd/conf.d/ruby193-passenger.conf" } }
+ { "directive" = "PassengerUser" { "arg" = "apache" } }
+ { "directive" = "PassengerMaxPoolSize" { "arg" = "80" } }
+ { "directive" = "PassengerMinInstances" { "arg" = "2" } }
+ { "directive" = "PassengerPreStart" { "arg" = "http://127.0.0.1:8080/" } }
+ { "directive" = "PassengerUseGlobalQueue" { "arg" = "off" } }
+ { "directive" = "RackBaseURI" { "arg" = "/broker" } }
+ { "directive" = "PassengerRuby" { "arg" = "/var/www/openshift/broker/script/broker_ruby" } }
+ { "Directory"
+ { "arg" = "/var/www/openshift/broker/httpd/root/broker" }
+ { "directive" = "Options"
+ { "arg" = "-MultiViews" }
+ }
+ }
+
+(* Test: OpenShift_Http.lns
+ * Put test changing user to nobody
+*)
+test lns put conf after set "/directive[2]/arg" "nobody" = new_conf
+
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_openshift_quickstarts.aug b/Sharp.Augeas.Test/lens/tests/test_openshift_quickstarts.aug
new file mode 100644
index 0000000..017a92a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_openshift_quickstarts.aug
@@ -0,0 +1,363 @@
+(*
+Module: Test_OpenShift_Quickstarts
+ Provides unit tests and examples for the <OpenShift_Quickstarts> lens.
+*)
+
+module Test_OpenShift_Quickstarts =
+
+(* Variable: conf *)
+let conf = "[
+ {\"quickstart\": {
+ \"id\": \"1\",
+ \"name\":\"CakePHP\",
+ \"website\":\"http://cakephp.org/\",
+ \"initial_git_url\":\"git://github.com/openshift/cakephp-example.git\",
+ \"cartridges\":[\"php-5.4\",\"mysql-5.1\"],
+ \"summary\":\"CakePHP is a rapid development framework for PHP which uses commonly known design patterns like Active Record, Association Data Mapping, Front Controller and MVC.\",
+ \"tags\":[\"php\",\"cakephp\",\"framework\"],
+ \"admin_tags\":[]
+ }},
+ {\"quickstart\": {
+ \"id\": \"2\",
+ \"name\":\"Django\",
+ \"website\":\"https://www.djangoproject.com/\",
+ \"initial_git_url\":\"git://github.com/openshift/django-example.git\",
+ \"cartridges\":[\"python-2.7\"],
+ \"summary\":\"A high-level Python web framework that encourages rapid development and clean, pragmatic design. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\",
+ \"tags\":[\"python\",\"django\",\"framework\"],
+ \"admin_tags\":[]
+ }},
+ {\"quickstart\":{
+ \"id\": \"4\",
+ \"name\":\"Drupal\",
+ \"website\":\"http://drupal.org/\",
+ \"initial_git_url\":\"git://github.com/openshift/drupal-example.git\",
+ \"cartridges\":[\"php-5.4\",\"mysql-5.1\"],
+ \"summary\":\"An open source content management platform written in PHP powering millions of websites and applications. It is built, used, and supported by an active and diverse community of people around the world. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\",
+ \"tags\":[\"php\",\"drupal\",\"wiki\",\"framework\",\"instant_app\"],
+ \"admin_tags\":[]
+ }},
+ {\"quickstart\":{
+ \"id\": \"6\",
+ \"name\":\"Ruby on Rails\",
+ \"website\":\"http://rubyonrails.org/\",
+ \"initial_git_url\":\"git://github.com/openshift/rails-example.git\",
+ \"cartridges\":[\"ruby-1.9\",\"mysql-5.1\"],
+ \"summary\":\"An open source web framework for Ruby that is optimized for programmer happiness and sustainable productivity. It lets you write beautiful code by favoring convention over configuration.\",
+ \"tags\":[\"ruby\",\"rails\",\"framework\"],
+ \"admin_tags\":[]
+ }},
+ {\"quickstart\":{
+ \"id\": \"8\",
+ \"name\":\"WordPress\",
+ \"website\":\"http://wordpress.org\",
+ \"initial_git_url\":\"git://github.com/openshift/wordpress-example.git\",
+ \"cartridges\":[\"php-5.4\",\"mysql-5.1\"],
+ \"summary\":\"A semantic personal publishing platform written in PHP with a MySQL back end, focusing on aesthetics, web standards, and usability. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\",
+ \"tags\":[\"php\",\"wordpress\",\"blog\",\"framework\",\"instant_app\"],
+ \"admin_tags\":[]
+ }}
+]"
+
+(* Variable: new_conf *)
+let new_conf = "[
+ {\"quickstart\": {
+ \"id\": \"1\",
+ \"name\":\"CakePHP\",
+ \"website\":\"http://cakephp.org/\",
+ \"initial_git_url\":\"git://github.com/openshift/cakephp-example.git\",
+ \"cartridges\":[\"php-5.4\",\"mysql-5.1\"],
+ \"summary\":\"CakePHP is a rapid development framework for PHP which uses commonly known design patterns like Active Record, Association Data Mapping, Front Controller and MVC.\",
+ \"tags\":[\"php\",\"cakephp\",\"framework\"],
+ \"admin_tags\":[]
+ }},
+ {\"quickstart\": {
+ \"id\": \"2\",
+ \"name\":\"Django\",
+ \"website\":\"https://www.djangoproject.com/\",
+ \"initial_git_url\":\"git://github.com/openshift/django-example.git\",
+ \"cartridges\":[\"python-2.7\"],
+ \"summary\":\"A high-level Python web framework that encourages rapid development and clean, pragmatic design. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\",
+ \"tags\":[\"python\",\"django\",\"framework\"],
+ \"admin_tags\":[]
+ }},
+ {\"quickstart\":{
+ \"id\": \"4\",
+ \"name\":\"Drupal\",
+ \"website\":\"http://drupal.org/\",
+ \"initial_git_url\":\"git://github.com/openshift/drupal-example.git\",
+ \"cartridges\":[\"php-5.4\",\"mysql-5.1\"],
+ \"summary\":\"An open source content management platform written in PHP powering millions of websites and applications. It is built, used, and supported by an active and diverse community of people around the world. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\",
+ \"tags\":[\"php\",\"drupal\",\"wiki\",\"framework\",\"instant_app\"],
+ \"admin_tags\":[]
+ }},
+ {\"quickstart\":{
+ \"id\": \"6\",
+ \"name\":\"Ruby on Rails\",
+ \"website\":\"http://rubyonrails.org/\",
+ \"initial_git_url\":\"git://github.com/openshift/rails-example.git\",
+ \"cartridges\":[\"ruby-1.9\",\"mysql-5.1\"],
+ \"summary\":\"An open source web framework for Ruby that is optimized for programmer happiness and sustainable productivity. It lets you write beautiful code by favoring convention over configuration.\",
+ \"tags\":[\"ruby\",\"rails\",\"framework\"],
+ \"admin_tags\":[]
+ }},
+ {\"quickstart\":{
+ \"id\": \"8\",
+ \"name\":\"WordPress\",
+ \"website\":\"https://wordpress.org\",
+ \"initial_git_url\":\"git://github.com/openshift/wordpress-example.git\",
+ \"cartridges\":[\"php-5.4\",\"mysql-5.1\"],
+ \"summary\":\"A semantic personal publishing platform written in PHP with a MySQL back end, focusing on aesthetics, web standards, and usability. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS.\",
+ \"tags\":[\"php\",\"wordpress\",\"blog\",\"framework\",\"instant_app\"],
+ \"admin_tags\":[]
+ }}
+]"
+
+(* Test: OpenShift_Quickstarts.lns *)
+test OpenShift_Quickstarts.lns get conf =
+ { "array"
+ { }
+ { "dict"
+ { "entry" = "quickstart"
+ { "dict"
+ { }
+ { "entry" = "id"
+ { "string" = "1" }
+ }
+ { }
+ { "entry" = "name"
+ { "string" = "CakePHP" }
+ }
+ { }
+ { "entry" = "website"
+ { "string" = "http://cakephp.org/" }
+ }
+ { }
+ { "entry" = "initial_git_url"
+ { "string" = "git://github.com/openshift/cakephp-example.git" }
+ }
+ { }
+ { "entry" = "cartridges"
+ { "array"
+ { "string" = "php-5.4" }
+ { "string" = "mysql-5.1" }
+ }
+ }
+ { }
+ { "entry" = "summary"
+ { "string" = "CakePHP is a rapid development framework for PHP which uses commonly known design patterns like Active Record, Association Data Mapping, Front Controller and MVC." }
+ }
+ { }
+ { "entry" = "tags"
+ { "array"
+ { "string" = "php" }
+ { "string" = "cakephp" }
+ { "string" = "framework" }
+ }
+ }
+ { }
+ { "entry" = "admin_tags"
+ { "array" }
+ }
+ }
+ }
+ }
+ { }
+ { "dict"
+ { "entry" = "quickstart"
+ { "dict"
+ { }
+ { "entry" = "id"
+ { "string" = "2" }
+ }
+ { }
+ { "entry" = "name"
+ { "string" = "Django" }
+ }
+ { }
+ { "entry" = "website"
+ { "string" = "https://www.djangoproject.com/" }
+ }
+ { }
+ { "entry" = "initial_git_url"
+ { "string" = "git://github.com/openshift/django-example.git" }
+ }
+ { }
+ { "entry" = "cartridges"
+ { "array"
+ { "string" = "python-2.7" }
+ }
+ }
+ { }
+ { "entry" = "summary"
+ { "string" = "A high-level Python web framework that encourages rapid development and clean, pragmatic design. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS." }
+ }
+ { }
+ { "entry" = "tags"
+ { "array"
+ { "string" = "python" }
+ { "string" = "django" }
+ { "string" = "framework" }
+ }
+ }
+ { }
+ { "entry" = "admin_tags"
+ { "array" }
+ }
+ }
+ }
+ }
+ { }
+ { "dict"
+ { "entry" = "quickstart"
+ { "dict"
+ { }
+ { "entry" = "id"
+ { "string" = "4" }
+ }
+ { }
+ { "entry" = "name"
+ { "string" = "Drupal" }
+ }
+ { }
+ { "entry" = "website"
+ { "string" = "http://drupal.org/" }
+ }
+ { }
+ { "entry" = "initial_git_url"
+ { "string" = "git://github.com/openshift/drupal-example.git" }
+ }
+ { }
+ { "entry" = "cartridges"
+ { "array"
+ { "string" = "php-5.4" }
+ { "string" = "mysql-5.1" }
+ }
+ }
+ { }
+ { "entry" = "summary"
+ { "string" = "An open source content management platform written in PHP powering millions of websites and applications. It is built, used, and supported by an active and diverse community of people around the world. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS." }
+ }
+ { }
+ { "entry" = "tags"
+ { "array"
+ { "string" = "php" }
+ { "string" = "drupal" }
+ { "string" = "wiki" }
+ { "string" = "framework" }
+ { "string" = "instant_app" }
+ }
+ }
+ { }
+ { "entry" = "admin_tags"
+ { "array" }
+ }
+ }
+ }
+ }
+ { }
+ { "dict"
+ { "entry" = "quickstart"
+ { "dict"
+ { }
+ { "entry" = "id"
+ { "string" = "6" }
+ }
+ { }
+ { "entry" = "name"
+ { "string" = "Ruby on Rails" }
+ }
+ { }
+ { "entry" = "website"
+ { "string" = "http://rubyonrails.org/" }
+ }
+ { }
+ { "entry" = "initial_git_url"
+ { "string" = "git://github.com/openshift/rails-example.git" }
+ }
+ { }
+ { "entry" = "cartridges"
+ { "array"
+ { "string" = "ruby-1.9" }
+ { "string" = "mysql-5.1" }
+ }
+ }
+ { }
+ { "entry" = "summary"
+ { "string" = "An open source web framework for Ruby that is optimized for programmer happiness and sustainable productivity. It lets you write beautiful code by favoring convention over configuration." }
+ }
+ { }
+ { "entry" = "tags"
+ { "array"
+ { "string" = "ruby" }
+ { "string" = "rails" }
+ { "string" = "framework" }
+ }
+ }
+ { }
+ { "entry" = "admin_tags"
+ { "array" }
+ }
+ }
+ }
+ }
+ { }
+ { "dict"
+ { "entry" = "quickstart"
+ { "dict"
+ { }
+ { "entry" = "id"
+ { "string" = "8" }
+ }
+ { }
+ { "entry" = "name"
+ { "string" = "WordPress" }
+ }
+ { }
+ { "entry" = "website"
+ { "string" = "http://wordpress.org" }
+ }
+ { }
+ { "entry" = "initial_git_url"
+ { "string" = "git://github.com/openshift/wordpress-example.git" }
+ }
+ { }
+ { "entry" = "cartridges"
+ { "array"
+ { "string" = "php-5.4" }
+ { "string" = "mysql-5.1" }
+ }
+ }
+ { }
+ { "entry" = "summary"
+ { "string" = "A semantic personal publishing platform written in PHP with a MySQL back end, focusing on aesthetics, web standards, and usability. Administrator user name and password are written to $OPENSHIFT_DATA_DIR/CREDENTIALS." }
+ }
+ { }
+ { "entry" = "tags"
+ { "array"
+ { "string" = "php" }
+ { "string" = "wordpress" }
+ { "string" = "blog" }
+ { "string" = "framework" }
+ { "string" = "instant_app" }
+ }
+ }
+ { }
+ { "entry" = "admin_tags"
+ { "array" }
+ }
+ }
+ }
+ { }
+ }
+}
+
+
+(* FIXME: not yet supported:
+ * The manner in which the JSON utility lens currently works does not maintain
+ * whitepsace as per the Augeas specification in the put direction.
+
+test OpenShift_Quickstarts.lns put conf after set "/array/dict[5]/entry/dict/entry[3]/string" "https://wordpress.org"
+ = new_conf *)
+
+(* vim: set ts=4 expandtab sw=4: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_openvpn.aug b/Sharp.Augeas.Test/lens/tests/test_openvpn.aug
new file mode 100644
index 0000000..f303a30
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_openvpn.aug
@@ -0,0 +1,1254 @@
+
+module Test_OpenVPN =
+
+let server_conf = "
+daemon
+local 10.0.5.20
+port 1194
+# TCP or UDP server?
+proto udp
+;dev tap
+dev tun
+
+dev-node MyTap
+ca ca.crt
+cert server.crt
+key server.key # This file should be kept secret
+
+# Diffie hellman parameters.
+dh dh1024.pem
+
+server 10.8.0.0 255.255.255.0
+ifconfig-pool-persist ipp.txt
+
+client-config-dir /etc/openvpn/ccd
+server-bridge 10.8.0.4 255.255.255.0 10.8.0.50 10.8.0.100
+route 10.9.0.0 255.255.255.0
+push \"route 192.168.10.0 255.255.255.0\"
+learn-address ./script
+push \"redirect-gateway\"
+push \"dhcp-option DNS 10.8.0.1\"
+push \"dhcp-option WINS 10.8.0.1\"
+client-to-client
+duplicate-cn
+keepalive 10 120
+tls-auth ta.key 0 # This file is secret
+cipher BF-CBC # Blowfish (default)
+;cipher AES-128-CBC # AES
+;cipher DES-EDE3-CBC # Triple-DES
+comp-lzo
+max-clients 100
+user nobody
+group nobody
+persist-key
+persist-tun
+status openvpn-status.log
+log openvpn.log
+log-append openvpn.log
+verb 3
+mute 20
+management 10.0.5.20 1193 /etc/openvpn/mpass
+"
+
+test OpenVPN.lns get server_conf =
+ {}
+ { "daemon" }
+ { "local" = "10.0.5.20" }
+ { "port" = "1194" }
+ { "#comment" = "TCP or UDP server?" }
+ { "proto" = "udp" }
+ { "#comment" = "dev tap" }
+ { "dev" = "tun" }
+ {}
+ { "dev-node" = "MyTap" }
+ { "ca" = "ca.crt" }
+ { "cert" = "server.crt" }
+ { "key" = "server.key"
+ { "#comment" = "This file should be kept secret" } }
+ {}
+ { "#comment" = "Diffie hellman parameters." }
+ { "dh" = "dh1024.pem" }
+ {}
+ { "server"
+ { "address" = "10.8.0.0" }
+ { "netmask" = "255.255.255.0" } }
+ { "ifconfig-pool-persist"
+ { "file" = "ipp.txt" }
+ }
+ {}
+ { "client-config-dir" = "/etc/openvpn/ccd" }
+ { "server-bridge"
+ { "address" = "10.8.0.4" }
+ { "netmask" = "255.255.255.0" }
+ { "start" = "10.8.0.50" }
+ { "end" = "10.8.0.100" } }
+ { "route"
+ { "address" = "10.9.0.0" }
+ { "netmask" = "255.255.255.0" } }
+ { "push" = "route 192.168.10.0 255.255.255.0" }
+ { "learn-address" = "./script" }
+ { "push" = "redirect-gateway" }
+ { "push" = "dhcp-option DNS 10.8.0.1" }
+ { "push" = "dhcp-option WINS 10.8.0.1" }
+ { "client-to-client" }
+ { "duplicate-cn" }
+ { "keepalive"
+ { "ping" = "10" }
+ { "timeout" = "120" } }
+ { "tls-auth"
+ { "key" = "ta.key" }
+ { "is_client" = "0" }
+ { "#comment" = "This file is secret" } }
+ { "cipher" = "BF-CBC"
+ { "#comment" = "Blowfish (default)" } }
+ { "#comment" = "cipher AES-128-CBC # AES" }
+ { "#comment" = "cipher DES-EDE3-CBC # Triple-DES" }
+ { "comp-lzo" }
+ { "max-clients" = "100" }
+ { "user" = "nobody" }
+ { "group" = "nobody" }
+ { "persist-key" }
+ { "persist-tun" }
+ { "status"
+ { "file" = "openvpn-status.log" }
+ }
+ { "log" = "openvpn.log" }
+ { "log-append" = "openvpn.log" }
+ { "verb" = "3" }
+ { "mute" = "20" }
+ { "management"
+ { "server" = "10.0.5.20" }
+ { "port" = "1193" }
+ { "pwfile" = "/etc/openvpn/mpass" } }
+
+
+
+let client_conf = "
+client
+remote my-server-1 1194
+;remote my-server-2 1194
+remote-random
+resolv-retry infinite
+nobind
+http-proxy-retry # retry on connection failures
+http-proxy mytest 1024
+mute-replay-warnings
+ns-cert-type server
+"
+
+test OpenVPN.lns get client_conf =
+ {}
+ { "client" }
+ { "remote"
+ { "server" = "my-server-1" }
+ { "port" = "1194" } }
+ { "#comment" = "remote my-server-2 1194" }
+ { "remote-random" }
+ { "resolv-retry" = "infinite" }
+ { "nobind" }
+ { "http-proxy-retry"
+ { "#comment" = "retry on connection failures" } }
+ { "http-proxy"
+ { "server" = "mytest" }
+ { "port" = "1024" } }
+ { "mute-replay-warnings" }
+ { "ns-cert-type" = "server" }
+
+(* Most (hopefully all) permutations for OpenVPN 2.3
+ * NOTE: This completely ignores IPv6 because it's hard to tell which OpenVPN
+ * options actually work with IPv6. Thar be dragons.
+ *)
+let all_permutations_conf = "
+config /a/canonical/file
+config relative_file
+mode p2p
+mode server
+local 192.168.1.1
+local hostname
+remote 192.168.1.1 1234
+remote hostname 1234
+remote hostname
+remote 192.168.1.1
+remote hostname 1234 tcp
+remote 192.168.1.1 1234 tcp
+remote hostname 1234 udp
+remote-random-hostname
+#comment square <connection> blocks should go here
+proto-force udp
+proto-force tcp
+remote-random
+proto udp
+proto tcp-client
+proto tcp-server
+connect-retry 5
+connect-timeout 10
+connect-retry-max 0
+show-proxy-settings
+http-proxy servername 1234
+http-proxy servername 1234 auto
+http-proxy servername 1234 auto-nct
+http-proxy servername 1234 auto none
+http-proxy servername 1234 auto basic
+http-proxy servername 1234 auto ntlm
+http-proxy servername 1234 relative_filename ntlm
+http-proxy servername 1234 /canonical/filename basic
+http-proxy-retry
+http-proxy-timeout 5
+http-proxy-option VERSION 1.0
+http-proxy-option AGENT an unquoted string with spaces
+http-proxy-option AGENT an_unquoted_string_without_spaces
+socks-proxy servername
+socks-proxy servername 1234
+socks-proxy servername 1234 /canonical/file
+socks-proxy servername 1234 relative/file
+socks-proxy-retry
+resolv-retry 5
+float
+ipchange my command goes here
+port 1234
+lport 1234
+rport 1234
+bind
+nobind
+dev tun
+dev tun0
+dev tap
+dev tap0
+dev null
+dev-type tun
+dev-type tap
+topology net30
+topology p2p
+topology subnet
+tun-ipv6
+dev-node /canonical/file
+dev-node relative/file
+lladdr 1.2.3.4
+iproute my command goes here
+ifconfig 1.2.3.4 5.6.7.8
+ifconfig-noexec
+ifconfig-nowarn
+route 111.222.123.123
+route networkname
+route vpn_gateway
+route net_gateway
+route remote_host
+route 111.222.123.123 255.123.255.221
+route 111.222.123.123 default
+route 111.222.123.123 255.123.255.231 111.222.123.1
+route 111.222.123.123 default 111.222.123.1
+route 111.222.123.123 255.123.255.231 default
+route 111.222.123.123 default default
+route 111.222.123.123 255.123.255.231 gatewayname
+route 111.222.123.123 255.123.255.231 gatewayname 5
+route 111.222.123.123 255.123.255.231 vpn_gateway
+route 111.222.123.123 255.123.255.231 net_gateway
+route 111.222.123.123 255.123.255.231 remote_host
+route 111.222.123.123 255.123.255.231 111.222.123.1
+route 111.222.123.123 255.123.255.231 111.222.123.1 5
+max-routes 5
+route-gateway gateway-name
+route-gateway 111.222.123.1
+route-gateway dhcp
+route-metric 5
+route-delay
+route-delay 1
+route-delay 1 2
+route-up my command goes here
+route-pre-down my command goes here
+route-noexec
+route-nopull
+allow-pull-fqdn
+client-nat snat 1.2.3.4 5.6.7.8 9.8.7.6
+client-nat dnat 1.2.3.4 5.6.7.8 9.8.7.6
+redirect-gateway local
+redirect-gateway local autolocal
+redirect-gateway local autolocal def1 bypass-dhcp bypass-dns block-local
+link-mtu 5
+redirect-private local
+redirect-private local autolocal
+redirect-private local autolocal def1 bypass-dhcp bypass-dns block-local
+tun-mtu 5
+tun-mtu-extra 5
+mtu-disc no
+mtu-disc maybe
+mtu-disc yes
+mtu-test
+fragment 5
+mssfix 1600
+sndbuf 65536
+rcvbuf 65535
+mark blahvalue
+socket-flags TCP_NODELAY
+txqueuelen 5
+shaper 50
+inactive 5
+inactive 5 1024
+ping 10
+ping-exit 10
+ping-restart 10
+keepalive 1 2
+ping-timer-rem
+persist-tun
+persist-key
+persist-local-ip
+persist-remote-ip
+mlock
+up my command goes here
+up-delay
+down my command goes here
+down-pre
+up-restart
+setenv myname myvalue
+setenv my0-_name my value with spaces
+setenv-safe myname myvalue
+setenv-safe my-_name my value with spaces
+ignore-unknown-option anopt
+ignore-unknown-option anopt anotheropt
+script-security 3
+disable-occ
+user username
+group groupname
+cd /canonical/dir
+cd relative/dir/
+chroot /canonical/dir
+chroot relative/dir/
+setcon selinux-context
+daemon
+daemon mydaemon_name
+syslog
+syslog my_syslog-name
+errors-to-stderr
+passtos
+inetd
+inetd wait
+inetd nowait
+inetd wait my-program_name
+log myfilename
+log-append myfilename
+suppress-timestamps
+writepid myfile
+nice 5
+fast-io
+multihome
+echo stuff to echo until end of line
+remap-usr1 SIGHUP
+remap-usr1 SIGTERM
+verb 6
+status myfile
+status myfile 15
+status-version
+status-version 3
+mute 20
+comp-lzo
+comp-lzo yes
+comp-lzo no
+comp-lzo adaptive
+management 123.123.123.123 1234
+management 123.123.123.123 1234 /canonical/file
+management-client
+management-query-passwords
+management-query-proxy
+management-query-remote
+management-forget-disconnect
+management-hold
+management-signal
+management-up-down
+management-client-auth
+management-client-pf
+management-log-cache 5
+management-client-user myuser
+management-client-user mygroup
+plugin /canonical/file
+plugin relative/file
+plugin myfile an init string
+server 1.2.3.4 255.255.255.0
+server 1.2.3.4 255.255.255.255 nopool
+server-bridge 1.2.3.4 1.2.3.5 50.5.5.5 50.5.5.6
+server-bridge nogw
+push \"my push string\"
+push-reset
+push-peer-info
+disable
+ifconfig-pool 1.1.1.1 2.2.2.2
+ifconfig-pool 1.1.1.1 2.2.2.2 255.255.255.0
+ifconfig-pool-persist myfile
+ifconfig-pool-persist myfile 50
+ifconfig-pool-linear
+ifconfig-push 1.1.1.1 2.2.2.2
+ifconfig-push 1.1.1.1 2.2.2.2 alias-name
+iroute 1.1.1.1
+iroute 1.1.1.1 2.2.2.2
+client-to-client
+duplicate-cn
+client-connect my command goes here
+client-disconnect my command goes here
+client-config-dir directory
+ccd-exclusive
+tmp-dir /directory
+hash-size 1 2
+bcast-buffers 5
+tcp-queue-limit 50
+tcp-nodelay
+max-clients 50
+max-routes-per-client 50
+stale-routes-check 5
+stale-routes-check 5 50
+connect-freq 50 100
+learn-address my command goes here
+auth-user-pass-verify /my/script/with/no/arguments.sh via-env
+auth-user-pass-verify \"myscript.sh arg1 arg2\" via-file
+opt-verify
+auth-user-pass-optional
+client-cert-not-required
+username-as-common-name
+port-share 1.1.1.1 1234
+port-share myhostname 1234
+port-share myhostname 1234 /canonical/dir
+client
+pull
+auth-user-pass
+auth-user-pass /canonical/file
+auth-user-pass relative/file
+auth-retry none
+auth-retry nointeract
+auth-retry interact
+static-challenge challenge_no_spaces 1
+static-challenge \"my quoted challenge string\" 0
+server-poll-timeout 50
+explicit-exit-notify
+explicit-exit-notify 5
+secret /canonicalfile
+secret relativefile
+secret filename 1
+secret filename 0
+key-direction
+auth none
+auth sha1
+cipher SHA1
+cipher sha1
+keysize 50
+prng SHA1
+prng SHA1 500
+engine
+engine blah
+no-replay
+replay-window 64
+replay-window 64 16
+mute-replay-warnings
+replay-persist /my/canonical/filename
+no-iv
+use-prediction-resistance
+test-crypto
+tls-server
+tls-client
+ca myfile
+capath /mydir/
+dh myfile
+cert myfile
+extra-certs myfile
+key myfile
+tls-version-min 1.1
+tls-version-min 2
+tls-version-min 1.1 or-highest
+tls-version-max 5.5
+pkcs12 myfile
+verify-hash AD:B0:95:D8:09:C8:36:45:12:A9:89:C8:90:09:CB:13:72:A6:AD:16
+pkcs11-cert-private 0
+pkcs11-cert-private 1
+pkcs11-id myname
+pkcs11-id-management
+pkcs11-pin-cache 50
+pkcs11-protected-authentication 0
+pkcs11-protected-authentication 1
+cryptoapicert \"SUBJ:Justin Akers\"
+key-method 2
+tls-cipher DEFAULT:!EXP:!PSK:!SRP:!kRSA
+tls-timeout 50
+reneg-bytes 50
+reneg-pkts 50
+reneg-sec 5
+hand-window 123
+tran-window 456
+single-session
+tls-exit
+tls-auth filename 1
+askpass /canonical/filename
+auth-nocache
+tls-verify my command goes here
+tls-export-cert /a/directory/for/things
+x509-username-field emailAddress
+x509-username-field ext:subjectAltName
+tls-remote myhostname
+verify-x509-name hostname name
+verify-x509-name hostname name-prefix
+verify-x509-name hostname subject
+ns-cert-type server
+ns-cert-type client
+remote-cert-tls server
+remote-cert-tls client
+remote-cert-ku 01
+remote-cert-ku 01 02 fa FF b3
+remote-cert-eku 123.3510.350.10
+remote-cert-eku \"TLS Web Client Authentication\"
+remote-cert-eku serverAuth
+crl-verify /a/file/path
+crl-verify /a/directory/ dir
+show-ciphers
+show-digests
+show-tls
+show-engines
+genkey
+mktun
+rmtun
+ifconfig-ipv6 2000:123:456::/64 1234:99:123::124
+ifconfig-ipv6-push 2000:123:456::/64 1234:99:123::124
+iroute-ipv6 2000:123:456::/64
+route-ipv6 2000:123:456::/64
+route-ipv6 2000:123:456::/64 1234:99:123::124
+route-ipv6 2000:123:456::/64 1234:99:123::124 500
+server-ipv6 2000:123:456::/64
+ifconfig-ipv6-pool 2000:123:456::/64
+
+"
+
+test OpenVPN.lns get all_permutations_conf =
+ { }
+ { "config" = "/a/canonical/file" }
+ { "config" = "relative_file" }
+ { "mode" = "p2p" }
+ { "mode" = "server" }
+ { "local" = "192.168.1.1" }
+ { "local" = "hostname" }
+ { "remote"
+ { "server" = "192.168.1.1" }
+ { "port" = "1234" }
+ }
+ { "remote"
+ { "server" = "hostname" }
+ { "port" = "1234" }
+ }
+ { "remote"
+ { "server" = "hostname" }
+ }
+ { "remote"
+ { "server" = "192.168.1.1" }
+ }
+ { "remote"
+ { "server" = "hostname" }
+ { "port" = "1234" }
+ { "proto" = "tcp" }
+ }
+ { "remote"
+ { "server" = "192.168.1.1" }
+ { "port" = "1234" }
+ { "proto" = "tcp" }
+ }
+ { "remote"
+ { "server" = "hostname" }
+ { "port" = "1234" }
+ { "proto" = "udp" }
+ }
+ { "remote-random-hostname" }
+ { "#comment" = "comment square <connection> blocks should go here" }
+ { "proto-force" = "udp" }
+ { "proto-force" = "tcp" }
+ { "remote-random" }
+ { "proto" = "udp" }
+ { "proto" = "tcp-client" }
+ { "proto" = "tcp-server" }
+ { "connect-retry" = "5" }
+ { "connect-timeout" = "10" }
+ { "connect-retry-max" = "0" }
+ { "show-proxy-settings" }
+ { "http-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ }
+ { "http-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "auto" }
+ }
+ { "http-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "auto-nct" }
+ }
+ { "http-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "auto" }
+ { "auth-method" = "none" }
+ }
+ { "http-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "auto" }
+ { "auth-method" = "basic" }
+ }
+ { "http-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "auto" }
+ { "auth-method" = "ntlm" }
+ }
+ { "http-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "relative_filename" }
+ { "auth-method" = "ntlm" }
+ }
+ { "http-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "/canonical/filename" }
+ { "auth-method" = "basic" }
+ }
+ { "http-proxy-retry" }
+ { "http-proxy-timeout" = "5" }
+ { "http-proxy-option"
+ { "option" = "VERSION" }
+ { "value" = "1.0" }
+ }
+ { "http-proxy-option"
+ { "option" = "AGENT" }
+ { "value" = "an unquoted string with spaces" }
+ }
+ { "http-proxy-option"
+ { "option" = "AGENT" }
+ { "value" = "an_unquoted_string_without_spaces" }
+ }
+ { "socks-proxy"
+ { "server" = "servername" }
+ }
+ { "socks-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ }
+ { "socks-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "/canonical/file" }
+ }
+ { "socks-proxy"
+ { "server" = "servername" }
+ { "port" = "1234" }
+ { "auth" = "relative/file" }
+ }
+ { "socks-proxy-retry" }
+ { "resolv-retry" = "5" }
+ { "float" }
+ { "ipchange" = "my command goes here" }
+ { "port" = "1234" }
+ { "lport" = "1234" }
+ { "rport" = "1234" }
+ { "bind" }
+ { "nobind" }
+ { "dev" = "tun" }
+ { "dev" = "tun0" }
+ { "dev" = "tap" }
+ { "dev" = "tap0" }
+ { "dev" = "null" }
+ { "dev-type" = "tun" }
+ { "dev-type" = "tap" }
+ { "topology" = "net30" }
+ { "topology" = "p2p" }
+ { "topology" = "subnet" }
+ { "tun-ipv6" }
+ { "dev-node" = "/canonical/file" }
+ { "dev-node" = "relative/file" }
+ { "lladdr" = "1.2.3.4" }
+ { "iproute" = "my command goes here" }
+ { "ifconfig"
+ { "local" = "1.2.3.4" }
+ { "remote" = "5.6.7.8" }
+ }
+ { "ifconfig-noexec" }
+ { "ifconfig-nowarn" }
+ { "route"
+ { "address" = "111.222.123.123" }
+ }
+ { "route"
+ { "address" = "networkname" }
+ }
+ { "route"
+ { "address" = "vpn_gateway" }
+ }
+ { "route"
+ { "address" = "net_gateway" }
+ }
+ { "route"
+ { "address" = "remote_host" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.221" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "default" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "111.222.123.1" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "default" }
+ { "gateway" = "111.222.123.1" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "default" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "default" }
+ { "gateway" = "default" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "gatewayname" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "gatewayname" }
+ { "metric" = "5" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "vpn_gateway" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "net_gateway" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "remote_host" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "111.222.123.1" }
+ }
+ { "route"
+ { "address" = "111.222.123.123" }
+ { "netmask" = "255.123.255.231" }
+ { "gateway" = "111.222.123.1" }
+ { "metric" = "5" }
+ }
+ { "max-routes" = "5" }
+ { "route-gateway" = "gateway-name" }
+ { "route-gateway" = "111.222.123.1" }
+ { "route-gateway" = "dhcp" }
+ { "route-metric" = "5" }
+ { "route-delay" }
+ { "route-delay"
+ { "seconds" = "1" }
+ }
+ { "route-delay"
+ { "seconds" = "1" }
+ { "win-seconds" = "2" }
+ }
+ { "route-up" = "my command goes here" }
+ { "route-pre-down" = "my command goes here" }
+ { "route-noexec" }
+ { "route-nopull" }
+ { "allow-pull-fqdn" }
+ { "client-nat"
+ { "type" = "snat" }
+ { "network" = "1.2.3.4" }
+ { "netmask" = "5.6.7.8" }
+ { "alias" = "9.8.7.6" }
+ }
+ { "client-nat"
+ { "type" = "dnat" }
+ { "network" = "1.2.3.4" }
+ { "netmask" = "5.6.7.8" }
+ { "alias" = "9.8.7.6" }
+ }
+ { "redirect-gateway"
+ { "flag" = "local" }
+ }
+ { "redirect-gateway"
+ { "flag" = "local" }
+ { "flag" = "autolocal" }
+ }
+ { "redirect-gateway"
+ { "flag" = "local" }
+ { "flag" = "autolocal" }
+ { "flag" = "def1" }
+ { "flag" = "bypass-dhcp" }
+ { "flag" = "bypass-dns" }
+ { "flag" = "block-local" }
+ }
+ { "link-mtu" = "5" }
+ { "redirect-private"
+ { "flag" = "local" }
+ }
+ { "redirect-private"
+ { "flag" = "local" }
+ { "flag" = "autolocal" }
+ }
+ { "redirect-private"
+ { "flag" = "local" }
+ { "flag" = "autolocal" }
+ { "flag" = "def1" }
+ { "flag" = "bypass-dhcp" }
+ { "flag" = "bypass-dns" }
+ { "flag" = "block-local" }
+ }
+ { "tun-mtu" = "5" }
+ { "tun-mtu-extra" = "5" }
+ { "mtu-disc" = "no" }
+ { "mtu-disc" = "maybe" }
+ { "mtu-disc" = "yes" }
+ { "mtu-test" }
+ { "fragment" = "5" }
+ { "mssfix" = "1600" }
+ { "sndbuf" = "65536" }
+ { "rcvbuf" = "65535" }
+ { "mark" = "blahvalue" }
+ { "socket-flags" = "TCP_NODELAY" }
+ { "txqueuelen" = "5" }
+ { "shaper" = "50" }
+ { "inactive"
+ { "seconds" = "5" }
+ }
+ { "inactive"
+ { "seconds" = "5" }
+ { "bytes" = "1024" }
+ }
+ { "ping" = "10" }
+ { "ping-exit" = "10" }
+ { "ping-restart" = "10" }
+ { "keepalive"
+ { "ping" = "1" }
+ { "timeout" = "2" }
+ }
+ { "ping-timer-rem" }
+ { "persist-tun" }
+ { "persist-key" }
+ { "persist-local-ip" }
+ { "persist-remote-ip" }
+ { "mlock" }
+ { "up" = "my command goes here" }
+ { "up-delay" }
+ { "down" = "my command goes here" }
+ { "down-pre" }
+ { "up-restart" }
+ { "setenv"
+ { "myname" = "myvalue" }
+ }
+ { "setenv"
+ { "my0-_name" = "my value with spaces" }
+ }
+ { "setenv-safe"
+ { "myname" = "myvalue" }
+ }
+ { "setenv-safe"
+ { "my-_name" = "my value with spaces" }
+ }
+ { "ignore-unknown-option"
+ { "opt" = "anopt" }
+ }
+ { "ignore-unknown-option"
+ { "opt" = "anopt" }
+ { "opt" = "anotheropt" }
+ }
+ { "script-security" = "3" }
+ { "disable-occ" }
+ { "user" = "username" }
+ { "group" = "groupname" }
+ { "cd" = "/canonical/dir" }
+ { "cd" = "relative/dir/" }
+ { "chroot" = "/canonical/dir" }
+ { "chroot" = "relative/dir/" }
+ { "setcon" = "selinux-context" }
+ { "daemon" }
+ { "daemon" = "mydaemon_name" }
+ { "syslog" }
+ { "syslog" = "my_syslog-name" }
+ { "errors-to-stderr" }
+ { "passtos" }
+ { "inetd" }
+ { "inetd"
+ { "mode" = "wait" }
+ }
+ { "inetd"
+ { "mode" = "nowait" }
+ }
+ { "inetd"
+ { "mode" = "wait" }
+ { "progname" = "my-program_name" }
+ }
+ { "log" = "myfilename" }
+ { "log-append" = "myfilename" }
+ { "suppress-timestamps" }
+ { "writepid" = "myfile" }
+ { "nice" = "5" }
+ { "fast-io" }
+ { "multihome" }
+ { "echo" = "stuff to echo until end of line" }
+ { "remap-usr1" = "SIGHUP" }
+ { "remap-usr1" = "SIGTERM" }
+ { "verb" = "6" }
+ { "status"
+ { "file" = "myfile" }
+ }
+ { "status"
+ { "file" = "myfile" }
+ { "repeat-seconds" = "15" }
+ }
+ { "status-version" }
+ { "status-version" = "3" }
+ { "mute" = "20" }
+ { "comp-lzo" }
+ { "comp-lzo" = "yes" }
+ { "comp-lzo" = "no" }
+ { "comp-lzo" = "adaptive" }
+ { "management"
+ { "server" = "123.123.123.123" }
+ { "port" = "1234" }
+ }
+ { "management"
+ { "server" = "123.123.123.123" }
+ { "port" = "1234" }
+ { "pwfile" = "/canonical/file" }
+ }
+ { "management-client" }
+ { "management-query-passwords" }
+ { "management-query-proxy" }
+ { "management-query-remote" }
+ { "management-forget-disconnect" }
+ { "management-hold" }
+ { "management-signal" }
+ { "management-up-down" }
+ { "management-client-auth" }
+ { "management-client-pf" }
+ { "management-log-cache" = "5" }
+ { "management-client-user" = "myuser" }
+ { "management-client-user" = "mygroup" }
+ { "plugin"
+ { "file" = "/canonical/file" }
+ }
+ { "plugin"
+ { "file" = "relative/file" }
+ }
+ { "plugin"
+ { "file" = "myfile" }
+ { "init-string" = "an init string" }
+ }
+ { "server"
+ { "address" = "1.2.3.4" }
+ { "netmask" = "255.255.255.0" }
+ }
+ { "server"
+ { "address" = "1.2.3.4" }
+ { "netmask" = "255.255.255.255" }
+ { "nopool" }
+ }
+ { "server-bridge"
+ { "address" = "1.2.3.4" }
+ { "netmask" = "1.2.3.5" }
+ { "start" = "50.5.5.5" }
+ { "end" = "50.5.5.6" }
+ }
+ { "server-bridge" = "nogw" }
+ { "push" = "my push string" }
+ { "push-reset" }
+ { "push-peer-info" }
+ { "disable" }
+ { "ifconfig-pool"
+ { "start" = "1.1.1.1" }
+ { "end" = "2.2.2.2" }
+ }
+ { "ifconfig-pool"
+ { "start" = "1.1.1.1" }
+ { "end" = "2.2.2.2" }
+ { "netmask" = "255.255.255.0" }
+ }
+ { "ifconfig-pool-persist"
+ { "file" = "myfile" }
+ }
+ { "ifconfig-pool-persist"
+ { "file" = "myfile" }
+ { "seconds" = "50" }
+ }
+ { "ifconfig-pool-linear" }
+ { "ifconfig-push"
+ { "local" = "1.1.1.1" }
+ { "remote-netmask" = "2.2.2.2" }
+ }
+ { "ifconfig-push"
+ { "local" = "1.1.1.1" }
+ { "remote-netmask" = "2.2.2.2" }
+ { "alias" = "alias-name" }
+ }
+ { "iroute"
+ { "local" = "1.1.1.1" }
+ }
+ { "iroute"
+ { "local" = "1.1.1.1" }
+ { "netmask" = "2.2.2.2" }
+ }
+ { "client-to-client" }
+ { "duplicate-cn" }
+ { "client-connect" = "my command goes here" }
+ { "client-disconnect" = "my command goes here" }
+ { "client-config-dir" = "directory" }
+ { "ccd-exclusive" }
+ { "tmp-dir" = "/directory" }
+ { "hash-size"
+ { "real" = "1" }
+ { "virtual" = "2" }
+ }
+ { "bcast-buffers" = "5" }
+ { "tcp-queue-limit" = "50" }
+ { "tcp-nodelay" }
+ { "max-clients" = "50" }
+ { "max-routes-per-client" = "50" }
+ { "stale-routes-check"
+ { "age" = "5" }
+ }
+ { "stale-routes-check"
+ { "age" = "5" }
+ { "interval" = "50" }
+ }
+ { "connect-freq"
+ { "num" = "50" }
+ { "sec" = "100" }
+ }
+ { "learn-address" = "my command goes here" }
+ { "auth-user-pass-verify"
+ {
+ { "command" = "/my/script/with/no/arguments.sh" }
+ }
+ { "method" = "via-env" }
+ }
+ { "auth-user-pass-verify"
+ {
+ { "command" = "myscript.sh arg1 arg2" }
+ }
+ { "method" = "via-file" }
+ }
+ { "opt-verify" }
+ { "auth-user-pass-optional" }
+ { "client-cert-not-required" }
+ { "username-as-common-name" }
+ { "port-share"
+ { "host" = "1.1.1.1" }
+ { "port" = "1234" }
+ }
+ { "port-share"
+ { "host" = "myhostname" }
+ { "port" = "1234" }
+ }
+ { "port-share"
+ { "host" = "myhostname" }
+ { "port" = "1234" }
+ { "dir" = "/canonical/dir" }
+ }
+ { "client" }
+ { "pull" }
+ { "auth-user-pass" }
+ { "auth-user-pass" = "/canonical/file" }
+ { "auth-user-pass" = "relative/file" }
+ { "auth-retry" = "none" }
+ { "auth-retry" = "nointeract" }
+ { "auth-retry" = "interact" }
+ { "static-challenge"
+ {
+ { "text" = "challenge_no_spaces" }
+ }
+ { "echo" = "1" }
+ }
+ { "static-challenge"
+ {
+ { "text" = "my quoted challenge string" }
+ }
+ { "echo" = "0" }
+ }
+ { "server-poll-timeout" = "50" }
+ { "explicit-exit-notify" }
+ { "explicit-exit-notify" = "5" }
+ { "secret"
+ { "file" = "/canonicalfile" }
+ }
+ { "secret"
+ { "file" = "relativefile" }
+ }
+ { "secret"
+ { "file" = "filename" }
+ { "direction" = "1" }
+ }
+ { "secret"
+ { "file" = "filename" }
+ { "direction" = "0" }
+ }
+ { "key-direction" }
+ { "auth" = "none" }
+ { "auth" = "sha1" }
+ { "cipher" = "SHA1" }
+ { "cipher" = "sha1" }
+ { "keysize" = "50" }
+ { "prng"
+ { "algorithm" = "SHA1" }
+ }
+ { "prng"
+ { "algorithm" = "SHA1" }
+ { "nsl" = "500" }
+ }
+ { "engine" }
+ { "engine" = "blah" }
+ { "no-replay" }
+ { "replay-window"
+ { "window-size" = "64" }
+ }
+ { "replay-window"
+ { "window-size" = "64" }
+ { "seconds" = "16" }
+ }
+ { "mute-replay-warnings" }
+ { "replay-persist" = "/my/canonical/filename" }
+ { "no-iv" }
+ { "use-prediction-resistance" }
+ { "test-crypto" }
+ { "tls-server" }
+ { "tls-client" }
+ { "ca" = "myfile" }
+ { "capath" = "/mydir/" }
+ { "dh" = "myfile" }
+ { "cert" = "myfile" }
+ { "extra-certs" = "myfile" }
+ { "key" = "myfile" }
+ { "tls-version-min" = "1.1" }
+ { "tls-version-min" = "2" }
+ { "tls-version-min" = "1.1"
+ { "or-highest" }
+ }
+ { "tls-version-max" = "5.5" }
+ { "pkcs12" = "myfile" }
+ { "verify-hash" = "AD:B0:95:D8:09:C8:36:45:12:A9:89:C8:90:09:CB:13:72:A6:AD:16" }
+ { "pkcs11-cert-private" = "0" }
+ { "pkcs11-cert-private" = "1" }
+ { "pkcs11-id" = "myname" }
+ { "pkcs11-id-management" }
+ { "pkcs11-pin-cache" = "50" }
+ { "pkcs11-protected-authentication" = "0" }
+ { "pkcs11-protected-authentication" = "1" }
+ { "cryptoapicert"
+ { "SUBJ" = "Justin Akers" }
+ }
+ { "key-method" = "2" }
+ { "tls-cipher"
+ { "cipher" = "DEFAULT" }
+ { "cipher" = "!EXP" }
+ { "cipher" = "!PSK" }
+ { "cipher" = "!SRP" }
+ { "cipher" = "!kRSA" }
+ }
+ { "tls-timeout" = "50" }
+ { "reneg-bytes" = "50" }
+ { "reneg-pkts" = "50" }
+ { "reneg-sec" = "5" }
+ { "hand-window" = "123" }
+ { "tran-window" = "456" }
+ { "single-session" }
+ { "tls-exit" }
+ { "tls-auth"
+ { "key" = "filename" }
+ { "is_client" = "1" }
+ }
+ { "askpass" = "/canonical/filename" }
+ { "auth-nocache" }
+ { "tls-verify" = "my command goes here" }
+ { "tls-export-cert" = "/a/directory/for/things" }
+ { "x509-username-field"
+ { "subj" = "emailAddress" }
+ }
+ { "x509-username-field"
+ { "ext" = "subjectAltName" }
+ }
+ { "tls-remote" = "myhostname" }
+ { "verify-x509-name"
+ { "name" = "hostname" }
+ { "type" = "name" }
+ }
+ { "verify-x509-name"
+ { "name" = "hostname" }
+ { "type" = "name-prefix" }
+ }
+ { "verify-x509-name"
+ { "name" = "hostname" }
+ { "type" = "subject" }
+ }
+ { "ns-cert-type" = "server" }
+ { "ns-cert-type" = "client" }
+ { "remote-cert-tls" = "server" }
+ { "remote-cert-tls" = "client" }
+ { "remote-cert-ku"
+ { "usage" = "01" }
+ }
+ { "remote-cert-ku"
+ { "usage" = "01" }
+ { "usage" = "02" }
+ { "usage" = "fa" }
+ { "usage" = "FF" }
+ { "usage" = "b3" }
+ }
+ { "remote-cert-eku"
+ { "oid" = "123.3510.350.10" }
+ }
+ { "remote-cert-eku"
+ { "symbol" = "TLS Web Client Authentication" }
+ }
+ { "remote-cert-eku"
+ { "symbol" = "serverAuth" }
+ }
+ { "crl-verify" = "/a/file/path" }
+ { "crl-verify" = "/a/directory/"
+ { "dir" }
+ }
+ { "show-ciphers" }
+ { "show-digests" }
+ { "show-tls" }
+ { "show-engines" }
+ { "genkey" }
+ { "mktun" }
+ { "rmtun" }
+ { "ifconfig-ipv6"
+ { "address" = "2000:123:456::/64" }
+ { "remote" = "1234:99:123::124" }
+ }
+ { "ifconfig-ipv6-push"
+ { "address" = "2000:123:456::/64" }
+ { "remote" = "1234:99:123::124" }
+ }
+ { "iroute-ipv6" = "2000:123:456::/64" }
+ { "route-ipv6"
+ { "network" = "2000:123:456::/64" }
+ }
+ { "route-ipv6"
+ { "network" = "2000:123:456::/64" }
+ { "gateway" = "1234:99:123::124" }
+ }
+ { "route-ipv6"
+ { "network" = "2000:123:456::/64" }
+ { "gateway" = "1234:99:123::124" }
+ { "metric" = "500" }
+ }
+ { "server-ipv6" = "2000:123:456::/64" }
+ { "ifconfig-ipv6-pool" = "2000:123:456::/64" }
+ { }
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_oz.aug b/Sharp.Augeas.Test/lens/tests/test_oz.aug
new file mode 100644
index 0000000..e8afa69
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_oz.aug
@@ -0,0 +1,36 @@
+module Test_oz =
+
+ let conf = "
+[paths]
+output_dir = /var/lib/libvirt/images
+data_dir = /var/lib/oz
+
+[libvirt]
+uri = qemu:///system
+image_type = raw
+"
+
+ test Oz.lns get conf =
+ {}
+ { "paths"
+ { "output_dir" = "/var/lib/libvirt/images" }
+ { "data_dir" = "/var/lib/oz" }
+ {} }
+ { "libvirt"
+ { "uri" = "qemu:///system" }
+ { "image_type" = "raw" }
+ }
+
+ test Oz.lns put conf after
+ set "libvirt/cpus" "2"
+ = "
+[paths]
+output_dir = /var/lib/libvirt/images
+data_dir = /var/lib/oz
+
+[libvirt]
+uri = qemu:///system
+image_type = raw
+cpus=2
+"
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_pagekite.aug b/Sharp.Augeas.Test/lens/tests/test_pagekite.aug
new file mode 100644
index 0000000..d32bc4f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_pagekite.aug
@@ -0,0 +1,111 @@
+module Test_Pagekite =
+
+let conf1 = "# Use the pagekite.net service defaults.
+defaults
+"
+test Pagekite.lns get conf1 =
+ { "#comment" = "Use the pagekite.net service defaults." }
+ { "defaults" }
+
+
+let conf2 ="
+frontends = pagekite.freedombox.me
+ports=80,81
+"
+test Pagekite.lns get conf2 =
+ { }
+ { "frontends" = "pagekite.freedombox.me" }
+ { "ports"
+ { "1" = "80" }
+ { "2" = "81" } }
+
+
+let conf3 = "frontend=pagekite.freedombox.me
+host=192.168.0.3
+"
+test Pagekite.lns get conf3 =
+ { "frontend" = "pagekite.freedombox.me" }
+ { "host" = "192.168.0.3" }
+
+
+let conf4 = "isfrontend
+ports=80,443
+protos=http,https
+domain=http,https:*.your.domain:MakeUpAPasswordHere
+"
+test Pagekite.lns get conf4 =
+ { "isfrontend" }
+ { "ports"
+ { "1" = "80" }
+ { "2" = "443" } }
+ { "protos"
+ { "1" = "http" }
+ { "2" = "https" } }
+ { "domain" = "http,https:*.your.domain:MakeUpAPasswordHere" }
+
+let conf_account = "kitename = my.freedombox.me
+kitesecret = 0420
+# Delete this line!
+abort_not_configured
+"
+test Pagekite.lns get conf_account =
+ { "kitename" = "my.freedombox.me" }
+ { "kitesecret" = "0420" }
+ { "#comment" = "Delete this line!" }
+ { "abort_not_configured" }
+
+
+let conf_service = "
+service_on = raw/22:@kitename : localhost:22 : @kitesecret
+service_on=http:192.168.0.1:127.0.0.1:80:
+service_on=https:yourhostname,fqdn:127.0.0.1:443:
+"
+test Pagekite.lns get conf_service =
+ { }
+ { "service_on"
+ { "1"
+ { "protocol" = "raw/22" }
+ { "kitename" = "@kitename" }
+ { "backend_host" = "localhost" }
+ { "backend_port" = "22" }
+ { "secret" = "@kitesecret" }
+ }
+ }
+ { "service_on"
+ { "2"
+ { "protocol" = "http" }
+ { "kitename" = "192.168.0.1" }
+ { "backend_host" = "127.0.0.1" }
+ { "backend_port" = "80" }
+ }
+ }
+ { "service_on"
+ { "3"
+ { "protocol" = "https" }
+ { "kitename" = "yourhostname,fqdn" }
+ { "backend_host" = "127.0.0.1" }
+ { "backend_port" = "443" }
+ }
+ }
+
+
+let conf_encryption = "
+frontend=frontend.your.domain:443
+fe_certname=frontend.your/domain
+ca_certs=/etc/pagekite.d/site-cert.pem
+tls_endpoint=frontend.your.domain:/path/to/frontend.pem
+"
+test Pagekite.lns get conf_encryption =
+ { }
+ { "frontend" = "frontend.your.domain:443" }
+ { "fe_certname" = "frontend.your/domain" }
+ { "ca_certs" = "/etc/pagekite.d/site-cert.pem" }
+ { "tls_endpoint" = "frontend.your.domain:/path/to/frontend.pem" }
+
+
+let conf_service_cfg = "insecure
+service_cfg = KITENAME.pagekite.me/80 : insecure : True
+"
+test Pagekite.lns get conf_service_cfg =
+ { "insecure" }
+ { "service_cfg" = "KITENAME.pagekite.me/80 : insecure : True" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_pam.aug b/Sharp.Augeas.Test/lens/tests/test_pam.aug
new file mode 100644
index 0000000..187ed2e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_pam.aug
@@ -0,0 +1,73 @@
+module Test_pam =
+
+ let example = "#%PAM-1.0
+AUTH [user_unknown=ignore success=ok ignore=ignore default=bad] pam_securetty.so
+session optional pam_keyinit.so force revoke
+"
+
+ test Pam.lns get example =
+ { "#comment" = "%PAM-1.0" }
+ { "1" { "type" = "AUTH" }
+ { "control" = "[user_unknown=ignore success=ok ignore=ignore default=bad]" }
+ { "module" = "pam_securetty.so" } }
+ { "2" { "type" = "session" }
+ { "control" = "optional" }
+ { "module" = "pam_keyinit.so" }
+ { "argument" = "force" }
+ { "argument" = "revoke" } }
+
+ test Pam.lns put example after
+ set "/1/control" "requisite"
+ = "#%PAM-1.0
+AUTH requisite pam_securetty.so
+session optional pam_keyinit.so force revoke
+"
+
+ (* Check that trailing whitespace is handled & preserved *)
+ let trailing_ws = "auth\trequired\tpam_unix.so \n"
+
+ test Pam.lns put trailing_ws after
+ set "/1/type" "auth"
+ = trailing_ws
+
+ test Pam.lns get "@include common-password\n" =
+ { "include" = "common-password" }
+
+ test Pam.lns get "-password optional pam_gnome_keyring.so\n" =
+ { "1"
+ { "optional" }
+ { "type" = "password" }
+ { "control" = "optional" }
+ { "module" = "pam_gnome_keyring.so" }
+ }
+
+ test Pam.lns get "session optional pam_motd.so [motd=/etc/bad example]\n" =
+ { "1"
+ { "type" = "session" }
+ { "control" = "optional" }
+ { "module" = "pam_motd.so" }
+ { "argument" = "[motd=/etc/bad example]" }
+ }
+
+(* Multiline PAM entries; issue #590 *)
+test Pam.lns get "account \\\ninclude \\\n system-auth\n" =
+ { "1"
+ { "type" = "account" }
+ { "control" = "include" }
+ { "module" = "system-auth" } }
+
+test Pam.lns get "account\\\n[success=1 default=ignore] \\
+ pam_succeed_if.so\\\nuser\\\n =\\\nvagrant\\\nuse_uid\\\nquiet\n" =
+ { "1"
+ { "type" = "account" }
+ { "control" = "[success=1 default=ignore]" }
+ { "module" = "pam_succeed_if.so" }
+ { "argument" = "user" }
+ { "argument" = "=" }
+ { "argument" = "vagrant" }
+ { "argument" = "use_uid" }
+ { "argument" = "quiet" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_pamconf.aug b/Sharp.Augeas.Test/lens/tests/test_pamconf.aug
new file mode 100644
index 0000000..6a23194
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_pamconf.aug
@@ -0,0 +1,35 @@
+module Test_pamconf =
+
+ let example = "# Authentication management
+#
+# login service (explicit because of pam_dial_auth)
+#
+login auth requisite pam_authtok_get.so.1
+login auth required pam_dhkeys.so.1 arg
+
+other session required pam_unix_session.so.1
+"
+
+ test PamConf.lns get example =
+ { "#comment" = "Authentication management" }
+ { }
+ { "#comment" = "login service (explicit because of pam_dial_auth)" }
+ { }
+ { "1" { "service" = "login" }
+ { "type" = "auth" }
+ { "control" = "requisite" }
+ { "module" = "pam_authtok_get.so.1" } }
+ { "2" { "service" = "login" }
+ { "type" = "auth" }
+ { "control" = "required" }
+ { "module" = "pam_dhkeys.so.1" }
+ { "argument" = "arg" } }
+ { }
+ { "3" { "service" = "other" }
+ { "type" = "session" }
+ { "control" = "required" }
+ { "module" = "pam_unix_session.so.1" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_passwd.aug b/Sharp.Augeas.Test/lens/tests/test_passwd.aug
new file mode 100644
index 0000000..01d93fc
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_passwd.aug
@@ -0,0 +1,104 @@
+module Test_Passwd =
+
+let conf = "root:x:0:0:root:/root:/bin/bash
+libuuid:x:100:101::/var/lib/libuuid:/bin/sh
+free:x:1000:1000:Free Ekanayaka,,,:/home/free:/bin/bash
+root:*:0:0:Charlie &:/root:/bin/csh
+"
+
+test Passwd.lns get conf =
+ { "root"
+ { "password" = "x" }
+ { "uid" = "0" }
+ { "gid" = "0" }
+ { "name" = "root" }
+ { "home" = "/root" }
+ { "shell" = "/bin/bash" } }
+ { "libuuid"
+ { "password" = "x" }
+ { "uid" = "100" }
+ { "gid" = "101" }
+ { "name" }
+ { "home" = "/var/lib/libuuid" }
+ { "shell" = "/bin/sh" } }
+ { "free"
+ { "password" = "x" }
+ { "uid" = "1000" }
+ { "gid" = "1000" }
+ { "name" = "Free Ekanayaka,,," }
+ { "home" = "/home/free" }
+ { "shell" = "/bin/bash" } }
+ { "root"
+ { "password" = "*" }
+ { "uid" = "0" }
+ { "gid" = "0" }
+ { "name" = "Charlie &" }
+ { "home" = "/root" }
+ { "shell" = "/bin/csh" } }
+
+(* Popular on Solaris *)
+test Passwd.lns get "+@some-nis-group::::::\n" =
+ { "@nis" = "some-nis-group" }
+
+test Passwd.lns get "+\n" =
+ { "@nisdefault" }
+
+test Passwd.lns get "+::::::\n" =
+ { "@nisdefault"
+ { "password" = "" }
+ { "uid" = "" }
+ { "gid" = "" }
+ { "name" }
+ { "home" }
+ { "shell" } }
+
+test Passwd.lns get "+::::::/sbin/nologin\n" =
+ { "@nisdefault"
+ { "password" = "" }
+ { "uid" = "" }
+ { "gid" = "" }
+ { "name" }
+ { "home" }
+ { "shell" = "/sbin/nologin" } }
+
+test Passwd.lns get "+:*:0:0:::\n" =
+ { "@nisdefault"
+ { "password" = "*" }
+ { "uid" = "0" }
+ { "gid" = "0" }
+ { "name" }
+ { "home" }
+ { "shell" } }
+
+(* NIS entries with overrides, ticket #339 *)
+test Passwd.lns get "+@bob:::::/home/bob:/bin/bash\n" =
+ { "@nis" = "bob"
+ { "home" = "/home/bob" }
+ { "shell" = "/bin/bash" } }
+
+(* NIS user entries *)
+test Passwd.lns get "+bob::::::\n" =
+ { "@+nisuser" = "bob" }
+
+test Passwd.lns get "+bob::::User Comment:/home/bob:/bin/bash\n" =
+ { "@+nisuser" = "bob"
+ { "name" = "User Comment" }
+ { "home" = "/home/bob" }
+ { "shell" = "/bin/bash" } }
+
+test Passwd.lns put "+bob::::::\n" after
+ set "@+nisuser" "alice"
+= "+alice::::::\n"
+
+test Passwd.lns put "+bob::::::\n" after
+ set "@+nisuser/name" "User Comment";
+ set "@+nisuser/home" "/home/bob";
+ set "@+nisuser/shell" "/bin/bash"
+= "+bob::::User Comment:/home/bob:/bin/bash\n"
+
+test Passwd.lns get "-bob::::::\n" =
+ { "@-nisuser" = "bob" }
+
+test Passwd.lns put "-bob::::::\n" after
+ set "@-nisuser" "alice"
+= "-alice::::::\n"
diff --git a/Sharp.Augeas.Test/lens/tests/test_pbuilder.aug b/Sharp.Augeas.Test/lens/tests/test_pbuilder.aug
new file mode 100644
index 0000000..9017381
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_pbuilder.aug
@@ -0,0 +1,20 @@
+
+
+module Test_Pbuilder =
+
+let conf = "BASETGZ=/var/cache/pbuilder/base.tgz
+#EXTRAPACKAGES=gcc3.0-athlon-builder
+export DEBIAN_BUILDARCH=athlon
+BUILDPLACE=/var/cache/pbuilder/build/
+MIRRORSITE=http://ftp.jp.debian.org/debian
+"
+
+test Pbuilder.lns get conf =
+ { "BASETGZ" = "/var/cache/pbuilder/base.tgz" }
+ { "#comment" = "EXTRAPACKAGES=gcc3.0-athlon-builder" }
+ { "DEBIAN_BUILDARCH" = "athlon"
+ { "export" } }
+ { "BUILDPLACE" = "/var/cache/pbuilder/build/" }
+ { "MIRRORSITE" = "http://ftp.jp.debian.org/debian" }
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_pg_hba.aug b/Sharp.Augeas.Test/lens/tests/test_pg_hba.aug
new file mode 100644
index 0000000..b9f6786
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_pg_hba.aug
@@ -0,0 +1,177 @@
+module Test_pg_hba =
+
+ (* Main test *)
+ let conf ="# TYPE DATABASE USER CIDR-ADDRESS METHOD
+
+local all all ident sameuser
+# IPv4 local connections:
+host all all 127.0.0.1/32 md5
+# Remote connections by hostname:
+host all all foo.example.com md5
+# Remote connections by suffix of hostname/fqdn:
+host all all .example.com md5
+# IPv6 local connections:
+host all all ::1/128 md5
+"
+
+ test Pg_Hba.lns get conf =
+ { "#comment" = "TYPE DATABASE USER CIDR-ADDRESS METHOD" }
+ {}
+ { "1"
+ { "type" = "local" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "method" = "ident"
+ { "option" = "sameuser" } }
+ }
+ { "#comment" = "IPv4 local connections:" }
+ { "2"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = "127.0.0.1/32" }
+ { "method" = "md5" }
+ }
+ { "#comment" = "Remote connections by hostname:" }
+ { "3"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = "foo.example.com" }
+ { "method" = "md5" }
+ }
+ { "#comment" = "Remote connections by suffix of hostname/fqdn:" }
+ { "4"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = ".example.com" }
+ { "method" = "md5" }
+ }
+ { "#comment" = "IPv6 local connections:" }
+ { "5"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = "::1/128" }
+ { "method" = "md5" }
+ }
+
+(* ------------------------------------------------------------- *)
+
+ (* Simple local test *)
+ test Pg_Hba.lns get "local all all trust\n" =
+ { "1"
+ { "type" = "local" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "method" = "trust" }
+ }
+
+ (* Remote test with comma-sparated database names *)
+ test Pg_Hba.lns get "hostssl db1,db2,db3 +pgusers 127.0.0.1/32 trust\n" =
+ { "1"
+ { "type" = "hostssl" }
+ { "database" = "db1" }
+ { "database" = "db2" }
+ { "database" = "db3" }
+ { "user" = "+pgusers" }
+ { "address" = "127.0.0.1/32" }
+ { "method" = "trust" }
+ }
+
+ (* Test with comma-sparated user names *)
+ test Pg_Hba.lns get "hostnossl sameuser u1,u2,u3 127.0.0.1/32 trust\n" =
+ { "1"
+ { "type" = "hostnossl" }
+ { "database" = "sameuser" }
+ { "user" = "u1" }
+ { "user" = "u2" }
+ { "user" = "u3" }
+ { "address" = "127.0.0.1/32" }
+ { "method" = "trust" }
+ }
+
+ (* Test with quoted database and user names *)
+ test Pg_Hba.lns get "host \"sameuser\" \"all\" 127.0.0.1/32 trust\n" =
+ { "1"
+ { "type" = "host" }
+ { "database" = "\"sameuser\"" }
+ { "user" = "\"all\"" }
+ { "address" = "127.0.0.1/32" }
+ { "method" = "trust" }
+ }
+
+ (* Test with IP + netmask address format *)
+ test Pg_Hba.lns get "host all all 192.168.1.1 255.255.0.0 trust\n" =
+ { "1"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = "192.168.1.1 255.255.0.0" }
+ { "method" = "trust" }
+ }
+
+ (* Test with fqdn as address *)
+ test Pg_Hba.lns get "host all all foo.example.com md5\n" =
+ { "1"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = "foo.example.com" }
+ { "method" = "md5" }
+ }
+
+ (* Test with fqdn suffix as address *)
+ test Pg_Hba.lns get "host all all .example.com md5\n" =
+ { "1"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = ".example.com" }
+ { "method" = "md5" }
+ }
+
+ (* Local types may not have and address *)
+ test Pg_Hba.lns get "local all all 127.0.0.1/32 trust\n" = *
+
+ (* Remote types must have an address *)
+ test Pg_Hba.lns get "host all all trust\n" = *
+
+ (* The space between the IP and the netmask must not be considered as a
+ column separator ("method" is missing here) *)
+ test Pg_Hba.lns get "host all all 192.168.1.1 255.255.0.0\n" = *
+
+ (* Ticket #313: support authentication method options *)
+ test Pg_Hba.lns get "host all all .dev.example.com gss include_realm=0 krb_realm=EXAMPLE.COM map=somemap
+host all all .dev.example.com ldap ldapserver=auth.example.com ldaptls=1 ldapprefix=\"uid=\" ldapsuffix=\",ou=people,dc=example,dc=com\"\n" =
+ { "1"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = ".dev.example.com" }
+ { "method" = "gss"
+ { "option" = "include_realm"
+ { "value" = "0" } }
+ { "option" = "krb_realm"
+ { "value" = "EXAMPLE.COM" } }
+ { "option" = "map"
+ { "value" = "somemap" } } } }
+ { "2"
+ { "type" = "host" }
+ { "database" = "all" }
+ { "user" = "all" }
+ { "address" = ".dev.example.com" }
+ { "method" = "ldap"
+ { "option" = "ldapserver"
+ { "value" = "auth.example.com" } }
+ { "option" = "ldaptls"
+ { "value" = "1" } }
+ { "option" = "ldapprefix"
+ { "value" = "uid=" } }
+ { "option" = "ldapsuffix"
+ { "value" = ",ou=people,dc=example,dc=com" } } } }
+
+ (* Unsupported yet *)
+ (* test Pg_Hba.lns get "host \"db with spaces\" \"user with spaces\" 127.0.0.1/32 trust\n" =? *)
+ (* test Pg_Hba.lns get "host \"db,with,commas\" \"user,with,commas\" 127.0.0.1/32 trust\n" =? *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_pgbouncer.aug b/Sharp.Augeas.Test/lens/tests/test_pgbouncer.aug
new file mode 100644
index 0000000..177dc6a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_pgbouncer.aug
@@ -0,0 +1,55 @@
+module Test_Pgbouncer =
+ let pgconfig =";; database name = connect string
+;;
+;; connect string params:
+;; dbname= host= port= user= password=
+[databases]
+; foodb over unix socket
+foodb =
+
+; redirect bardb to bazdb on localhost
+bardb = host=localhost dbname=bazdb
+
+; acceess to dest database will go with single user
+forcedb = host=127.0.0.1 port=300 user=baz password=foo client_encoding=UNICODE datestyle=ISO connect_query='SELECT 1'
+[pgbouncer]
+;;; Administrative settings
+logfile = /var/log/pgbouncer/pgbouncer.log
+pidfile = /var/run/pgbouncer/pgbouncer.pid
+; ip address or * which means all ip-s
+listen_addr = 127.0.0.1
+listen_port = 6432
+;auth_file = /8.0/main/global/pg_auth
+auth_file = /var/lib/pgsql/data/global/pg_auth
+admin_users = postgres
+server_reset_query = DISCARD ALL
+"
+
+test Pgbouncer.lns get pgconfig =
+ { "#comment" = "; database name = connect string" }
+ { "#comment" = ";" }
+ { "#comment" = "; connect string params:" }
+ { "#comment" = "; dbname= host= port= user= password=" }
+ { "databases"
+ { "#comment" = "foodb over unix socket" }
+ { "foodb" }
+ { }
+ { "#comment" = "redirect bardb to bazdb on localhost" }
+ { "bardb" = "host=localhost dbname=bazdb" }
+ { }
+ { "#comment" = "acceess to dest database will go with single user" }
+ { "forcedb" = "host=127.0.0.1 port=300 user=baz password=foo client_encoding=UNICODE datestyle=ISO connect_query='SELECT 1'" }
+ }
+ { "pgbouncer"
+ { "#comment" = ";; Administrative settings" }
+ { "logfile" = "/var/log/pgbouncer/pgbouncer.log" }
+ { "pidfile" = "/var/run/pgbouncer/pgbouncer.pid" }
+ { "#comment" = "ip address or * which means all ip-s" }
+ { "listen_addr" = "127.0.0.1" }
+ { "listen_port" = "6432" }
+ { "#comment" = "auth_file = /8.0/main/global/pg_auth" }
+ { "auth_file" = "/var/lib/pgsql/data/global/pg_auth" }
+ { "admin_users" = "postgres" }
+ { "server_reset_query" = "DISCARD ALL" }
+ }
+
\ No newline at end of file
diff --git a/Sharp.Augeas.Test/lens/tests/test_php.aug b/Sharp.Augeas.Test/lens/tests/test_php.aug
new file mode 100644
index 0000000..618f3ff
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_php.aug
@@ -0,0 +1,61 @@
+module Test_php =
+
+let conf = "
+safe_mode = Off
+[PHP]
+; Enable the PHP scripting language engine under Apache.
+engine = On
+
+; Enable compatibility mode with Zend Engine 1 (PHP 4.x)
+zend.ze1_compatibility_mode = Off
+ unserialize_callback_func=
+date.default_latitude = 31.7667
+
+[sqlite]
+sqlite.assoc_case = 0
+"
+
+
+test PHP.lns get conf =
+ { ".anon"
+ {}
+ { "safe_mode" = "Off" } }
+ { "PHP"
+ { "#comment" = "Enable the PHP scripting language engine under Apache." }
+ { "engine" = "On" }
+ {}
+ { "#comment" = "Enable compatibility mode with Zend Engine 1 (PHP 4.x)" }
+ { "zend.ze1_compatibility_mode" = "Off" }
+ { "unserialize_callback_func" }
+ { "date.default_latitude" = "31.7667" }
+ {} }
+ { "sqlite"
+ { "sqlite.assoc_case" = "0" } }
+
+test PHP.lns put conf after rm "noop" = conf
+
+
+test PHP.lns get ";\n" = { ".anon" {} }
+
+(* Section titles can have spaces *)
+test PHP.lns get "[mail function]\n" = { "mail function" }
+
+(* Keys can be lower and upper case *)
+test PHP.lns get "[fake]
+SMTP = localhost
+mixed_KEY = 25
+" =
+ { "fake"
+ { "SMTP" = "localhost" }
+ { "mixed_KEY" = "25" } }
+
+(* Ticket #243 *)
+test PHP.lns get "session.save_path = \"3;/var/lib/php5\"\n" =
+ { ".anon"
+ { "session.save_path" = "3;/var/lib/php5" } }
+
+(* GH issue #35
+ php-fpm syntax *)
+test PHP.lns get "php_admin_flag[log_errors] = on\n" =
+ { ".anon"
+ { "php_admin_flag[log_errors]" = "on" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_phpvars.aug b/Sharp.Augeas.Test/lens/tests/test_phpvars.aug
new file mode 100644
index 0000000..e5590cf
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_phpvars.aug
@@ -0,0 +1,72 @@
+module Test_phpvars =
+
+let conf = "<?pHp
+/**/
+/**
+ * Multi line comment
+ *
+ */
+
+/* One line comment */
+
+// Inline comment
+# Bash-style comment
+global $version;
+global $config_version;
+$config_version = '1.4.0';
+$theme=array();
+
+$theme[0]['NAME'] = 'Default'; // end-of line comment
+$theme[0][\"PATH\"] = SM_PATH . 'themes/default_theme.php';
+$theme[0]['XPATH'] = '/some//x/path' ;
+define ('MYVAR', ROOT . 'some value'); # end-of line comment
+include_once( ROOT . \"/path/to/conf\" );
+include( ROOT . \"/path/to/conf\" );
+@include SM_PATH . 'config/config_local.php';
+class config {
+ var $tmppath = \"/tmp\";
+ var $offline = 1;
+}
+?>
+"
+
+test Phpvars.lns get conf =
+ { }
+ { "#mcomment"
+ { "1" = "*" }
+ { "2" = "* Multi line comment" }
+ { "3" = "*" }
+ }
+ { }
+ { "#mcomment"
+ { "1" = "One line comment" }
+ }
+ { }
+ { "#comment" = "Inline comment" }
+ { "#comment" = "Bash-style comment" }
+ { "global" = "version" }
+ { "global" = "config_version" }
+ { "$config_version" = "'1.4.0'" }
+ { "$theme" = "array()" }
+ { }
+ { "$theme" = "'Default'"
+ { "@arraykey" = "[0]['NAME']" }
+ { "#comment" = "end-of line comment" } }
+ { "$theme" = "SM_PATH . 'themes/default_theme.php'"
+ { "@arraykey" = "[0][\"PATH\"]" }
+ }
+ { "$theme" = "'/some//x/path'"
+ { "@arraykey" = "[0]['XPATH']" }
+ }
+ { "define" = "MYVAR"
+ { "value" = "ROOT . 'some value'" }
+ { "#comment" = "end-of line comment" } }
+ { "include_once" = "ROOT . \"/path/to/conf\"" }
+ { "include" = "ROOT . \"/path/to/conf\"" }
+ { "@include" = "SM_PATH . 'config/config_local.php'" }
+ { "config"
+ { }
+ {"$tmppath" = "\"/tmp\""}
+ {"$offline" = "1"}
+ }
+ { }
diff --git a/Sharp.Augeas.Test/lens/tests/test_postfix_access.aug b/Sharp.Augeas.Test/lens/tests/test_postfix_access.aug
new file mode 100644
index 0000000..e8b5872
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_postfix_access.aug
@@ -0,0 +1,53 @@
+(* Tests for the Postfix Access module *)
+
+module Test_postfix_access =
+
+ let three_entries = "127.0.0.1 DISCARD You totally suck
+ Really
+#ok no more comments
+user@ REJECT
+"
+
+ test Postfix_access.record get "127.0.0.1 REJECT\n" =
+ { "1" { "pattern" = "127.0.0.1" }
+ { "action" = "REJECT" } }
+
+ test Postfix_access.lns get three_entries =
+ { "1" { "pattern" = "127.0.0.1" }
+ { "action" = "DISCARD" }
+ { "parameters" = "You totally suck\n Really" } }
+ {"#comment" = "ok no more comments" }
+ { "2" { "pattern" = "user@" }
+ { "action" = "REJECT" } }
+
+ test Postfix_access.record put "127.0.0.1 OK\n" after
+ set "/1/action" "REJECT"
+ = "127.0.0.1 REJECT\n"
+
+ test Postfix_access.lns put three_entries after
+ set "/2/parameters" "Rejected you loser" ;
+ rm "/1/parameters"
+ = "127.0.0.1 DISCARD
+#ok no more comments
+user@ REJECT Rejected you loser
+"
+
+(* Deleting the 'action' node violates the schema; each postfix access *)
+(* entry must have one *)
+ test Postfix_access.lns put three_entries after
+ rm "/1/action"
+ = *
+
+ (* Make sure blank lines get through *)
+ test Postfix_access.lns get "127.0.0.1\tREJECT \n \n\n
+user@*\tOK\tI 'll let you in \n\tseriously\n" =
+ { "1" { "pattern" = "127.0.0.1" }
+ { "action" = "REJECT" } }
+ {} {} {}
+ { "2" { "pattern" = "user@*" }
+ { "action" = "OK" }
+ { "parameters" = "I 'll let you in \n\tseriously" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_postfix_main.aug b/Sharp.Augeas.Test/lens/tests/test_postfix_main.aug
new file mode 100644
index 0000000..ef1f806
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_postfix_main.aug
@@ -0,0 +1,26 @@
+module Test_postfix_main =
+
+let conf = "# main.cf
+myorigin = /etc/mailname
+
+smtpd_banner = $myhostname ESMTP $mail_name (Ubuntu)
+mynetworks = 127.0.0.0/8 [::ffff:127.0.0.0]/104 [::1]/128
+relayhost =
+import_environment =
+ MAIL_CONFIG MAIL_DEBUG MAIL_LOGTAG TZ LANG=C \n KRB5CCNAME=FILE:${queue_directory}/kerberos/krb5_ccache\n"
+
+test Postfix_Main.lns get conf =
+ { "#comment" = "main.cf" }
+ { "myorigin" = "/etc/mailname" }
+ {}
+ { "smtpd_banner" = "$myhostname ESMTP $mail_name (Ubuntu)" }
+ { "mynetworks" = "127.0.0.0/8 [::ffff:127.0.0.0]/104 [::1]/128" }
+ { "relayhost" }
+ { "import_environment" = "MAIL_CONFIG MAIL_DEBUG MAIL_LOGTAG TZ LANG=C \n KRB5CCNAME=FILE:${queue_directory}/kerberos/krb5_ccache" }
+
+test Postfix_main.lns get "debugger_command =
+\t PATH=/bin:/usr/bin:/usr/local/bin:/usr/X11R6/bin
+\t ddd $daemon_directory/$process_name $process_id & sleep 5\n"
+ =
+ { "debugger_command" = "PATH=/bin:/usr/bin:/usr/local/bin:/usr/X11R6/bin
+ ddd $daemon_directory/$process_name $process_id & sleep 5" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_postfix_master.aug b/Sharp.Augeas.Test/lens/tests/test_postfix_master.aug
new file mode 100644
index 0000000..356ce1b
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_postfix_master.aug
@@ -0,0 +1,141 @@
+module Test_postfix_master =
+
+let conf = "# master.cf
+smtp inet n - - 10? - smtpd
+maildrop unix - n n - - pipe
+ flags=DRhu user=vmail argv=/usr/bin/maildrop -d ${recipient}
+"
+
+test Postfix_Master.lns get conf =
+ { "#comment" = "master.cf" }
+ { "smtp"
+ { "type" = "inet" }
+ { "private" = "n" }
+ { "unprivileged" = "-" }
+ { "chroot" = "-" }
+ { "wakeup" = "10?" }
+ { "limit" = "-" }
+ { "command" = "smtpd" } }
+ { "maildrop"
+ { "type" = "unix" }
+ { "private" = "-" }
+ { "unprivileged" = "n" }
+ { "chroot" = "n" }
+ { "wakeup" = "-" }
+ { "limit" = "-" }
+ { "command" = "pipe\n flags=DRhu user=vmail argv=/usr/bin/maildrop -d ${recipient}" } }
+
+(* fixes bug #69 : accept double quotes in arguments *)
+let conf2 = "# The Cyrus deliver program has changed incompatibly, multiple times.
+cyrus unix - n n - - pipe
+ flags=R user=cyrus argv=/usr/sbin/cyrdeliver -e -m \"${extension}\" ${user}
+"
+
+test Postfix_Master.lns get conf2 =
+ { "#comment" = "The Cyrus deliver program has changed incompatibly, multiple times." }
+ { "cyrus"
+ { "type" = "unix" }
+ { "private" = "-" }
+ { "unprivileged" = "n" }
+ { "chroot" = "n" }
+ { "wakeup" = "-" }
+ { "limit" = "-" }
+ { "command" = "pipe\n flags=R user=cyrus argv=/usr/sbin/cyrdeliver -e -m \"${extension}\" ${user}" }
+ }
+
+(* accept commas in arguments *)
+let conf3 = "# master.cf
+submission inet n - n - - smtpd
+ -o smtpd_client_restrictions=permit_sasl_authenticated,reject
+"
+
+test Postfix_Master.lns get conf3 =
+ { "#comment" = "master.cf" }
+ { "submission"
+ { "type" = "inet" }
+ { "private" = "n" }
+ { "unprivileged" = "-" }
+ { "chroot" = "n" }
+ { "wakeup" = "-" }
+ { "limit" = "-" }
+ { "command" = "smtpd\n -o smtpd_client_restrictions=permit_sasl_authenticated,reject" } }
+
+(* : is allowed *)
+let conf4 = "127.0.0.1:10060 inet n n n - 0 spawn
+ user=nobody argv=/usr/sbin/hapolicy -l --default=DEFER
+"
+
+test Postfix_Master.lns get conf4 =
+ { "127.0.0.1:10060"
+ { "type" = "inet" }
+ { "private" = "n" }
+ { "unprivileged" = "n" }
+ { "chroot" = "n" }
+ { "wakeup" = "-" }
+ { "limit" = "0" }
+ { "command" = "spawn
+ user=nobody argv=/usr/sbin/hapolicy -l --default=DEFER" }
+ }
+
+
+(* Spaces are allowed after the first word of the command *)
+let conf5 = "sympa unix - n n - - pipe \n flags=R user=sympa argv=/home/sympa/bin/queue ${recipient}
+"
+
+test Postfix_Master.lns get conf5 =
+ { "sympa"
+ { "type" = "unix" }
+ { "private" = "-" }
+ { "unprivileged" = "n" }
+ { "chroot" = "n" }
+ { "wakeup" = "-" }
+ { "limit" = "-" }
+ { "command" = "pipe \n flags=R user=sympa argv=/home/sympa/bin/queue ${recipient}" }
+ }
+
+(* Arobase is allowed in command *)
+let conf6 = "sympafamilypfs unix - n n - - pipe
+ flags=R user=sympa argv=/home/sympa/bin/familyqueue ${user}@domain.net pfs
+"
+test Postfix_Master.lns get conf6 =
+ { "sympafamilypfs"
+ { "type" = "unix" }
+ { "private" = "-" }
+ { "unprivileged" = "n" }
+ { "chroot" = "n" }
+ { "wakeup" = "-" }
+ { "limit" = "-" }
+ { "command" = "pipe
+ flags=R user=sympa argv=/home/sympa/bin/familyqueue ${user}@domain.net pfs" }
+ }
+
+(* Ticket #345 *)
+let conf7 = "# master.cf
+submission inet n - n - - smtpd
+ -o mynetworks=127.0.0.1/8,[::1]
+"
+
+test Postfix_Master.lns get conf7 =
+ { "#comment" = "master.cf" }
+ { "submission"
+ { "type" = "inet" }
+ { "private" = "n" }
+ { "unprivileged" = "-" }
+ { "chroot" = "n" }
+ { "wakeup" = "-" }
+ { "limit" = "-" }
+ { "command" = "smtpd\n -o mynetworks=127.0.0.1/8,[::1]" } }
+
+(* Ticket #635 *)
+let conf8 = "postlog unix-dgram n - n - 1 postlogd\n"
+
+test Postfix_Master.lns get conf8 =
+ { "postlog"
+ { "type" = "unix-dgram" }
+ { "private" = "n" }
+ { "unprivileged" = "-" }
+ { "chroot" = "n" }
+ { "wakeup" = "-" }
+ { "limit" = "1" }
+ { "command" = "postlogd" } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_postfix_passwordmap.aug b/Sharp.Augeas.Test/lens/tests/test_postfix_passwordmap.aug
new file mode 100644
index 0000000..4efd739
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_postfix_passwordmap.aug
@@ -0,0 +1,43 @@
+(*
+Module: Test_Postfix_Passwordmap
+ Provides unit tests and examples for the <Postfix_Passwordmap> lens.
+*)
+
+module Test_Postfix_Passwordmap =
+
+(* View: conf *)
+let conf = "# comment
+* username:password
+[mail.isp.example] username:password
+[mail.isp.example]:submission username:password
+[mail.isp.example]:587 username:password
+mail.isp.example username:password
+user@mail.isp.example username:
+mail.isp.example
+ username2:password2
+"
+
+(* Test: Postfix_Passwordmap.lns *)
+test Postfix_Passwordmap.lns get conf =
+ { "#comment" = "comment" }
+ { "pattern" = "*"
+ { "username" = "username" }
+ { "password" = "password" } }
+ { "pattern" = "[mail.isp.example]"
+ { "username" = "username" }
+ { "password" = "password" } }
+ { "pattern" = "[mail.isp.example]:submission"
+ { "username" = "username" }
+ { "password" = "password" } }
+ { "pattern" = "[mail.isp.example]:587"
+ { "username" = "username" }
+ { "password" = "password" } }
+ { "pattern" = "mail.isp.example"
+ { "username" = "username" }
+ { "password" = "password" } }
+ { "pattern" = "user@mail.isp.example"
+ { "username" = "username" }
+ { "password" } }
+ { "pattern" = "mail.isp.example"
+ { "username" = "username2" }
+ { "password" = "password2" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_postfix_sasl_smtpd.aug b/Sharp.Augeas.Test/lens/tests/test_postfix_sasl_smtpd.aug
new file mode 100644
index 0000000..231bc69
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_postfix_sasl_smtpd.aug
@@ -0,0 +1,19 @@
+module Test_Postfix_Sasl_Smtpd =
+
+
+ let conf = "pwcheck_method: auxprop saslauthd
+auxprop_plugin: plesk
+saslauthd_path: /private/plesk_saslauthd
+mech_list: CRAM-MD5 PLAIN LOGIN
+sql_engine: intentionally disabled
+log_level: 4
+"
+
+
+ test Postfix_sasl_smtpd.lns get conf =
+ { "pwcheck_method" = "auxprop saslauthd" }
+ { "auxprop_plugin" = "plesk" }
+ { "saslauthd_path" = "/private/plesk_saslauthd" }
+ { "mech_list" = "CRAM-MD5 PLAIN LOGIN" }
+ { "sql_engine" = "intentionally disabled" }
+ { "log_level" = "4" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_postfix_transport.aug b/Sharp.Augeas.Test/lens/tests/test_postfix_transport.aug
new file mode 100644
index 0000000..81fd9a9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_postfix_transport.aug
@@ -0,0 +1,58 @@
+(*
+Module: Test_Postfix_Transport
+ Provides unit tests and examples for the <Postfix_Transport> lens.
+*)
+
+module Test_Postfix_Transport =
+
+(* View: conf *)
+let conf = "# a comment
+the.backed-up.domain.tld relay:[their.mail.host.tld]
+.my.domain :
+* smtp:outbound-relay.my.domain
+example.com uucp:example
+example.com slow:
+example.com :[gateway.example.com]
+user.foo@example.com
+ smtp:bar.example:2025
+firstname_lastname@example.com discard:
+.example.com error:mail for *.example.com is not deliverable
+"
+
+(* Test: Postfix_Transport.lns *)
+test Postfix_Transport.lns get conf =
+ { "#comment" = "a comment" }
+ { "pattern" = "the.backed-up.domain.tld"
+ { "transport" = "relay" }
+ { "nexthop" = "[their.mail.host.tld]" } }
+ { "pattern" = ".my.domain"
+ { "transport" }
+ { "nexthop" } }
+ { "pattern" = "*"
+ { "transport" = "smtp" }
+ { "nexthop" = "outbound-relay.my.domain" } }
+ { "pattern" = "example.com"
+ { "transport" = "uucp" }
+ { "nexthop" = "example" } }
+ { "pattern" = "example.com"
+ { "transport" = "slow" }
+ { "nexthop" } }
+ { "pattern" = "example.com"
+ { "transport" }
+ { "nexthop" = "[gateway.example.com]" } }
+ { "pattern" = "user.foo@example.com"
+ { "transport" = "smtp" }
+ { "nexthop" = "bar.example:2025" } }
+ { "pattern" = "firstname_lastname@example.com"
+ { "transport" = "discard" }
+ { "nexthop" } }
+ { "pattern" = ".example.com"
+ { "transport" = "error" }
+ { "nexthop" = "mail for *.example.com is not deliverable" } }
+
+(* Test: Postfix_Transport.lns
+ Bug #303 *)
+test Postfix_Transport.lns get "user@example.com [12.34.56.78]:587\n" =
+ { "pattern" = "user@example.com"
+ { "host" = "[12.34.56.78]" }
+ { "port" = "587" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_postfix_virtual.aug b/Sharp.Augeas.Test/lens/tests/test_postfix_virtual.aug
new file mode 100644
index 0000000..da33a4d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_postfix_virtual.aug
@@ -0,0 +1,50 @@
+(*
+Module: Test_Postfix_Virtual
+ Provides unit tests and examples for the <Postfix_Virtual> lens.
+*)
+
+module Test_Postfix_Virtual =
+
+(* View: conf *)
+let conf = "# a comment
+virtual-alias.domain anything
+postmaster@virtual-alias.domain postmaster
+user1@virtual-alias.domain address1
+user2@virtual-alias.domain
+ address2,
+ address3
+root robert.oot@domain.com
+@example.net root,postmaster
+postmaster mtaadmin+root=mta1
+some_user localuser
+"
+
+(* Test: Postfix_Virtual.lns *)
+test Postfix_Virtual.lns get conf =
+ { "#comment" = "a comment" }
+ { "pattern" = "virtual-alias.domain"
+ { "destination" = "anything" }
+ }
+ { "pattern" = "postmaster@virtual-alias.domain"
+ { "destination" = "postmaster" }
+ }
+ { "pattern" = "user1@virtual-alias.domain"
+ { "destination" = "address1" }
+ }
+ { "pattern" = "user2@virtual-alias.domain"
+ { "destination" = "address2" }
+ { "destination" = "address3" }
+ }
+ { "pattern" = "root"
+ { "destination" = "robert.oot@domain.com" }
+ }
+ { "pattern" = "@example.net"
+ { "destination" = "root" }
+ { "destination" = "postmaster" }
+ }
+ { "pattern" = "postmaster"
+ { "destination" = "mtaadmin+root=mta1" }
+ }
+ { "pattern" = "some_user"
+ { "destination" = "localuser" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_postgresql.aug b/Sharp.Augeas.Test/lens/tests/test_postgresql.aug
new file mode 100644
index 0000000..a692850
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_postgresql.aug
@@ -0,0 +1,248 @@
+(*
+Module: Test_Postgresql
+ Provides unit tests and examples for the <Postgresql> lens.
+*)
+
+module Test_Postgresql =
+
+(* "=" separator is optional *)
+let missing_equal = "fsync on\n"
+test Postgresql.lns get missing_equal =
+ { "fsync" = "on" }
+test Postgresql.lns put missing_equal after
+ set "fsync" "off" = "fsync off\n"
+
+(* extra whitespace is valid anywhere *)
+let extra_whitespace = " fsync = on # trailing comment \n"
+test Postgresql.lns get extra_whitespace =
+ { "fsync" = "on"
+ { "#comment" = "trailing comment" }
+ }
+test Postgresql.lns put extra_whitespace after
+ set "fsync" "off" = " fsync = off # trailing comment \n"
+
+(* no whitespace at all is also valid *)
+let no_whitespace = "fsync=on\n"
+test Postgresql.lns get no_whitespace =
+ { "fsync" = "on" }
+test Postgresql.lns put no_whitespace after
+ set "fsync" "off" = "fsync=off\n"
+
+(* Some settings specify a memory or time value. [...] Valid memory units are
+ kB (kilobytes), MB (megabytes), and GB (gigabytes); valid time units are
+ ms (milliseconds), s (seconds), min (minutes), h (hours), and d (days). *)
+let numeric_suffix_quotes = "shared_buffers = 24MB
+archive_timeout = 2min
+deadlock_timeout = '1s'
+"
+test Postgresql.lns get numeric_suffix_quotes =
+ { "shared_buffers" = "24MB" }
+ { "archive_timeout" = "2min" }
+ { "deadlock_timeout" = "1s" }
+test Postgresql.lns put numeric_suffix_quotes after
+ set "deadlock_timeout" "2s";
+ set "max_stack_depth" "2MB";
+ set "shared_buffers" "48MB" = "shared_buffers = 48MB
+archive_timeout = 2min
+deadlock_timeout = '2s'
+max_stack_depth = '2MB'
+"
+
+(* floats and ints can be single quoted or not *)
+let float_quotes = "seq_page_cost = 2.0
+random_page_cost = '4.0'
+vacuum_freeze_min_age = 50000000
+vacuum_freeze_table_age = '150000000'
+wal_buffers = -1
+"
+test Postgresql.lns get float_quotes =
+ { "seq_page_cost" = "2.0" }
+ { "random_page_cost" = "4.0" }
+ { "vacuum_freeze_min_age" = "50000000" }
+ { "vacuum_freeze_table_age" = "150000000" }
+ { "wal_buffers" = "-1" }
+test Postgresql.lns put float_quotes after
+ set "seq_page_cost" "5.0";
+ set "vacuum_cost_limit" "200";
+ set "bgwriter_lru_multiplier" "2.0";
+ set "log_temp_files" "-1";
+ set "wal_buffers" "1" = "seq_page_cost = 5.0
+random_page_cost = '4.0'
+vacuum_freeze_min_age = 50000000
+vacuum_freeze_table_age = '150000000'
+wal_buffers = 1
+vacuum_cost_limit = '200'
+bgwriter_lru_multiplier = '2.0'
+log_temp_files = '-1'
+"
+
+(* Boolean values can be written as on, off, true, false, yes, no, 1, 0 (all
+ case-insensitive) or any unambiguous prefix of these. *)
+let bool_quotes = "log_connections = yes
+transform_null_equals = OFF
+sql_inheritance = 'on'
+synchronize_seqscans = 1
+standard_conforming_strings = fal
+"
+test Postgresql.lns get bool_quotes =
+ { "log_connections" = "yes" }
+ { "transform_null_equals" = "OFF" }
+ { "sql_inheritance" = "on" }
+ { "synchronize_seqscans" = "1" }
+ { "standard_conforming_strings" = "fal" }
+test Postgresql.lns put bool_quotes after
+ set "sql_inheritance" "off";
+ set "log_lock_waits" "off" = "log_connections = yes
+transform_null_equals = OFF
+sql_inheritance = 'off'
+synchronize_seqscans = 1
+standard_conforming_strings = fal
+log_lock_waits = 'off'
+"
+
+(* Strings must be single-quoted, except if they have no special character *)
+let string_quotes = "listen_addresses = 'localhost'
+stats_temp_directory = pg_stat_tmp
+lc_messages = 'en_US.UTF-8'
+log_filename = log
+archive_command = 'tar \'quoted option\''
+search_path = '\"$user\",public'
+password_encryption = scram-sha-256
+"
+test Postgresql.lns get string_quotes =
+ { "listen_addresses" = "localhost" }
+ { "stats_temp_directory" = "pg_stat_tmp" }
+ { "lc_messages" = "en_US.UTF-8" }
+ { "log_filename" = "log" }
+ { "archive_command" = "tar \'quoted option\'" }
+ { "search_path" = "\"$user\",public" }
+ { "password_encryption" = "scram-sha-256" }
+test Postgresql.lns put string_quotes after
+ set "stats_temp_directory" "foo_bar";
+ set "log_filename" "postgresql-%Y-%m-%d_%H%M%S.log";
+ set "log_statement" "none" = "listen_addresses = 'localhost'
+stats_temp_directory = foo_bar
+lc_messages = 'en_US.UTF-8'
+log_filename = 'postgresql-%Y-%m-%d_%H%M%S.log'
+archive_command = 'tar \'quoted option\''
+search_path = '\"$user\",public'
+password_encryption = scram-sha-256
+log_statement = 'none'
+"
+
+(* external files can be included more than once *)
+let include_keyword = "Include 'foo.conf'
+# can appear several times
+Include 'bar.conf'
+"
+test Postgresql.lns get include_keyword =
+ { "Include" = "foo.conf" }
+ { "#comment" = "can appear several times" }
+ { "Include" = "bar.conf" }
+
+(* Variable: conf
+ A full configuration file *)
+ let conf = "data_directory = '/var/lib/postgresql/8.4/main' # use data in another directory
+hba_file = '/etc/postgresql/8.4/main/pg_hba.conf' # host-based authentication file
+ident_file = '/etc/postgresql/8.4/main/pg_ident.conf' # ident configuration file
+
+# If external_pid_file is not explicitly set, no extra PID file is written.
+external_pid_file = '/var/run/postgresql/8.4-main.pid' # write an extra PID file
+listen_addresses = 'localhost' # what IP address(es) to listen on;
+port = 5432 # (change requires restart)
+max_connections = 100 # (change requires restart)
+superuser_reserved_connections = 3 # (change requires restart)
+unix_socket_directory = '/var/run/postgresql' # (change requires restart)
+unix_socket_group = '' # (change requires restart)
+unix_socket_permissions = 0777 # begin with 0 to use octal notation
+ # (change requires restart)
+bonjour_name = '' # defaults to the computer name
+
+authentication_timeout = 1min # 1s-600s
+ssl = true # (change requires restart)
+ssl_ciphers = 'ALL:!ADH:!LOW:!EXP:!MD5:@STRENGTH' # allowed SSL ciphers
+ssl_renegotiation_limit = 512MB # amount of data between renegotiations
+password_encryption = on
+db_user_namespace = off
+
+search_path = '\"$user\",public' # schema names
+default_tablespace = '' # a tablespace name, '' uses the default
+temp_tablespaces = '' # a list of tablespace names, '' uses
+
+datestyle = 'iso, mdy'
+intervalstyle = 'postgres'
+timezone = unknown # actually, defaults to TZ environment
+"
+
+(* Test: Postgresql.lns *)
+test Postgresql.lns get conf =
+ { "data_directory" = "/var/lib/postgresql/8.4/main"
+ { "#comment" = "use data in another directory" }
+ }
+ { "hba_file" = "/etc/postgresql/8.4/main/pg_hba.conf"
+ { "#comment" = "host-based authentication file" }
+ }
+ { "ident_file" = "/etc/postgresql/8.4/main/pg_ident.conf"
+ { "#comment" = "ident configuration file" }
+ }
+ { }
+ { "#comment" = "If external_pid_file is not explicitly set, no extra PID file is written." }
+ { "external_pid_file" = "/var/run/postgresql/8.4-main.pid"
+ { "#comment" = "write an extra PID file" }
+ }
+ { "listen_addresses" = "localhost"
+ { "#comment" = "what IP address(es) to listen on;" }
+ }
+ { "port" = "5432"
+ { "#comment" = "(change requires restart)" }
+ }
+ { "max_connections" = "100"
+ { "#comment" = "(change requires restart)" }
+ }
+ { "superuser_reserved_connections" = "3"
+ { "#comment" = "(change requires restart)" }
+ }
+ { "unix_socket_directory" = "/var/run/postgresql"
+ { "#comment" = "(change requires restart)" }
+ }
+ { "unix_socket_group" = ""
+ { "#comment" = "(change requires restart)" }
+ }
+ { "unix_socket_permissions" = "0777"
+ { "#comment" = "begin with 0 to use octal notation" }
+ }
+ { "#comment" = "(change requires restart)" }
+ { "bonjour_name" = ""
+ { "#comment" = "defaults to the computer name" }
+ }
+ { }
+ { "authentication_timeout" = "1min"
+ { "#comment" = "1s-600s" }
+ }
+ { "ssl" = "true"
+ { "#comment" = "(change requires restart)" }
+ }
+ { "ssl_ciphers" = "ALL:!ADH:!LOW:!EXP:!MD5:@STRENGTH"
+ { "#comment" = "allowed SSL ciphers" }
+ }
+ { "ssl_renegotiation_limit" = "512MB"
+ { "#comment" = "amount of data between renegotiations" }
+ }
+ { "password_encryption" = "on" }
+ { "db_user_namespace" = "off" }
+ { }
+ { "search_path" = "\"$user\",public"
+ { "#comment" = "schema names" }
+ }
+ { "default_tablespace" = ""
+ { "#comment" = "a tablespace name, '' uses the default" }
+ }
+ { "temp_tablespaces" = ""
+ { "#comment" = "a list of tablespace names, '' uses" }
+ }
+ { }
+ { "datestyle" = "iso, mdy" }
+ { "intervalstyle" = "postgres" }
+ { "timezone" = "unknown"
+ { "#comment" = "actually, defaults to TZ environment" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_properties.aug b/Sharp.Augeas.Test/lens/tests/test_properties.aug
new file mode 100644
index 0000000..2b96ed2
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_properties.aug
@@ -0,0 +1,175 @@
+module Test_properties =
+ let conf = "
+#
+# Test tomcat properties file
+#tomcat.commented.value=1
+ # config
+tomcat.port = 8080
+tomcat.application.name=testapp
+ tomcat.application.description=my test application
+property.with_underscore=works
+empty.property=
+empty.property.withtrailingspaces= \n! more comments
+key: value
+key2:value2
+key3 :value3
+key4:=value4
+key5\"=value5
+key6/c=value6
+
+long.description=this is a description that happens to span \
+ more than one line with a combination of tabs and \
+ spaces \ \nor not
+
+# comment break
+
+short.break = a\
+ b
+
+=empty_key
+ =empty_key
+
+cheeses
+
+spaces only
+multi spaces
+ indented spaces
+
+\= =A
+space and = equals
+space with \
+ multiline
+
+escaped\:colon=value
+escaped\=equals=value
+escaped\ space=value
+"
+
+(* Other tests that aren't supported yet
+overflow.description=\
+ just wanted to indent it
+*)
+
+let lns = Properties.lns
+
+test lns get conf =
+ { } { }
+ { "#comment" = "Test tomcat properties file" }
+ { "#comment" = "tomcat.commented.value=1" }
+ { "#comment" = "config" }
+ { "tomcat.port" = "8080" }
+ { "tomcat.application.name" = "testapp" }
+ { "tomcat.application.description" = "my test application" }
+ { "property.with_underscore" = "works" }
+ { "empty.property" }
+ { "empty.property.withtrailingspaces" }
+ { "!comment" = "more comments" }
+ { "key" = "value" }
+ { "key2" = "value2" }
+ { "key3" = "value3" }
+ { "key4" = "=value4" }
+ { "key5\"" = "value5" }
+ { "key6/c" = "value6" }
+ {}
+ { "long.description" = " < multi > "
+ { = "this is a description that happens to span " }
+ { = "more than one line with a combination of tabs and " }
+ { = "spaces " }
+ { = "or not" }
+ }
+ {}
+ { "#comment" = "comment break" }
+ {}
+ { "short.break" = " < multi > "
+ { = "a" }
+ { = "b" }
+ }
+ {}
+ { = "empty_key" }
+ { = "empty_key" }
+ {}
+ { "cheeses" }
+ {}
+ { "spaces" = "only" }
+ { "multi" = "spaces" }
+ { "indented" = "spaces" }
+ {}
+ { "\\=" = "A" }
+ { "space" = "and = equals" }
+ { "space" = " < multi > "
+ { = "with " }
+ { = "multiline" }
+ }
+ {}
+ { "escaped\:colon" = "value" }
+ { "escaped\=equals" = "value" }
+ { "escaped\ space" = "value" }
+test lns put conf after
+ set "tomcat.port" "99";
+ set "tomcat.application.host" "foo.network.com"
+ = "
+#
+# Test tomcat properties file
+#tomcat.commented.value=1
+ # config
+tomcat.port = 99
+tomcat.application.name=testapp
+ tomcat.application.description=my test application
+property.with_underscore=works
+empty.property=
+empty.property.withtrailingspaces= \n! more comments
+key: value
+key2:value2
+key3 :value3
+key4:=value4
+key5\"=value5
+key6/c=value6
+
+long.description=this is a description that happens to span \
+ more than one line with a combination of tabs and \
+ spaces \ \nor not
+
+# comment break
+
+short.break = a\
+ b
+
+=empty_key
+ =empty_key
+
+cheeses
+
+spaces only
+multi spaces
+ indented spaces
+
+\= =A
+space and = equals
+space with \
+ multiline
+
+escaped\:colon=value
+escaped\=equals=value
+escaped\ space=value
+tomcat.application.host=foo.network.com
+"
+
+(* GH issue #19: value on new line *)
+test lns get "k=\
+b\
+c\n" =
+ { "k" = " < multi > "
+ { } { = "b" } { = "c" } }
+
+test lns get "tomcat.util.scan.DefaultJarScanner.jarsToSkip=\
+bootstrap.jar,commons-daemon.jar,tomcat-juli.jar\n" =
+ { "tomcat.util.scan.DefaultJarScanner.jarsToSkip" = " < multi > "
+ { } { = "bootstrap.jar,commons-daemon.jar,tomcat-juli.jar" } }
+
+
+test lns get "# comment\r\na.b=val\r\nx=\r\n" =
+ { "#comment" = "comment" }
+ { "a.b" = "val" }
+ { "x" }
+
+test lns get "# \r\n! \r\n" = { } { }
diff --git a/Sharp.Augeas.Test/lens/tests/test_protocols.aug b/Sharp.Augeas.Test/lens/tests/test_protocols.aug
new file mode 100644
index 0000000..e9343a4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_protocols.aug
@@ -0,0 +1,53 @@
+(*
+Module: Test_Protocols
+ Provides unit tests and examples for the <Protocols> lens.
+*)
+
+module Test_Protocols =
+
+(* Variable: conf *)
+let conf = "# Internet (IP) protocols
+
+ip 0 IP # internet protocol, pseudo protocol number
+#hopopt 0 HOPOPT # IPv6 Hop-by-Hop Option [RFC1883]
+icmp 1 ICMP # internet control message protocol
+igmp 2 IGMP # Internet Group Management
+tp++ 39 TP++ # TP++ Transport Protocol
+a/n 107 A/N # Active Networks
+"
+
+(* Test: Protocols.lns *)
+test Protocols.lns get conf =
+ { "#comment" = "Internet (IP) protocols" }
+ { }
+ { "1"
+ { "protocol" = "ip" }
+ { "number" = "0" }
+ { "alias" = "IP" }
+ { "#comment" = "internet protocol, pseudo protocol number" }
+ }
+ { "#comment" = "hopopt 0 HOPOPT # IPv6 Hop-by-Hop Option [RFC1883]" }
+ { "2"
+ { "protocol" = "icmp" }
+ { "number" = "1" }
+ { "alias" = "ICMP" }
+ { "#comment" = "internet control message protocol" }
+ }
+ { "3"
+ { "protocol" = "igmp" }
+ { "number" = "2" }
+ { "alias" = "IGMP" }
+ { "#comment" = "Internet Group Management" }
+ }
+ { "4"
+ { "protocol" = "tp++" }
+ { "number" = "39" }
+ { "alias" = "TP++" }
+ { "#comment" = "TP++ Transport Protocol" }
+ }
+ { "5"
+ { "protocol" = "a/n" }
+ { "number" = "107" }
+ { "alias" = "A/N" }
+ { "#comment" = "Active Networks" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_puppet.aug b/Sharp.Augeas.Test/lens/tests/test_puppet.aug
new file mode 100644
index 0000000..a10ef01
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_puppet.aug
@@ -0,0 +1,31 @@
+module Test_puppet =
+
+ let conf = "
+[main]
+logdir=/var/log/puppet
+
+ [puppetd]
+ server=misspiggy.network.com
+"
+
+ test Puppet.lns get conf =
+ {}
+ { "main"
+ { "logdir" = "/var/log/puppet" }
+ {} }
+ { "puppetd"
+ { "server" = "misspiggy.network.com" } }
+
+ test Puppet.lns put conf after
+ set "main/vardir" "/var/lib/puppet";
+ set "main/rundir" "/var/run/puppet"
+ = "
+[main]
+logdir=/var/log/puppet
+
+vardir=/var/lib/puppet
+rundir=/var/run/puppet
+ [puppetd]
+ server=misspiggy.network.com
+"
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_puppet_auth.aug b/Sharp.Augeas.Test/lens/tests/test_puppet_auth.aug
new file mode 100644
index 0000000..3adeedc
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_puppet_auth.aug
@@ -0,0 +1,43 @@
+(*
+Module: Test_Puppet_Auth
+ Provides unit tests and examples for the <Puppet_Auth> lens.
+*)
+
+module Test_Puppet_Auth =
+
+(* Variable: full *)
+let full = "path ~ ^/file_(metadata|content)/user_files/
+# Set environments
+environment production, development
+environment foo
+method find, search
+auth yes
+method save
+ allow /^(.+\.)?example.com$/
+ allow_ip 192.168.100.0/24 # Added in Puppet 3.0.0
+# This overrides the previous auth
+ authenticated any
+"
+
+(* Test: Puppet_Auth.lns *)
+test Puppet_Auth.lns get full =
+ { "path" = "^/file_(metadata|content)/user_files/" { "operator" = "~" }
+ { "#comment" = "Set environments" }
+ { "environment"
+ { "1" = "production" }
+ { "2" = "development" } }
+ { "environment"
+ { "3" = "foo" } }
+ { "method"
+ { "1" = "find" }
+ { "2" = "search" } }
+ { "auth" = "yes" }
+ { "method"
+ { "3" = "save" } }
+ { "allow"
+ { "1" = "/^(.+\.)?example.com$/" } }
+ { "allow_ip"
+ { "1" = "192.168.100.0/24" }
+ { "#comment" = "Added in Puppet 3.0.0" } }
+ { "#comment" = "This overrides the previous auth" }
+ { "auth" = "any" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_puppetfile.aug b/Sharp.Augeas.Test/lens/tests/test_puppetfile.aug
new file mode 100644
index 0000000..dc46125
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_puppetfile.aug
@@ -0,0 +1,158 @@
+(*
+Module: Test_Puppetfile
+ Provides unit tests and examples for the <Puppetfile> lens.
+*)
+module Test_Puppetfile =
+
+(* Test: Puppetfile.lns *)
+test Puppetfile.lns get "forge \"https://forgeapi.puppetlabs.com\" # the default forge
+
+mod 'puppetlabs-razor'
+mod 'puppetlabs-ntp', \"0.0.3\"
+
+mod 'puppetlabs-apt',
+ :git => \"git://github.com/puppetlabs/puppetlabs-apt.git\"
+
+mod 'puppetlabs-stdlib',
+ :git => \"git://github.com/puppetlabs/puppetlabs-stdlib.git\"
+
+mod 'puppetlabs-apache', '0.6.0',
+ :github_tarball => 'puppetlabs/puppetlabs-apache'
+
+metadata # we want metadata\n" =
+ { "forge" = "https://forgeapi.puppetlabs.com"
+ { "#comment" = "the default forge" } }
+ { }
+ { "1" = "puppetlabs-razor" }
+ { "2" = "puppetlabs-ntp"
+ { "@version" = "0.0.3" }
+ }
+ { }
+ { "3" = "puppetlabs-apt"
+ { "git" = "git://github.com/puppetlabs/puppetlabs-apt.git" }
+ }
+ { }
+ { "4" = "puppetlabs-stdlib"
+ { "git" = "git://github.com/puppetlabs/puppetlabs-stdlib.git" }
+ }
+ { }
+ { "5" = "puppetlabs-apache"
+ { "@version" = "0.6.0" }
+ { "github_tarball" = "puppetlabs/puppetlabs-apache" }
+ }
+ { }
+ { "metadata" { "#comment" = "we want metadata" } }
+
+(* Test: Puppetfile.lns
+ Complex version conditions *)
+test Puppetfile.lns get "mod 'puppetlabs/stdlib', '< 5.0.0'
+mod 'theforeman/concat_native', '>= 1.3.0 < 1.4.0'
+mod 'herculesteam/augeasproviders', '2.1.x'\n" =
+ { "1" = "puppetlabs/stdlib"
+ { "@version" = "< 5.0.0" }
+ }
+ { "2" = "theforeman/concat_native"
+ { "@version" = ">= 1.3.0 < 1.4.0" }
+ }
+ { "3" = "herculesteam/augeasproviders"
+ { "@version" = "2.1.x" }
+ }
+
+(* Test: Puppetfile.lns
+ Owner is not mandatory if git is given *)
+test Puppetfile.lns get "mod 'stdlib',
+ :git => \"git://github.com/puppetlabs/puppetlabs-stdlib.git\"\n" =
+ { "1" = "stdlib"
+ { "git" = "git://github.com/puppetlabs/puppetlabs-stdlib.git" } }
+
+
+(* Issue #427 *)
+test Puppetfile.lns get "mod 'puppetlabs/apache', :latest\n" =
+ { "1" = "puppetlabs/apache"
+ { "latest" } }
+
+test Puppetfile.lns get "mod 'data',
+ :git => 'ssh://git@stash.example.com/bp/puppet-hiera.git',
+ :branch => :control_branch,
+ :default_branch => 'development',
+ :install_path => '.'\n" =
+ { "1" = "data"
+ { "git" = "ssh://git@stash.example.com/bp/puppet-hiera.git" }
+ { "branch" = ":control_branch" }
+ { "default_branch" = "development" }
+ { "install_path" = "." } }
+
+(* Comment: after module name comma
+ This conflicts with the comma comment tree below *)
+test Puppetfile.lns get "mod 'data' # eol comment\n" = *
+
+(* Comment: after first comma *)
+test Puppetfile.lns get "mod 'data', # eol comment
+ # and another
+ '1.2.3'\n" =
+ { "1" = "data"
+ { "#comment" = "eol comment" }
+ { "#comment" = "and another" }
+ { "@version" = "1.2.3" } }
+
+(* Comment: after version
+ Current culprit: need two \n *)
+test Puppetfile.lns get "mod 'data', '1.2.3' # eol comment\n" = *
+test Puppetfile.lns get "mod 'data', '1.2.3' # eol comment\n\n" =
+ { "1" = "data"
+ { "@version" = "1.2.3" { "#comment" = "eol comment" } } }
+
+(* Comment: eol after version comma *)
+test Puppetfile.lns get "mod 'data', '1.2.3', # a comment
+ :local => true\n" =
+ { "1" = "data"
+ { "@version" = "1.2.3" }
+ { "#comment" = "a comment" }
+ { "local" = "true" } }
+
+(* Comment: after version comma with newline *)
+test Puppetfile.lns get "mod 'data', '1.2.3',
+ # a comment
+ :local => true\n" =
+ { "1" = "data"
+ { "@version" = "1.2.3" }
+ { "#comment" = "a comment" }
+ { "local" = "true" } }
+
+(* Comment: eol before opts, without version *)
+test Puppetfile.lns get "mod 'data', # a comment
+ # :ref => 'abcdef',
+ :local => true\n" =
+ { "1" = "data"
+ { "#comment" = "a comment" }
+ { "#comment" = ":ref => 'abcdef'," }
+ { "local" = "true" } }
+
+(* Comment: after opt comma *)
+test Puppetfile.lns get "mod 'data', '1.2.3',
+ :ref => 'abcdef', # eol comment
+ :local => true\n" =
+ { "1" = "data"
+ { "@version" = "1.2.3" }
+ { "ref" = "abcdef" }
+ { "#comment" = "eol comment" }
+ { "local" = "true" } }
+
+(* Comment: in opts *)
+test Puppetfile.lns get "mod 'data', '1.2.3',
+ :ref => 'abcdef',
+ # a comment
+ :local => true\n" =
+ { "1" = "data"
+ { "@version" = "1.2.3" }
+ { "ref" = "abcdef" }
+ { "#comment" = "a comment" }
+ { "local" = "true" } }
+
+(* Comment: after last opt *)
+test Puppetfile.lns get "mod 'data', '1.2.3',
+ :local => true # eol comment\n\n" =
+ { "1" = "data"
+ { "@version" = "1.2.3" }
+ { "local" = "true" }
+ { "#comment" = "eol comment" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_puppetfileserver.aug b/Sharp.Augeas.Test/lens/tests/test_puppetfileserver.aug
new file mode 100644
index 0000000..f299573
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_puppetfileserver.aug
@@ -0,0 +1,42 @@
+(* Tests for the PuppetFileserver module *)
+
+module Test_puppetfileserver =
+
+let fileserver = "# This a comment
+
+[mount1]
+ # Mount1 options
+ path /etc/puppet/files/%h
+ allow host.domain1.com
+ allow *.domain2.com
+ deny badhost.domain2.com
+[mount2]
+ allow *
+ deny *.evil.example.com
+ deny badhost.domain2.com
+[mount3]
+allow * # Puppet #6026: same line comment
+# And trailing whitespace
+allow * \n"
+
+test PuppetFileserver.lns get fileserver =
+ { "#comment" = "This a comment" }
+ { }
+ { "mount1"
+ { "#comment" = "Mount1 options" }
+ { "path" = "/etc/puppet/files/%h" }
+ { "allow" = "host.domain1.com" }
+ { "allow" = "*.domain2.com" }
+ { "deny" = "badhost.domain2.com" }
+ }
+ { "mount2"
+ { "allow" = "*" }
+ { "deny" = "*.evil.example.com" }
+ { "deny" = "badhost.domain2.com" }
+ }
+ { "mount3"
+ { "allow" = "*"
+ { "#comment" = "Puppet #6026: same line comment" } }
+ { "#comment" = "And trailing whitespace" }
+ { "allow" = "*" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_pylonspaste.aug b/Sharp.Augeas.Test/lens/tests/test_pylonspaste.aug
new file mode 100644
index 0000000..1a324ff
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_pylonspaste.aug
@@ -0,0 +1,75 @@
+module Test_Pylonspaste =
+ let pylons_conf ="# baruwa - Pylons configuration
+# The %(here)s variable will be replaced with the parent directory of this file
+[uwsgi]
+socket = /var/run/baruwa/baruwa.sock
+processes = 5
+uid = baruwa
+daemonize = /var/log/uwsgi/uwsgi-baruwa.log
+
+[server:main]
+use = egg:Paste#http
+host = 0.0.0.0
+port = 5000
+
+[app:main]
+use = egg:baruwa
+full_stack = true
+static_files = false
+set debug = false
+
+[identifiers]
+plugins =
+ form;browser
+ auth_tkt
+
+[authenticators]
+plugins =
+ sa_auth
+ baruwa_pop3_auth
+ baruwa_imap_auth
+ baruwa_smtp_auth
+ baruwa_ldap_auth
+ baruwa_radius_auth
+"
+
+test Pylonspaste.lns get pylons_conf =
+ { "#comment" = "baruwa - Pylons configuration" }
+ { "#comment" = "The %(here)s variable will be replaced with the parent directory of this file" }
+ { "uwsgi"
+ { "socket" = "/var/run/baruwa/baruwa.sock" }
+ { "processes" = "5" }
+ { "uid" = "baruwa" }
+ { "daemonize" = "/var/log/uwsgi/uwsgi-baruwa.log" }
+ { }
+ }
+ { "server:main"
+ { "use" = "egg:Paste#http" }
+ { "host" = "0.0.0.0" }
+ { "port" = "5000" }
+ { }
+ }
+ { "app:main"
+ { "use" = "egg:baruwa" }
+ { "full_stack" = "true" }
+ { "static_files" = "false" }
+ { "debug" = "false" }
+ { }
+ }
+ { "identifiers"
+ { "plugins"
+ { "1" = "form;browser" }
+ { "2" = "auth_tkt" }
+ }
+ {}
+ }
+ { "authenticators"
+ { "plugins"
+ { "1" = "sa_auth" }
+ { "2" = "baruwa_pop3_auth" }
+ { "3" = "baruwa_imap_auth" }
+ { "4" = "baruwa_smtp_auth" }
+ { "5" = "baruwa_ldap_auth" }
+ { "6" = "baruwa_radius_auth" }
+ }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_pythonpaste.aug b/Sharp.Augeas.Test/lens/tests/test_pythonpaste.aug
new file mode 100644
index 0000000..fca7545
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_pythonpaste.aug
@@ -0,0 +1,58 @@
+module Test_pythonpaste =
+
+ let conf = "
+#blah blah
+[main]
+pipeline = hello
+
+[composite:main]
+use = egg:Paste#urlmap
+/v2.0 = public_api
+/: public_version_api
+"
+
+ test PythonPaste.lns get conf =
+ { }
+ { "#comment" = "blah blah" }
+ { "main"
+ { "pipeline" = "hello" }
+ { }
+ }
+ { "composite:main"
+ { "use" = "egg:Paste#urlmap" }
+ { "1" = "/v2.0 = public_api" }
+ { "2" = "/: public_version_api" }
+ }
+
+
+ test PythonPaste.lns put conf after
+ set "main/pipeline" "goodbye";
+ set "composite:main/3" "/v3: a_new_api_version"
+ = "
+#blah blah
+[main]
+pipeline = goodbye
+
+[composite:main]
+use = egg:Paste#urlmap
+/v2.0 = public_api
+/: public_version_api
+/v3: a_new_api_version
+"
+
+ (* Paste can define global config in DEFAULT, then override with "set" in sections, RHBZ#1175545 *)
+ test PythonPaste.lns get "[DEFAULT]
+log_name = swift
+log_facility = LOG_LOCAL1
+
+[app:proxy-server]
+use = egg:swift#proxy
+set log_name = proxy-server\n" =
+ { "DEFAULT"
+ { "log_name" = "swift" }
+ { "log_facility" = "LOG_LOCAL1" }
+ { } }
+ { "app:proxy-server"
+ { "use" = "egg:swift#proxy" }
+ { "log_name" = "proxy-server"
+ { "@set" } } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_qpid.aug b/Sharp.Augeas.Test/lens/tests/test_qpid.aug
new file mode 100644
index 0000000..4dc513d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_qpid.aug
@@ -0,0 +1,48 @@
+(*
+Module: Test_Qpid
+ Provides unit tests and examples for the <Qpid> lens.
+*)
+
+module Test_Qpid =
+
+(* Variable: qpidd *)
+let qpidd = "# Configuration file for qpidd. Entries are of the form:
+# name=value
+
+# (Note: no spaces on either side of '='). Using default settings:
+# \"qpidd --help\" or \"man qpidd\" for more details.
+cluster-mechanism=ANONYMOUS
+auth=no
+max-connections=22000
+syslog-name=qpidd1
+"
+
+(* Test: Qpid.lns *)
+test Qpid.lns get qpidd =
+ { "#comment" = "Configuration file for qpidd. Entries are of the form:" }
+ { "#comment" = "name=value" }
+ { }
+ { "#comment" = "(Note: no spaces on either side of '='). Using default settings:" }
+ { "#comment" = "\"qpidd --help\" or \"man qpidd\" for more details." }
+ { "cluster-mechanism" = "ANONYMOUS" }
+ { "auth" = "no" }
+ { "max-connections" = "22000" }
+ { "syslog-name" = "qpidd1" }
+
+(* Variable: qpidc *)
+let qpidc = "# Configuration file for the qpid c++ client library. Entries are of
+# the form:
+# name=value
+
+ssl-cert-db=/root/certs/server_db
+ssl-port=5674
+"
+
+(* Test: Qpid.lns *)
+test Qpid.lns get qpidc =
+ { "#comment" = "Configuration file for the qpid c++ client library. Entries are of" }
+ { "#comment" = "the form:" }
+ { "#comment" = "name=value" }
+ { }
+ { "ssl-cert-db" = "/root/certs/server_db" }
+ { "ssl-port" = "5674" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_quote.aug b/Sharp.Augeas.Test/lens/tests/test_quote.aug
new file mode 100644
index 0000000..411cdee
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_quote.aug
@@ -0,0 +1,369 @@
+(*
+Module: Test_Quote
+ Provides unit tests and examples for the <Quote> lens.
+*)
+
+module Test_Quote =
+
+(* View: double *)
+let double = [ label "double" . Quote.double ]
+
+(* Test: double *)
+test double get "\" this is a test\"" =
+ { "double" = " this is a test" }
+
+(* View: double_opt *)
+let double_opt = [ label "double_opt" . Quote.double_opt ]
+
+(* Test: double_opt *)
+test double_opt get "\"this is a test\"" =
+ { "double_opt" = "this is a test" }
+
+(* Test: double_opt *)
+test double_opt get "this is a test" =
+ { "double_opt" = "this is a test" }
+
+(* Test: double_opt
+ Value cannot start with a space *)
+test double_opt get " this is a test" = *
+
+(* View: single *)
+let single = [ label "single" . Quote.single ]
+
+(* Test: single *)
+test single get "' this is a test'" =
+ { "single" = " this is a test" }
+
+(* View: single_opt *)
+let single_opt = [ label "single_opt" . Quote.single_opt ]
+
+(* Test: single_opt *)
+test single_opt get "'this is a test'" =
+ { "single_opt" = "this is a test" }
+
+(* Test: single_opt *)
+test single_opt get "this is a test" =
+ { "single_opt" = "this is a test" }
+
+(* Test: single_opt
+ Value cannot start with a space *)
+test single_opt get " this is a test" = *
+
+(* View: any *)
+let any = [ label "any" . Quote.any ]
+
+(* Test: any *)
+test any get "\" this is a test\"" =
+ { "any" = " this is a test" }
+
+(* Test: any *)
+test any get "' this is a test'" =
+ { "any" = " this is a test" }
+
+(* View: any_opt *)
+let any_opt = [ label "any_opt" . Quote.any_opt ]
+
+(* Test: any_opt *)
+test any_opt get "\"this is a test\"" =
+ { "any_opt" = "this is a test" }
+
+(* Test: any_opt *)
+test any_opt get "'this is a test'" =
+ { "any_opt" = "this is a test" }
+
+(* Test: any_opt *)
+test any_opt get "this is a test" =
+ { "any_opt" = "this is a test" }
+
+(* Test: any_opt
+ Value cannot start with a space *)
+test any_opt get " this is a test" = *
+
+(* View: double_opt_allow_spc *)
+let double_opt_allow_spc =
+ let body = store /[^\n"]+/ in
+ [ label "double" . Quote.do_dquote_opt body ]
+
+(* Test: double_opt_allow_spc *)
+test double_opt_allow_spc get " test with spaces " =
+ { "double" = " test with spaces " }
+
+(* Group: quote_spaces *)
+
+(* View: quote_spaces *)
+let quote_spaces =
+ Quote.quote_spaces (label "spc")
+
+(* Test: quote_spaces
+ Unquoted value *)
+test quote_spaces get "this" =
+ { "spc" = "this" }
+
+(* Test: quote_spaces
+ double quoted value *)
+test quote_spaces get "\"this\"" =
+ { "spc" = "this" }
+
+(* Test: quote_spaces
+ single quoted value *)
+test quote_spaces get "'this'" =
+ { "spc" = "this" }
+
+(* Test: quote_spaces
+ unquoted value with spaces *)
+test quote_spaces get "this that those" = *
+
+(* Test: quote_spaces
+ double quoted value with spaces *)
+test quote_spaces get "\"this that those\"" =
+ { "spc" = "this that those" }
+
+(* Test: quote_spaces
+ single quoted value with spaces *)
+test quote_spaces get "'this that those'" =
+ { "spc" = "this that those" }
+
+(* Test: quote_spaces
+ remove spaces from double-quoted value *)
+test quote_spaces put "\"this that those\""
+ after set "spc" "thisthat" =
+ "\"thisthat\""
+
+(* Test: quote_spaces
+ remove spaces from single-quoted value *)
+test quote_spaces put "'this that those'"
+ after set "spc" "thisthat" =
+ "'thisthat'"
+
+(* Test: quote_spaces
+ add spaces to unquoted value *)
+test quote_spaces put "this"
+ after set "spc" "this that those" =
+ "\"this that those\""
+
+(* Test: quote_spaces
+ add spaces to double-quoted value *)
+test quote_spaces put "\"this\""
+ after set "spc" "this that those" =
+ "\"this that those\""
+
+(* Test: quote_spaces
+ add spaces to single-quoted value *)
+test quote_spaces put "'this'"
+ after set "spc" "this that those" =
+ "'this that those'"
+
+(* Group: dquote_spaces *)
+
+(* View: dquote_spaces *)
+let dquote_spaces =
+ Quote.dquote_spaces (label "spc")
+
+(* Test: dquote_spaces
+ Unquoted value *)
+test dquote_spaces get "this" =
+ { "spc" = "this" }
+
+(* Test: dquote_spaces
+ double quoted value *)
+test dquote_spaces get "\"this\"" =
+ { "spc" = "this" }
+
+(* Test: dquote_spaces
+ single quoted value *)
+test dquote_spaces get "'this'" =
+ { "spc" = "'this'" }
+
+(* Test: dquote_spaces
+ unquoted value with spaces *)
+test dquote_spaces get "this that those" = *
+
+(* Test: dquote_spaces
+ double quoted value with spaces *)
+test dquote_spaces get "\"this that those\"" =
+ { "spc" = "this that those" }
+
+(* Test: dquote_spaces
+ single quoted value with spaces *)
+test dquote_spaces get "'this that those'" = *
+
+(* Test: dquote_spaces
+ remove spaces from double-quoted value *)
+test dquote_spaces put "\"this that those\""
+ after set "spc" "thisthat" =
+ "\"thisthat\""
+
+(* Test: dquote_spaces
+ add spaces to unquoted value *)
+test dquote_spaces put "this"
+ after set "spc" "this that those" =
+ "\"this that those\""
+
+(* Test: dquote_spaces
+ add spaces to double-quoted value *)
+test dquote_spaces put "\"this\""
+ after set "spc" "this that those" =
+ "\"this that those\""
+
+(* Test: dquote_spaces
+ add spaces to single-quoted value *)
+test dquote_spaces put "'this'"
+ after set "spc" "this that those" =
+ "\"this that those\""
+
+(* Group: squote_spaces *)
+
+(* View: squote_spaces *)
+let squote_spaces =
+ Quote.squote_spaces (label "spc")
+
+(* Test: squote_spaces
+ Unquoted value *)
+test squote_spaces get "this" =
+ { "spc" = "this" }
+
+(* Test: squote_spaces
+ double quoted value *)
+test squote_spaces get "\"this\"" =
+ { "spc" = "\"this\"" }
+
+(* Test: squote_spaces
+ single quoted value *)
+test squote_spaces get "'this'" =
+ { "spc" = "this" }
+
+(* Test: squote_spaces
+ unquoted value with spaces *)
+test squote_spaces get "this that those" = *
+
+(* Test: squote_spaces
+ double quoted value with spaces *)
+test squote_spaces get "\"this that those\"" = *
+
+(* Test: squote_spaces
+ single quoted value with spaces *)
+test squote_spaces get "'this that those'" =
+ { "spc" = "this that those" }
+
+(* Test: squote_spaces
+ remove spaces from single-quoted value *)
+test squote_spaces put "'this that those'"
+ after set "spc" "thisthat" =
+ "'thisthat'"
+
+(* Test: squote_spaces
+ add spaces to unquoted value *)
+test squote_spaces put "this"
+ after set "spc" "this that those" =
+ "'this that those'"
+
+(* Test: squote_spaces
+ add spaces to double-quoted value *)
+test squote_spaces put "\"this\""
+ after set "spc" "this that those" =
+ "'this that those'"
+
+(* Test: squote_spaces
+ add spaces to single-quoted value *)
+test squote_spaces put "'this'"
+ after set "spc" "this that those" =
+ "'this that those'"
+
+(* Group: nil cases *)
+
+(* View: dquote_opt_nil *)
+let dquote_opt_nil =
+ let body = store Quote.double_opt_re
+ in [ label "dquote_opt_nil" . Quote.do_dquote_opt_nil body ]?
+
+(* Test: dquote_opt_nil *)
+test dquote_opt_nil get "this" =
+ { "dquote_opt_nil" = "this" }
+
+(* Test: dquote_opt_nil *)
+test dquote_opt_nil get "'this'" =
+ { "dquote_opt_nil" = "'this'" }
+
+(* Test: dquote_opt_nil *)
+test dquote_opt_nil get "\"this\"" =
+ { "dquote_opt_nil" = "this" }
+
+(* Test: dquote_opt_nil *)
+test dquote_opt_nil put ""
+ after set "dquote_opt_nil" "this" =
+ "this"
+
+(* Test: dquote_opt_nil *)
+test dquote_opt_nil put "\"this\""
+ after set "dquote_opt_nil" "this" =
+ "\"this\""
+
+(* Test: dquote_opt_nil *)
+test dquote_opt_nil put "'this'"
+ after set "dquote_opt_nil" "this" =
+ "this"
+
+(* View: squote_opt_nil *)
+let squote_opt_nil =
+ let body = store Quote.single_opt_re
+ in [ label "squote_opt_nil" . Quote.do_squote_opt_nil body ]?
+
+(* Test: squote_opt_nil *)
+test squote_opt_nil get "this" =
+ { "squote_opt_nil" = "this" }
+
+(* Test: squote_opt_nil *)
+test squote_opt_nil get "'this'" =
+ { "squote_opt_nil" = "this" }
+
+(* Test: squote_opt_nil *)
+test squote_opt_nil get "\"this\"" =
+ { "squote_opt_nil" = "\"this\"" }
+
+(* Test: squote_opt_nil *)
+test squote_opt_nil put ""
+ after set "squote_opt_nil" "this" =
+ "this"
+
+(* Test: squote_opt_nil *)
+test squote_opt_nil put "\"this\""
+ after set "squote_opt_nil" "this" =
+ "this"
+
+(* Test: squote_opt_nil *)
+test squote_opt_nil put "\"this\""
+ after set "squote_opt_nil" "this" =
+ "this"
+
+(* View: quote_opt_nil *)
+let quote_opt_nil =
+ let body = store Quote.any_opt_re
+ in [ label "quote_opt_nil" . Quote.do_quote_opt_nil body ]?
+
+(* Test: quote_opt_nil *)
+test quote_opt_nil get "this" =
+ { "quote_opt_nil" = "this" }
+
+(* Test: quote_opt_nil *)
+test quote_opt_nil get "'this'" =
+ { "quote_opt_nil" = "this" }
+
+(* Test: quote_opt_nil *)
+test quote_opt_nil get "\"this\"" =
+ { "quote_opt_nil" = "this" }
+
+(* Test: quote_opt_nil *)
+test quote_opt_nil put ""
+ after set "quote_opt_nil" "this" =
+ "this"
+
+(* Test: quote_opt_nil *)
+test quote_opt_nil put "\"this\""
+ after set "quote_opt_nil" "this" =
+ "\"this\""
+
+(* Test: quote_opt_nil *)
+test quote_opt_nil put "'this'"
+ after set "quote_opt_nil" "this" =
+ "'this'"
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_rabbitmq.aug b/Sharp.Augeas.Test/lens/tests/test_rabbitmq.aug
new file mode 100644
index 0000000..8a01541
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_rabbitmq.aug
@@ -0,0 +1,112 @@
+(*
+Module: Test_Rabbitmq
+ Provides unit tests and examples for the <Rabbitmq> lens.
+*)
+module Test_Rabbitmq =
+
+(* Test: Rabbitmq.listeners *)
+test Rabbitmq.listeners get "{ssl_listeners, [5671, {\"127.0.0.1\", 5672}]}" =
+ { "ssl_listeners"
+ { "value" = "5671" }
+ { "tuple"
+ { "value" = "127.0.0.1" }
+ { "value" = "5672" } } }
+
+(* Test: Rabbitmq.ssl_options *)
+test Rabbitmq.ssl_options get "{ssl_options, [
+ {cacertfile,\"/path/to/testca/cacert.pem\"},
+ {certfile,\"/path/to/server/cert.pem\"},
+ {keyfile,\"/path/to/server/key.pem\"},
+ {verify,verify_peer},
+ {versions, ['tlsv1.2', 'tlsv1.1', 'tlsv1']},
+ {fail_if_no_peer_cert,false}]}" =
+ { "ssl_options"
+ { "cacertfile" = "/path/to/testca/cacert.pem" }
+ { "certfile" = "/path/to/server/cert.pem" }
+ { "keyfile" = "/path/to/server/key.pem" }
+ { "verify" = "verify_peer" }
+ { "versions"
+ { "value" = "tlsv1.2" }
+ { "value" = "tlsv1.1" }
+ { "value" = "tlsv1" } }
+ { "fail_if_no_peer_cert" = "false" } }
+
+(* Test: Rabbitmq.disk_free_limit *)
+test Rabbitmq.disk_free_limit get "{disk_free_limit, 1000000000}" =
+ { "disk_free_limit" = "1000000000" }
+
+(* Test: Rabbitmq.disk_free_limit *)
+test Rabbitmq.disk_free_limit get "{disk_free_limit, {mem_relative, 1.0}}" =
+ { "disk_free_limit"
+ { "tuple"
+ { "value" = "mem_relative" }
+ { "value" = "1.0" } } }
+
+(* Test: Rabbitmq.log_levels *)
+test Rabbitmq.log_levels get "{log_levels, [{connection, info}]}" =
+ { "log_levels"
+ { "tuple"
+ { "value" = "connection" }
+ { "value" = "info" } } }
+
+(* Test: Rabbitmq.cluster_nodes *)
+test Rabbitmq.cluster_nodes get "{cluster_nodes, {['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3'], disc}}" =
+ { "cluster_nodes"
+ { "tuple"
+ { "value"
+ { "value" = "rabbit@rabbit1" }
+ { "value" = "rabbit@rabbit2" }
+ { "value" = "rabbit@rabbit3" } }
+ { "value" = "disc" } } }
+
+(* Test: Rabbitmq.cluster_nodes
+ Apparently, tuples are not mandatory *)
+test Rabbitmq.cluster_nodes get "{cluster_nodes, ['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3']}" =
+ { "cluster_nodes"
+ { "value" = "rabbit@rabbit1" }
+ { "value" = "rabbit@rabbit2" }
+ { "value" = "rabbit@rabbit3" } }
+
+(* Test: Rabbitmq.cluster_partition_handling, single value *)
+test Rabbitmq.cluster_partition_handling get "{cluster_partition_handling, ignore}" =
+ { "cluster_partition_handling" = "ignore" }
+
+(* Test: Rabbitmq.cluster_partition_handling, tuple *)
+test Rabbitmq.cluster_partition_handling get "{cluster_partition_handling, {pause_if_all_down, ['rabbit@rabbit1', 'rabbit@rabbit2', 'rabbit@rabbit3'], autoheal}}" =
+ { "cluster_partition_handling"
+ { "tuple"
+ { "value" = "pause_if_all_down" }
+ { "value"
+ { "value" = "rabbit@rabbit1" }
+ { "value" = "rabbit@rabbit2" }
+ { "value" = "rabbit@rabbit3" } }
+ { "value" = "autoheal" } } }
+
+(* Test: Rabbitmq.lns
+ Top-level test *)
+test Rabbitmq.lns get "
+% A standard configuration
+[
+ {rabbit, [
+ {ssl_listeners, [5671]},
+ {ssl_options, [{cacertfile,\"/path/to/testca/cacert.pem\"},
+ {certfile,\"/path/to/server/cert.pem\"},
+ {keyfile,\"/path/to/server/key.pem\"},
+ {verify,verify_peer},
+ {fail_if_no_peer_cert,false}]}
+ ]}
+].
+% EOF\n" =
+ { }
+ { "#comment" = "A standard configuration" }
+ { "rabbit"
+ { "ssl_listeners"
+ { "value" = "5671" } }
+ { "ssl_options"
+ { "cacertfile" = "/path/to/testca/cacert.pem" }
+ { "certfile" = "/path/to/server/cert.pem" }
+ { "keyfile" = "/path/to/server/key.pem" }
+ { "verify" = "verify_peer" }
+ { "fail_if_no_peer_cert" = "false" } } }
+ { "#comment" = "EOF" }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_radicale.aug b/Sharp.Augeas.Test/lens/tests/test_radicale.aug
new file mode 100644
index 0000000..83beb70
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_radicale.aug
@@ -0,0 +1,77 @@
+module Test_radicale =
+
+ let conf = "
+[server]
+
+[encoding]
+
+[well-known]
+
+[auth]
+
+[git]
+
+[rights]
+
+[storage]
+
+[logging]
+
+[headers]
+
+"
+
+ test Radicale.lns get conf =
+ {}
+ { "server"
+ {} }
+ { "encoding"
+ {} }
+ { "well-known"
+ {} }
+ { "auth"
+ {} }
+ { "git"
+ {} }
+ { "rights"
+ {} }
+ { "storage"
+ {} }
+ { "logging"
+ {} }
+ { "headers"
+ {} }
+
+ test Radicale.lns put conf after
+ set "server/hosts" "127.0.0.1:5232, [::1]:5232";
+ set "server/base_prefix" "/radicale/";
+ set "well-known/caldav" "/radicale/%(user)s/caldav/";
+ set "well-known/cardav" "/radicale/%(user)s/carddav/";
+ set "auth/type" "remote_user";
+ set "rights/type" "owner_only"
+ = "
+[server]
+
+hosts=127.0.0.1:5232, [::1]:5232
+base_prefix=/radicale/
+[encoding]
+
+[well-known]
+
+caldav=/radicale/%(user)s/caldav/
+cardav=/radicale/%(user)s/carddav/
+[auth]
+
+type=remote_user
+[git]
+
+[rights]
+
+type=owner_only
+[storage]
+
+[logging]
+
+[headers]
+
+"
diff --git a/Sharp.Augeas.Test/lens/tests/test_rancid.aug b/Sharp.Augeas.Test/lens/tests/test_rancid.aug
new file mode 100644
index 0000000..884c974
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_rancid.aug
@@ -0,0 +1,30 @@
+module Test_rancid =
+
+(* Examples from router.db(5) *)
+let rancid = "dial1.paris;cisco;up
+core1.paris;cisco;down;in testing until 5/5/2001.
+core2.paris;cisco;ticketed;Ticket 6054234, 5/3/2001
+border1.paris;juniper;up;
+"
+
+test Rancid.lns get rancid =
+ { "device" = "dial1.paris"
+ { "type" = "cisco" }
+ { "state" = "up" }
+ }
+ { "device" = "core1.paris"
+ { "type" = "cisco" }
+ { "state" = "down" }
+ { "comment" = "in testing until 5/5/2001." }
+ }
+ { "device" = "core2.paris"
+ { "type" = "cisco" }
+ { "state" = "ticketed" }
+ { "comment" = "Ticket 6054234, 5/3/2001" }
+ }
+ { "device" = "border1.paris"
+ { "type" = "juniper" }
+ { "state" = "up" }
+ { "comment" = "" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_redis.aug b/Sharp.Augeas.Test/lens/tests/test_redis.aug
new file mode 100644
index 0000000..01a519d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_redis.aug
@@ -0,0 +1,264 @@
+(*
+Module: Test_Redis
+ Provides unit tests and examples for the <Redis> lens.
+*)
+
+module Test_Redis =
+
+let standard_entry = "dir /var/lib/redis\n"
+test Redis.lns get standard_entry = { "dir" = "/var/lib/redis" }
+
+let double_quoted_entry = "dir \"/var/lib/redis\"\n"
+test Redis.lns get double_quoted_entry = { "dir" = "/var/lib/redis" }
+
+let single_quoted_entry = "dir '/var/lib/redis'\n"
+test Redis.lns get single_quoted_entry = { "dir" = "/var/lib/redis" }
+
+let extra_whitespace_entry = " dir /var/lib/redis \n"
+test Redis.lns get extra_whitespace_entry = { "dir" = "/var/lib/redis" }
+
+let save_entry = "save 60 10000\n"
+test Redis.lns get save_entry =
+{ "save"
+ { "seconds" = "60" }
+ { "keys" = "10000" }
+}
+
+let save_entry_quotes = "save '60' \"10000\"\n"
+test Redis.lns get save_entry_quotes =
+{ "save"
+ { "seconds" = "60" }
+ { "keys" = "10000" }
+}
+
+let replicaof_entry = "slaveof 192.168.0.10 6379\nreplicaof 192.168.0.11 6380\n"
+test Redis.lns get replicaof_entry =
+{ "slaveof"
+ { "ip" = "192.168.0.10" }
+ { "port" = "6379" } }
+{ "replicaof"
+ { "ip" = "192.168.0.11" }
+ { "port" = "6380" } }
+
+let rename_command_entry = "rename-command CONFIG CONFIG2\n"
+test Redis.lns get rename_command_entry =
+{ "rename-command"
+ { "from" = "CONFIG" }
+ { "to" = "CONFIG2" }
+}
+
+let client_output_buffer_limit_entry_1 = "client-output-buffer-limit normal 0 0 0\n"
+test Redis.lns get client_output_buffer_limit_entry_1 =
+{ "client-output-buffer-limit"
+ { "class" = "normal" }
+ { "hard_limit" = "0" }
+ { "soft_limit" = "0" }
+ { "soft_seconds" = "0" }
+}
+
+let client_output_buffer_limit_entry_2 = "client-output-buffer-limit slave 256mb 64mb 60\n"
+test Redis.lns get client_output_buffer_limit_entry_2 =
+{ "client-output-buffer-limit"
+ { "class" = "slave" }
+ { "hard_limit" = "256mb" }
+ { "soft_limit" = "64mb" }
+ { "soft_seconds" = "60" }
+}
+
+let include_entry = "include /foo/redis.conf\ninclude /bar/redis.conf\n"
+test Redis.lns get include_entry =
+{ "include" = "/foo/redis.conf" }
+{ "include" = "/bar/redis.conf" }
+
+let standard_comment = "# a comment\n"
+test Redis.lns get standard_comment = { "#comment" = "a comment" }
+
+let extra_whitespace_comment = " # another comment \n"
+test Redis.lns get extra_whitespace_comment = { "#comment" = "another comment" }
+
+let redis_conf = "# Redis configuration file example
+
+# Note on units: when memory size is needed, it is possible to specify
+# it in the usual form of 1k 5GB 4M and so forth:
+#
+# 1k => 1000 bytes
+# 1kb => 1024 bytes
+# 1m => 1000000 bytes
+# 1mb => 1024*1024 bytes
+# 1g => 1000000000 bytes
+# 1gb => 1024*1024*1024 bytes
+#
+# units are case insensitive so 1GB 1Gb 1gB are all the same.
+
+# By default Redis does not run as a daemon. Use 'yes' if you need it.
+# Note that Redis will write a pid file in /var/run/redis.pid when daemonized.
+daemonize yes
+
+# When running daemonized, Redis writes a pid file in /var/run/redis.pid by
+# default. You can specify a custom pid file location here.
+pidfile /var/run/redis/redis-server.pid
+
+# Accept connections on the specified port, default is 6379.
+# If port 0 is specified Redis will not listen on a TCP socket.
+port 6379
+
+# If you want you can bind a single interface, if the bind option is not
+# specified all the interfaces will listen for incoming connections.
+#
+bind 127.0.0.1
+
+# Note: you can disable saving at all commenting all the \"save\" lines.
+
+save 900 1
+save 300 10
+save 60 10000
+
+# Include one or more other config files here. This is useful if you
+# have a standard template that goes to all redis server but also need
+# to customize a few per-server settings. Include files can include
+# other files, so use this wisely.
+#
+include /path/to/local.conf
+include /path/to/other.conf
+"
+
+test Redis.lns get redis_conf =
+ { "#comment" = "Redis configuration file example" }
+ { }
+ { "#comment" = "Note on units: when memory size is needed, it is possible to specify" }
+ { "#comment" = "it in the usual form of 1k 5GB 4M and so forth:" }
+ { }
+ { "#comment" = "1k => 1000 bytes" }
+ { "#comment" = "1kb => 1024 bytes" }
+ { "#comment" = "1m => 1000000 bytes" }
+ { "#comment" = "1mb => 1024*1024 bytes" }
+ { "#comment" = "1g => 1000000000 bytes" }
+ { "#comment" = "1gb => 1024*1024*1024 bytes" }
+ { }
+ { "#comment" = "units are case insensitive so 1GB 1Gb 1gB are all the same." }
+ { }
+ { "#comment" = "By default Redis does not run as a daemon. Use 'yes' if you need it." }
+ { "#comment" = "Note that Redis will write a pid file in /var/run/redis.pid when daemonized." }
+ { "daemonize" = "yes" }
+ { }
+ { "#comment" = "When running daemonized, Redis writes a pid file in /var/run/redis.pid by" }
+ { "#comment" = "default. You can specify a custom pid file location here." }
+ { "pidfile" = "/var/run/redis/redis-server.pid" }
+ { }
+ { "#comment" = "Accept connections on the specified port, default is 6379." }
+ { "#comment" = "If port 0 is specified Redis will not listen on a TCP socket." }
+ { "port" = "6379" }
+ { }
+ { "#comment" = "If you want you can bind a single interface, if the bind option is not" }
+ { "#comment" = "specified all the interfaces will listen for incoming connections." }
+ { }
+ { "bind" { "ip" = "127.0.0.1" } }
+ { }
+ { "#comment" = "Note: you can disable saving at all commenting all the \"save\" lines." }
+ { }
+ { "save"
+ { "seconds" = "900" }
+ { "keys" = "1" }
+ }
+ { "save"
+ { "seconds" = "300" }
+ { "keys" = "10" }
+ }
+ { "save"
+ { "seconds" = "60" }
+ { "keys" = "10000" }
+ }
+ { }
+ { "#comment" = "Include one or more other config files here. This is useful if you" }
+ { "#comment" = "have a standard template that goes to all redis server but also need" }
+ { "#comment" = "to customize a few per-server settings. Include files can include" }
+ { "#comment" = "other files, so use this wisely." }
+ { }
+ { "include" = "/path/to/local.conf" }
+ { "include" = "/path/to/other.conf" }
+
+(* Test: Redis.lns
+ Empty value (GH issue #115) *)
+test Redis.lns get "notify-keyspace-events \"\"\n" =
+ { "notify-keyspace-events" = "" }
+
+(* Test: Redis.lns
+ Multiple bind IP addresses (GH issue #194) *)
+test Redis.lns get "bind 127.0.0.1 \"::1\" 192.168.1.1\n" =
+ { "bind"
+ { "ip" = "127.0.0.1" }
+ { "ip" = "::1" }
+ { "ip" = "192.168.1.1" } }
+
+test Redis.lns get "bind 127.0.0.1\n bind 192.168.1.1\n" =
+ { "bind"
+ { "ip" = "127.0.0.1" } }
+ { "bind"
+ { "ip" = "192.168.1.1" } }
+
+let sentinel_conf = "sentinel myid ccae7d051dfaa62078cb3ac3dec100240e637d5a
+sentinel deny-scripts-reconfig yes
+sentinel monitor Master 8.8.8.8 6379 2
+sentinel monitor Othercluster 1.1.1.1 6380 4
+sentinel config-epoch Master 693
+sentinel leader-epoch Master 691
+sentinel known-replica Master 4.4.4.4 6379
+sentinel known-replica Master 1.1.1.1 6379
+sentinel known-sentinel Master 4.4.4.4 26379 9bbd89f3846b5366f7da4d20b516fdc3f5c3a993
+sentinel known-sentinel Master 1.1.1.1 26379 f435adae0efeb9d5841712d05d7399f7584f333b
+sentinel known-sentinel Othercluster 4.4.4.4 26379 9bbd89f3846b5366f7da4d20b516fdc3f5c3a993
+sentinel known-sentinel Othercluster 1.1.1.1 26379 f435adae0efeb9d5841712d05d7399f7584f333b
+sentinel current-epoch 693
+"
+
+test Redis.lns get sentinel_conf =
+ { "sentinel" = "myid"
+ { "value" = "ccae7d051dfaa62078cb3ac3dec100240e637d5a" } }
+ { "sentinel" = "deny-scripts-reconfig"
+ { "value" = "yes" } }
+ { "sentinel" = "monitor"
+ { "cluster" = "Master" }
+ { "ip" = "8.8.8.8" }
+ { "port" = "6379" }
+ { "quorum" = "2" } }
+ { "sentinel" = "monitor"
+ { "cluster" = "Othercluster" }
+ { "ip" = "1.1.1.1" }
+ { "port" = "6380" }
+ { "quorum" = "4" } }
+ { "sentinel" = "config-epoch"
+ { "cluster" = "Master" }
+ { "epoch" = "693" } }
+ { "sentinel" = "leader-epoch"
+ { "cluster" = "Master" }
+ { "epoch" = "691" } }
+ { "sentinel" = "known-replica"
+ { "cluster" = "Master" }
+ { "ip" = "4.4.4.4" }
+ { "port" = "6379" } }
+ { "sentinel" = "known-replica"
+ { "cluster" = "Master" }
+ { "ip" = "1.1.1.1" }
+ { "port" = "6379" } }
+ { "sentinel" = "known-sentinel"
+ { "cluster" = "Master" }
+ { "ip" = "4.4.4.4" }
+ { "port" = "26379" }
+ { "id" = "9bbd89f3846b5366f7da4d20b516fdc3f5c3a993" } }
+ { "sentinel" = "known-sentinel"
+ { "cluster" = "Master" }
+ { "ip" = "1.1.1.1" }
+ { "port" = "26379" }
+ { "id" = "f435adae0efeb9d5841712d05d7399f7584f333b" } }
+ { "sentinel" = "known-sentinel"
+ { "cluster" = "Othercluster" }
+ { "ip" = "4.4.4.4" }
+ { "port" = "26379" }
+ { "id" = "9bbd89f3846b5366f7da4d20b516fdc3f5c3a993" } }
+ { "sentinel" = "known-sentinel"
+ { "cluster" = "Othercluster" }
+ { "ip" = "1.1.1.1" }
+ { "port" = "26379" }
+ { "id" = "f435adae0efeb9d5841712d05d7399f7584f333b" } }
+ { "sentinel" = "current-epoch"
+ { "value" = "693" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_reprepro_uploaders.aug b/Sharp.Augeas.Test/lens/tests/test_reprepro_uploaders.aug
new file mode 100644
index 0000000..14d6c16
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_reprepro_uploaders.aug
@@ -0,0 +1,166 @@
+(*
+Module: Test_Reprepro_Uploaders
+ Provides unit tests and examples for the <Reprepro_Uploaders> lens.
+*)
+
+module Test_Reprepro_Uploaders =
+
+(* Test: Reprepro_Uploaders.entry
+ A star condition gets mapped as direct value
+ of the "allow" node.
+ *)
+test Reprepro_Uploaders.entry get
+ "allow * by anybody\n" =
+
+ { "allow" = "*"
+ { "by" = "anybody" } }
+
+(* Test: Reprepro_Uploaders.entry
+ For simple keys, the "by" node gets the value "key"
+ and the key ID gets mapped in a "key" subnode.
+ *)
+test Reprepro_Uploaders.entry get
+ "allow * by key ABCD1234\n" =
+
+ { "allow" = "*"
+ { "by" = "key"
+ { "key" = "ABCD1234" } } }
+
+(* Test: Reprepro_Uploaders.entry
+ Conditions are mapped inside a tree containing
+ at least an "and" node and an "or" subnode.
+
+ The value of each "or" subnode is the type of check
+ (e.g. "source"), and this node contains "or" subnodes
+ with the value(s) allowed for the check (e.g. "bash"). *)
+test Reprepro_Uploaders.entry get
+ "allow source 'bash' by anybody\n" =
+
+ { "allow"
+ { "and"
+ { "or" = "source"
+ { "or" = "bash" } } }
+ { "by" = "anybody" } }
+
+(* Test: Reprepro_Uploaders.entry
+ Check the field distribution *)
+test Reprepro_Uploaders.entry get
+ "allow distribution 'sid' by anybody\n" =
+
+ { "allow"
+ { "and"
+ { "or" = "distribution"
+ { "or" = "sid" } } }
+ { "by" = "anybody" } }
+
+(* Test: Reprepro_Uploaders.entry
+ Some checks use the "contain" keyword to loosen the condition.
+ In that case, a "contain" subnode is added. Be sure to check for it
+ to know how the condition has to be checked.
+ *)
+test Reprepro_Uploaders.entry get
+ "allow source 'bash' and binaries contain 'bash-doc' by anybody\n" =
+
+ { "allow"
+ { "and"
+ { "or" = "source"
+ { "or" = "bash" } } }
+ { "and"
+ { "or" = "binaries"
+ { "contain" }
+ { "or" = "bash-doc" } } }
+ { "by" = "anybody" } }
+
+(* Test: Reprepro_Uploaders.entry
+ Some checks support multiple values, separated by '|'.
+ In this case, each value gets added to an "or" subnode.
+ *)
+test Reprepro_Uploaders.entry get
+
+ "allow sections 'main'|'restricted' and source 'bash' or binaries contain 'bash-doc' by anybody\n" =
+
+ { "allow"
+ { "and"
+ { "or" = "sections"
+ { "or" = "main" }
+ { "or" = "restricted" } } }
+ { "and"
+ { "or" = "source"
+ { "or" = "bash" } }
+ { "or" = "binaries"
+ { "contain" }
+ { "or" = "bash-doc" } } }
+ { "by" = "anybody" } }
+
+(* Test: Reprepro_Uploaders.entry
+ Negated conditions are mapped with a "not" subnode. *)
+test Reprepro_Uploaders.entry get
+
+ "allow not source 'bash' by anybody\n" =
+
+ { "allow"
+ { "and"
+ { "or" = "source"
+ { "not" }
+ { "or" = "bash" } } }
+ { "by" = "anybody" } }
+
+
+
+(* Variable: conf
+ A full configuration *)
+let conf = "# ftpmaster
+allow * by key 74BF771E
+
+allow sections 'desktop/*' by anybody
+allow sections 'gforge/*' and binaries contain 'bzr' or not source '*melanie*'|'katya' by any key
+"
+
+(* Test: Reprepro_Uploaders.lns
+ Testing the full <conf> against <Reprepro_Uploaders.lns> *)
+test Reprepro_Uploaders.lns get conf =
+ { "#comment" = "ftpmaster" }
+ { "allow" = "*"
+ { "by" = "key"
+ { "key" = "74BF771E" } } }
+ { }
+ { "allow"
+ { "and" { "or" = "sections" { "or" = "desktop/*" } } }
+ { "by" = "anybody" } }
+ { "allow"
+ { "and" { "or" = "sections" { "or" = "gforge/*" } } }
+ { "and" { "or" = "binaries" { "contain" } { "or" = "bzr" } }
+ { "or" = "source" { "not" } { "or" = "*melanie*" } { "or" = "katya" } } }
+ { "by" = "key"
+ { "key" = "any" } } }
+
+(* Test: Reprepro_Uploaders.lns
+ Support group conditions, GH #283 *)
+test Reprepro_Uploaders.lns get "allow sections 'desktop/*' by group groupname\n" =
+ { "allow"
+ { "and" { "or" = "sections" { "or" = "desktop/*" } } }
+ { "by" = "group" { "group" = "groupname" } } }
+
+(* Test: Reprepro_Uploaders.lns
+ Declare group condition, GH #283 *)
+test Reprepro_Uploaders.lns get "group groupname add key-id\n" =
+ { "group" = "groupname"
+ { "add" = "key-id" } }
+
+(* Test: Reprepro_Uploaders.lns
+ Group inheritance, GH #283 *)
+test Reprepro_Uploaders.lns get "group groupname contains group2\n" =
+ { "group" = "groupname"
+ { "contains" = "group2" } }
+
+(* Test: Reprepro_Uploaders.lns
+ Empty group, GH #283 *)
+test Reprepro_Uploaders.lns get "group groupname empty\n" =
+ { "group" = "groupname"
+ { "empty" } }
+
+(* Test: Reprepro_Uploaders.lns
+ Unused group, GH #283 *)
+test Reprepro_Uploaders.lns get "group groupname unused\n" =
+ { "group" = "groupname"
+ { "unused" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_resolv.aug b/Sharp.Augeas.Test/lens/tests/test_resolv.aug
new file mode 100644
index 0000000..1f81634
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_resolv.aug
@@ -0,0 +1,59 @@
+module Test_resolv =
+
+ let conf = "# Sample resolv.conf
+; With multiple comment styles
+nameserver 192.168.0.3 # and EOL comments
+nameserver ff02::1
+domain mynet.com # and EOL comments
+search mynet.com anotherorg.net
+
+# A sortlist now
+sortlist 130.155.160.0/255.255.240.0 130.155.0.0
+
+options ndots:3 debug timeout:2
+options no-ip6-dotint single-request-reopen # and EOL comments
+
+lookup file bind
+family inet6 inet4
+"
+
+test Resolv.lns get conf =
+ { "#comment" = "Sample resolv.conf" }
+ { "#comment" = "With multiple comment styles" }
+ { "nameserver" = "192.168.0.3"
+ { "#comment" = "and EOL comments" } }
+ { "nameserver" = "ff02::1" }
+ { "domain" = "mynet.com"
+ { "#comment" = "and EOL comments" } }
+ { "search"
+ { "domain" = "mynet.com" }
+ { "domain" = "anotherorg.net" } }
+ {}
+ { "#comment" = "A sortlist now" }
+ { "sortlist"
+ { "ipaddr" = "130.155.160.0"
+ { "netmask" = "255.255.240.0" } }
+ { "ipaddr" = "130.155.0.0" } }
+ {}
+ { "options"
+ { "ndots" = "3" }
+ { "debug" }
+ { "timeout" = "2" } }
+ { "options"
+ { "ip6-dotint"
+ { "negate" } }
+ { "single-request-reopen" }
+ { "#comment" = "and EOL comments" } }
+ {}
+ { "lookup"
+ { "file" }
+ { "bind" } }
+ { "family"
+ { "inet6" }
+ { "inet4" } }
+
+test Resolv.ip6_dotint
+ put "ip6-dotint"
+ after set "/ip6-dotint/negate" "" = "no-ip6-dotint"
+
+test Resolv.lns get "; \r\n; \t \n" = { } { }
diff --git a/Sharp.Augeas.Test/lens/tests/test_rhsm.aug b/Sharp.Augeas.Test/lens/tests/test_rhsm.aug
new file mode 100644
index 0000000..219a5be
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_rhsm.aug
@@ -0,0 +1,151 @@
+(*
+Module: Test_Rhsm
+ Provides unit tests and examples for the <Rhsm> lens.
+*)
+
+module Test_rhsm =
+
+ (* Variable: conf
+ A full rhsm.conf *)
+ let conf = "# Red Hat Subscription Manager Configuration File:
+
+# Unified Entitlement Platform Configuration
+[server]
+# Server hostname:
+hostname = subscription.rhn.redhat.com
+
+# Server prefix:
+prefix = /subscription
+
+# Server port:
+port = 443
+
+# Set to 1 to disable certificate validation:
+insecure = 0
+
+# Set the depth of certs which should be checked
+# when validating a certificate
+ssl_verify_depth = 3
+
+# an http proxy server to use
+proxy_hostname =
+
+# port for http proxy server
+proxy_port =
+
+# user name for authenticating to an http proxy, if needed
+proxy_user =
+
+# password for basic http proxy auth, if needed
+proxy_password =
+
+[rhsm]
+# Content base URL:
+baseurl= https://cdn.redhat.com
+
+# Server CA certificate location:
+ca_cert_dir = /etc/rhsm/ca/
+
+# Default CA cert to use when generating yum repo configs:
+repo_ca_cert = %(ca_cert_dir)sredhat-uep.pem
+
+# Where the certificates should be stored
+productCertDir = /etc/pki/product
+entitlementCertDir = /etc/pki/entitlement
+consumerCertDir = /etc/pki/consumer
+
+# Manage generation of yum repositories for subscribed content:
+manage_repos = 1
+
+# Refresh repo files with server overrides on every yum command
+full_refresh_on_yum = 0
+
+# If set to zero, the client will not report the package profile to
+# the subscription management service.
+report_package_profile = 1
+
+# The directory to search for subscription manager plugins
+pluginDir = /usr/share/rhsm-plugins
+
+# The directory to search for plugin configuration files
+pluginConfDir = /etc/rhsm/pluginconf.d
+
+[rhsmcertd]
+# Interval to run cert check (in minutes):
+certCheckInterval = 240
+# Interval to run auto-attach (in minutes):
+autoAttachInterval = 1440
+"
+
+ test Rhsm.lns get conf =
+ { "#comment" = "Red Hat Subscription Manager Configuration File:" }
+ { }
+ { "#comment" = "Unified Entitlement Platform Configuration" }
+ { "server"
+ { "#comment" = "Server hostname:" }
+ { "hostname" = "subscription.rhn.redhat.com" }
+ { }
+ { "#comment" = "Server prefix:" }
+ { "prefix" = "/subscription" }
+ { }
+ { "#comment" = "Server port:" }
+ { "port" = "443" }
+ { }
+ { "#comment" = "Set to 1 to disable certificate validation:" }
+ { "insecure" = "0" }
+ { }
+ { "#comment" = "Set the depth of certs which should be checked" }
+ { "#comment" = "when validating a certificate" }
+ { "ssl_verify_depth" = "3" }
+ { }
+ { "#comment" = "an http proxy server to use" }
+ { "proxy_hostname" }
+ { }
+ { "#comment" = "port for http proxy server" }
+ { "proxy_port" }
+ { }
+ { "#comment" = "user name for authenticating to an http proxy, if needed" }
+ { "proxy_user" }
+ { }
+ { "#comment" = "password for basic http proxy auth, if needed" }
+ { "proxy_password" }
+ { }
+ }
+ { "rhsm"
+ { "#comment" = "Content base URL:" }
+ { "baseurl" = "https://cdn.redhat.com" }
+ { }
+ { "#comment" = "Server CA certificate location:" }
+ { "ca_cert_dir" = "/etc/rhsm/ca/" }
+ { }
+ { "#comment" = "Default CA cert to use when generating yum repo configs:" }
+ { "repo_ca_cert" = "%(ca_cert_dir)sredhat-uep.pem" }
+ { }
+ { "#comment" = "Where the certificates should be stored" }
+ { "productCertDir" = "/etc/pki/product" }
+ { "entitlementCertDir" = "/etc/pki/entitlement" }
+ { "consumerCertDir" = "/etc/pki/consumer" }
+ { }
+ { "#comment" = "Manage generation of yum repositories for subscribed content:" }
+ { "manage_repos" = "1" }
+ { }
+ { "#comment" = "Refresh repo files with server overrides on every yum command" }
+ { "full_refresh_on_yum" = "0" }
+ { }
+ { "#comment" = "If set to zero, the client will not report the package profile to" }
+ { "#comment" = "the subscription management service." }
+ { "report_package_profile" = "1" }
+ { }
+ { "#comment" = "The directory to search for subscription manager plugins" }
+ { "pluginDir" = "/usr/share/rhsm-plugins" }
+ { }
+ { "#comment" = "The directory to search for plugin configuration files" }
+ { "pluginConfDir" = "/etc/rhsm/pluginconf.d" }
+ { }
+ }
+ { "rhsmcertd"
+ { "#comment" = "Interval to run cert check (in minutes):" }
+ { "certCheckInterval" = "240" }
+ { "#comment" = "Interval to run auto-attach (in minutes):" }
+ { "autoAttachInterval" = "1440" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_rmt.aug b/Sharp.Augeas.Test/lens/tests/test_rmt.aug
new file mode 100644
index 0000000..4bb7d68
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_rmt.aug
@@ -0,0 +1,38 @@
+module Test_rmt =
+
+let conf = "#ident @(#)rmt.dfl 1.2 05/08/09 Copyr 2000 J. Schilling
+#
+# This file is /etc/default/rmt
+
+DEBUG=/tmp/RMT
+USER=*
+
+ACCESS=rtape sparky /dev/rmt/*
+ACCESS=* * /dev/rmt/*
+
+# Historically, Red Hat rmt was not so ^^ restrictive.
+ACCESS=* * *
+"
+
+test Rmt.lns get conf =
+ { "#comment" = "ident @(#)rmt.dfl 1.2 05/08/09 Copyr 2000 J. Schilling" }
+ { }
+ { "#comment" = "This file is /etc/default/rmt" }
+ { }
+ { "DEBUG" = "/tmp/RMT" }
+ { "USER" = "*" }
+ { }
+ { "ACCESS"
+ { "name" = "rtape" }
+ { "host" = "sparky" }
+ { "path" = "/dev/rmt/*" } }
+ { "ACCESS"
+ { "name" = "*" }
+ { "host" = "*" }
+ { "path" = "/dev/rmt/*" } }
+ { }
+ { "#comment" = "Historically, Red Hat rmt was not so ^^ restrictive." }
+ { "ACCESS"
+ { "name" = "*" }
+ { "host" = "*" }
+ { "path" = "*" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_rsyncd.aug b/Sharp.Augeas.Test/lens/tests/test_rsyncd.aug
new file mode 100644
index 0000000..4484320
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_rsyncd.aug
@@ -0,0 +1,56 @@
+module Test_rsyncd =
+
+ let conf = "
+# A more sophisticated example would be:
+
+uid = nobody
+ gid = nobody
+use chroot = yes
+max connections = 4
+syslog facility = local5
+pid file = /var/run/rsyncd.pid
+
+[ftp]
+ # this is a comment
+ path = /var/ftp/./pub
+ comment = whole ftp area (approx 6.1 GB)
+
+ [cvs]
+ ; comment with semicolon
+ path = /data/cvs
+ comment = CVS repository (requires authentication)
+ auth users = tridge, susan # comment at EOL
+ secrets file = /etc/rsyncd.secrets
+
+"
+
+ test Rsyncd.lns get conf =
+ { ".anon"
+ {}
+ { "#comment" = "A more sophisticated example would be:" }
+ {}
+ { "uid" = "nobody" }
+ { "gid" = "nobody" }
+ { "use chroot" = "yes" }
+ { "max connections" = "4" }
+ { "syslog facility" = "local5" }
+ { "pid file" = "/var/run/rsyncd.pid" }
+ {}
+ }
+ { "ftp"
+ { "#comment" = "this is a comment" }
+ { "path" = "/var/ftp/./pub" }
+ { "comment" = "whole ftp area (approx 6.1 GB)" }
+ {}
+ }
+ { "cvs"
+ { "#comment" = "comment with semicolon" }
+ { "path" = "/data/cvs" }
+ { "comment" = "CVS repository (requires authentication)" }
+ { "auth users" = "tridge, susan"
+ { "#comment" = "comment at EOL" }
+ }
+ { "secrets file" = "/etc/rsyncd.secrets" }
+ {}
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_rsyslog.aug b/Sharp.Augeas.Test/lens/tests/test_rsyslog.aug
new file mode 100644
index 0000000..e83613a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_rsyslog.aug
@@ -0,0 +1,261 @@
+(*
+Module: Test_Rsyslog
+ Provides unit tests and examples for the <Rsyslog> lens.
+*)
+
+module Test_Rsyslog =
+
+(* Variable: conf *)
+let conf = "# rsyslog v5 configuration file
+
+$ModLoad imuxsock # provides support for local system logging (e.g. via logger command)
+$ModLoad imklog # provides kernel logging support (previously done by rklogd)
+module(load=\"immark\" markmessageperiod=\"60\" fakeoption=\"bar\") #provides --MARK-- message capability
+
+timezone(id=\"CET\" offset=\"+01:00\")
+
+$UDPServerRun 514
+$InputTCPServerRun 514
+$ActionFileDefaultTemplate RSYSLOG_TraditionalFileFormat
+$ActionFileEnableSync on
+$IncludeConfig /etc/rsyslog.d/*.conf
+
+*.info;mail.none;authpriv.none;cron.none /var/log/messages
+authpriv.* /var/log/secure
+*.emerg *
+*.* @2.7.4.1
+*.* @@2.7.4.1
+*.emerg :omusrmsg:*
+*.emerg :omusrmsg:foo,bar
+*.emerg | /dev/xconsole
+"
+
+(* Test: Rsyslog.lns *)
+test Rsyslog.lns get conf =
+ { "#comment" = "rsyslog v5 configuration file" }
+ { }
+ { "$ModLoad" = "imuxsock"
+ { "#comment" = "provides support for local system logging (e.g. via logger command)" }
+ }
+ { "$ModLoad" = "imklog"
+ { "#comment" = "provides kernel logging support (previously done by rklogd)" }
+ }
+ { "module"
+ { "load" = "immark" }
+ { "markmessageperiod" = "60" }
+ { "fakeoption" = "bar" }
+ { "#comment" = "provides --MARK-- message capability" }
+ }
+ { }
+ { "timezone"
+ { "id" = "CET" }
+ { "offset" = "+01:00" }
+ }
+ { }
+ { "$UDPServerRun" = "514" }
+ { "$InputTCPServerRun" = "514" }
+ { "$ActionFileDefaultTemplate" = "RSYSLOG_TraditionalFileFormat" }
+ { "$ActionFileEnableSync" = "on" }
+ { "$IncludeConfig" = "/etc/rsyslog.d/*.conf" }
+ { }
+ { "entry"
+ { "selector"
+ { "facility" = "*" }
+ { "level" = "info" }
+ }
+ { "selector"
+ { "facility" = "mail" }
+ { "level" = "none" }
+ }
+ { "selector"
+ { "facility" = "authpriv" }
+ { "level" = "none" }
+ }
+ { "selector"
+ { "facility" = "cron" }
+ { "level" = "none" }
+ }
+ { "action"
+ { "file" = "/var/log/messages" }
+ }
+ }
+ { "entry"
+ { "selector"
+ { "facility" = "authpriv" }
+ { "level" = "*" }
+ }
+ { "action"
+ { "file" = "/var/log/secure" }
+ }
+ }
+ { "entry"
+ { "selector"
+ { "facility" = "*" }
+ { "level" = "emerg" }
+ }
+ { "action"
+ { "user" = "*" }
+ }
+ }
+ { "entry"
+ { "selector"
+ { "facility" = "*" }
+ { "level" = "*" }
+ }
+ { "action"
+ { "protocol" = "@" }
+ { "hostname" = "2.7.4.1" }
+ }
+ }
+ { "entry"
+ { "selector"
+ { "facility" = "*" }
+ { "level" = "*" }
+ }
+ { "action"
+ { "protocol" = "@@" }
+ { "hostname" = "2.7.4.1" }
+ }
+ }
+ { "entry"
+ { "selector"
+ { "facility" = "*" }
+ { "level" = "emerg" }
+ }
+ { "action"
+ { "omusrmsg" = "*" }
+ }
+ }
+ { "entry"
+ { "selector"
+ { "facility" = "*" }
+ { "level" = "emerg" }
+ }
+ { "action"
+ { "omusrmsg" = "foo" }
+ { "omusrmsg" = "bar" } }
+ }
+ { "entry"
+ { "selector"
+ { "facility" = "*" }
+ { "level" = "emerg" }
+ }
+ { "action"
+ { "pipe" = "/dev/xconsole" }
+ }
+ }
+
+(* Parse complex $template lines, RHBZ#1083016 *)
+test Rsyslog.lns get "$template SpiceTmpl,\"%TIMESTAMP%.%TIMESTAMP:::date-subseconds% %syslogtag% %syslogseverity-text%:%msg:::sp-if-no-1st-sp%%msg:::drop-last-lf%\\n\"\n" =
+ { "$template" = "SpiceTmpl,\"%TIMESTAMP%.%TIMESTAMP:::date-subseconds% %syslogtag% %syslogseverity-text%:%msg:::sp-if-no-1st-sp%%msg:::drop-last-lf%\\n\"" }
+
+(* Parse property-based filters, RHBZ#1083016 *)
+test Rsyslog.lns get ":programname, startswith, \"spice-vdagent\" /var/log/spice-vdagent.log;SpiceTmpl\n" =
+ { "filter"
+ { "property" = "programname" }
+ { "operation" = "startswith" }
+ { "value" = "spice-vdagent" }
+ { "action"
+ { "file" = "/var/log/spice-vdagent.log" }
+ { "template" = "SpiceTmpl" } } }
+
+test Rsyslog.lns get ":msg, !contains, \"error\" /var/log/noterror.log\n" =
+ { "filter"
+ { "property" = "msg" }
+ { "operation" = "!contains" }
+ { "value" = "error" }
+ { "action"
+ { "file" = "/var/log/noterror.log" } } }
+
+test Rsyslog.lns get ":msg,!contains,\"garbage\" ~\n" =
+ { "filter"
+ { "property" = "msg" }
+ { "operation" = "!contains" }
+ { "value" = "garbage" }
+ { "action"
+ { "discard" } } }
+
+test Rsyslog.lns put "" after
+ set "/module[1]/load" "imuxsock"
+ = "module(load=\"imuxsock\")\n"
+
+test Rsyslog.lns put "" after
+ set "/module[1]/load" "imuxsock" ;
+ set "/module[1]/SysSock.RateLimit.Interval" "0"
+ = "module(load=\"imuxsock\" SysSock.RateLimit.Interval=\"0\")\n"
+
+test Rsyslog.lns put "" after
+ set "/module[1]/load" "imuxsock" ;
+ set "/module[1]/SysSock.RateLimit.Interval" "0" ;
+ set "/module[1]/SysSock.RateLimit.Burst" "1"
+ = "module(load=\"imuxsock\" SysSock.RateLimit.Interval=\"0\" SysSock.RateLimit.Burst=\"1\")\n"
+
+(* On Fedora 26, there are comments in module statements *)
+test Rsyslog.lns get "module(load=\"imuxsock\" # provides support for local system logging (e.g. via logger command)
+ SysSock.Use=\"off\") # Turn off message reception via local log socket;
+ # local messages are retrieved through imjournal now.\n" =
+ { "module"
+ { "load" = "imuxsock" }
+ { "SysSock.Use" = "off" }
+ { "#comment" = "Turn off message reception via local log socket;" } }
+ { "#comment" = "local messages are retrieved through imjournal now." }
+
+(* rsyslog doesn't use bsd-like #! or #+/- specifications *)
+test Rsyslog.lns get "#!prog\n" = { "#comment" = "!prog" }
+test Rsyslog.lns get "#+host\n" = { "#comment" = "+host" }
+test Rsyslog.lns get "#-host\n" = { "#comment" = "-host" }
+
+(* Added in rsyslog 8.33 *)
+test Rsyslog.lns get "include(file=\"/etc/rsyslog.d/*.conf\" mode=\"optional\")\n" =
+ { "include"
+ { "file" = "/etc/rsyslog.d/*.conf" }
+ { "mode" = "optional" } }
+
+(* Dynamic file name template *)
+test Rsyslog.lns get "*.* ?DynamicFile\n" =
+ { "entry"
+ { "selector"
+ { "facility" = "*" }
+ { "level" = "*" }
+ }
+ { "action"
+ { "dynamic" = "DynamicFile" }
+ }
+ }
+
+(* Multiple actions in filters and selectors *)
+test Rsyslog.lns get ":msg, startswith, \"iptables:\" -/var/log/iptables.log
+& ~
+# Save boot messages also to boot.log
+local7.* /var/log/boot.log
+local3.err /var/log/nfsen/nfsenlog
+& /var/log/also.log
+\n" =
+ { "filter"
+ { "property" = "msg" }
+ { "operation" = "startswith" }
+ { "value" = "iptables:" }
+ { "action"
+ { "no_sync" }
+ { "file" = "/var/log/iptables.log" } }
+ { "action"
+ { "discard" } }
+ }
+ { "#comment" = "Save boot messages also to boot.log" }
+ { "entry"
+ { "selector"
+ { "facility" = "local7" }
+ { "level" = "*" } }
+ { "action"
+ { "file" = "/var/log/boot.log" } }
+ }
+ { "entry"
+ { "selector"
+ { "facility" = "local3" }
+ { "level" = "err" } }
+ { "action"
+ { "file" = "/var/log/nfsen/nfsenlog" } }
+ { "action"
+ { "file" = "/var/log/also.log" } } }
+ { }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_rtadvd.aug b/Sharp.Augeas.Test/lens/tests/test_rtadvd.aug
new file mode 100644
index 0000000..da32216
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_rtadvd.aug
@@ -0,0 +1,30 @@
+module Test_rtadvd =
+
+(* Example from rtadvd.conf(5) *)
+let rtadvd_conf = "default:\\
+ :chlim#64:raflags#0:rltime#1800:rtime#0:retrans#0:\\
+ :pinfoflags=\"la\":vltime#2592000:pltime#604800:mtu#0:
+ef0:\\
+ :addr=\"2001:db8:ffff:1000::\":prefixlen#64:tc=default:
+"
+
+test Rtadvd.lns get rtadvd_conf =
+ { "record"
+ { "name" = "default" }
+ { "capability" = "chlim#64" }
+ { "capability" = "raflags#0" }
+ { "capability" = "rltime#1800" }
+ { "capability" = "rtime#0" }
+ { "capability" = "retrans#0" }
+ { "capability" = "pinfoflags=\"la\"" }
+ { "capability" = "vltime#2592000" }
+ { "capability" = "pltime#604800" }
+ { "capability" = "mtu#0" }
+ }
+ { "record"
+ { "name" = "ef0" }
+ { "capability" = "addr=\"2001:db8:ffff:1000::\"" }
+ { "capability" = "prefixlen#64" }
+ { "capability" = "tc=default" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_rx.aug b/Sharp.Augeas.Test/lens/tests/test_rx.aug
new file mode 100644
index 0000000..4e7c4d3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_rx.aug
@@ -0,0 +1,70 @@
+module Test_rx =
+
+let sto_ipv4 = [ label "IP" . store Rx.ipv4 ]
+
+test sto_ipv4 get "192.168.0.1" = { "IP" = "192.168.0.1" }
+test sto_ipv4 get "255.255.255.254" = { "IP" = "255.255.255.254" }
+
+let sto_ipv6 = [ label "IP" . store Rx.ipv6 ]
+test sto_ipv6 get "fe80::215:f2ff:fea4:b8d9" = { "IP" = "fe80::215:f2ff:fea4:b8d9" }
+
+let sto_ip = [ label "IP" . store Rx.ip ]
+
+test sto_ip get "192.168.0.1" = { "IP" = "192.168.0.1" }
+test sto_ip get "255.255.255.254" = { "IP" = "255.255.255.254" }
+test sto_ip get "fe80::215:f2ff:fea4:b8d9" = { "IP" = "fe80::215:f2ff:fea4:b8d9" }
+
+(* iso_8601 *)
+let iso_8601 = [ label "date" . store Rx.iso_8601 ]
+
+test iso_8601 get "2009-12T12:34" = { "date" = "2009-12T12:34" }
+test iso_8601 get "2009" = { "date" = "2009" }
+test iso_8601 get "2009-05-19" = { "date" = "2009-05-19" }
+test iso_8601 get "2009-05-19" = { "date" = "2009-05-19" }
+test iso_8601 get "20090519" = { "date" = "20090519" }
+test iso_8601 get "2009123" = { "date" = "2009123" }
+test iso_8601 get "2009-05" = { "date" = "2009-05" }
+test iso_8601 get "2009-123" = { "date" = "2009-123" }
+test iso_8601 get "2009-222" = { "date" = "2009-222" }
+test iso_8601 get "2009-001" = { "date" = "2009-001" }
+test iso_8601 get "2009-W01-1" = { "date" = "2009-W01-1" }
+test iso_8601 get "2009-W51-1" = { "date" = "2009-W51-1" }
+test iso_8601 get "2009-W511" = { "date" = "2009-W511" }
+test iso_8601 get "2009-W33" = { "date" = "2009-W33" }
+test iso_8601 get "2009W511" = { "date" = "2009W511" }
+test iso_8601 get "2009-05-19" = { "date" = "2009-05-19" }
+test iso_8601 get "2009-05-19 00:00" = { "date" = "2009-05-19 00:00" }
+test iso_8601 get "2009-05-19 14" = { "date" = "2009-05-19 14" }
+test iso_8601 get "2009-05-19 14:31" = { "date" = "2009-05-19 14:31" }
+test iso_8601 get "2009-05-19 14:39:22" = { "date" = "2009-05-19 14:39:22" }
+test iso_8601 get "2009-05-19T14:39Z" = { "date" = "2009-05-19T14:39Z" }
+test iso_8601 get "2009-W21-2" = { "date" = "2009-W21-2" }
+test iso_8601 get "2009-W21-2T01:22" = { "date" = "2009-W21-2T01:22" }
+test iso_8601 get "2009-139" = { "date" = "2009-139" }
+test iso_8601 get "2009-05-19 14:39:22-06:00" = { "date" = "2009-05-19 14:39:22-06:00" }
+test iso_8601 get "2009-05-19 14:39:22+0600" = { "date" = "2009-05-19 14:39:22+0600" }
+test iso_8601 get "2009-05-19 14:39:22-01" = { "date" = "2009-05-19 14:39:22-01" }
+test iso_8601 get "20090621T0545Z" = { "date" = "20090621T0545Z" }
+test iso_8601 get "2007-04-06T00:00" = { "date" = "2007-04-06T00:00" }
+test iso_8601 get "2007-04-05T24:00" = { "date" = "2007-04-05T24:00" }
+test iso_8601 get "2010-02-18T16:23:48.5" = { "date" = "2010-02-18T16:23:48.5" }
+test iso_8601 get "2010-02-18T16:23:48,444" = { "date" = "2010-02-18T16:23:48,444" }
+test iso_8601 get "2010-02-18T16:23:48,3-06:00" = { "date" = "2010-02-18T16:23:48,3-06:00" }
+test iso_8601 get "2010-02-18T16:23.4" = { "date" = "2010-02-18T16:23.4" }
+test iso_8601 get "2010-02-18T16:23,25" = { "date" = "2010-02-18T16:23,25" }
+test iso_8601 get "2010-02-18T16:23.33+0600" = { "date" = "2010-02-18T16:23.33+0600" }
+test iso_8601 get "2010-02-18T16.23334444" = { "date" = "2010-02-18T16.23334444" }
+test iso_8601 get "2010-02-18T16,2283" = { "date" = "2010-02-18T16,2283" }
+test iso_8601 get "2009-05-19 143922.500" = { "date" = "2009-05-19 143922.500" }
+test iso_8601 get "2009-05-19 1439,55" = { "date" = "2009-05-19 1439,55" }
+
+(* url_3986 *)
+let url_3986 = [ label "url" . store Rx.url_3986 ]
+
+test url_3986 get "http://tools.ietf.org/rfc/rfc3986.txt" = { "url" = "http://tools.ietf.org/rfc/rfc3986.txt" }
+test url_3986 get "https://github.com/hercules-team/augeas/" = { "url" = "https://github.com/hercules-team/augeas/" }
+test url_3986 get "http://www.ics.uci.edu:80/pub/ietf/uri/#Related" = { "url" = "http://www.ics.uci.edu:80/pub/ietf/uri/#Related" }
+test url_3986 get "EXAMPLE://a/./b/../b/%63/%7bfoo%7d" = { "url" = "EXAMPLE://a/./b/../b/%63/%7bfoo%7d" }
+test url_3986 get "http://a/b/c/g;?x=1/y#z" = { "url" = "http://a/b/c/g;?x=1/y#z" }
+test url_3986 get "eXaMpLe://a.very.sub.domain.tld:1234/b/c/e/f/g.txt;?x=1/y&q=%7b-w-%7b#z" = { "url" = "eXaMpLe://a.very.sub.domain.tld:1234/b/c/e/f/g.txt;?x=1/y&q=%7b-w-%7b#z" }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_samba.aug b/Sharp.Augeas.Test/lens/tests/test_samba.aug
new file mode 100644
index 0000000..fc96a1c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_samba.aug
@@ -0,0 +1,103 @@
+module Test_samba =
+
+ let conf = "#
+# Sample configuration file for the Samba suite for Debian GNU/Linux.
+#
+#
+# This is the main Samba configuration file. You should read the
+# smb.conf(5) manual page in order to understand the options listed
+# here. Samba has a huge number of configurable options most of which
+# are not shown in this example
+#
+
+#======================= Global Settings =======================
+
+[global]
+
+## Browsing/Identification ###
+
+# Change this to the workgroup/NT-domain name your Samba server will part of
+ workgroup = WORKGROUP
+
+# server string is the equivalent of the NT Description field
+ server string = %h server (Samba, Ubuntu)
+
+# Windows Internet Name Serving Support Section:
+# WINS Support - Tells the NMBD component of Samba to enable its WINS Server
+; wins support = no
+
+# Windows clients look for this share name as a source of downloadable
+# printer drivers
+[print$]
+ comment = All Printers
+ browseable = no
+ path = /tmp
+ printable = yes
+ public = yes
+ writable = no
+ create mode = 0700
+ printcap name = /etc/printcap
+ print command = /usr/bin/lpr -P%p -r %s
+ printing = cups
+"
+
+ test Samba.lns get conf =
+ {}
+ { "#comment" = "Sample configuration file for the Samba suite for Debian GNU/Linux." }
+ {}
+ {}
+ { "#comment" = "This is the main Samba configuration file. You should read the" }
+ { "#comment" = "smb.conf(5) manual page in order to understand the options listed" }
+ { "#comment" = "here. Samba has a huge number of configurable options most of which" }
+ { "#comment" = "are not shown in this example" }
+ {}
+ {}
+ { "#comment" = "======================= Global Settings =======================" }
+ {}
+ { "target" = "global"
+ {}
+ { "#comment" = "# Browsing/Identification ###" }
+ {}
+ { "#comment" = "Change this to the workgroup/NT-domain name your Samba server will part of" }
+ { "workgroup" = "WORKGROUP" }
+ {}
+ { "#comment" = "server string is the equivalent of the NT Description field" }
+ { "server string" = "%h server (Samba, Ubuntu)" }
+ {}
+ { "#comment" = "Windows Internet Name Serving Support Section:" }
+ { "#comment" = "WINS Support - Tells the NMBD component of Samba to enable its WINS Server" }
+ { "#comment" = "wins support = no" }
+ {}
+ { "#comment" = "Windows clients look for this share name as a source of downloadable" }
+ { "#comment" = "printer drivers" } }
+ { "target" = "print$"
+ { "comment" = "All Printers" }
+ { "browseable" = "no" }
+ { "path" = "/tmp" }
+ { "printable" = "yes" }
+ { "public" = "yes" }
+ { "writable" = "no" }
+ { "create mode" = "0700" }
+ { "printcap name" = "/etc/printcap" }
+ { "print command" = "/usr/bin/lpr -P%p -r %s" }
+ { "printing" = "cups" } }
+
+ test Samba.lns get "[test]\ncrazy:entry = foo\n" =
+ { "target" = "test"
+ {"crazy:entry" = "foo"}}
+
+ (* Test complex idmap commands with asterisk in key name, ticket #354 *)
+ test Samba.lns get "[test]
+ idmap backend = tdb
+ idmap uid = 1000000-1999999
+ idmap gid = 1000000-1999999
+
+ idmap config CORP : backend = ad
+ idmap config * : range = 1000-999999\n" =
+ { "target" = "test"
+ { "idmap backend" = "tdb" }
+ { "idmap uid" = "1000000-1999999" }
+ { "idmap gid" = "1000000-1999999" }
+ { }
+ { "idmap config CORP : backend" = "ad" }
+ { "idmap config * : range" = "1000-999999" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_schroot.aug b/Sharp.Augeas.Test/lens/tests/test_schroot.aug
new file mode 100644
index 0000000..71dec8c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_schroot.aug
@@ -0,0 +1,97 @@
+module Test_schroot =
+
+ let conf = "# Sample configuration
+
+[sid]
+type=plain
+description=Debian unstable
+description[fr_FR]=Debian instable
+location=/srv/chroot/sid
+priority=3
+groups=sbuild
+root-groups=root
+aliases=unstable,default
+
+[etch]
+type=block-device
+description=Debian testing
+priority=2
+#groups=sbuild-security
+aliases=testing
+device=/dev/hda_vg/etch_chroot
+mount-options=-o atime
+run-setup-scripts=true
+run-exec-scripts=true
+
+[sid-file]
+type=file
+description=Debian sid file-based chroot
+priority=3
+groups=sbuild
+file=/srv/chroots/sid.tar.gz
+run-setup-scripts=true
+run-exec-scripts=true
+
+[sid-snapshot]
+type=lvm-snapshot
+description=Debian unstable LVM snapshot
+priority=3
+groups=sbuild
+root-groups=root
+device=/dev/hda_vg/sid_chroot
+mount-options=-o atime,sync,user_xattr
+lvm-snapshot-options=--size 2G
+run-setup-scripts=true
+run-exec-scripts=true
+"
+
+ test Schroot.lns get conf =
+ { "#comment" = "Sample configuration" }
+ { }
+ { "sid"
+ { "type" = "plain" }
+ { "description" = "Debian unstable" }
+ { "description" = "Debian instable"
+ { "lang" = "fr_FR" }
+ }
+ { "location" = "/srv/chroot/sid" }
+ { "priority" = "3" }
+ { "groups" = "sbuild" }
+ { "root-groups" = "root" }
+ { "aliases" = "unstable,default" }
+ { }
+ }
+ { "etch"
+ { "type" = "block-device" }
+ { "description" = "Debian testing" }
+ { "priority" = "2" }
+ { "#comment" = "groups=sbuild-security" }
+ { "aliases" = "testing" }
+ { "device" = "/dev/hda_vg/etch_chroot" }
+ { "mount-options" = "-o atime" }
+ { "run-setup-scripts" = "true" }
+ { "run-exec-scripts" = "true" }
+ { }
+ }
+ { "sid-file"
+ { "type" = "file" }
+ { "description" = "Debian sid file-based chroot" }
+ { "priority" = "3" }
+ { "groups" = "sbuild" }
+ { "file" = "/srv/chroots/sid.tar.gz" }
+ { "run-setup-scripts" = "true" }
+ { "run-exec-scripts" = "true" }
+ { }
+ }
+ { "sid-snapshot"
+ { "type" = "lvm-snapshot" }
+ { "description" = "Debian unstable LVM snapshot" }
+ { "priority" = "3" }
+ { "groups" = "sbuild" }
+ { "root-groups" = "root" }
+ { "device" = "/dev/hda_vg/sid_chroot" }
+ { "mount-options" = "-o atime,sync,user_xattr" }
+ { "lvm-snapshot-options" = "--size 2G" }
+ { "run-setup-scripts" = "true" }
+ { "run-exec-scripts" = "true" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_securetty.aug b/Sharp.Augeas.Test/lens/tests/test_securetty.aug
new file mode 100644
index 0000000..1aa0d1d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_securetty.aug
@@ -0,0 +1,31 @@
+module Test_securetty =
+
+ (* basic test *)
+ let basic = "tty0\ntty1\ntty2\n"
+
+ (* declare the lens to test and the resulting tree *)
+ test Securetty.lns get basic =
+ { "1" = "tty0" }
+ { "2" = "tty1" }
+ { "3" = "tty2" }
+
+ (* complete test *)
+ let complete = "# some comment
+
+tty0
+# X11 display
+:0.0
+
+console # allow root from console
+"
+
+ (* declare the lens to test and the resulting tree *)
+ test Securetty.lns get complete =
+ { "#comment" = "some comment" }
+ {}
+ { "1" = "tty0" }
+ { "#comment" = "X11 display" }
+ { "2" = ":0.0" }
+ {}
+ { "3" = "console"
+ { "#comment" = "allow root from console" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_semanage.aug b/Sharp.Augeas.Test/lens/tests/test_semanage.aug
new file mode 100644
index 0000000..a6ceaca
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_semanage.aug
@@ -0,0 +1,81 @@
+(*
+Module: Test_Semanage
+ Provides unit tests and examples for the <Semanage> lens.
+*)
+
+module Test_Semanage =
+
+(* Variable: phony_conf *)
+let phony_conf = "# this is a comment
+
+mykey = myvalue # eol comment
+anotherkey = another value
+"
+
+(* Test: Semanage.lns *)
+test Semanage.lns get phony_conf =
+ { "#comment" = "this is a comment" }
+ { }
+ { "mykey" = "myvalue"
+ { "#comment" = "eol comment" } }
+ { "anotherkey" = "another value" }
+
+(* Test: Semanage.lns
+ Quotes are OK in variables that do not begin with a quote *)
+test Semanage.lns get "UserParameter=custom.vfs.dev.read.ops[*],cat /proc/diskstats | grep $1 | head -1 | awk '{print $$4}'\n" =
+ { "UserParameter" = "custom.vfs.dev.read.ops[*],cat /proc/diskstats | grep $1 | head -1 | awk '{print $$4}'" }
+
+(* Test: Semanage.lns
+ Support empty values *)
+test Semanage.lns get "foo =\n" =
+ { "foo" }
+
+(* Variable: conf *)
+let conf = "module-store = direct
+module-store = \"source\"
+
+#policy-version = 19
+
+expand-check=0
+
+usepasswd=False
+bzip-small=true
+bzip-blocksize=5
+ignoredirs=/root
+
+[sefcontext_compile]
+path = /usr/sbin/sefcontext_compile
+args = -r $@
+
+[end]
+
+config=test
+
+[verify module]
+test=value
+[end]
+"
+
+(* Test: Semanage.lns *)
+test Semanage.lns get conf =
+ { "module-store" = "direct" }
+ { "module-store" = "source" }
+ { }
+ { "#comment" = "policy-version = 19" }
+ { }
+ { "expand-check" = "0" }
+ { }
+ { "usepasswd" = "False" }
+ { "bzip-small" = "true" }
+ { "bzip-blocksize" = "5" }
+ { "ignoredirs" = "/root" }
+ { }
+ { "@group" = "sefcontext_compile"
+ { "path" = "/usr/sbin/sefcontext_compile" }
+ { "args" = "-r $@" }
+ { } }
+ { }
+ { "config" = "test" }
+ { }
+ { "@group" = "verify module"
+ { "test" = "value" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_services.aug b/Sharp.Augeas.Test/lens/tests/test_services.aug
new file mode 100644
index 0000000..28725fe
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_services.aug
@@ -0,0 +1,88 @@
+(* Tests for the Services module *)
+
+module Test_services =
+
+ let example = "# a comment
+
+tcpmux 1/tcp # TCP port service multiplexer
+echo 7/udp
+discard 9/tcp sink null
+systat 11/tcp users
+# another comment
+whois++ 63/tcp
+z39.50 210/tcp z3950 wais # NISO Z39.50 database \n"
+
+ test Services.lns get example =
+ { "#comment" = "a comment" }
+ { }
+ { "service-name" = "tcpmux"
+ { "port" = "1" }
+ { "protocol" = "tcp" }
+ { "#comment" = "TCP port service multiplexer" } }
+ { "service-name" = "echo"
+ { "port" = "7" }
+ { "protocol" = "udp" } }
+ { "service-name" = "discard"
+ { "port" = "9" }
+ { "protocol" = "tcp" }
+ { "alias" = "sink" }
+ { "alias" = "null" } }
+ { "service-name" = "systat"
+ { "port" = "11" }
+ { "protocol" = "tcp" }
+ { "alias" = "users" } }
+ { "#comment" = "another comment" }
+ { "service-name" = "whois++"
+ { "port" = "63" }
+ { "protocol" = "tcp" } }
+ { "service-name" = "z39.50"
+ { "port" = "210" }
+ { "protocol" = "tcp" }
+ { "alias" = "z3950" }
+ { "alias" = "wais" }
+ { "#comment" = "NISO Z39.50 database" } }
+
+ (* We completely suppress empty comments *)
+ test Services.record get "mtp\t\t1911/tcp\t\t\t#\n" =
+ { "service-name" = "mtp"
+ { "port" = "1911" }
+ { "protocol" = "tcp" } }
+
+ (* And comments with one space in *)
+ test Services.lns get "mtp\t\t\t1911/tcp\t\t\t# \nfoo 123/tcp\n" =
+ { "service-name" = "mtp"
+ { "port" = "1911" }
+ { "protocol" = "tcp" } }
+ { "service-name" = "foo"
+ { "port" = "123" }
+ { "protocol" = "tcp" } }
+
+ test Services.lns get "sql*net\t\t66/tcp\t\t\t# Oracle SQL*NET\n" =
+ { "service-name" = "sql*net"
+ { "port" = "66" }
+ { "protocol" = "tcp" }
+ { "#comment" = "Oracle SQL*NET" } }
+
+ (* Fake service to check that we allow enoughspecial characters *)
+ test Services.lns get "special.*+-/chars\t0/proto\n" =
+ { "service-name" = "special.*+-/chars"
+ { "port" = "0" }
+ { "protocol" = "proto" } }
+
+ test Services.lns put "tcpmux 1/tcp # some comment\n"
+ after rm "/service-name/#comment" = "tcpmux 1/tcp\n"
+
+ (* On AIX, port ranges are valid *)
+ test Services.lns get "x11 6000-6063/tcp # X Window System\n" =
+ { "service-name" = "x11"
+ { "start" = "6000" }
+ { "end" = "6063" }
+ { "protocol" = "tcp" }
+ { "#comment" = "X Window System" } }
+
+ (* Colons permitted in service names, RHBZ#1121263 *)
+ test Services.lns get "SWRPC.ACCESS.BSS:BS_rmq 48102/tcp # SWIFTAlliance_SWRPC ACCESS\n" =
+ { "service-name" = "SWRPC.ACCESS.BSS:BS_rmq"
+ { "port" = "48102" }
+ { "protocol" = "tcp" }
+ { "#comment" = "SWIFTAlliance_SWRPC ACCESS" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_shadow.aug b/Sharp.Augeas.Test/lens/tests/test_shadow.aug
new file mode 100644
index 0000000..ed3e222
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_shadow.aug
@@ -0,0 +1,81 @@
+module Test_Shadow =
+
+let conf = "root:x:0:0:999999:7:::
+libuuid:*:0:0:0::::
+expired:$6$INVALID:0:0:0:::100:
+locked:!$6$INVALID:0:0:0::::
+"
+
+test Shadow.lns get conf =
+ { "root"
+ { "password" = "x" }
+ { "lastchange_date" = "0" }
+ { "minage_days" = "0" }
+ { "maxage_days" = "999999" }
+ { "warn_days" = "7" }
+ { "inactive_days" = "" }
+ { "expire_date" = "" }
+ { "flag" = "" } }
+ { "libuuid"
+ { "password" = "*" }
+ { "lastchange_date" = "0" }
+ { "minage_days" = "0" }
+ { "maxage_days" = "0" }
+ { "warn_days" = "" }
+ { "inactive_days" = "" }
+ { "expire_date" = "" }
+ { "flag" = "" } }
+ { "expired"
+ { "password" = "$6$INVALID" }
+ { "lastchange_date" = "0" }
+ { "minage_days" = "0" }
+ { "maxage_days" = "0" }
+ { "warn_days" = "" }
+ { "inactive_days" = "" }
+ { "expire_date" = "100" }
+ { "flag" = "" } }
+ { "locked"
+ { "password" = "!$6$INVALID" }
+ { "lastchange_date" = "0" }
+ { "minage_days" = "0" }
+ { "maxage_days" = "0" }
+ { "warn_days" = "" }
+ { "inactive_days" = "" }
+ { "expire_date" = "" }
+ { "flag" = "" } }
+
+test Shadow.lns get "+\n" =
+ { "@nisdefault" }
+
+test Shadow.lns get "+::::::::\n" =
+ { "@nisdefault"
+ { "password" = "" }
+ { "lastchange_date" = "" }
+ { "minage_days" = "" }
+ { "maxage_days" = "" }
+ { "warn_days" = "" }
+ { "inactive_days" = "" }
+ { "expire_date" = "" }
+ { "flag" = "" } }
+
+test Shadow.lns put "+\n" after
+ set "@nisdefault/password" "";
+ set "@nisdefault/lastchange_date" "";
+ set "@nisdefault/minage_days" "";
+ set "@nisdefault/maxage_days" "";
+ set "@nisdefault/warn_days" "";
+ set "@nisdefault/inactive_days" "";
+ set "@nisdefault/expire_date" "";
+ set "@nisdefault/flag" ""
+= "+::::::::\n"
+
+test Shadow.lns put "+::::::::\n" after
+ rm "@nisdefault/password";
+ rm "@nisdefault/lastchange_date";
+ rm "@nisdefault/minage_days";
+ rm "@nisdefault/maxage_days";
+ rm "@nisdefault/warn_days";
+ rm "@nisdefault/inactive_days";
+ rm "@nisdefault/expire_date";
+ rm "@nisdefault/flag"
+= "+\n"
diff --git a/Sharp.Augeas.Test/lens/tests/test_shells.aug b/Sharp.Augeas.Test/lens/tests/test_shells.aug
new file mode 100644
index 0000000..ff81c4a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_shells.aug
@@ -0,0 +1,18 @@
+(* Test for shells lens *)
+
+module Test_shells =
+
+ let conf = "# this is a comment
+
+/bin/bash
+/bin/tcsh
+/opt/csw/bin/bash # CSWbash
+"
+
+ test Shells.lns get conf =
+ { "#comment" = "this is a comment" }
+ {}
+ { "1" = "/bin/bash" }
+ { "2" = "/bin/tcsh" }
+ { "3" = "/opt/csw/bin/bash"
+ { "#comment" = "CSWbash" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_shellvars.aug b/Sharp.Augeas.Test/lens/tests/test_shellvars.aug
new file mode 100644
index 0000000..a3b80a4
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_shellvars.aug
@@ -0,0 +1,783 @@
+(* Test for shell lens *)
+module Test_shellvars =
+
+ let lns = Shellvars.lns
+
+ let eth_static = "# Intel Corporation PRO/100 VE Network Connection
+DEVICE=eth0
+BOOTPROTO=static
+BROADCAST=172.31.0.255
+HWADDR=ab:cd:ef:12:34:56
+export IPADDR=172.31.0.31 # this is our IP
+#DHCP_HOSTNAME=host.example.com
+NETMASK=255.255.255.0
+NETWORK=172.31.0.0
+unset ONBOOT # We do not want this var
+"
+ let empty_val = "EMPTY=\nDEVICE=eth0\n"
+
+ let key_brack = "SOME_KEY[1]=\nDEVICE=eth0\n"
+
+ test lns get eth_static =
+ { "#comment" = "Intel Corporation PRO/100 VE Network Connection" }
+ { "DEVICE" = "eth0" }
+ { "BOOTPROTO" = "static" }
+ { "BROADCAST" = "172.31.0.255" }
+ { "HWADDR" = "ab:cd:ef:12:34:56" }
+ { "IPADDR" = "172.31.0.31"
+ { "export" }
+ { "#comment" = "this is our IP" } }
+ { "#comment" = "DHCP_HOSTNAME=host.example.com" }
+ { "NETMASK" = "255.255.255.0" }
+ { "NETWORK" = "172.31.0.0" }
+ { "@unset"
+ { "1" = "ONBOOT" }
+ { "#comment" = "We do not want this var" } }
+
+ test lns put eth_static after
+ set "BOOTPROTO" "dhcp" ;
+ rm "IPADDR" ;
+ rm "BROADCAST" ;
+ rm "NETMASK" ;
+ rm "NETWORK"
+ = "# Intel Corporation PRO/100 VE Network Connection
+DEVICE=eth0
+BOOTPROTO=dhcp
+HWADDR=ab:cd:ef:12:34:56
+#DHCP_HOSTNAME=host.example.com
+unset ONBOOT # We do not want this var
+"
+ test lns get empty_val =
+ { "EMPTY" = "" } { "DEVICE" = "eth0" }
+
+ test lns get key_brack =
+ { "SOME_KEY[1]" = "" } { "DEVICE" = "eth0" }
+
+ test lns get "smartd_opts=\"-q never\"\n" =
+ { "smartd_opts" = "\"-q never\"" }
+
+ test lns get "var=val \n" = { "var" = "val" }
+
+ test lns get ". /etc/java/java.conf\n" =
+ { ".source" = "/etc/java/java.conf" }
+
+ (* Quoted strings and other oddities *)
+ test lns get "var=\"foo 'bar'\"\n" =
+ { "var" = "\"foo 'bar'\"" }
+
+ test lns get "var='Some \"funny\" value'\n" =
+ { "var" = "'Some \"funny\" value'" }
+
+ test lns get "var=\"\\\"\"\n" =
+ { "var" = "\"\\\"\"" }
+
+ test lns get "var=\\\"\n" =
+ { "var" = "\\\"" }
+
+ test lns get "var=ab#c\n" =
+ { "var" = "ab#c" }
+
+ test lns get "var=ab #c\n" =
+ { "var" = "ab"
+ { "#comment" = "c" } }
+
+ test lns get "var=ab; #c\n" =
+ { "var" = "ab" }
+ { "#comment" = "c" }
+
+ test lns put "var=ab; #c\n" after
+ set "/#comment" "d" =
+ "var=ab; #d\n"
+
+ test lns get "var=ab;\n" =
+ { "var" = "ab" }
+
+ test lns get "var='ab#c'\n" =
+ { "var" = "'ab#c'" }
+
+ test lns get "var=\"ab#c\"\n" =
+ { "var" = "\"ab#c\"" }
+
+ test lns get "ESSID='Joe'\"'\"'s net'\n" =
+ { "ESSID" = "'Joe'\"'\"'s net'" }
+
+ test lns get "var=`ab#c`\n" =
+ { "var" = "`ab#c`" }
+
+ test lns get "var=`grep nameserver /etc/resolv.conf | head -1`\n" =
+ { "var" = "`grep nameserver /etc/resolv.conf | head -1`" }
+
+ test lns put "var=ab #c\n"
+ after rm "/var/#comment" = "var=ab\n"
+
+ test lns put "var=ab\n"
+ after set "/var/#comment" "this is a var" =
+ "var=ab # this is a var\n"
+
+ (* Handling of arrays *)
+ test lns get "var=(val1 \"val\\\"2\\\"\" val3)\n" =
+ { "var"
+ { "1" = "val1" }
+ { "2" = "\"val\\\"2\\\"\"" }
+ { "3" = "val3" } }
+
+ test lns get "var=()\n" = { "var" = "()" }
+
+ test lns put "var=()\n" after
+ set "var" "value"
+ = "var=value\n"
+
+ test lns put "var=(v1 v2)\n" after
+ rm "var/*" ;
+ set "var" "value"
+ = "var=value\n"
+
+ test lns put "var=(v1 v2)\n" after
+ set "var/3" "v3"
+ = "var=(v1 v2 v3)\n"
+
+ test lns get "var=(v1 v2 \n \t v3)\n" =
+ { "var"
+ { "1" = "v1" }
+ { "2" = "v2" }
+ { "3" = "v3" } }
+
+ (* Allow spaces after/before opening/closing parens for array *)
+ test lns get "config_eth1=( \"10.128.0.48/24\" )\n" =
+ { "config_eth1" { "1" = "\"10.128.0.48/24\"" } }
+
+ (* Bug 109: allow a bare export *)
+ test lns get "export FOO\n" =
+ { "@export"
+ { "1" = "FOO" } }
+
+ (* Bug 73: allow ulimit builtin *)
+ test lns get "ulimit -c unlimited\n" =
+ { "@builtin" = "ulimit" { "args" = "-c unlimited" } }
+
+ (* Allow shift builtin *)
+ test Shellvars.lns get "shift\nshift 2\n" =
+ { "@builtin" = "shift" }
+ { "@builtin" = "shift" { "args" = "2" } }
+
+ (* Allow exit builtin *)
+ test Shellvars.lns get "exit\nexit 2\n" =
+ { "@builtin" = "exit" }
+ { "@builtin" = "exit" { "args" = "2" } }
+
+ (* Allow wrapping builtin arguments to multiple lines *)
+ test Shellvars.lns get "ulimit -c \\\nunlimited\nulimit \\\n -x 123\n" =
+ { "@builtin" = "ulimit" { "args" = "-c \\\nunlimited" } }
+ { "@builtin" = "ulimit" { "args" = "-x 123" } }
+
+ (* Test semicolons *)
+ test lns get "VAR1=\"this;is;a;test\"\nVAR2=this;\n" =
+ { "VAR1" = "\"this;is;a;test\"" }
+ { "VAR2" = "this" }
+
+ (* Bug 230: parse conditions *)
+ test lns get "if [ -f /etc/default/keyboard ]; then\n. /etc/default/keyboard\nfi\n" =
+ { "@if" = "[ -f /etc/default/keyboard ]" { ".source" = "/etc/default/keyboard" } }
+
+ (* Recursive condition *)
+ test lns get "if [ -f /tmp/file1 ]; then
+ if [ -f /tmp/file2 ]
+ then
+ . /tmp/file2
+ elif [ -f /tmp/file3 ]; then
+ . /tmp/file3; else; . /tmp/file4
+ fi
+else
+ . /tmp/file3
+fi\n" =
+ { "@if" = "[ -f /tmp/file1 ]"
+ { "@if" = "[ -f /tmp/file2 ]"
+ { ".source" = "/tmp/file2" }
+ { "@elif" = "[ -f /tmp/file3 ]"
+ { ".source" = "/tmp/file3" } }
+ { "@else"
+ { ".source" = "/tmp/file4" }
+ }
+ }
+ { "@else"
+ { ".source" = "/tmp/file3" }
+ }
+ }
+
+ (* Multiple elif *)
+ test Shellvars.lns get "if [ -f /tmp/file1 ]; then
+ . /tmp/file1
+ elif [ -f /tmp/file2 ]; then
+ . /tmp/file2
+ elif [ -f /tmp/file3 ]; then
+ . /tmp/file3
+ fi\n" =
+ { "@if" = "[ -f /tmp/file1 ]"
+ { ".source" = "/tmp/file1" }
+ { "@elif" = "[ -f /tmp/file2 ]"
+ { ".source" = "/tmp/file2" }
+ }
+ { "@elif" = "[ -f /tmp/file3 ]"
+ { ".source" = "/tmp/file3" }
+ }
+ }
+
+
+ (* Comment or eol *)
+ test lns get "VAR=value # eol-comment\n" =
+ { "VAR" = "value"
+ { "#comment" = "eol-comment" }
+ }
+
+ (* One-liners *)
+ test lns get "if [ -f /tmp/file1 ]; then . /tmp/file1; else . /tmp/file2; fi\n" =
+ { "@if" = "[ -f /tmp/file1 ]"
+ { ".source" = "/tmp/file1" }
+ { "@else"
+ { ".source" = "/tmp/file2" }
+ }
+ }
+
+ (* Loops *)
+ test lns get "for f in /tmp/file*; do
+ while [ 1 ]; do . $f; done
+done\n" =
+ { "@for" = "f in /tmp/file*"
+ { "@while" = "[ 1 ]"
+ { ".source" = "$f" }
+ }
+ }
+
+ (* Case *)
+ test lns get "case $f in
+ /tmp/file1)
+ . /tmp/file1
+ ;;
+ /tmp/file2)
+ . /tmp/file2
+ ;;
+ *)
+ unset f
+ ;;
+esac\n" =
+ { "@case" = "$f"
+ { "@case_entry"
+ { "@pattern" = "/tmp/file1" }
+ { ".source" = "/tmp/file1" } }
+ { "@case_entry"
+ { "@pattern" = "/tmp/file2" }
+ { ".source" = "/tmp/file2" } }
+ { "@case_entry"
+ { "@pattern" = "*" }
+ { "@unset"
+ { "1" = "f" } } } }
+
+ (* Select *)
+ test lns get "select i in a b c; do . /tmp/file$i
+ done\n" =
+ { "@select" = "i in a b c"
+ { ".source" = "/tmp/file$i" }
+ }
+
+ (* Return *)
+ test lns get "return\nreturn 2\n" =
+ { "@return" }
+ { "@return" = "2" }
+
+ (* Functions *)
+ test Shellvars.lns get "foo() {
+ . /tmp/bar
+ }\n" =
+ { "@function" = "foo"
+ { ".source" = "/tmp/bar" }
+ }
+
+ test Shellvars.lns get "function foo () {
+ . /tmp/bar
+ }\n" =
+ { "@function" = "foo"
+ { ".source" = "/tmp/bar" }
+ }
+
+ test Shellvars.lns get "foo() (
+ . /tmp/bar
+ )\n" =
+ { "@function" = "foo"
+ { ".source" = "/tmp/bar" }
+ }
+
+ (* Dollar assignment *)
+ test Shellvars.lns get "FOO=$(bar arg)\n" =
+ { "FOO" = "$(bar arg)" }
+
+ (* Empty lines before esac *)
+ test Shellvars.lns get "case $f in
+ a)
+ B=C
+ ;;
+
+ esac\n" =
+ { "@case" = "$f"
+ { "@case_entry"
+ { "@pattern" = "a" }
+ { "B" = "C" } }
+ }
+
+
+ (* Empty lines before a case_entry *)
+ test Shellvars.lns get "case $f in
+
+ a)
+ B=C
+ ;;
+
+ b)
+ A=D
+ ;;
+ esac\n" =
+ { "@case" = "$f"
+ { "@case_entry"
+ { "@pattern" = "a" }
+ { "B" = "C" } }
+ { "@case_entry"
+ { "@pattern" = "b" }
+ { "A" = "D" } } }
+
+
+ (* Comments anywhere *)
+ test Shellvars.lns get "case ${INTERFACE} in
+# comment before
+eth0)
+# comment in
+OPTIONS=()
+;;
+
+# comment before 2
+*)
+# comment in 2
+unset f
+;;
+# comment after
+esac\n" =
+ { "@case" = "${INTERFACE}"
+ { "#comment" = "comment before" }
+ { "@case_entry"
+ { "@pattern" = "eth0" }
+ { "#comment" = "comment in" }
+ { "OPTIONS" = "()" } }
+ { "#comment" = "comment before 2" }
+ { "@case_entry"
+ { "@pattern" = "*" }
+ { "#comment" = "comment in 2" }
+ { "@unset"
+ { "1" = "f" } } }
+ { "#comment" = "comment after" } }
+
+ (* Empty case *)
+ test Shellvars.lns get "case $a in
+ *)
+ ;;
+ esac\n" =
+ { "@case" = "$a"
+ { "@case_entry" { "@pattern" = "*" } } }
+
+ (* case variables can be surrounded by double quotes *)
+ test Shellvars.lns get "case \"${options}\" in
+*debug*)
+ shift
+ ;;
+esac\n" =
+ { "@case" = "\"${options}\""
+ { "@case_entry"
+ { "@pattern" = "*debug*" }
+ { "@builtin" = "shift" } } }
+
+ (* Double quoted values can have newlines *)
+ test Shellvars.lns get "FOO=\"123\n456\"\n" =
+ { "FOO" = "\"123\n456\"" }
+
+ (* Single quoted values can have newlines *)
+ test Shellvars.lns get "FOO='123\n456'\n" =
+ { "FOO" = "'123\n456'" }
+
+ (* bquoted values can have semi-colons *)
+ test Shellvars.lns get "FOO=`bar=date;$bar`\n" =
+ { "FOO" = "`bar=date;$bar`" }
+
+ (* dollar-assigned values can have semi-colons *)
+ test Shellvars.lns get "FOO=$(bar=date;$bar)\n" =
+ { "FOO" = "$(bar=date;$bar)" }
+
+ (* dollar-assigned value in bquot *)
+ test Shellvars.lns get "FOO=`echo $(date)`\n" =
+ { "FOO" = "`echo $(date)`" }
+
+ (* bquot value in dollar-assigned value *)
+ test Shellvars.lns get "FOO=$(echo `date`)\n" =
+ { "FOO" = "$(echo `date`)" }
+
+ (* dbquot *)
+ test Shellvars.lns get "FOO=``bar``\n" =
+ { "FOO" = "``bar``" }
+
+ (* Partial quoting is allowed *)
+ test Shellvars.lns get "FOO=\"$bar\"/'baz'/$(quux)$((1 + 2))\n" =
+ { "FOO" = "\"$bar\"/'baz'/$(quux)$((1 + 2))" }
+
+ (* unset can be used on wildcard variables *)
+ test Shellvars.lns get "unset ${!LC_*}\n" =
+ { "@unset"
+ { "1" = "${!LC_*}" } }
+
+ (* Empty comment before entries *)
+ test Shellvars.lns get "# \nfoo=bar\n" =
+ { "foo" = "bar" }
+
+ (* Empty comment after entries *)
+ test Shellvars.lns get "foo=bar\n# \n\n" =
+ { "foo" = "bar" }
+
+ (* Whitespace between lines *)
+ test Shellvars.lns get "DEVICE=eth0\n\nBOOTPROTO=static\n" =
+ { "DEVICE" = "eth0" }
+ { "BOOTPROTO" = "static" }
+
+ (* Whitespace after line *)
+ test Shellvars.lns get "DEVICE=eth0\n\n" =
+ { "DEVICE" = "eth0" }
+
+ (* Fails adding variable assignment between comment and blank line *)
+ let ins_after_comment = "# foo
+
+"
+ test lns put ins_after_comment after
+ insa "foo" "#comment" ;
+ set "foo" "yes"
+ = "# foo\n\nfoo=yes\n"
+
+ (* Make sure to support empty comments *)
+ test lns get "# foo
+ #
+ #
+ foo=bar
+ #\n" =
+ { "#comment" = "foo" }
+ { "foo" = "bar" }
+
+ (* Single quotes in arrays, ticket #357 *)
+ test lns get "DLAGENTS=('ftp::/usr/bin/curl -fC - --ftp-pasv --retry 3 --retry-delay 3 -o %o %u'
+ 'scp::/usr/bin/scp -C %u %o')\n" =
+ { "DLAGENTS"
+ { "1" = "'ftp::/usr/bin/curl -fC - --ftp-pasv --retry 3 --retry-delay 3 -o %o %u'" }
+ { "2" = "'scp::/usr/bin/scp -C %u %o'" } }
+
+ (* Accept continued lines in quoted values *)
+ test lns get "BLAH=\" \
+test \
+test2\"\n" =
+ { "BLAH" = "\" \\\ntest \\\ntest2\"" }
+
+ (* Export of multiple variables, RHBZ#1033795 *)
+ test lns get "export TestVar1 TestVar2\n" =
+ { "@export"
+ { "1" = "TestVar1" }
+ { "2" = "TestVar2" } }
+
+ (* Support ;; on same line as a case statement entry, RHBZ#1033799 *)
+ test lns get "case $ARG in
+ 0) TestVar=\"test0\" ;;
+ 1) TestVar=\"test1\" ;;
+esac\n" =
+ { "@case" = "$ARG"
+ { "@case_entry"
+ { "@pattern" = "0" }
+ { "TestVar" = "\"test0\"" } }
+ { "@case_entry"
+ { "@pattern" = "1" }
+ { "TestVar" = "\"test1\"" } } }
+
+ (* case: support ;; on the same line with multiple commands *)
+ test lns get "case $ARG in
+ 0) Foo=0; Bar=1;;
+ 1)
+ Foo=2
+ Bar=3; Baz=4;;
+esac\n" =
+ { "@case" = "$ARG"
+ { "@case_entry"
+ { "@pattern" = "0" }
+ { "Foo" = "0" }
+ { "Bar" = "1" }
+ }
+ { "@case_entry"
+ { "@pattern" = "1" }
+ { "Foo" = "2" }
+ { "Bar" = "3" }
+ { "Baz" = "4" }
+ }
+ }
+
+(* Test: Shellvars.lns
+ Support `##` bashism in conditions (GH issue #118) *)
+test Shellvars.lns get "if [ \"${APACHE_CONFDIR##/etc/apache2-}\" != \"${APACHE_CONFDIR}\" ] ; then
+ SUFFIX=\"-${APACHE_CONFDIR##/etc/apache2-}\"
+else
+ SUFFIX=
+fi\n" =
+ { "@if" = "[ \"${APACHE_CONFDIR##/etc/apache2-}\" != \"${APACHE_CONFDIR}\" ]"
+ { "SUFFIX" = "\"-${APACHE_CONFDIR##/etc/apache2-}\"" }
+ { "@else"
+ { "SUFFIX" = "" }
+ }
+ }
+
+ (* Support $(( .. )) arithmetic expansion in variable assignment, RHBZ#1100550 *)
+ test lns get "export MALLOC_PERTURB_=$(($RANDOM % 255 + 1))\n" =
+ { "MALLOC_PERTURB_" = "$(($RANDOM % 255 + 1))"
+ { "export" } }
+
+ (*
+ * Github issue 202
+ *)
+ let starts_with_blank = "\n \nVAR=value\n"
+
+ test lns get starts_with_blank = { "VAR" = "value" }
+
+ (* It is now possible to insert at the beginning of a file
+ * that starts with blank lines *)
+ test lns put starts_with_blank after
+ insb "#comment" "/*[1]";
+ set "/#comment[1]" "a comment" =
+ " # a comment\nVAR=value\n"
+
+ (* Modifications of the file lose the blank lines though *)
+ test lns put starts_with_blank after
+ set "/VAR2" "abc" = "VAR=value\nVAR2=abc\n"
+
+ test lns put starts_with_blank after
+ rm "/VAR";
+ set "/VAR2" "abc" = "VAR2=abc\n"
+
+ test lns put starts_with_blank after
+ rm "/VAR" = ""
+
+ (* Support associative arrays *)
+ test lns get "var[alpha_beta,gamma]=something\n" =
+ { "var[alpha_beta,gamma]" = "something" }
+
+ (* GH #188: support more conditions *)
+ test Shellvars.lns get "[ -f $FILENAME ]\n" =
+ { "@condition" = "-f $FILENAME"
+ { "type" = "[" } }
+
+ test Shellvars.lns get "[[ -f $FILENAME ]]\n" =
+ { "@condition" = "-f $FILENAME"
+ { "type" = "[[" } }
+
+ (* Allow wrapping loop condition to multiple lines *)
+ test Shellvars.lns get "for x in foo \\\nbar\\\nbaz; do y=$x; done\n" =
+ { "@for" = "x in foo \\\nbar\\\nbaz" { "y" = "$x" } }
+
+ (* Allow quotes in loop conditions *)
+ test Shellvars.lns get "for x in \"$@\"; do y=$x; done\n" =
+ { "@for" = "x in \"$@\"" { "y" = "$x" } }
+
+ (* case: support quotes and spaces in pattern lists *)
+ test lns get "case $ARG in
+ \"foo bar\")
+ Foo=0
+ ;;
+ baz | quux)
+ Foo=1
+ ;;
+esac\n" =
+ { "@case" = "$ARG"
+ { "@case_entry"
+ { "@pattern" = "\"foo bar\"" }
+ { "Foo" = "0" }
+ }
+ { "@case_entry"
+ { "@pattern" = "baz" }
+ { "@pattern" = "quux" }
+ { "Foo" = "1" }
+ }
+ }
+
+ (* eval *)
+ test lns get "eval `dircolors`\n" =
+ { "@eval" = "`dircolors`" }
+
+ (* alias *)
+ test lns get "alias ls='ls $LS_OPTIONS'\n" =
+ { "@alias" = "ls" { "value" = "'ls $LS_OPTIONS'" } }
+
+ test lns get "alias ls-options='ls $LS_OPTIONS'\n" =
+ { "@alias" = "ls-options" { "value" = "'ls $LS_OPTIONS'" } }
+
+ (* Allow && and || constructs after condition *)
+ test Shellvars.lns get "[ -f $FILENAME ] && do this || or that\n" =
+ { "@condition" = "-f $FILENAME"
+ { "type" = "[" }
+ { "@and" = "do this" }
+ { "@or" = "or that" } }
+
+(* Test: Shellvars.lns
+ Parse (almost) any command *)
+test Shellvars.lns get "echo foobar 'and this is baz'
+/usr/local/bin/myscript-with-dash_and_underscore.sh with args
+echo foo \
+bar\n" =
+ { "@command" = "echo"
+ { "@arg" = "foobar 'and this is baz'" }
+ }
+ { "@command" = "/usr/local/bin/myscript-with-dash_and_underscore.sh"
+ { "@arg" = "with args" }
+ }
+ { "@command" = "echo"
+ { "@arg" = "foo \\\nbar" }
+ }
+
+(* Test: Shellvars.lns
+ Support pipes in commands *)
+test Shellvars.lns get "echo \"$STRING\" | grep foo\n" =
+ { "@command" = "echo"
+ { "@arg" = "\"$STRING\"" }
+ { "@pipe"
+ { "@command" = "grep"
+ { "@arg" = "foo" } } } }
+
+(* Test: Shellvars.lns
+ Support && and || after command
+ GH #215 *)
+test Shellvars.lns get "grep -q \"Debian\" /etc/issue && echo moo\n" =
+ { "@command" = "grep"
+ { "@arg" = "-q \"Debian\" /etc/issue" }
+ { "@and"
+ { "@command" = "echo"
+ { "@arg" = "moo" } } } }
+
+test Shellvars.lns get "grep -q \"Debian\" /etc/issue || echo baa\n" =
+ { "@command" = "grep"
+ { "@arg" = "-q \"Debian\" /etc/issue" }
+ { "@or"
+ { "@command" = "echo"
+ { "@arg" = "baa" } } } }
+
+test Shellvars.lns get "grep -q \"Debian\" /etc/issue && DEBIAN=1\n" =
+ { "@command" = "grep"
+ { "@arg" = "-q \"Debian\" /etc/issue" }
+ { "@and"
+ { "DEBIAN" = "1" } } }
+
+test Shellvars.lns get "cat /etc/issue | grep -q \"Debian\" && echo moo || echo baa\n" =
+ { "@command" = "cat"
+ { "@arg" = "/etc/issue" }
+ { "@pipe"
+ { "@command" = "grep"
+ { "@arg" = "-q \"Debian\"" }
+ { "@and"
+ { "@command" = "echo"
+ { "@arg" = "moo" }
+ { "@or"
+ { "@command" = "echo"
+ { "@arg" = "baa" } } } } } } } }
+
+(* Command-specific environment variables *)
+test Shellvars.lns get "abc=def \\\n ghi=\"jkl mno\" command arg1 arg2\n" =
+ { "@command" = "command"
+ { "abc" = "def" }
+ { "ghi" = "\"jkl mno\"" }
+ { "@arg" = "arg1 arg2" }
+ }
+
+(* Wrapped command sequences *)
+
+test Shellvars.lns get "foo && \\\nbar baz \\\n|| qux \\\n quux\\\ncorge grault\n" =
+ { "@command" = "foo"
+ { "@and"
+ { "@command" = "bar"
+ { "@arg" = "baz" }
+ { "@or" { "@command" = "qux" { "@arg" = "quux\\\ncorge grault" } } }
+ }
+ }
+ }
+
+(* Comment after function definition (Issue #339) *)
+test Shellvars.lns get "SetDir() # hello
+{
+ echo
+}\n" =
+ { "@function" = "SetDir"
+ { "#comment" = "hello" }
+ { "@command" = "echo" }
+ }
+
+(* Function with new lines *)
+test Shellvars.lns get "MyFunc()
+{
+ echo
+}\n" =
+ { "@function" = "MyFunc"
+ { "@command" = "echo" }
+ }
+
+(* Pipe and newline without cl (Issue #339) *)
+test Shellvars.lns get "echo |
+tr\n" =
+ { "@command" = "echo"
+ { "@pipe"
+ { "@command" = "tr" } } }
+
+
+(* Subshell (Issue #339) *)
+test Shellvars.lns get "{ echo
+}\n" =
+ { "@subshell"
+ { "@command" = "echo" }
+ }
+
+(* One-liner function *)
+test Shellvars.lns get "MyFunc() { echo; }\n" =
+ { "@function" = "MyFunc"
+ { "@command" = "echo" }
+ }
+
+(* Support and/or in if conditions *)
+test Shellvars.lns get "if [ -f /tmp/file1 ] && [ -f /tmp/file2 ] || [ -f /tmp/file3 ]; then
+ echo foo
+fi
+" =
+ { "@if" = "[ -f /tmp/file1 ]"
+ { "@and" = "[ -f /tmp/file2 ]" }
+ { "@or" = "[ -f /tmp/file3 ]" }
+ { "@command" = "echo"
+ { "@arg" = "foo" }
+ }
+ }
+
+(* Support variable as command *)
+test Shellvars.lns get "$FOO bar\n" =
+ { "@command" = "$FOO"
+ { "@arg" = "bar" }
+ }
+
+
+(*********************************************************
+ * Group: Unsupported syntax *
+ * *
+ * The following tests are known to be failing currently *
+ *********************************************************)
+
+(* Any piping (Issue #343) *)
+test Shellvars.lns get "FOO=bar && BAR=foo
+echo foo || { echo bar; }
+echo FOO | myfunc() { echo bar; }\n" = *
+
+
+(* Stream redirections (Issue #626 *)
+test Shellvars.lns get "echo foo 2>&1 >/dev/null\n" = *
+
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_shellvars_list.aug b/Sharp.Augeas.Test/lens/tests/test_shellvars_list.aug
new file mode 100644
index 0000000..3fcb969
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_shellvars_list.aug
@@ -0,0 +1,144 @@
+(* Test for shell list handling lens *)
+module Test_shellvars_list =
+
+ let list_vals = "# Some comment
+MODULES_LOADED_ON_BOOT=\"ipv6 sunrpc\"
+
+DEFAULT_APPEND=\"showopts noresume console=tty0 console=ttyS0,115200n8 ro\"
+
+LOADER_TYPE=\"grub\"
+"
+
+ test Shellvars_list.lns get list_vals =
+ { "#comment" = "Some comment" }
+ { "MODULES_LOADED_ON_BOOT"
+ { "quote" = "\"" }
+ { "value" = "ipv6" }
+ { "value" = "sunrpc" } }
+ { }
+ { "DEFAULT_APPEND"
+ { "quote" = "\"" }
+ { "value" = "showopts" }
+ { "value" = "noresume" }
+ { "value" = "console=tty0" }
+ { "value" = "console=ttyS0,115200n8" }
+ { "value" = "ro" } }
+ { }
+ { "LOADER_TYPE"
+ { "quote" = "\"" }
+ { "value" = "grub" } }
+
+
+ (* append a value *)
+ test Shellvars_list.lns put "VAR=\"test1\t \ntest2\"\n" after
+ set "VAR/value[last()+1]" "test3"
+ = "VAR=\"test1\t \ntest2 test3\"\n"
+
+ (* in double quoted lists, single quotes and escaped values are allowed *)
+ test Shellvars_list.lns get "VAR=\"test'1 test2 a\ \\\"longer\\\"\ test\"\n" =
+ { "VAR"
+ { "quote" = "\"" }
+ { "value" = "test'1" }
+ { "value" = "test2" }
+ { "value" = "a\ \\\"longer\\\"\ test" } }
+
+ (* add new value, delete one and append something *)
+ test Shellvars_list.lns put list_vals after
+ set "FAILSAVE_APPEND/quote" "\"" ;
+ set "FAILSAVE_APPEND/value[last()+1]" "console=ttyS0" ;
+ rm "LOADER_TYPE" ;
+ rm "MODULES_LOADED_ON_BOOT/value[1]" ;
+ set "DEFAULT_APPEND/value[last()+1]" "teststring"
+ = "# Some comment
+MODULES_LOADED_ON_BOOT=\"sunrpc\"
+
+DEFAULT_APPEND=\"showopts noresume console=tty0 console=ttyS0,115200n8 ro teststring\"
+
+FAILSAVE_APPEND=\"console=ttyS0\"
+"
+
+ (* test of single quotes (leading/trailing whitespaces are kept *)
+ (* leading/trailing) *)
+ test Shellvars_list.lns put "VAR=' \t test1\t \ntest2 '\n" after
+ set "VAR/value[last()+1]" "test3"
+ = "VAR=' \t test1\t \ntest2 test3 '\n"
+
+ (* change quotes (leading/trailing whitespaces are lost *)
+ test Shellvars_list.lns put "VAR=' \t test1\t \ntest2 '\n" after
+ set "VAR/quote" "\""
+ = "VAR=\"test1\t \ntest2\"\n"
+
+ (* double quotes are allowed in single quoted lists *)
+ test Shellvars_list.lns get "VAR='test\"1 test2'\n" =
+ { "VAR"
+ { "quote" = "'" }
+ { "value" = "test\"1" }
+ { "value" = "test2" } }
+
+ (* empty list with quotes *)
+ test Shellvars_list.lns get "VAR=''\n" =
+ { "VAR"
+ { "quote" = "'" } }
+
+ (* unquoted value *)
+ test Shellvars_list.lns get "VAR=test\n" =
+ { "VAR"
+ { "quote" = "" }
+ { "value" = "test" } }
+
+ (* uquoted value with escaped space etc. *)
+ test Shellvars_list.lns get "VAR=a\\ \\\"long\\\"\\ test\n" =
+ { "VAR"
+ { "quote" = "" }
+ { "value" = "a\\ \\\"long\\\"\\ test" } }
+
+ (* append to unquoted value *)
+ test Shellvars_list.lns put "VAR=test1\n" after
+ set "VAR/quote" "\"";
+ set "VAR/value[last()+1]" "test2"
+ = "VAR=\"test1 test2\"\n"
+
+ (* empty entry *)
+ test Shellvars_list.lns get "VAR=\n" =
+ { "VAR"
+ { "quote" = "" } }
+
+ (* set value w/o quotes to empty value... *)
+ test Shellvars_list.lns put "VAR=\n" after
+ set "VAR/value[last()+1]" "test"
+ = "VAR=test\n"
+
+ (* ... or no value *)
+ test Shellvars_list.lns put "" after
+ set "VAR/quote" "";
+ set "VAR/value[1]" "test"
+ = "VAR=test\n"
+
+ (* Ticket #368 - backticks *)
+ test Shellvars_list.lns get "GRUB_DISTRIBUTOR=`lsb_release -i -s 2> /dev/null || echo Debian`\n" =
+ { "GRUB_DISTRIBUTOR"
+ { "quote" = "" }
+ { "value" = "`lsb_release -i -s 2> /dev/null || echo Debian`" } }
+
+ (* Test: Shellvars_list.lns
+ Ticket #342: end-of-line comments *)
+ test Shellvars_list.lns get "service_ping=\"ping/icmp\" #ping\n" =
+ { "service_ping"
+ { "quote" = "\"" }
+ { "value" = "ping/icmp" }
+ { "#comment" = "ping" } }
+
+ (* Test: Shellvars_list.lns
+ Support double-quoted continued lines *)
+ test Shellvars_list.lns get "DAEMON_OPTS=\"-a :6081 \
+ -T localhost:6082\"\n" =
+ { "DAEMON_OPTS"
+ { "quote" = "\"" }
+ { "value" = "-a" }
+ { "value" = ":6081" }
+ { "value" = "-T" }
+ { "value" = "localhost:6082" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_simplelines.aug b/Sharp.Augeas.Test/lens/tests/test_simplelines.aug
new file mode 100644
index 0000000..90bd9de
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_simplelines.aug
@@ -0,0 +1,42 @@
+(*
+Module: Test_Simplelines
+ Provides unit tests and examples for the <Simplelines> lens.
+*)
+
+module Test_Simplelines =
+
+(* Variable: conf *)
+let conf = "# This is a comment
+
+word
+a line
+ indented line
+with $péci@l cH@r2ct3rs
+"
+
+(* Test: Simplelines.lns *)
+test Simplelines.lns get conf =
+ { "#comment" = "This is a comment" }
+ { }
+ { "1" = "word" }
+ { "2" = "a line" }
+ { "3" = "indented line" }
+ { "4" = "with $péci@l cH@r2ct3rs" }
+
+(* Variable: cronallow *)
+ let cronallow = "# Test comment
+#
+user1
+another
+
+user2
+"
+
+(* Test: cron.allow file *)
+ test SimpleLines.lns get cronallow =
+ { "#comment" = "Test comment" }
+ { }
+ { "1" = "user1" }
+ { "2" = "another" }
+ { }
+ { "3" = "user2" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_simplevars.aug b/Sharp.Augeas.Test/lens/tests/test_simplevars.aug
new file mode 100644
index 0000000..1d1ad00
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_simplevars.aug
@@ -0,0 +1,36 @@
+(*
+Module: Test_Simplevars
+ Provides unit tests and examples for the <Simplevars> lens.
+*)
+
+module Test_Simplevars =
+
+(* Variable: conf *)
+let conf = "# this is a comment
+
+mykey = myvalue # eol comment
+anotherkey = another value
+"
+
+(* Test: Simplevars.lns *)
+test Simplevars.lns get conf =
+ { "#comment" = "this is a comment" }
+ { }
+ { "mykey" = "myvalue"
+ { "#comment" = "eol comment" } }
+ { "anotherkey" = "another value" }
+
+(* Test: Simplevars.lns
+ Quotes are OK in variables that do not begin with a quote *)
+test Simplevars.lns get "UserParameter=custom.vfs.dev.read.ops[*],cat /proc/diskstats | grep $1 | head -1 | awk '{print $$4}'\n" =
+ { "UserParameter" = "custom.vfs.dev.read.ops[*],cat /proc/diskstats | grep $1 | head -1 | awk '{print $$4}'" }
+
+(* Test: Simplevars.lns
+ Support flags *)
+test Simplevars.lns get "dnsadminapp\n" =
+ { "dnsadminapp" }
+
+(* Test: Simplevars.lns
+ Support empty values *)
+test Simplevars.lns get "foo =\n" =
+ { "foo" = "" { } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_sip_conf.aug b/Sharp.Augeas.Test/lens/tests/test_sip_conf.aug
new file mode 100644
index 0000000..bd1faf1
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_sip_conf.aug
@@ -0,0 +1,113 @@
+module Test_sip_conf =
+
+let conf = "[general]
+context=default ; Default context for incoming calls
+udpbindaddr=0.0.0.0 ; IP address to bind UDP listen socket to (0.0.0.0 binds to all)
+; The address family of the bound UDP address is used to determine how Asterisk performs
+; DNS lookups. In cases a) and c) above, only A records are considered. In case b), only
+; AAAA records are considered. In case d), both A and AAAA records are considered. Note,
+
+
+[basic-options-title](!,superclass-template);a template for my preferred codecs !@#$%#@$%^^&%%^*&$%
+ #comment after the title
+ dtmfmode=rfc2833
+ context=from-office
+ type=friend
+
+
+[my-codecs](!) ; a template for my preferred codecs
+ disallow=all
+ allow=ilbc
+ allow=g729
+ allow=gsm
+ allow=g723
+ allow=ulaw
+
+[2133](natted-phone,my-codecs) ;;;;; some sort of comment
+ secret = peekaboo
+[2134](natted-phone,ulaw-phone)
+ secret = not_very_secret
+[2136](public-phone,ulaw-phone)
+ secret = not_very_secret_either
+"
+
+test Sip_Conf.lns get conf =
+ { "title" = "general"
+ { "context" = "default"
+ { "#comment" = "Default context for incoming calls" }
+ }
+ { "udpbindaddr" = "0.0.0.0"
+ { "#comment" = "IP address to bind UDP listen socket to (0.0.0.0 binds to all)" }
+ }
+ { "#comment" = "The address family of the bound UDP address is used to determine how Asterisk performs" }
+ { "#comment" = "DNS lookups. In cases a) and c) above, only A records are considered. In case b), only" }
+ { "#comment" = "AAAA records are considered. In case d), both A and AAAA records are considered. Note," }
+ { }
+ { }
+ }
+ { "title" = "basic-options-title"
+ { "@is_template" }
+ { "@use_template" = "superclass-template" }
+ { "#title_comment" = ";a template for my preferred codecs !@#$%#@$%^^&%%^*&$%" }
+ { "#comment" = "comment after the title" }
+ { "dtmfmode" = "rfc2833" }
+ { "context" = "from-office" }
+ { "type" = "friend" }
+ { }
+ { }
+ }
+ { "title" = "my-codecs"
+ { "@is_template" }
+ { "#title_comment" = " ; a template for my preferred codecs" }
+ { "disallow" = "all" }
+ { "allow" = "ilbc" }
+ { "allow" = "g729" }
+ { "allow" = "gsm" }
+ { "allow" = "g723" }
+ { "allow" = "ulaw" }
+ { }
+ }
+ { "title" = "2133"
+ { "@use_template" = "natted-phone" }
+ { "@use_template" = "my-codecs" }
+ { "#title_comment" = " ;;;;; some sort of comment" }
+ { "secret" = "peekaboo" }
+ }
+ { "title" = "2134"
+ { "@use_template" = "natted-phone" }
+ { "@use_template" = "ulaw-phone" }
+ { "secret" = "not_very_secret" }
+ }
+ { "title" = "2136"
+ { "@use_template" = "public-phone" }
+ { "@use_template" = "ulaw-phone" }
+ { "secret" = "not_very_secret_either" }
+ }
+
+ (*********************************************
+ * Tests for update, create, delete
+ *
+ *********************************************)
+
+ (*********************************************
+ * Test to confirm that we can update the
+ * default context
+ *
+ *********************************************)
+ test Sip_Conf.lns put "[general]\ncontext=default\n" after
+ set "title[.='general']/context" "updated"
+ = "[general]\ncontext=updated
+"
+
+ (*********************************************
+ * Test to confirm that we can create a
+ * new title with a context
+ *
+ *********************************************)
+ test Sip_Conf.lns put "[general]\ncontext=default\n" after
+ set "/title[.='newtitle']" "newtitle"; set "/title[.='newtitle']/context" "foobarbaz"
+ = "[general]\ncontext=default
+[newtitle]
+context=foobarbaz
+"
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_slapd.aug b/Sharp.Augeas.Test/lens/tests/test_slapd.aug
new file mode 100644
index 0000000..a4bbb4e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_slapd.aug
@@ -0,0 +1,94 @@
+module Test_slapd =
+
+let conf = "# This is the main slapd configuration file. See slapd.conf(5) for more
+# info on the configuration options.
+
+#######################################################################
+# Global Directives:
+
+# Features to permit
+#allow bind_v2
+
+# Schema and objectClass definitions
+include /etc/ldap/schema/core.schema
+
+#######################################################################
+# Specific Directives for database #1, of type hdb:
+# Database specific directives apply to this databasse until another
+# 'database' directive occurs
+database hdb
+
+# The base of your directory in database #1
+suffix \"dc=nodomain\"
+
+access to attrs=userPassword,shadowLastChange
+ by dn=\"cn=admin,dc=nodomain\" write
+ by anonymous auth
+ by self write
+ by * none
+"
+
+test Slapd.lns get conf =
+ { "#comment" = "This is the main slapd configuration file. See slapd.conf(5) for more" }
+ { "#comment" = "info on the configuration options." }
+ {}
+ { "#comment" = "######################################################################" }
+ { "#comment" = "Global Directives:"}
+ {}
+ { "#comment" = "Features to permit" }
+ { "#comment" = "allow bind_v2" }
+ {}
+ { "#comment" = "Schema and objectClass definitions" }
+ { "include" = "/etc/ldap/schema/core.schema" }
+ {}
+ { "#comment" = "######################################################################" }
+ { "#comment" = "Specific Directives for database #1, of type hdb:" }
+ { "#comment" = "Database specific directives apply to this databasse until another" }
+ { "#comment" = "'database' directive occurs" }
+ { "database" = "hdb"
+ {}
+ { "#comment" = "The base of your directory in database #1" }
+ { "suffix" = "dc=nodomain" }
+ {}
+ { "access to" = "attrs=userPassword,shadowLastChange"
+ { "by" = "dn=\"cn=admin,dc=nodomain\""
+ { "access" = "write" } }
+ { "by" = "anonymous"
+ { "access" = "auth" } }
+ { "by" = "self"
+ { "access" = "write" } }
+ { "by" = "*"
+ { "access" = "none" } } } }
+
+(* Test: Slapd.lns
+ Full access test with who/access/control *)
+test Slapd.lns get "access to dn.subtree=\"dc=example,dc=com\"
+ by self write stop\n" =
+ { "access to" = "dn.subtree=\"dc=example,dc=com\""
+ { "by" = "self"
+ { "access" = "write" }
+ { "control" = "stop" } } }
+
+(* Test: Slapd.lns
+ access test with who *)
+test Slapd.lns get "access to dn.subtree=\"dc=example,dc=com\"
+ by self\n" =
+ { "access to" = "dn.subtree=\"dc=example,dc=com\""
+ { "by" = "self" } }
+
+(* Test: Slapd.lns
+ access test with who/access *)
+test Slapd.lns get "access to dn.subtree=\"dc=example,dc=com\"
+ by self write\n" =
+ { "access to" = "dn.subtree=\"dc=example,dc=com\""
+ { "by" = "self"
+ { "access" = "write" } } }
+
+(* Test: Slapd.lns
+ access test with who/control *)
+test Slapd.lns get "access to dn.subtree=\"dc=example,dc=com\"
+ by self stop\n" =
+ { "access to" = "dn.subtree=\"dc=example,dc=com\""
+ { "by" = "self"
+ { "control" = "stop" } } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_smbusers.aug b/Sharp.Augeas.Test/lens/tests/test_smbusers.aug
new file mode 100644
index 0000000..167e88b
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_smbusers.aug
@@ -0,0 +1,31 @@
+(*
+Module: Test_SmbUsers
+ Provides unit tests and examples for the <SmbUsers> lens.
+*)
+
+module Test_SmbUsers =
+
+(* Variable: conf *)
+let conf = "# this is a comment
+
+jarwin = JosephArwin
+manderso = MarkAnderson MarkusAndersonus
+users = @account
+nobody = *
+;commented = SomeOne
+"
+
+(* Test: Simplevars.lns *)
+test SmbUsers.lns get conf =
+ { "#comment" = "this is a comment" }
+ { }
+ { "jarwin"
+ { "username" = "JosephArwin" } }
+ { "manderso"
+ { "username" = "MarkAnderson" }
+ { "username" = "MarkusAndersonus" } }
+ { "users"
+ { "username" = "@account" } }
+ { "nobody"
+ { "username" = "*" } }
+ { "#comment" = "commented = SomeOne" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_solaris_system.aug b/Sharp.Augeas.Test/lens/tests/test_solaris_system.aug
new file mode 100644
index 0000000..511337e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_solaris_system.aug
@@ -0,0 +1,104 @@
+(* Test for system lens *)
+module Test_solaris_system =
+
+ let conf = "*ident \"@(#)system 1.18 97/06/27 SMI\" /* SVR4 1.5 */
+*
+* SYSTEM SPECIFICATION FILE
+*
+
+moddir: /kernel /usr/kernel /other/modules
+
+rootfs:ufs
+rootdev:/sbus@1,f8000000/esp@0,800000/sd@3,0:a
+
+include: win
+include: sys/shmsys
+
+exclude: win
+exclude: sys/shmsys
+
+forceload: drv/foo
+forceload: drv/ssd
+
+set nautopush=32
+set noexec_user_stack=1
+set zfs:zfs_arc_max=12884901888
+set test_module:debug = 0x13
+set fcp:ssfcp_enable_auto_configuration=1
+set scsi_options = 0x7F8
+set moddebug & ~0x880
+set moddebug | 0x40
+"
+
+ test Solaris_System.lns get conf =
+ { "#comment" = "ident \"@(#)system 1.18 97/06/27 SMI\" /* SVR4 1.5 */" }
+ { }
+ { "#comment" = "SYSTEM SPECIFICATION FILE" }
+ { }
+ { }
+ { "moddir"
+ { "1" = "/kernel" }
+ { "2" = "/usr/kernel" }
+ { "3" = "/other/modules" } }
+ { }
+ { "rootfs" = "ufs" }
+ { "rootdev" = "/sbus@1,f8000000/esp@0,800000/sd@3,0:a" }
+ { }
+ { "include" = "win" }
+ { "include" = "sys/shmsys" }
+ { }
+ { "exclude" = "win" }
+ { "exclude" = "sys/shmsys" }
+ { }
+ { "forceload" = "drv/foo" }
+ { "forceload" = "drv/ssd" }
+ { }
+ { "set"
+ { "variable" = "nautopush" }
+ { "operator" = "=" }
+ { "value" = "32" } }
+ { "set"
+ { "variable" = "noexec_user_stack" }
+ { "operator" = "=" }
+ { "value" = "1" } }
+ { "set"
+ { "module" = "zfs" }
+ { "variable" = "zfs_arc_max" }
+ { "operator" = "=" }
+ { "value" = "12884901888" } }
+ { "set"
+ { "module" = "test_module" }
+ { "variable" = "debug" }
+ { "operator" = "=" }
+ { "value" = "0x13" } }
+ { "set"
+ { "module" = "fcp" }
+ { "variable" = "ssfcp_enable_auto_configuration" }
+ { "operator" = "=" }
+ { "value" = "1" } }
+ { "set"
+ { "variable" = "scsi_options" }
+ { "operator" = "=" }
+ { "value" = "0x7F8" } }
+ { "set"
+ { "variable" = "moddebug" }
+ { "operator" = "&" }
+ { "value" = "~0x880" } }
+ { "set"
+ { "variable" = "moddebug" }
+ { "operator" = "|" }
+ { "value" = "0x40" } }
+
+(* Check that moddir supports colons and spaces *)
+ let moddir_colons = "moddir:/kernel:/usr/kernel:/other/modules
+"
+
+ test Solaris_System.lns get moddir_colons =
+ { "moddir"
+ { "1" = "/kernel" }
+ { "2" = "/usr/kernel" }
+ { "3" = "/other/modules" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_soma.aug b/Sharp.Augeas.Test/lens/tests/test_soma.aug
new file mode 100644
index 0000000..5346af6
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_soma.aug
@@ -0,0 +1,15 @@
+module Test_soma =
+
+let conf = "# comment
+User = soma
+
+OptionsItem = \"-msglevel avsync=5 -ao jack -af volnorm -novideo -noconsolecontrols -nojoystick -nolirc -nomouseinput\"
+Debug = 3
+"
+
+test Soma.lns get conf =
+ { "#comment" = "comment" }
+ { "User" = "soma" }
+ {}
+ { "OptionsItem" = "\"-msglevel avsync=5 -ao jack -af volnorm -novideo -noconsolecontrols -nojoystick -nolirc -nomouseinput\"" }
+ { "Debug" = "3" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_spacevars.aug b/Sharp.Augeas.Test/lens/tests/test_spacevars.aug
new file mode 100644
index 0000000..5d02296
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_spacevars.aug
@@ -0,0 +1,21 @@
+module Test_spacevars =
+
+ let conf ="# This a spaced key/value configuration file.
+keyword value
+
+# I like comments
+very.useful-key my=value
+
+a.flag
+"
+
+ let lns = Spacevars.lns
+
+ test lns get conf =
+ { "#comment" = "This a spaced key/value configuration file."}
+ { "keyword" = "value" }
+ {}
+ { "#comment" = "I like comments"}
+ { "very.useful-key" = "my=value" }
+ {}
+ { "a.flag" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_splunk.aug b/Sharp.Augeas.Test/lens/tests/test_splunk.aug
new file mode 100644
index 0000000..c7ec69d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_splunk.aug
@@ -0,0 +1,160 @@
+(**
+ *
+ * This module is used to test the Splunk module for valid extractions.
+ * Written by Tim Brigham.
+ * This file is licensed under the LGPLv2+, like the rest of Augeas.
+ **)
+
+module Test_splunk =
+
+(** inputs.conf **)
+
+ let inputs = "[default]
+host = splunk-node-1.example.com
+enable_autocomplete_login = False
+_meta = metakey::metaval foo::bar
+
+[udp://514]
+connection_host = none
+source = test
+sourcetype = syslog
+
+"
+test Splunk.lns get inputs =
+ { "target" = "default"
+ { "host" = "splunk-node-1.example.com" }
+ { "enable_autocomplete_login" = "False" }
+ { "_meta" = "metakey::metaval foo::bar" }
+ {}}
+ { "target" = "udp://514"
+ { "connection_host" = "none" }
+ { "source" = "test" }
+ { "sourcetype" = "syslog" }
+ {}}
+
+
+(** web.conf **)
+ let web = "[settings]
+enableSplunkWebSSL = 1
+enable_autocomplete_login = False
+"
+
+
+test Splunk.lns get web =
+ { "target" = "settings"
+ { "enableSplunkWebSSL" = "1" }
+ { "enable_autocomplete_login" = "False" }
+ }
+
+
+
+(** props.conf **)
+
+ let props = "[splunkd_stdout]
+PREFIX_SOURCETYPE = False
+SHOULD_LINEMERGE = False
+is_valid = False
+maxDist = 99
+
+"
+
+test Splunk.lns get props =
+ {
+ "target" = "splunkd_stdout"
+ { "PREFIX_SOURCETYPE" = "False" }
+ { "SHOULD_LINEMERGE" = "False" }
+ { "is_valid" = "False" }
+ { "maxDist" = "99" }
+ {}}
+
+(** tenants.conf **)
+ let tenants = "[tenant:default]
+whitelist.0 = *
+"
+
+test Splunk.lns get tenants =
+ { "target" = "tenant:default"
+ { "whitelist.0" = "*" }
+ }
+
+
+
+ let server = "[license]
+active_group = Free
+master_uri = https://myserver.mydomain.com:8089
+
+[general]
+serverName = splunk-node-1
+trustedIP = 127.0.0.1
+guid = XXXXXXX-XXXXXXX-XXXXXXX-XXXXXXX-XXXXXXXXXXXXX
+
+[sslConfig]
+sslKeysfilePassword = $1$XX2X4XX6XXXXXXXXX
+
+"
+
+test Splunk.lns get server =
+ { "target" = "license"
+ { "active_group" = "Free" }
+ { "master_uri" = "https://myserver.mydomain.com:8089" }
+ {}}
+ { "target" = "general"
+ { "serverName" = "splunk-node-1" }
+ { "trustedIP" = "127.0.0.1" }
+ { "guid" = "XXXXXXX-XXXXXXX-XXXXXXX-XXXXXXX-XXXXXXXXXXXXX" }
+ {}}
+ { "target" = "sslConfig"
+ { "sslKeysfilePassword" = "$1$XX2X4XX6XXXXXXXXX" }
+ {}}
+
+
+(* test anonymous attributes *)
+let anon = "
+# master
+serverName = splunk-node-1
+
+# slave
+serverName = splunk-node-2
+
+[general]
+serverName = splunk-node-3
+
+"
+
+test Splunk.lns get anon =
+ { ".anon"
+ { }
+ { "#comment" = "master" }
+ { "serverName" = "splunk-node-1" }
+ { }
+ { "#comment" = "slave" }
+ { "serverName" = "splunk-node-2" }
+ { }
+ }
+ { "target" = "general"
+ { "serverName" = "splunk-node-3" }
+ { }
+ }
+
+
+(* test empty value entry *)
+
+let override = "
+[general]
+# normal entry
+foo = bar
+# override entry
+foo =
+"
+
+test Splunk.lns get override =
+ { ".anon"
+ { }
+ }
+ { "target" = "general"
+ { "#comment" = "normal entry" }
+ { "foo" = "bar" }
+ { "#comment" = "override entry" }
+ { "foo" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_squid.aug b/Sharp.Augeas.Test/lens/tests/test_squid.aug
new file mode 100644
index 0000000..9c450f9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_squid.aug
@@ -0,0 +1,216 @@
+module Test_squid =
+
+let conf = "# comment at the beginning of the file
+
+auth_param negotiate children 5
+acl many_spaces rep_header Content-Disposition -i [[:space:]]{3,}
+acl CONNECT method CONNECT
+# comment in the middle
+ acl local_network src 192.168.1.0/24
+
+http_access allow manager localhost
+http_access allow local_network
+"
+
+test Squid.lns get conf =
+ { "#comment" = "comment at the beginning of the file" }
+ {}
+ { "auth_param"
+ { "scheme" = "negotiate" }
+ { "parameter" = "children" }
+ { "setting" = "5" } }
+ { "acl"
+ { "many_spaces"
+ { "type" = "rep_header" }
+ { "setting" = "Content-Disposition" }
+ { "parameters"
+ { "1" = "-i" }
+ { "2" = "[[:space:]]{3,}" } } } }
+ { "acl"
+ { "CONNECT"
+ { "type" = "method" }
+ { "setting" = "CONNECT" } } }
+ { "#comment" = "comment in the middle" }
+ { "acl"
+ { "local_network"
+ { "type" = "src" }
+ { "setting" = "192.168.1.0/24" } } }
+ {}
+ { "http_access"
+ { "allow" = "manager"
+ { "parameters"
+ { "1" = "localhost" } } } }
+ { "http_access"
+ { "allow" = "local_network" } }
+
+(*
+ This tests the Debian lenny default squid.conf
+ Comments were stripped out
+*)
+
+let debian_lenny_default = "acl all src all
+acl manager proto cache_object
+acl localhost src 127.0.0.1/32
+acl to_localhost dst 127.0.0.0/8
+acl purge method PURGE
+acl CONNECT method CONNECT
+http_access allow manager localhost
+http_access deny manager
+http_access allow purge localhost
+http_access deny purge
+http_access deny !Safe_ports
+http_access deny CONNECT !SSL_ports
+http_access allow localhost
+http_access deny all
+no_cache deny query_no_cache
+icp_access allow localnet
+icp_access deny all
+http_port 3128
+hierarchy_stoplist cgi-bin ?
+access_log /var/log/squid/access.log squid
+refresh_pattern ^ftp: 1440 20% 10080
+refresh_pattern ^gopher: 1440 0% 1440
+refresh_pattern -i (/cgi-bin/|\?) 0 0% 0
+refresh_pattern (Release|Package(.gz)*)$ 0 20% 2880
+refresh_pattern . 0 20% 4320 ignore-reload ignore-auth # testing options
+acl shoutcast rep_header X-HTTP09-First-Line ^ICY\s[0-9]
+upgrade_http0.9 deny shoutcast
+acl apache rep_header Server ^Apache
+broken_vary_encoding allow apache
+extension_methods REPORT MERGE MKACTIVITY CHECKOUT
+hosts_file /etc/hosts
+coredump_dir /var/spool/squid
+"
+
+test Squid.lns get debian_lenny_default =
+ { "acl"
+ { "all"
+ { "type" = "src" }
+ { "setting" = "all" }
+ }
+ }
+ { "acl"
+ { "manager"
+ { "type" = "proto" }
+ { "setting" = "cache_object" }
+ }
+ }
+ { "acl"
+ { "localhost"
+ { "type" = "src" }
+ { "setting" = "127.0.0.1/32" }
+ }
+ }
+ { "acl"
+ { "to_localhost"
+ { "type" = "dst" }
+ { "setting" = "127.0.0.0/8" }
+ }
+ }
+ { "acl"
+ { "purge"
+ { "type" = "method" }
+ { "setting" = "PURGE" }
+ }
+ }
+ { "acl"
+ { "CONNECT"
+ { "type" = "method" }
+ { "setting" = "CONNECT" }
+ }
+ }
+ { "http_access"
+ { "allow" = "manager"
+ { "parameters"
+ { "1" = "localhost" }
+ }
+ }
+ }
+ { "http_access"
+ { "deny" = "manager" }
+ }
+ { "http_access"
+ { "allow" = "purge"
+ { "parameters"
+ { "1" = "localhost" }
+ }
+ }
+ }
+ { "http_access"
+ { "deny" = "purge" }
+ }
+ { "http_access"
+ { "deny" = "!Safe_ports" }
+ }
+ { "http_access"
+ { "deny" = "CONNECT"
+ { "parameters"
+ { "1" = "!SSL_ports" }
+ }
+ }
+ }
+ { "http_access"
+ { "allow" = "localhost" }
+ }
+ { "http_access"
+ { "deny" = "all" }
+ }
+ { "no_cache" = "deny query_no_cache" }
+ { "icp_access" = "allow localnet" }
+ { "icp_access" = "deny all" }
+ { "http_port" = "3128" }
+ { "hierarchy_stoplist" = "cgi-bin ?" }
+ { "access_log" = "/var/log/squid/access.log squid" }
+ { "refresh_pattern" = "^ftp:"
+ { "min" = "1440" }
+ { "percent" = "20" }
+ { "max" = "10080" } }
+ { "refresh_pattern" = "^gopher:"
+ { "min" = "1440" }
+ { "percent" = "0" }
+ { "max" = "1440" } }
+ { "refresh_pattern" = "(/cgi-bin/|\?)"
+ { "case_insensitive" }
+ { "min" = "0" }
+ { "percent" = "0" }
+ { "max" = "0" } }
+ { "refresh_pattern" = "(Release|Package(.gz)*)$"
+ { "min" = "0" }
+ { "percent" = "20" }
+ { "max" = "2880" } }
+ { "refresh_pattern" = "."
+ { "min" = "0" }
+ { "percent" = "20" }
+ { "max" = "4320" }
+ { "option" = "ignore-reload" }
+ { "option" = "ignore-auth" }
+ { "#comment" = "testing options" } }
+ { "acl"
+ { "shoutcast"
+ { "type" = "rep_header" }
+ { "setting" = "X-HTTP09-First-Line" }
+ { "parameters"
+ { "1" = "^ICY\s[0-9]" }
+ }
+ }
+ }
+ { "upgrade_http0.9"
+ { "deny" = "shoutcast" } }
+ { "acl"
+ { "apache"
+ { "type" = "rep_header" }
+ { "setting" = "Server" }
+ { "parameters"
+ { "1" = "^Apache" }
+ }
+ }
+ }
+ { "broken_vary_encoding"
+ { "allow" = "apache" } }
+ { "extension_methods"
+ { "1" = "REPORT" }
+ { "2" = "MERGE" }
+ { "3" = "MKACTIVITY" }
+ { "4" = "CHECKOUT" } }
+ { "hosts_file" = "/etc/hosts" }
+ { "coredump_dir" = "/var/spool/squid" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_ssh.aug b/Sharp.Augeas.Test/lens/tests/test_ssh.aug
new file mode 100644
index 0000000..456624e
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_ssh.aug
@@ -0,0 +1,132 @@
+(* Module: Test_ssh *)
+module Test_ssh =
+
+ let conf =
+"# start
+IdentityFile /etc/ssh/identity.asc
+
+Match final all
+ GSSAPIAuthentication yes
+
+Host suse.cz
+ ForwardAgent yes
+SendEnv LC_LANG
+
+Host *
+ ForwardAgent no
+ForwardX11Trusted yes
+
+# IdentityFile ~/.ssh/identity
+ SendEnv LC_IDENTIFICATION LC_ALL LC_*
+ProxyCommand ssh -q -W %h:%p gateway.example.com
+RemoteForward [1.2.3.4]:20023 localhost:22
+RemoteForward 2221 lhost1:22
+LocalForward 3001 remotehost:3000
+Ciphers aes128-ctr,aes192-ctr
+MACs hmac-md5,hmac-sha1,umac-64@openssh.com
+HostKeyAlgorithms ssh-ed25519-cert-v01@openssh.com,ssh-ed25519,ssh-rsa-cert-v01@openssh.com,ssh-rsa
+KexAlgorithms curve25519-sha256@libssh.org,diffie-hellman-group-exchange-sha256
+PubkeyAcceptedKeyTypes ssh-ed25519-cert-v01@openssh.com,ssh-ed25519,ssh-rsa-cert-v01@openssh.com,ssh-rsa
+"
+
+ test Ssh.lns get conf =
+ { "#comment" = "start" }
+ { "IdentityFile" = "/etc/ssh/identity.asc" }
+ { }
+ { "Match"
+ { "Condition"
+ { "final" = "all" }
+ }
+ { "Settings"
+ { "GSSAPIAuthentication" = "yes" }
+ { }
+ }
+ }
+ { "Host" = "suse.cz"
+ { "ForwardAgent" = "yes" }
+ { "SendEnv"
+ { "1" = "LC_LANG" } }
+ { }
+ }
+ { "Host" = "*"
+ { "ForwardAgent" = "no" }
+ { "ForwardX11Trusted" = "yes" }
+ { }
+ { "#comment" = "IdentityFile ~/.ssh/identity" }
+ { "SendEnv"
+ { "1" = "LC_IDENTIFICATION" }
+ { "2" = "LC_ALL" }
+ { "3" = "LC_*" } }
+ { "ProxyCommand" = "ssh -q -W %h:%p gateway.example.com" }
+ { "RemoteForward"
+ { "[1.2.3.4]:20023" = "localhost:22" }
+ }
+ { "RemoteForward"
+ { "2221" = "lhost1:22" }
+ }
+ { "LocalForward"
+ { "3001" = "remotehost:3000" }
+ }
+ { "Ciphers"
+ { "1" = "aes128-ctr" }
+ { "2" = "aes192-ctr" }
+ }
+ { "MACs"
+ { "1" = "hmac-md5" }
+ { "2" = "hmac-sha1" }
+ { "3" = "umac-64@openssh.com" }
+ }
+ { "HostKeyAlgorithms"
+ { "1" = "ssh-ed25519-cert-v01@openssh.com" }
+ { "2" = "ssh-ed25519" }
+ { "3" = "ssh-rsa-cert-v01@openssh.com" }
+ { "4" = "ssh-rsa" }
+ }
+ { "KexAlgorithms"
+ { "1" = "curve25519-sha256@libssh.org" }
+ { "2" = "diffie-hellman-group-exchange-sha256" }
+ }
+ { "PubkeyAcceptedKeyTypes"
+ { "1" = "ssh-ed25519-cert-v01@openssh.com" }
+ { "2" = "ssh-ed25519" }
+ { "3" = "ssh-rsa-cert-v01@openssh.com" }
+ { "4" = "ssh-rsa" }
+ }
+ }
+
+(* Test: Ssh.lns
+ Proxycommand is case-insensitive *)
+
+test Ssh.lns get "Proxycommand ssh -q test nc -q0 %h 22\n" =
+ { "Proxycommand" = "ssh -q test nc -q0 %h 22" }
+
+(* Test: Ssh.lns
+ GlobalKnownHostsFile *)
+test Ssh.lns get "GlobalKnownHostsFile /etc/ssh/ssh_known_hosts /etc/ssh/ssh_known_hosts2\n" =
+ { "GlobalKnownHostsFile"
+ { "1" = "/etc/ssh/ssh_known_hosts" }
+ { "2" = "/etc/ssh/ssh_known_hosts2" }
+ }
+
+(* Keywords can be separated from their arguments with '=', too *)
+test Ssh.lns get "Host mail.watzmann.net
+ LocalForward=11111 mail.watzmann.net:110\n" =
+ { "Host" = "mail.watzmann.net"
+ { "LocalForward"
+ { "11111" = "mail.watzmann.net:110" } } }
+
+test Ssh.lns get "ForwardAgent=yes\n" =
+ { "ForwardAgent" = "yes" }
+
+test Ssh.lns get "ForwardAgent =\tyes\n" =
+ { "ForwardAgent" = "yes" }
+
+(* Issue #605 *)
+test Ssh.lns get "RekeyLimit 1G 1h\n" =
+ { "RekeyLimit"
+ { "amount" = "1G" }
+ { "duration" = "1h" } }
+
+test Ssh.lns get "RekeyLimit 1G\n" =
+ { "RekeyLimit"
+ { "amount" = "1G" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_sshd.aug b/Sharp.Augeas.Test/lens/tests/test_sshd.aug
new file mode 100644
index 0000000..5e3a49c
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_sshd.aug
@@ -0,0 +1,175 @@
+(* Module: Test_sshd *)
+module Test_sshd =
+
+ let accept_env = "Protocol 2
+AcceptEnv LC_PAPER LC_NAME LC_ADDRESS LC_TELEPHONE LC_MEASUREMENT
+AcceptEnv LC_IDENTIFICATION LC_ALL\n"
+
+ test Sshd.lns get accept_env =
+ { "Protocol" = "2" }
+ { "AcceptEnv"
+ { "1" = "LC_PAPER" }
+ { "2" = "LC_NAME" }
+ { "3" = "LC_ADDRESS" }
+ { "4" = "LC_TELEPHONE" }
+ { "5" = "LC_MEASUREMENT" } }
+ { "AcceptEnv"
+ { "6" = "LC_IDENTIFICATION" }
+ { "7" = "LC_ALL" } }
+
+
+ test Sshd.lns get "HostKey /etc/ssh/ssh_host_rsa_key
+HostKey /etc/ssh/ssh_host_dsa_key\n" =
+ { "HostKey" = "/etc/ssh/ssh_host_rsa_key" }
+ { "HostKey" = "/etc/ssh/ssh_host_dsa_key" }
+
+
+ test Sshd.lns put accept_env after
+ rm "AcceptEnv";
+ rm "AcceptEnv";
+ set "Protocol" "1.5";
+ set "X11Forwarding" "yes"
+ = "Protocol 1.5\nX11Forwarding yes\n"
+
+ test Sshd.lns get "AuthorizedKeysFile %h/.ssh/authorized_keys\n" =
+ { "AuthorizedKeysFile" = "%h/.ssh/authorized_keys" }
+
+ test Sshd.lns get "Subsystem sftp /usr/lib/openssh/sftp-server\n" =
+ { "Subsystem"
+ { "sftp" = "/usr/lib/openssh/sftp-server" } }
+
+ test Sshd.lns get "Subsystem sftp-test /usr/lib/openssh/sftp-server\n" =
+ { "Subsystem"
+ { "sftp-test" = "/usr/lib/openssh/sftp-server" } }
+
+
+
+ let match_blocks = "X11Forwarding yes
+Match User sarko Group pres.*
+ Banner /etc/bienvenue.txt
+ X11Forwarding no
+Match User bush Group pres.* Host white.house.*
+Banner /etc/welcome.txt
+Match Group \"Domain users\"
+ X11Forwarding yes
+"
+ test Sshd.lns get match_blocks =
+ { "X11Forwarding" = "yes"}
+ { "Match"
+ { "Condition" { "User" = "sarko" }
+ { "Group" = "pres.*" } }
+ { "Settings" { "Banner" = "/etc/bienvenue.txt" }
+ { "X11Forwarding" = "no" } } }
+ { "Match"
+ { "Condition" { "User" = "bush" }
+ { "Group" = "pres.*" }
+ { "Host" = "white.house.*" } }
+ { "Settings" { "Banner" = "/etc/welcome.txt" } } }
+ { "Match"
+ { "Condition" { "Group" = "Domain users" } }
+ { "Settings" { "X11Forwarding" = "yes" } } }
+
+ test Sshd.lns put match_blocks after
+ insb "Subsystem" "/Match[1]";
+ set "/Subsystem/sftp" "/usr/libexec/openssh/sftp-server"
+ = "X11Forwarding yes
+Subsystem sftp /usr/libexec/openssh/sftp-server
+Match User sarko Group pres.*
+ Banner /etc/bienvenue.txt
+ X11Forwarding no
+Match User bush Group pres.* Host white.house.*
+Banner /etc/welcome.txt
+Match Group \"Domain users\"
+ X11Forwarding yes\n"
+
+(* Test: Sshd.lns
+ Indent when adding to a Match group *)
+ test Sshd.lns put match_blocks after
+ set "Match[1]/Settings/PermitRootLogin" "yes";
+ set "Match[1]/Settings/#comment" "a comment" =
+"X11Forwarding yes
+Match User sarko Group pres.*
+ Banner /etc/bienvenue.txt
+ X11Forwarding no
+ PermitRootLogin yes
+ # a comment
+Match User bush Group pres.* Host white.house.*
+Banner /etc/welcome.txt
+Match Group \"Domain users\"
+ X11Forwarding yes\n"
+
+
+(* Test: Sshd.lns
+ Parse Ciphers, KexAlgorithms, HostKeyAlgorithms as lists (GH issue #69) *)
+test Sshd.lns get "Ciphers aes256-gcm@openssh.com,aes128-gcm@openssh.com,aes256-ctr,aes128-ctr
+KexAlgorithms diffie-hellman-group-exchange-sha256,diffie-hellman-group14-sha1,diffie-hellman-group-exchange-sha1
+HostKeyAlgorithms ssh-ed25519-cert-v01@openssh.com,ssh-rsa-cert-v01@openssh.com,ssh-ed25519,ssh-rsa\n" =
+ { "Ciphers"
+ { "1" = "aes256-gcm@openssh.com" }
+ { "2" = "aes128-gcm@openssh.com" }
+ { "3" = "aes256-ctr" }
+ { "4" = "aes128-ctr" }
+ }
+ { "KexAlgorithms"
+ { "1" = "diffie-hellman-group-exchange-sha256" }
+ { "2" = "diffie-hellman-group14-sha1" }
+ { "3" = "diffie-hellman-group-exchange-sha1" }
+ }
+ { "HostKeyAlgorithms"
+ { "1" = "ssh-ed25519-cert-v01@openssh.com" }
+ { "2" = "ssh-rsa-cert-v01@openssh.com" }
+ { "3" = "ssh-ed25519" }
+ { "4" = "ssh-rsa" }
+ }
+
+(* Test: Sshd.lns
+ Keys are case-insensitive *)
+test Sshd.lns get "ciPheRs aes256-gcm@openssh.com,aes128-ctr
+maTcH User foo
+ x11forwarding no\n" =
+ { "ciPheRs"
+ { "1" = "aes256-gcm@openssh.com" }
+ { "2" = "aes128-ctr" }
+ }
+ { "maTcH"
+ { "Condition"
+ { "User" = "foo" }
+ }
+ { "Settings"
+ { "x11forwarding" = "no" }
+ }
+ }
+
+(* Test: Sshd.lns
+ Allow AllowGroups in Match groups (GH issue #75) *)
+test Sshd.lns get "Match User foo
+ AllowGroups users\n" =
+ { "Match" { "Condition" { "User" = "foo" } }
+ { "Settings" { "AllowGroups" { "1" = "users" } } } }
+
+(* Test: Sshd.lns
+ Recognize quoted group names with spaces in AllowGroups and similar
+ (Issue #477) *)
+test Sshd.lns get "Match User foo
+ AllowGroups math-domain-users \"access admins\"\n" =
+ { "Match" { "Condition" { "User" = "foo" } }
+ { "Settings"
+ { "AllowGroups"
+ { "1" = "math-domain-users" }
+ { "2" = "access admins" } } } }
+
+test Sshd.lns put "Match User foo\nAllowGroups users\n" after
+ set "/Match/Settings/AllowGroups/1" "all people" =
+ "Match User foo\nAllowGroups \"all people\"\n"
+
+test Sshd.lns put "Match User foo\nAllowGroups users\n" after
+ set "/Match/Settings/AllowGroups/01" "all people" =
+ "Match User foo\nAllowGroups users \"all people\"\n"
+
+test Sshd.lns put "Match User foo\nAllowGroups users\n" after
+ set "/Match/Settings/AllowGroups/01" "people" =
+ "Match User foo\nAllowGroups users people\n"
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_sssd.aug b/Sharp.Augeas.Test/lens/tests/test_sssd.aug
new file mode 100644
index 0000000..b5ea771
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_sssd.aug
@@ -0,0 +1,45 @@
+(*
+Module: Test_sssd
+ Test cases for the sssd lense
+
+Author: Erinn Looney-Triggs
+
+About: License
+ This file is licensed under the LGPLv2+, like the rest of Augeas.
+*)
+module Test_sssd =
+
+let conf = "[domain/example.com]
+#Comment here
+; another comment
+cache_credentials = True
+krb5_store_password_if_offline = True
+ipa_server = _srv_, ipa.example.com
+[sssd]
+services = nss, pam
+config_file_version = 2
+
+domains = example.com
+[nss]
+
+[pam]
+"
+
+test Sssd.lns get conf =
+ { "target" = "domain/example.com"
+ { "#comment" = "Comment here" }
+ { "#comment" = "another comment" }
+ { "cache_credentials" = "True" }
+ { "krb5_store_password_if_offline" = "True" }
+ { "ipa_server" = "_srv_, ipa.example.com" }
+ }
+ { "target" = "sssd"
+ { "services" = "nss, pam" }
+ { "config_file_version" = "2" }
+ { }
+ { "domains" = "example.com" }
+ }
+ { "target" = "nss"
+ { }
+ }
+ { "target" = "pam" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_star.aug b/Sharp.Augeas.Test/lens/tests/test_star.aug
new file mode 100644
index 0000000..8f0064a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_star.aug
@@ -0,0 +1,63 @@
+module Test_star =
+
+let conf = "# @(#)star.dfl 1.2 05/08/09 Copyright 2003 J. Schilling
+#
+# This file is /etc/default/star
+
+STAR_FIFOSIZE= 32m
+
+STAR_FIFOSIZE_MAX= 100m
+
+archive0=/dev/rmt/0 20 0 N
+archive1=/dev/rmt/0n 20 0 n
+archive2=/dev/rmt/1 20 0 y
+archive3=/dev/rmt/1n 20 0
+archive4=/dev/rmt/0 126 0
+archive5=/dev/rmt/0n 126 0
+archive6=/dev/rmt/1 126 0
+archive7=/dev/rmt/1n 126 0
+"
+test Star.lns get conf =
+ { "#comment" = "@(#)star.dfl 1.2 05/08/09 Copyright 2003 J. Schilling" }
+ { }
+ { "#comment" = "This file is /etc/default/star" }
+ { }
+ { "STAR_FIFOSIZE" = "32m" }
+ { }
+ { "STAR_FIFOSIZE_MAX" = "100m" }
+ { }
+ { "archive0"
+ { "device" = "/dev/rmt/0" }
+ { "block" = "20" }
+ { "size" = "0" }
+ { "istape" = "N" } }
+ { "archive1"
+ { "device" = "/dev/rmt/0n" }
+ { "block" = "20" }
+ { "size" = "0" }
+ { "istape" = "n" } }
+ { "archive2"
+ { "device" = "/dev/rmt/1" }
+ { "block" = "20" }
+ { "size" = "0" }
+ { "istape" = "y" } }
+ { "archive3"
+ { "device" = "/dev/rmt/1n" }
+ { "block" = "20" }
+ { "size" = "0" } }
+ { "archive4"
+ { "device" = "/dev/rmt/0" }
+ { "block" = "126" }
+ { "size" = "0" } }
+ { "archive5"
+ { "device" = "/dev/rmt/0n" }
+ { "block" = "126" }
+ { "size" = "0" } }
+ { "archive6"
+ { "device" = "/dev/rmt/1" }
+ { "block" = "126" }
+ { "size" = "0" } }
+ { "archive7"
+ { "device" = "/dev/rmt/1n" }
+ { "block" = "126" }
+ { "size" = "0" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_strongswan.aug b/Sharp.Augeas.Test/lens/tests/test_strongswan.aug
new file mode 100644
index 0000000..82e960f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_strongswan.aug
@@ -0,0 +1,126 @@
+(*
+ Some of the configuration snippets have been copied from the strongSwan
+ source tree.
+*)
+
+module Test_Strongswan =
+
+(* conf/strongswan.conf *)
+let default = "
+# strongswan.conf - strongSwan configuration file
+#
+# Refer to the strongswan.conf(5) manpage for details
+#
+# Configuration changes should be made in the included files
+
+charon {
+ load_modular = yes
+ plugins {
+ include strongswan.d/charon/*.conf
+ }
+}
+
+include strongswan.d/*.conf
+"
+
+test Strongswan.lns get default =
+ { "#comment" = "strongswan.conf - strongSwan configuration file" }
+ { "#comment" = "Refer to the strongswan.conf(5) manpage for details" }
+ { "#comment" = "Configuration changes should be made in the included files" }
+ { "charon"
+ { "load_modular" = "yes" }
+ { "plugins" { "include" = "strongswan.d/charon/*.conf" } }
+ }
+ { "include" = "strongswan.d/*.conf" }
+
+(* conf/strongswan.conf.5.head.in *)
+let man_example = "
+ a = b
+ section-one {
+ somevalue = asdf
+ subsection {
+ othervalue = xxx
+ }
+ # yei, a comment
+ yetanother = zz
+ }
+ section-two {
+ x = 12
+ }
+"
+
+test Strongswan.lns get man_example =
+ { "a" = "b" }
+ { "section-one"
+ { "somevalue" = "asdf" }
+ { "subsection" { "othervalue" = "xxx" } }
+ { "#comment" = "yei, a comment" }
+ { "yetanother" = "zz" }
+ }
+ { "section-two" { "x" = "12" } }
+
+test Strongswan.lns get "foo { bar = baz\n } quux {}\t#quuux\n" =
+ { "foo" { "bar" = "baz" } }
+ { "quux" }
+ { "#comment" = "quuux" }
+
+
+let connection = "
+
+connections {
+ foo {
+ pools = bar, baz
+ proposals = aes256gcm16-aes128gcm16-ecp512, aes256-sha256-sha1-ecp256-modp4096-modp2048, 3des-md5-modp768
+ }
+ children {
+ bar {
+ esp_proposals = aes128-sha256-sha1,3des-md5
+ }
+ }
+}
+"
+
+test Strongswan.lns get connection =
+ { "connections"
+ { "foo"
+ { "#list" = "pools"
+ { "1" = "bar" }
+ { "2" = "baz" }
+ }
+ { "#proposals" = "proposals"
+ { "1"
+ { "1" = "aes256gcm16" }
+ { "2" = "aes128gcm16" }
+ { "3" = "ecp512" }
+ }
+ { "2"
+ { "1" = "aes256" }
+ { "2" = "sha256" }
+ { "3" = "sha1" }
+ { "4" = "ecp256" }
+ { "5" = "modp4096" }
+ { "6" = "modp2048" }
+ }
+ { "3"
+ { "1" = "3des" }
+ { "2" = "md5" }
+ { "3" = "modp768" }
+ }
+ }
+ }
+ { "children"
+ { "bar"
+ { "#proposals" = "esp_proposals"
+ { "1"
+ { "1" = "aes128" }
+ { "2" = "sha256" }
+ { "3" = "sha1" }
+ }
+ { "2"
+ { "1" = "3des" }
+ { "2" = "md5" }
+ }
+ }
+ }
+ }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_stunnel.aug b/Sharp.Augeas.Test/lens/tests/test_stunnel.aug
new file mode 100644
index 0000000..a84b18f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_stunnel.aug
@@ -0,0 +1,38 @@
+module Test_stunnel =
+ let conf ="; Test stunnel-like config file
+; Foo bar baz
+cert = /path/1
+key = /path/2
+
+sslVersion = SSLv3
+
+; another comment
+
+[service1]
+accept = 49999
+connect = servicedest:1234
+
+[service2]
+accept = 1234
+"
+
+ test Stunnel.lns get conf =
+ { ".anon"
+ { "#comment" = "Test stunnel-like config file" }
+ { "#comment" = "Foo bar baz" }
+ { "cert" = "/path/1" }
+ { "key" = "/path/2" }
+ {}
+ { "sslVersion" = "SSLv3" }
+ {}
+ { "#comment" = "another comment" }
+ {}
+ }
+ { "service1"
+ { "accept" = "49999" }
+ { "connect" = "servicedest:1234" }
+ {}
+ }
+ { "service2"
+ { "accept" = "1234" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_subversion.aug b/Sharp.Augeas.Test/lens/tests/test_subversion.aug
new file mode 100644
index 0000000..0090dad
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_subversion.aug
@@ -0,0 +1,118 @@
+(*
+Module: Test_Subversion
+ Provides unit tests and examples for the <Subversion> lens.
+*)
+
+module Test_Subversion =
+
+(* Variable: conf *)
+let conf = "# This file configures various client-side behaviors.
+[auth]
+password-stores = gnome-keyring,kwallet
+store-passwords = no
+store-auth-creds = no
+
+[helpers]
+editor-cmd = /usr/bin/vim
+diff-cmd = /usr/bin/diff
+diff3-cmd = /usr/bin/diff3
+diff3-has-program-arg = yes
+
+[tunnels]
+ssh = $SVN_SSH ssh -o ControlMaster=no
+rsh = /path/to/rsh -l myusername
+
+[miscellany]
+global-ignores = *.o *.lo *.la *.al .libs *.so *.so.[0-9]* *.a *.pyc *.pyo
+ *.rej *~ #*# .#* .*.swp .DS_Store
+# Set log-encoding to the default encoding for log messages
+log-encoding = latin1
+use-commit-times = yes
+no-unlock = yes
+mime-types-file = /path/to/mime.types
+preserved-conflict-file-exts = doc ppt xls od?
+enable-auto-props = yes
+interactive-conflicts = no
+
+[auto-props]
+*.c = svn:eol-style=native
+*.cpp = svn:eol-style=native
+*.h = svn:eol-style=native
+*.dsp = svn:eol-style=CRLF
+*.dsw = svn:eol-style=CRLF
+*.sh = svn:eol-style=native;svn:executable
+*.txt = svn:eol-style=native
+*.png = svn:mime-type=image/png
+*.jpg = svn:mime-type=image/jpeg
+Makefile = svn:eol-style=native
+"
+
+(* Test: Subversion.lns *)
+test Subversion.lns get conf =
+{ "#comment" = "This file configures various client-side behaviors." }
+ { "auth"
+ { "password-stores"
+ { "1" = "gnome-keyring" }
+ { "2" = "kwallet" } }
+ { "store-passwords" = "no" }
+ { "store-auth-creds" = "no" }
+ { }
+ }
+ { "helpers"
+ { "editor-cmd" = "/usr/bin/vim" }
+ { "diff-cmd" = "/usr/bin/diff" }
+ { "diff3-cmd" = "/usr/bin/diff3" }
+ { "diff3-has-program-arg" = "yes" }
+ { }
+ }
+ { "tunnels"
+ { "ssh" = "$SVN_SSH ssh -o ControlMaster=no" }
+ { "rsh" = "/path/to/rsh -l myusername" }
+ { }
+ }
+ { "miscellany"
+ { "global-ignores"
+ { "1" = "*.o" }
+ { "2" = "*.lo" }
+ { "3" = "*.la" }
+ { "4" = "*.al" }
+ { "5" = ".libs" }
+ { "6" = "*.so" }
+ { "7" = "*.so.[0-9]*" }
+ { "8" = "*.a" }
+ { "9" = "*.pyc" }
+ { "10" = "*.pyo" }
+ { "11" = "*.rej" }
+ { "12" = "*~" }
+ { "13" = "#*#" }
+ { "14" = ".#*" }
+ { "15" = ".*.swp" }
+ { "16" = ".DS_Store" } }
+ { "#comment" = "Set log-encoding to the default encoding for log messages" }
+ { "log-encoding" = "latin1" }
+ { "use-commit-times" = "yes" }
+ { "no-unlock" = "yes" }
+ { "mime-types-file" = "/path/to/mime.types" }
+ { "preserved-conflict-file-exts"
+ { "1" = "doc" }
+ { "2" = "ppt" }
+ { "3" = "xls" }
+ { "4" = "od?" } }
+ { "enable-auto-props" = "yes" }
+ { "interactive-conflicts" = "no" }
+ { }
+ }
+ { "auto-props"
+ { "*.c" = "svn:eol-style=native" }
+ { "*.cpp" = "svn:eol-style=native" }
+ { "*.h" = "svn:eol-style=native" }
+ { "*.dsp" = "svn:eol-style=CRLF" }
+ { "*.dsw" = "svn:eol-style=CRLF" }
+ { "*.sh" = "svn:eol-style=native;svn:executable" }
+ { "*.txt" = "svn:eol-style=native" }
+ { "*.png" = "svn:mime-type=image/png" }
+ { "*.jpg" = "svn:mime-type=image/jpeg" }
+ { "Makefile" = "svn:eol-style=native" }
+ }
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_sudoers.aug b/Sharp.Augeas.Test/lens/tests/test_sudoers.aug
new file mode 100644
index 0000000..44228b7
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_sudoers.aug
@@ -0,0 +1,383 @@
+(* Module: Test_sudoers *)
+module Test_sudoers =
+
+let test_user = [ label "user" . Sudoers.sto_to_com_user . Util.eol ]*
+
+(* Test: test_user *)
+test test_user get "root
+@pbuilder
++secre-taries
+@my\ admin\ group
+EXAMPLE\\\\cslack
+%ad.domain.com\\\\sudo-users
+MY\ EX-AMPLE\ 9\\\\cslack\ group
+" =
+ { "user" = "root" }
+ { "user" = "@pbuilder" }
+ { "user" = "+secre-taries" }
+ { "user" = "@my\\ admin\\ group" }
+ { "user" = "EXAMPLE\\\\cslack" }
+ { "user" = "%ad.domain.com\\\\sudo-users" }
+ { "user" = "MY\\ EX-AMPLE\\ 9\\\\cslack\\ group" }
+
+let conf = "
+ Host_Alias LOCALNET = 192.168.0.0/24, localhost
+
+ # User alias specification
+
+User_Alias EXAMPLE_ADMINS = cslack, EXAMPLE\\\\cslack,\
+ EXAMPLE\\\\jmalstrom
+
+# Cmnd alias specification
+
+Cmnd_Alias \
+ DEBIAN_TOOLS \
+ = \
+ /usr/bin/apt-get,\
+ /usr/bin/auto-get, \
+ /usr/bin/dpkg, /usr/bin/dselect, /usr/sbin/dpkg-reconfigure \
+ : PBUILDER = /usr/sbin/pbuilder
+
+ Cmnd_Alias ICAL = /bin/cat /home/rpinson/.kde/share/apps/korganizer/std.ics
+
+ Defaults@LOCALNET !lecture, \
+ \t\t tty_tickets,!fqdn, !!env_reset
+
+Defaults !visiblepw
+
+Defaults:buildd env_keep+=\"APT_CONFIG DEBIAN_FRONTEND SHELL\"
+Defaults!PBUILDER env_keep+=\"HOME ARCH DIST DISTRIBUTION PDEBUILD_PBUILDER\"
+
+# User privilege specification
+root ALL=(ALL) ALL
+root ALL=(: ALL) ALL
+root ALL=(ALL :ALL) ALL
+
+# Members of the admin group may gain root privileges
+%admin ALL=(ALL) ALL, NOPASSWD : NOSETENV: \
+ DEBIAN_TOOLS
+%pbuilder LOCALNET = NOPASSWD: PBUILDER
+www-data +biglab=(rpinson)NOEXEC: ICAL \
+ : \
+ localhost = NOPASSWD: /usr/bin/test
+
+ +secretaries ALPHA = /usr/bin/su [!-]*, !/usr/bin/su *root*
+
+@my\ admin\ group ALL=(root) NOPASSWD: /usr/bin/python /usr/local/sbin/filterlog -iu\\=www /var/log/something.log
+#includedir /etc/sudoers.d
+#include /etc/sudoers.d
+@includedir /etc/sudoers.d
+@include /etc/sudoers.file
+"
+
+ test Sudoers.lns get conf =
+ {}
+ { "Host_Alias"
+ { "alias"
+ { "name" = "LOCALNET" }
+ { "host" = "192.168.0.0/24" }
+ { "host" = "localhost" } } }
+ {}
+ { "#comment" = "User alias specification" }
+ {}
+ { "User_Alias"
+ { "alias"
+ { "name" = "EXAMPLE_ADMINS" }
+ { "user" = "cslack" }
+ { "user" = "EXAMPLE\\\\cslack" }
+ { "user" = "EXAMPLE\\\\jmalstrom" } } }
+ {}
+ { "#comment" = "Cmnd alias specification" }
+ {}
+ { "Cmnd_Alias"
+ { "alias"
+ { "name" = "DEBIAN_TOOLS" }
+ { "command" = "/usr/bin/apt-get" }
+ { "command" = "/usr/bin/auto-get" }
+ { "command" = "/usr/bin/dpkg" }
+ { "command" = "/usr/bin/dselect" }
+ { "command" = "/usr/sbin/dpkg-reconfigure" } }
+ { "alias"
+ { "name" = "PBUILDER" }
+ { "command" = "/usr/sbin/pbuilder" } } }
+ {}
+ { "Cmnd_Alias"
+ { "alias"
+ { "name" = "ICAL" }
+ { "command" = "/bin/cat /home/rpinson/.kde/share/apps/korganizer/std.ics" } } }
+ {}
+ { "Defaults"
+ { "type" = "@LOCALNET" }
+ { "lecture" { "negate" } }
+ { "tty_tickets" }
+ { "fqdn" { "negate" } }
+ { "env_reset" } }
+ {}
+ { "Defaults"
+ { "visiblepw" { "negate" } } }
+ {}
+ { "Defaults"
+ { "type" = ":buildd" }
+ { "env_keep"
+ { "append" }
+ { "var" = "APT_CONFIG" }
+ { "var" = "DEBIAN_FRONTEND" }
+ { "var" = "SHELL" } } }
+ { "Defaults"
+ { "type" = "!PBUILDER" }
+ { "env_keep"
+ { "append" }
+ { "var" = "HOME" }
+ { "var" = "ARCH" }
+ { "var" = "DIST" }
+ { "var" = "DISTRIBUTION" }
+ { "var" = "PDEBUILD_PBUILDER" } } }
+ {}
+ { "#comment" = "User privilege specification" }
+ { "spec"
+ { "user" = "root" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" } } } }
+ { "spec"
+ { "user" = "root" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_group" = "ALL" } } } }
+ { "spec"
+ { "user" = "root" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" }
+ { "runas_group" = "ALL" } } } }
+ {}
+ { "#comment" = "Members of the admin group may gain root privileges" }
+ { "spec"
+ { "user" = "%admin" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" } }
+ { "command" = "DEBIAN_TOOLS"
+ { "tag" = "NOPASSWD" }
+ { "tag" = "NOSETENV" } } } }
+ { "spec"
+ { "user" = "%pbuilder" }
+ { "host_group"
+ { "host" = "LOCALNET" }
+ { "command" = "PBUILDER"
+ { "tag" = "NOPASSWD" } } } }
+ { "spec"
+ { "user" = "www-data" }
+ { "host_group"
+ { "host" = "+biglab" }
+ { "command" = "ICAL"
+ { "runas_user" = "rpinson" }
+ { "tag" = "NOEXEC" } } }
+ { "host_group"
+ { "host" = "localhost" }
+ { "command" = "/usr/bin/test"
+ { "tag" = "NOPASSWD" } } } }
+ {}
+ { "spec"
+ { "user" = "+secretaries" }
+ { "host_group"
+ { "host" = "ALPHA" }
+ { "command" = "/usr/bin/su [!-]*" }
+ { "command" = "/usr/bin/su *root*"
+ { "negate" } } } }
+ {}
+ { "spec"
+ { "user" = "@my\ admin\ group" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "/usr/bin/python /usr/local/sbin/filterlog -iu\\=www /var/log/something.log"
+ { "runas_user" = "root" }
+ { "tag" = "NOPASSWD" }
+ }
+ }
+ }
+ { "#includedir" = "/etc/sudoers.d" }
+ { "#include" = "/etc/sudoers.d" }
+ { "@includedir" = "/etc/sudoers.d" }
+ { "@include" = "/etc/sudoers.file" }
+
+test Sudoers.parameter_integer_bool
+ put "umask = 022"
+ after set "/umask/negate" "" = "!umask"
+
+test Sudoers.parameter_integer_bool
+ put "!!!!!umask"
+ after rm "/umask/negate"; set "/umask" "022" = "!!!!umask = 022"
+
+test Sudoers.parameter_integer_bool put "!!!!umask = 022" after
+ set "/umask/negate" "" = "!!!!!umask"
+
+test Sudoers.parameter_integer_bool get "!!!umask = 022" = *
+
+(* BZ 566134 *)
+
+let s = "Defaults secure_path = /sbin:/bin:/usr/sbin:/usr/bin\n"
+test Sudoers.lns get s =
+ { "Defaults"
+ { "secure_path" = "/sbin:/bin:/usr/sbin:/usr/bin" } }
+
+(* #724 - check timestamp_timeout is extracted OK if unsigned OR negative (-1) *)
+test Sudoers.lns get "Defaults timestamp_timeout = 3\n" =
+ { "Defaults"
+ { "timestamp_timeout" = "3" } }
+test Sudoers.lns get "Defaults timestamp_timeout = -1\n" =
+ { "Defaults"
+ { "timestamp_timeout" = "-1" } }
+
+(* Ticket #206, comments at end of lines *)
+let commenteol = "#
+Defaults targetpw # ask for
+Host_Alias LOCALNET = 192.168.0.0/24 # foo eol
+root ALL=(ALL) ALL # all root\n"
+test Sudoers.lns get commenteol =
+ {}
+ { "Defaults"
+ { "targetpw" }
+ { "#comment" = "ask for" } }
+ { "Host_Alias"
+ { "alias"
+ { "name" = "LOCALNET" }
+ { "host" = "192.168.0.0/24" } }
+ { "#comment" = "foo eol" } }
+ { "spec"
+ { "user" = "root" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" } } }
+ { "#comment" = "all root" } }
+
+(* Allow = in commands *)
+test Sudoers.spec get "root ALL= /usr/bin/mylvmbackup --configfile=/etc/mylvbackup_amanda.conf\n" =
+ { "spec"
+ { "user" = "root" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "/usr/bin/mylvmbackup --configfile=/etc/mylvbackup_amanda.conf" } } }
+
+(* Allow commands without full path
+ -- if they begin with a lowcase letter *)
+test Sudoers.spec get "root ALL= sudoedit /etc/passwd\n" =
+ { "spec"
+ { "user" = "root" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "sudoedit /etc/passwd" } } }
+
+(* Ticket #263, quoted values in defaults line *)
+let defaults_spaces = "Defaults passprompt=\"Your SecurID Passcode: \"\n"
+test Sudoers.lns get defaults_spaces =
+ { "Defaults"
+ { "passprompt" = "\"Your SecurID Passcode: \"" }
+ }
+
+(* Ticket #263, quoted values in defaults line (string/bool parameters) *)
+let defaults_spaces_strbool = "Defaults mailfrom=\"root@example.com\"\n"
+test Sudoers.lns get defaults_spaces_strbool =
+ { "Defaults"
+ { "mailfrom" = "\"root@example.com\"" }
+ }
+
+(* Test: Sudoers.spec
+ Spec users can be aliases *)
+test Sudoers.spec get "APACHE_ADMIN ALL= ALL\n" =
+ { "spec"
+ { "user" = "APACHE_ADMIN" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL" } } }
+
+(* Test: Sudoers.spec
+ Ticket #337: allow period in user names *)
+test Sudoers.spec get "user.one somehost = ALL\n" =
+ { "spec"
+ { "user" = "user.one" }
+ { "host_group"
+ { "host" = "somehost" }
+ { "command" = "ALL" }
+ }
+ }
+
+(* Test: Sudoers.spec
+ Ticket #370: allow underscore in group names *)
+test Sudoers.spec get "%sudo_users ALL=(ALL) ALL\n" =
+ { "spec"
+ { "user" = "%sudo_users" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" } }
+ }
+ }
+
+(* Test: Sudoers.spec
+ allow ad group names with backslashes *)
+test Sudoers.spec get "%ad.domain.com\\\\sudo-users ALL=(ALL) ALL\n" =
+ { "spec"
+ { "user" = "%ad.domain.com\\\\sudo-users" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" } }
+ }
+ }
+
+(* Test: Sudoers.spec
+ Ticket #376: allow uppercase characters in user names *)
+test Sudoers.spec get "%GrOup ALL = (ALL) ALL\n" =
+ { "spec"
+ { "user" = "%GrOup" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" } }
+ }
+ }
+
+(* Test: Sudoers.spec
+ allow + in user-/groupnames *)
+test Sudoers.spec get "group+user somehost = ALL\n" =
+ { "spec"
+ { "user" = "group+user" }
+ { "host_group"
+ { "host" = "somehost" }
+ { "command" = "ALL" }
+ }
+ }
+
+(* Test: Sudoers.spec
+ GH #262: Sudoers lens doesn't support `!` for command aliases *)
+test Sudoers.spec get "%opssudoers ALL=(ALL) ALL, !!!BANNED\n" =
+ { "spec"
+ { "user" = "%opssudoers" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" } }
+ { "command" = "BANNED"
+ { "negate" } }
+ }
+ }
+
+(* Test: Sudoers.spec
+ Handle multiple `!` properly in commands *)
+test Sudoers.spec get "%opssudoers ALL=(ALL) ALL, !!!/bin/mount\n" =
+ { "spec"
+ { "user" = "%opssudoers" }
+ { "host_group"
+ { "host" = "ALL" }
+ { "command" = "ALL"
+ { "runas_user" = "ALL" } }
+ { "command" = "/bin/mount"
+ { "negate" } }
+ }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_sysconfig.aug b/Sharp.Augeas.Test/lens/tests/test_sysconfig.aug
new file mode 100644
index 0000000..660844f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_sysconfig.aug
@@ -0,0 +1,162 @@
+(* Test for sysconfig lens *)
+module Test_sysconfig =
+
+ let lns = Sysconfig.lns
+
+ let eth_static = "# Intel Corporation PRO/100 VE Network Connection
+DEVICE=eth0
+BOOTPROTO=static
+BROADCAST=172.31.0.255
+HWADDR=ab:cd:ef:12:34:56
+export IPADDR=172.31.0.31 # this is our IP
+#DHCP_HOSTNAME=host.example.com
+NETMASK=255.255.255.0
+NETWORK=172.31.0.0
+unset ONBOOT # We do not want this var
+"
+ let empty_val = "EMPTY=\nDEVICE=eth0\n"
+
+ let key_brack = "SOME_KEY[1]=\nDEVICE=eth0\n"
+
+ test lns get eth_static =
+ { "#comment" = "Intel Corporation PRO/100 VE Network Connection" }
+ { "DEVICE" = "eth0" }
+ { "BOOTPROTO" = "static" }
+ { "BROADCAST" = "172.31.0.255" }
+ { "HWADDR" = "ab:cd:ef:12:34:56" }
+ { "IPADDR" = "172.31.0.31"
+ { "export" }
+ { "#comment" = "this is our IP" } }
+ { "#comment" = "DHCP_HOSTNAME=host.example.com" }
+ { "NETMASK" = "255.255.255.0" }
+ { "NETWORK" = "172.31.0.0" }
+ { "@unset"
+ { "1" = "ONBOOT" }
+ { "#comment" = "We do not want this var" } }
+
+ test lns put eth_static after
+ set "BOOTPROTO" "dhcp" ;
+ rm "IPADDR" ;
+ rm "BROADCAST" ;
+ rm "NETMASK" ;
+ rm "NETWORK"
+ = "# Intel Corporation PRO/100 VE Network Connection
+DEVICE=eth0
+BOOTPROTO=dhcp
+HWADDR=ab:cd:ef:12:34:56
+#DHCP_HOSTNAME=host.example.com
+unset ONBOOT # We do not want this var
+"
+ test lns get empty_val =
+ { "EMPTY" = "" } { "DEVICE" = "eth0" }
+
+ test lns get key_brack =
+ { "SOME_KEY[1]" = "" } { "DEVICE" = "eth0" }
+
+ test lns get "smartd_opts=\"-q never\"\n" =
+ { "smartd_opts" = "-q never" }
+
+ test lns get "var=val \n" = { "var" = "val" }
+
+ test lns get ". /etc/java/java.conf\n" =
+ { ".source" = "/etc/java/java.conf" }
+
+ (* Quoted strings and other oddities *)
+ test lns get "var=\"foo 'bar'\"\n" =
+ { "var" = "foo 'bar'" }
+
+ test lns get "var=\"eth0\"\n" =
+ { "var" = "eth0" }
+
+ test lns get "var='eth0'\n" =
+ { "var" = "eth0" }
+
+ test lns get "var='Some \"funny\" value'\n" =
+ { "var" = "Some \"funny\" value" }
+
+ test lns get "var=\"\\\"\"\n" =
+ { "var" = "\\\"" }
+
+ test lns get "var=\\\"\n" =
+ { "var" = "\\\"" }
+
+ test lns get "var=ab#c\n" =
+ { "var" = "ab#c" }
+
+ test lns get "var='ab#c'\n" =
+ { "var" = "ab#c" }
+
+ test lns get "var=\"ab#c\"\n" =
+ { "var" = "ab#c" }
+
+ test lns get "var=\"ab#c\"\n" =
+ { "var" = "ab#c" }
+
+ (* We don't handle backticks *)
+ test lns get
+ "var=`grep nameserver /etc/resolv.conf | head -1`\n" = *
+
+ test lns get "var=ab #c\n" =
+ { "var" = "ab"
+ { "#comment" = "c" } }
+
+ test lns put "var=ab #c\n"
+ after rm "/var/#comment" = "var=ab\n"
+
+ test lns put "var=ab\n"
+ after set "/var/#comment" "this is a var" =
+ "var=ab # this is a var\n"
+
+ (* Test semicolons *)
+ test lns get "VAR1=\"this;is;a;test\"\nVAR2=this;\n" =
+ { "VAR1" = "this;is;a;test" }
+ { "VAR2" = "this" }
+
+ (* BZ 761246 *)
+ test lns get "DEVICE=\"eth0\";\n" =
+ { "DEVICE" = "eth0" }
+
+ test lns put "DEVICE=\"eth0\";\n" after
+ set "/DEVICE" "em1" = "DEVICE=\"em1\";\n"
+
+ test lns get "DEVICE=\"eth0\"; # remark\n" =
+ { "DEVICE" = "eth0" }
+ { "#comment" = "remark" }
+
+ (* Bug 109: allow a bare export *)
+ test lns get "export FOO\n" =
+ { "@export"
+ { "1" = "FOO" } }
+
+ (* Check we put quotes in when changes require them *)
+ test lns put "var=\"v\"\n" after rm "/foo" =
+ "var=\"v\"\n"
+
+ test lns put "var=v\n" after set "/var" "v w"=
+ "var=\"v w\"\n"
+
+ test lns put "var='v'\n" after set "/var" "v w"=
+ "var='v w'\n"
+
+ test lns put "var=v\n" after set "/var" "v'w"=
+ "var=\"v'w\"\n"
+
+ test lns put "var=v\n" after set "/var" "v\"w"=
+ "var='v\"w'\n"
+
+ (* RHBZ#1043636: empty comment lines after comments *)
+ test lns get "#MOUNTD_NFS_V3\n#\n" =
+ { "#comment" = "MOUNTD_NFS_V3" }
+
+ (* Handle leading whitespace at the beginning of a line correctly *)
+ test lns get " var=value\n" = { "var" = "value" }
+
+ test lns put " var=value\n" after set "/var" "val2" = " var=val2\n"
+
+ test lns get "\t \tvar=value\n" = { "var" = "value" }
+
+ test lns get " export var=value\n" = { "var" = "value" { "export" } }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_sysconfig_route.aug b/Sharp.Augeas.Test/lens/tests/test_sysconfig_route.aug
new file mode 100644
index 0000000..a3c2275
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_sysconfig_route.aug
@@ -0,0 +1,15 @@
+(*
+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" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_sysctl.aug b/Sharp.Augeas.Test/lens/tests/test_sysctl.aug
new file mode 100644
index 0000000..42f31c0
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_sysctl.aug
@@ -0,0 +1,51 @@
+(*
+Module: Test_Sysctl
+ Provides unit tests and examples for the <Sysctl> lens.
+*)
+
+module Test_sysctl =
+
+(* Variable: default_sysctl *)
+let default_sysctl = "# Kernel sysctl configuration file
+# Controls IP packet forwarding
+net.ipv4.ip_forward = 0
+
+net.ipv4.conf.default.rp_filter = 1
+net.ipv4.conf.default.accept_source_route = \t0
+kernel.sysrq = 0
+
+; Semicolon comments are also allowed
+net.ipv4.tcp_mem = \t393216 524288 786432
+"
+
+(* Test: Sysctl.lns *)
+test Sysctl.lns get default_sysctl =
+ { "#comment" = "Kernel sysctl configuration file" }
+ { "#comment" = "Controls IP packet forwarding"}
+ { "net.ipv4.ip_forward" = "0" }
+ { }
+ { "net.ipv4.conf.default.rp_filter" = "1" }
+ { "net.ipv4.conf.default.accept_source_route" = "0" }
+ { "kernel.sysrq" = "0" }
+ { }
+ { "#comment" = "Semicolon comments are also allowed" }
+ { "net.ipv4.tcp_mem" = "393216 524288 786432" }
+
+(* Test: Sysctl.lns *)
+test Sysctl.lns put default_sysctl after
+ set "net.ipv4.ip_forward" "1" ;
+ rm "net.ipv4.conf.default.rp_filter" ;
+ rm "net.ipv4.conf.default.accept_source_route" ;
+ rm "kernel.sysrq"
+ = "# Kernel sysctl configuration file
+# Controls IP packet forwarding
+net.ipv4.ip_forward = 1
+
+
+; Semicolon comments are also allowed
+net.ipv4.tcp_mem = \t393216 524288 786432
+"
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_syslog.aug b/Sharp.Augeas.Test/lens/tests/test_syslog.aug
new file mode 100644
index 0000000..2621491
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_syslog.aug
@@ -0,0 +1,356 @@
+module Test_syslog =
+
+ let conf="# $FreeBSD: src/etc/syslog.conf,v 1.30.2.1 2009/08/03 08:13:06 kensmith Exp $
+#
+
+daemon.info /var/log/cvsupd.log
+security.* -/var/log/security
+*.notice;authpriv.none;kern.debug;lpr.info;mail.crit;news.err /var/log/messages
+uucp,news.crit /var/log/spooler
+*.emerg *
+daemon.!info /var/log/foo
+daemon.<=info /var/log/foo
+daemon.!<=info /var/log/foo
+*.* @syslog.far.away
+*.* @syslog.far.away:123
+*.* @@syslog.far.away
+*.* @@syslog.far.away:123
+*.* @[2001::1]:514
+*.* foo,bar
+*.* |\"/usr/bin/soft arg\"
+!startslip
+# get that out
+*.* /var/log/slip.log
+!pppd,ppp
+
+*.* /var/log/ppp.log
+!+startslip
+*.* /var/log/slip.log
+!-startslip
+*.* /var/log/slip.log
+#!pppd
+*.* /var/log/ppp.log
++foo.example.com
+daemon.info /var/log/cvsupd.log
++foo.example.com,bar.example.com
+daemon.info /var/log/cvsupd.log
+#+bar.example.com
+daemon.info /var/log/cvsupd.log
+-foo.example.com
+daemon.info /var/log/cvsupd.log
++*
+daemon.info /var/log/cvsupd.log
+!*
+daemon.info /var/log/cvsupd.log
+*.=debug;\
+ auth,authpriv.none;\
+ news.none;mail.none -/var/log/debug
+# !pppd
+"
+
+ test Syslog.lns get conf =
+ { "#comment" = "$FreeBSD: src/etc/syslog.conf,v 1.30.2.1 2009/08/03 08:13:06 kensmith Exp $" }
+ { }
+ { }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/cvsupd.log" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "security" } { "level" = "*" } }
+ { "action" { "no_sync" } { "file" = "/var/log/security" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "notice" } }
+ { "selector" { "facility" = "authpriv" } { "level" = "none" } }
+ { "selector" { "facility" = "kern" } { "level" = "debug" } }
+ { "selector" { "facility" = "lpr" } { "level" = "info" } }
+ { "selector" { "facility" = "mail" } { "level" = "crit" } }
+ { "selector" { "facility" = "news" } { "level" = "err" } }
+ { "action" { "file" = "/var/log/messages" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "uucp" } { "facility" = "news" } { "level" = "crit" } }
+ { "action" { "file" = "/var/log/spooler" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "emerg" } }
+ { "action" { "user" = "*" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "comparison" = "!" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/foo" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "comparison" = "<=" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/foo" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "comparison" = "!<=" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/foo" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "protocol" = "@" } { "hostname" = "syslog.far.away" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "protocol" = "@" } { "hostname" = "syslog.far.away" } { "port" = "123" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "protocol" = "@@" } { "hostname" = "syslog.far.away" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "protocol" = "@@" } { "hostname" = "syslog.far.away" } { "port" = "123" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "protocol" = "@" } { "hostname" = "[2001::1]" } { "port" = "514" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "user" = "foo" } { "user" = "bar" } }
+ }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "program" = "\"/usr/bin/soft arg\"" } }
+ }
+ { "program"
+ { "program" = "startslip" }
+ { "#comment" = "get that out" }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "file" = "/var/log/slip.log" } }
+ }
+ }
+ { "program"
+ { "program" = "pppd" }
+ { "program" = "ppp" }
+ { }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "file" = "/var/log/ppp.log" } }
+ }
+ }
+ { "program"
+ { "program" = "startslip" }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "file" = "/var/log/slip.log" } }
+ }
+ }
+ { "program"
+ { "reverse" }
+ { "program" = "startslip" }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "file" = "/var/log/slip.log" } }
+ }
+ }
+ { "program"
+ { "program" = "pppd" }
+ { "entry"
+ { "selector" { "facility" = "*" } { "level" = "*" } }
+ { "action" { "file" = "/var/log/ppp.log" } }
+ }
+ }
+ { "hostname"
+ { "hostname" = "foo.example.com" }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/cvsupd.log" } }
+ }
+ }
+ { "hostname"
+ { "hostname" = "foo.example.com" }
+ { "hostname" = "bar.example.com" }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/cvsupd.log" } }
+ }
+ }
+ { "hostname"
+ { "hostname" = "bar.example.com" }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/cvsupd.log" } }
+ }
+ }
+ { "hostname"
+ { "reverse" }
+ { "hostname" = "foo.example.com" }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/cvsupd.log" } }
+ }
+ }
+ { "hostname"
+ { "hostname" = "*" }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/cvsupd.log" } }
+ }
+ }
+ { "program"
+ { "program" = "*" }
+ { "entry"
+ { "selector" { "facility" = "daemon" } { "level" = "info" } }
+ { "action" { "file" = "/var/log/cvsupd.log" } } }
+ { "entry"
+ { "selector" { "facility" = "*" } { "comparison" = "=" } { "level" = "debug" } }
+ { "selector" { "facility" = "auth" } { "facility" = "authpriv" } { "level" = "none" } }
+ { "selector" { "facility" = "news" } { "level" = "none" } }
+ { "selector" { "facility" = "mail" } { "level" = "none" } }
+ { "action" { "no_sync" } { "file" = "/var/log/debug" } } }
+ { "#comment" = "!pppd" }
+ }
+
+ (* changing file *)
+ test Syslog.lns put "*.* /var\n" after
+ set "/entry[1]/action/file" "/foo"
+ = "*.* /foo\n"
+
+ (* changing file to discard *)
+ test Syslog.lns put "*.* /var\n" after
+ rm "/entry[1]/action/file" ;
+ set "/entry[1]/action/discard" ""
+ = "*.* ~\n"
+
+ (* removing entry *)
+ test Syslog.lns put "*.* /var\n" after
+ rm "/entry[1]"
+ = ""
+
+ (* changing facility and level *)
+ test Syslog.lns put "*.* /var\n" after
+ set "/entry[1]/selector/facility" "daemon" ;
+ set "/entry[1]/selector/level" "info"
+ = "daemon.info /var\n"
+
+ (* insert a facility *)
+ test Syslog.lns put "daemon.* /var\n" after
+ insa "facility" "/entry/selector/facility" ;
+ set "/entry/selector/facility[2]" "mail"
+ = "daemon,mail.* /var\n"
+
+ (* creating an entry *)
+ test Syslog.lns put "" after
+ set "/entry/selector/facility" "daemon" ;
+ set "/entry/selector/level" "info" ;
+ set "/entry/action/file" "/var"
+ = "daemon.info\t/var\n"
+
+ (* inserting an entry before *)
+ test Syslog.lns put "*.* /var\n" after
+ insb "entry" "/entry" ;
+ set "/entry[1]/selector/facility" "daemon" ;
+ set "/entry[1]/selector/level" "info" ;
+ set "/entry[1]/action/file" "/foo"
+ = "daemon.info /foo\n*.*\t/var\n"
+
+ (* inserting an entry after *)
+ test Syslog.lns put "*.* /var\n" after
+ insa "entry" "/entry" ;
+ set "/entry[2]/selector/facility" "daemon" ;
+ set "/entry[2]/selector/level" "info" ;
+ set "/entry[2]/action/file" "/foo"
+ = "*.* /var\ndaemon.info\t/foo\n"
+
+ (* insert sync on a file *)
+ test Syslog.lns put "*.* /var\n" after
+ insb "no_sync" "/entry/action/file"
+ = "*.* -/var\n"
+
+ (* changing file to remote host *)
+ test Syslog.lns put "*.* /var\n" after
+ rm "/entry/action/file" ;
+ set "/entry/action/protocol" "@" ;
+ set "/entry/action/hostname" "far.far.away"
+ = "*.* @far.far.away\n"
+
+ (* changing file to remote host *)
+ test Syslog.lns put "*.* /var/lib\n" after
+ rm "/entry/action/file" ;
+ set "/entry/action/protocol" "@@" ;
+ set "/entry/action/hostname" "far.far.away"
+ = "*.* @@far.far.away\n"
+
+ (* changing file to * *)
+ test Syslog.lns put "*.* /var\n" after
+ rm "/entry/action/file" ;
+ set "/entry/action/user" "*"
+ = "*.* *\n"
+
+ (* changing file to users *)
+ test Syslog.lns put "*.* /var\n" after
+ rm "/entry/action/file" ;
+ set "/entry/action/user[1]" "john" ;
+ set "/entry/action/user[2]" "paul" ;
+ set "/entry/action/user[3]" "george" ;
+ set "/entry/action/user[4]" "ringo"
+ = "*.* john,paul,george,ringo\n"
+
+ (* changing file to program *)
+ test Syslog.lns put "*.* /var\n" after
+ rm "/entry/action/file" ;
+ set "/entry/action/program" "/usr/bin/foo"
+ = "*.* |/usr/bin/foo\n"
+
+ (* inserting a matching program *)
+ test Syslog.lns put "" after
+ insa "program" "/" ;
+ set "/program/program" "foo"
+ = "!foo\n"
+
+ (* inserting an entry to a matching program *)
+ test Syslog.lns put "!foo\n" after
+ set "/program/entry/selector/facility" "*" ;
+ set "/program/entry/selector/level" "*" ;
+ set "/program/entry/action/file" "/foo"
+ = "!foo\n*.*\t/foo\n"
+
+ (* inserting a matching hostname *)
+ test Syslog.lns put "" after
+ insa "hostname" "/" ;
+ set "/hostname/hostname" "foo.foo.away"
+ = "+foo.foo.away\n"
+
+ (* inserting an entry to a matching hostname *)
+ test Syslog.lns put "+foo.foo.away\n" after
+ set "/hostname/entry/selector/facility" "*" ;
+ set "/hostname/entry/selector/level" "*" ;
+ set "/hostname/entry/action/file" "/foo"
+ = "+foo.foo.away\n*.*\t/foo\n"
+
+ (* inserting a reverse matching hostname *)
+ test Syslog.lns put "" after
+ insa "hostname" "/" ;
+ set "/hostname/reverse" "" ;
+ set "/hostname/hostname" "foo.foo.away"
+ = "-foo.foo.away\n"
+
+ (* tokens can contain capital letters *)
+ test Syslog.lns get "LOCAL5.* -/var/log/foo.log\n" =
+ { "entry"
+ { "selector"
+ { "facility" = "LOCAL5" }
+ { "level" = "*" }
+ }
+ { "action"
+ { "no_sync" }
+ { "file" = "/var/log/foo.log" }
+ }
+ }
+
+ (* test for commented out statements *)
+ test Syslog.lns put "" after
+ set "#comment" "!pppd" = "# !pppd\n"
+
+ (* allow space before comments *)
+ test Syslog.lns get " \t# space comment\n" =
+ { "#comment" = "space comment" }
+
+ test Syslog.lns get "include /etc/syslog.d\n" =
+ { "include" = "/etc/syslog.d" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_systemd.aug b/Sharp.Augeas.Test/lens/tests/test_systemd.aug
new file mode 100644
index 0000000..19c5707
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_systemd.aug
@@ -0,0 +1,355 @@
+(*
+Module: Test_Systemd
+ Provides unit tests and examples for the <Systemd> lens.
+*)
+
+module Test_Systemd =
+
+(* Variable: desc *)
+let desc = "[Unit]
+Description=RPC
+Description=RPC bind service
+Description=RPC bind\\
+service
+Description= Resets System Activity Logs
+"
+(* Test: Systemd.lns *)
+test Systemd.lns get desc =
+ { "Unit"
+ { "Description"
+ { "value" = "RPC" }
+ }
+ { "Description"
+ { "value" = "RPC bind service" }
+ }
+ { "Description"
+ { "value" = "RPC bind\
+service" }
+ }
+ { "Description"
+ { "value" = "Resets System Activity Logs" }
+ }
+ }
+
+(* Variable: multi *)
+let multi = "[Unit]
+After=syslog.target network.target
+Also=canberra-system-shutdown.service canberra-system-shutdown-reboot.service
+Before=sysinit.target shutdown.target
+CapabilityBoundingSet=CAP_SYS_ADMIN CAP_SETUID CAP_SETGID
+Conflicts=emergency.service emergency.target
+ControlGroup=%R/user/%I/shared cpu:/
+ListenNetlink=kobject-uevent 1
+Requires=shutdown.target umount.target final.target
+Sockets=udev-control.socket udev-kernel.socket
+WantedBy=halt.target poweroff.target
+Wants=local-fs.target swap.target
+Wants=local-fs.target \
+swap.target
+Wants=local-fs.target\
+swap.target
+Wants= local-fs.target
+"
+(* Test: Systemd.lns *)
+test Systemd.lns get multi =
+ { "Unit"
+ { "After"
+ { "value" = "syslog.target" }
+ { "value" = "network.target" }
+ }
+ { "Also"
+ { "value" = "canberra-system-shutdown.service" }
+ { "value" = "canberra-system-shutdown-reboot.service" }
+ }
+ { "Before"
+ { "value" = "sysinit.target" }
+ { "value" = "shutdown.target" }
+ }
+ { "CapabilityBoundingSet"
+ { "value" = "CAP_SYS_ADMIN" }
+ { "value" = "CAP_SETUID" }
+ { "value" = "CAP_SETGID" }
+ }
+ { "Conflicts"
+ { "value" = "emergency.service" }
+ { "value" = "emergency.target" }
+ }
+ { "ControlGroup"
+ { "value" = "%R/user/%I/shared" }
+ { "value" = "cpu:/" }
+ }
+ { "ListenNetlink"
+ { "value" = "kobject-uevent" }
+ { "value" = "1" }
+ }
+ { "Requires"
+ { "value" = "shutdown.target" }
+ { "value" = "umount.target" }
+ { "value" = "final.target" }
+ }
+ { "Sockets"
+ { "value" = "udev-control.socket" }
+ { "value" = "udev-kernel.socket" }
+ }
+ { "WantedBy"
+ { "value" = "halt.target" }
+ { "value" = "poweroff.target" }
+ }
+ { "Wants"
+ { "value" = "local-fs.target" }
+ { "value" = "swap.target" }
+ }
+ { "Wants"
+ { "value" = "local-fs.target" }
+ { "value" = "swap.target" }
+ }
+ { "Wants"
+ { "value" = "local-fs.target" }
+ { "value" = "swap.target" }
+ }
+ { "Wants"
+ { "value" = "local-fs.target" }
+ }
+ }
+
+(* Variable: exec *)
+let exec = "[Service]
+ExecStart=/bin/ls
+ExecReload=/bin/kill -USR1 $MAINPID
+ExecStart=/sbin/rpcbind -w
+ExecStartPost=/bin/systemctl disable firstboot-graphical.service firstboot-text.service
+ExecStartPre=/sbin/modprobe -qa $SUPPORTED_DRIVERS
+ExecStop=/usr/sbin/aiccu stop
+ExecStopPost=-/bin/systemctl poweroff
+ExecStopPost=@/bin/systemctl poweroff
+ExecStopPost=-@/bin/systemctl poweroff
+ExecStopPost=/bin/systemctl\
+poweroff
+"
+(* Test: Systemd.lns *)
+test Systemd.lns get exec =
+ { "Service"
+ { "ExecStart"
+ { "command" = "/bin/ls" }
+ }
+ { "ExecReload"
+ { "command" = "/bin/kill" }
+ { "arguments"
+ { "1" = "-USR1" }
+ { "2" = "$MAINPID" }
+ }
+ }
+ { "ExecStart"
+ { "command" = "/sbin/rpcbind" }
+ { "arguments"
+ { "1" = "-w" }
+ }
+ }
+ { "ExecStartPost"
+ { "command" = "/bin/systemctl" }
+ { "arguments"
+ { "1" = "disable" }
+ { "2" = "firstboot-graphical.service" }
+ { "3" = "firstboot-text.service" }
+ }
+ }
+ { "ExecStartPre"
+ { "command" = "/sbin/modprobe" }
+ { "arguments"
+ { "1" = "-qa" }
+ { "2" = "$SUPPORTED_DRIVERS" }
+ }
+ }
+ { "ExecStop"
+ { "command" = "/usr/sbin/aiccu" }
+ { "arguments"
+ { "1" = "stop" }
+ }
+ }
+ { "ExecStopPost"
+ { "ignoreexit" }
+ { "command" = "/bin/systemctl" }
+ { "arguments"
+ { "1" = "poweroff" }
+ }
+ }
+ { "ExecStopPost"
+ { "arg0" }
+ { "command" = "/bin/systemctl" }
+ { "arguments"
+ { "1" = "poweroff" }
+ }
+ }
+ { "ExecStopPost"
+ { "ignoreexit" }
+ { "arg0" }
+ { "command" = "/bin/systemctl" }
+ { "arguments"
+ { "1" = "poweroff" }
+ }
+ }
+ { "ExecStopPost"
+ { "command" = "/bin/systemctl" }
+ { "arguments"
+ { "1" = "poweroff" }
+ }
+ }
+ }
+
+(* Variable: env *)
+let env = "[Service]
+Environment=LANG=C
+Environment=LANG=C FOO=BAR
+Environment=LANG= LANGUAGE= LC_CTYPE= LC_NUMERIC= LC_TIME= LC_COLLATE= LC_MONETARY= LC_MESSAGES= LC_PAPER= LC_NAME= LC_ADDRESS= LC_TELEPHONE= LC_MEASUREMENT= LC_IDENTIFICATION=
+Environment=LANG=C\
+FOO=BAR
+Environment=\"LANG=foo bar\" FOO=BAR
+Environment=OPTIONS=\"-LS0-6d\"
+Environment=OPTIONS='-LS0-6d'
+Environment=VAR=\"with some spaces\" VAR2='more spaces'
+Environment=VAR='with some spaces'
+"
+(* Test: Systemd.lns *)
+test Systemd.lns get env =
+ { "Service"
+ { "Environment"
+ { "LANG" = "C" }
+ }
+ { "Environment"
+ { "LANG" = "C" }
+ { "FOO" = "BAR" }
+ }
+ { "Environment"
+ { "LANG" }
+ { "LANGUAGE" }
+ { "LC_CTYPE" }
+ { "LC_NUMERIC" }
+ { "LC_TIME" }
+ { "LC_COLLATE" }
+ { "LC_MONETARY" }
+ { "LC_MESSAGES" }
+ { "LC_PAPER" }
+ { "LC_NAME" }
+ { "LC_ADDRESS" }
+ { "LC_TELEPHONE" }
+ { "LC_MEASUREMENT" }
+ { "LC_IDENTIFICATION" }
+ }
+ { "Environment"
+ { "LANG" = "C" }
+ { "FOO" = "BAR" }
+ }
+ { "Environment"
+ { "LANG" = "foo bar" }
+ { "FOO" = "BAR" }
+ }
+ { "Environment"
+ { "OPTIONS" = "\"-LS0-6d\"" }
+ }
+ { "Environment"
+ { "OPTIONS" = "'-LS0-6d'" }
+ }
+ { "Environment"
+ { "VAR" = "\"with some spaces\"" }
+ { "VAR2" = "'more spaces'" }
+ }
+ { "Environment"
+ { "VAR" = "'with some spaces'" }
+ }
+ }
+
+(* Variable: unit *)
+let unit = "# This file is part of systemd.
+#
+
+# See systemd.special(7) for details
+
+.include /etc/example
+
+[Unit]
+Description=Locale Service
+# Add another file
+.include /etc/example
+
+[Service]
+ExecStart=/lib/systemd/systemd-localed
+Type=dbus
+BusName=org.freedesktop.locale1
+CapabilityBoundingSet=
+
+"
+(* Test: Systemd.lns *)
+test Systemd.lns get unit =
+ { "#comment" = "This file is part of systemd." }
+ {}
+ { }
+ { "#comment" = "See systemd.special(7) for details" }
+ { }
+ { ".include" = "/etc/example" }
+ { }
+ { "Unit"
+ { "Description"
+ { "value" = "Locale Service" }
+ }
+ { "#comment" = "Add another file" }
+ { ".include" = "/etc/example" }
+ { }
+ }
+ { "Service"
+ { "ExecStart"
+ { "command" = "/lib/systemd/systemd-localed" }
+ }
+ { "Type"
+ { "value" = "dbus" }
+ }
+ { "BusName"
+ { "value" = "org.freedesktop.locale1" }
+ }
+ { "CapabilityBoundingSet" }
+ { }
+ }
+
+(* Test: Systemd.lns
+ Values can contain backslashes *)
+test Systemd.entry_command get "ExecStart=/usr/bin/find /var/lib/sudo -exec /usr/bin/touch -t 198501010000 '{}' \073\n" =
+ { "ExecStart"
+ { "command" = "/usr/bin/find" }
+ { "arguments"
+ { "1" = "/var/lib/sudo" }
+ { "2" = "-exec" }
+ { "3" = "/usr/bin/touch" }
+ { "4" = "-t" }
+ { "5" = "198501010000" }
+ { "6" = "'{}'" }
+ { "7" = "\073" }
+ }
+ }
+
+let exec_tmux = "ExecStart=/usr/bin/tmux unbind-key -a; \
+ kill-window -t anaconda:shell; \
+ bind-key ? list-keys\n"
+
+(* Test: Systemd.lns
+ Semicolons are permitted in entry values, e.g. as part of a command *)
+test Systemd.entry_command get exec_tmux =
+ { "ExecStart"
+ { "command" = "/usr/bin/tmux" }
+ { "arguments"
+ { "1" = "unbind-key" }
+ { "2" = "-a;" }
+ { "3" = "kill-window" }
+ { "4" = "-t" }
+ { "5" = "anaconda:shell;" }
+ { "6" = "bind-key" }
+ { "7" = "?" }
+ { "8" = "list-keys" } } }
+
+(* Test: Systemd.lns
+ # and ; are OK for standalone comments, but # only for EOL comments *)
+test Systemd.lns get "[Service]\n# hash\n; semicolon\nExecStart=/bin/echo # hash\n" =
+ { "Service"
+ { "#comment" = "hash" }
+ { "#comment" = "semicolon" }
+ { "ExecStart"
+ { "command" = "/bin/echo" }
+ { "#comment" = "hash" } } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_termcap.aug b/Sharp.Augeas.Test/lens/tests/test_termcap.aug
new file mode 100644
index 0000000..7e31aba
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_termcap.aug
@@ -0,0 +1,443 @@
+module Test_termcap =
+
+(* Sample termcap entry with escaped ':''s *)
+let termcap = "vt420pc|DEC VT420 w/PC keyboard:\\
+ :@7=\\E[4~:F1=\\E[23~:F2=\\E[24~:F3=\\E[11;2~:F4=\\E[12;2~:\\
+ :F5=\\E[13;2~:F6=\\E[14;2~:F7=\\E[15;2~:F8=\\E[17;2~:\\
+ :F9=\\E[18;2~:FA=\\E[19;2~:FB=\\E[20;2~:FC=\\E[21;2~:\\
+ :FD=\\E[23;2~:FE=\\E[24;2~:FF=\\E[23~:FG=\\E[24~:FH=\\E[25~:\\
+ :FI=\\E[26~:FJ=\\E[28~:FK=\\E[29~:FL=\\E[31~:FM=\\E[32~:\\
+ :FN=\\E[33~:FO=\\E[34~:FP=\\E[35~:FQ=\\E[36~:FR=\\E[23;2~:\\
+ :FS=\\E[24;2~:FT=\\E[25;2~:FU=\\E[26;2~:FV=\\E[28;2~:\\
+ :FW=\\E[29;2~:FX=\\E[31;2~:FY=\\E[32;2~:FZ=\\E[33;2~:\\
+ :Fa=\\E[34;2~:Fb=\\E[35;2~:Fc=\\E[36;2~:\\
+ :S6=USR_TERM\\:vt420pcdos\\::k1=\\E[11~:k2=\\E[12~:\\
+ :k3=\\E[13~:k4=\\E[14~:k5=\\E[15~:k6=\\E[17~:k7=\\E[18~:\\
+ :k8=\\E[19~:k9=\\E[20~:k;=\\E[21~:kD=\\177:kh=\\E[H:\\
+ :..px=\\EP1;1|%?%{16}%p1%>%t%{0}%e%{21}%p1%>%t%{1}%e%{25}%p1%>%t%{2}%e%{27}%p1%>%t%{3}%e%{30}%p1%>%t%{4}%e%{5}%;%p1%+%d/%p2%s\E\\\\:\\
+ :tc=vt420:
+"
+
+test Termcap.lns get termcap =
+ { "record"
+ { "name" = "vt420pc" }
+ { "name" = "DEC VT420 w/PC keyboard" }
+ { "capability" = "@7=\\E[4~" }
+ { "capability" = "F1=\\E[23~" }
+ { "capability" = "F2=\\E[24~" }
+ { "capability" = "F3=\\E[11;2~" }
+ { "capability" = "F4=\\E[12;2~" }
+ { "capability" = "F5=\\E[13;2~" }
+ { "capability" = "F6=\\E[14;2~" }
+ { "capability" = "F7=\\E[15;2~" }
+ { "capability" = "F8=\\E[17;2~" }
+ { "capability" = "F9=\\E[18;2~" }
+ { "capability" = "FA=\\E[19;2~" }
+ { "capability" = "FB=\\E[20;2~" }
+ { "capability" = "FC=\\E[21;2~" }
+ { "capability" = "FD=\\E[23;2~" }
+ { "capability" = "FE=\\E[24;2~" }
+ { "capability" = "FF=\\E[23~" }
+ { "capability" = "FG=\\E[24~" }
+ { "capability" = "FH=\\E[25~" }
+ { "capability" = "FI=\\E[26~" }
+ { "capability" = "FJ=\\E[28~" }
+ { "capability" = "FK=\\E[29~" }
+ { "capability" = "FL=\\E[31~" }
+ { "capability" = "FM=\\E[32~" }
+ { "capability" = "FN=\\E[33~" }
+ { "capability" = "FO=\\E[34~" }
+ { "capability" = "FP=\\E[35~" }
+ { "capability" = "FQ=\\E[36~" }
+ { "capability" = "FR=\\E[23;2~" }
+ { "capability" = "FS=\\E[24;2~" }
+ { "capability" = "FT=\\E[25;2~" }
+ { "capability" = "FU=\\E[26;2~" }
+ { "capability" = "FV=\\E[28;2~" }
+ { "capability" = "FW=\\E[29;2~" }
+ { "capability" = "FX=\\E[31;2~" }
+ { "capability" = "FY=\\E[32;2~" }
+ { "capability" = "FZ=\\E[33;2~" }
+ { "capability" = "Fa=\\E[34;2~" }
+ { "capability" = "Fb=\\E[35;2~" }
+ { "capability" = "Fc=\\E[36;2~" }
+ { "capability" = "S6=USR_TERM\\:vt420pcdos\\:" }
+ { "capability" = "k1=\\E[11~" }
+ { "capability" = "k2=\\E[12~" }
+ { "capability" = "k3=\\E[13~" }
+ { "capability" = "k4=\\E[14~" }
+ { "capability" = "k5=\\E[15~" }
+ { "capability" = "k6=\\E[17~" }
+ { "capability" = "k7=\\E[18~" }
+ { "capability" = "k8=\\E[19~" }
+ { "capability" = "k9=\\E[20~" }
+ { "capability" = "k;=\\E[21~" }
+ { "capability" = "kD=\\177" }
+ { "capability" = "kh=\\E[H" }
+ { "capability" = "..px=\\EP1;1|%?%{16}%p1%>%t%{0}%e%{21}%p1%>%t%{1}%e%{25}%p1%>%t%{2}%e%{27}%p1%>%t%{3}%e%{30}%p1%>%t%{4}%e%{5}%;%p1%+%d/%p2%s\\E\\\\" }
+ { "capability" = "tc=vt420" }
+ }
+
+let termcap2 = "tws-generic|dku7102|Bull Questar tws terminals:\\
+ :am:es:hs:mi:ms:xn:xo:xs@:\\
+ :co#80:it#8:li#24:ws#80:\\
+ :AL=\\E[%dL:DC=\\E[%dP:DL=\\E[%dM:DO=\\E[%dB:LE=\\E[%dD:\\
+ :RI=\\E[%dC:UP=\\E[%dA:al=\\E[L:bl=^G:bt=\\E[Z:cd=\\E[J:ce=\\E[K:\\
+ :cl=\\E[2J:cm=\\E[%i%d;%df:cr=^M:ct=\\E[3g:dc=\\E[P:dl=\\E[M:\\
+ :do=^J:ds=\\EPY99\\:98\\E\\\\\\E[0;98v\\E[2J\\E[v:ei=\\E[4l:\\
+ :fs=\\E[v:ho=\\E[H:i1=\\E[?=h\\Ec\\E`\\E[?>h\\EPY99\\:98\\E\\\\\\\\:\\
+ :i2=\\Eb\\E[?<h:im=\\E[4h:\\
+ :is=\\E[5;>;12;18;?<l\\E[=h\\EP1s\\E\\\\\\E[\\027p:\\
+ :k1=\\E[1u\\027:k2=\\E[2u\\027:k3=\\E[3u\\027:k4=\\E[4u\\027:\\
+ :k5=\\E[5u\\027:k6=\\E[6u\\027:k7=\\E[7u\\027:k8=\\E[8u\\027:\\
+ :kD=\\E[P:kb=^H:kd=\\E[B:kh=\\E[H:kl=\\E[D:kr=\\E[C:ku=\\E[A:\\
+ :le=^H:ll=\\E[H\\E[A:mb=\\E[0;5m:me=\\E[0m\\017:mh=\\E[0;2m:\\
+ :mr=\\E[0;7m:nd=\\E[C:rs=\\E[?=h\\Ec:se=\\E[m:sf=^J:so=\\E[0;7m:\\
+ :st=\\EH:ta=\\E[I:te=\\E[0;98v\\E[2J\\E[v:\\
+ :ti=\\E[?>h\\EPY99\\:98\\E\\\\\\\\:\\
+ :ts=\\EPY99\\:98\\E\\\\\\E[0;98v\\E[2;7m:ue=\\E[m:up=\\E[A:\\
+ :us=\\E[0;4m:ve=\\E[r:vi=\\E[1r:
+"
+
+test Termcap.lns get termcap2 =
+ { "record"
+ { "name" = "tws-generic" }
+ { "name" = "dku7102" }
+ { "name" = "Bull Questar tws terminals" }
+ { "capability" = "am" }
+ { "capability" = "es" }
+ { "capability" = "hs" }
+ { "capability" = "mi" }
+ { "capability" = "ms" }
+ { "capability" = "xn" }
+ { "capability" = "xo" }
+ { "capability" = "xs@" }
+ { "capability" = "co#80" }
+ { "capability" = "it#8" }
+ { "capability" = "li#24" }
+ { "capability" = "ws#80" }
+ { "capability" = "AL=\\E[%dL" }
+ { "capability" = "DC=\\E[%dP" }
+ { "capability" = "DL=\\E[%dM" }
+ { "capability" = "DO=\\E[%dB" }
+ { "capability" = "LE=\\E[%dD" }
+ { "capability" = "RI=\\E[%dC" }
+ { "capability" = "UP=\\E[%dA" }
+ { "capability" = "al=\\E[L" }
+ { "capability" = "bl=^G" }
+ { "capability" = "bt=\\E[Z" }
+ { "capability" = "cd=\\E[J" }
+ { "capability" = "ce=\\E[K" }
+ { "capability" = "cl=\\E[2J" }
+ { "capability" = "cm=\\E[%i%d;%df" }
+ { "capability" = "cr=^M" }
+ { "capability" = "ct=\\E[3g" }
+ { "capability" = "dc=\\E[P" }
+ { "capability" = "dl=\\E[M" }
+ { "capability" = "do=^J" }
+ { "capability" = "ds=\\EPY99\\:98\\E\\\\\\E[0;98v\\E[2J\\E[v" }
+ { "capability" = "ei=\\E[4l" }
+ { "capability" = "fs=\\E[v" }
+ { "capability" = "ho=\\E[H" }
+ { "capability" = "i1=\\E[?=h\\Ec\\E`\\E[?>h\\EPY99\\:98\\E\\\\\\\\" }
+ { "capability" = "i2=\\Eb\\E[?<h" }
+ { "capability" = "im=\\E[4h" }
+ { "capability" = "is=\\E[5;>;12;18;?<l\\E[=h\\EP1s\\E\\\\\\E[\\027p" }
+ { "capability" = "k1=\\E[1u\\027" }
+ { "capability" = "k2=\\E[2u\\027" }
+ { "capability" = "k3=\\E[3u\\027" }
+ { "capability" = "k4=\\E[4u\\027" }
+ { "capability" = "k5=\\E[5u\\027" }
+ { "capability" = "k6=\\E[6u\\027" }
+ { "capability" = "k7=\\E[7u\\027" }
+ { "capability" = "k8=\\E[8u\\027" }
+ { "capability" = "kD=\\E[P" }
+ { "capability" = "kb=^H" }
+ { "capability" = "kd=\\E[B" }
+ { "capability" = "kh=\\E[H" }
+ { "capability" = "kl=\\E[D" }
+ { "capability" = "kr=\\E[C" }
+ { "capability" = "ku=\\E[A" }
+ { "capability" = "le=^H" }
+ { "capability" = "ll=\\E[H\\E[A" }
+ { "capability" = "mb=\\E[0;5m" }
+ { "capability" = "me=\\E[0m\\017" }
+ { "capability" = "mh=\\E[0;2m" }
+ { "capability" = "mr=\\E[0;7m" }
+ { "capability" = "nd=\\E[C" }
+ { "capability" = "rs=\\E[?=h\\Ec" }
+ { "capability" = "se=\\E[m" }
+ { "capability" = "sf=^J" }
+ { "capability" = "so=\\E[0;7m" }
+ { "capability" = "st=\\EH" }
+ { "capability" = "ta=\\E[I" }
+ { "capability" = "te=\\E[0;98v\\E[2J\\E[v" }
+ { "capability" = "ti=\\E[?>h\\EPY99\\:98\\E\\\\\\\\" }
+ { "capability" = "ts=\\EPY99\\:98\\E\\\\\\E[0;98v\\E[2;7m" }
+ { "capability" = "ue=\\E[m" }
+ { "capability" = "up=\\E[A" }
+ { "capability" = "us=\\E[0;4m" }
+ { "capability" = "ve=\\E[r" }
+ { "capability" = "vi=\\E[1r" }
+ }
+
+let termcap3 = "stv52|MiNT virtual console:\\
+ :am:ms:\\
+ :co#80:it#8:li#30:\\
+ :%1=\\EH:&8=\\EK:F1=\\Ep:F2=\\Eq:F3=\\Er:F4=\\Es:F5=\\Et:F6=\\Eu:\\
+ :F7=\\Ev:F8=\\Ew:F9=\\Ex:FA=\\Ey:al=\\EL:bl=^G:cd=\\EJ:ce=\\EK:\\
+ :cl=\\EE:cm=\\EY%+ %+ :cr=^M:dl=\\EM:do=\\EB:ho=\\EH:k1=\\EP:\\
+ :k2=\\EQ:k3=\\ER:k4=\\ES:k5=\\ET:k6=\\EU:k7=\\EV:k8=\\EW:k9=\\EX:\\
+ :k;=\\EY:kD=\\177:kI=\\EI:kN=\\Eb:kP=\\Ea:kb=^H:kd=\\EB:kh=\\EE:\\
+ :kl=\\ED:kr=\\EC:ku=\\EA:le=^H:mb=\\Er:md=\\EyA:me=\\Ez_:mh=\\Em:\\
+ :mr=\\Ep:nd=\\EC:nw=2*\\r\\n:op=\\Eb@\\EcO:r1=\\Ez_\\Eb@\\EcA:\\
+ :se=\\Eq:sf=2*\\n:so=\\Ep:sr=2*\\EI:ta=^I:te=\\Ev\\E. \\Ee\\Ez_:\\
+ :ti=\\Ev\\Ee\\Ez_:ue=\\EzH:up=\\EA:us=\\EyH:ve=\\E. \\Ee:vi=\\Ef:\\
+ :vs=\\E.\":
+"
+
+test Termcap.lns get termcap3 =
+ { "record"
+ { "name" = "stv52" }
+ { "name" = "MiNT virtual console" }
+ { "capability" = "am" }
+ { "capability" = "ms" }
+ { "capability" = "co#80" }
+ { "capability" = "it#8" }
+ { "capability" = "li#30" }
+ { "capability" = "%1=\\EH" }
+ { "capability" = "&8=\\EK" }
+ { "capability" = "F1=\\Ep" }
+ { "capability" = "F2=\\Eq" }
+ { "capability" = "F3=\\Er" }
+ { "capability" = "F4=\\Es" }
+ { "capability" = "F5=\\Et" }
+ { "capability" = "F6=\\Eu" }
+ { "capability" = "F7=\\Ev" }
+ { "capability" = "F8=\\Ew" }
+ { "capability" = "F9=\\Ex" }
+ { "capability" = "FA=\\Ey" }
+ { "capability" = "al=\\EL" }
+ { "capability" = "bl=^G" }
+ { "capability" = "cd=\\EJ" }
+ { "capability" = "ce=\\EK" }
+ { "capability" = "cl=\\EE" }
+ { "capability" = "cm=\\EY%+ %+ " }
+ { "capability" = "cr=^M" }
+ { "capability" = "dl=\\EM" }
+ { "capability" = "do=\\EB" }
+ { "capability" = "ho=\\EH" }
+ { "capability" = "k1=\\EP" }
+ { "capability" = "k2=\\EQ" }
+ { "capability" = "k3=\\ER" }
+ { "capability" = "k4=\\ES" }
+ { "capability" = "k5=\\ET" }
+ { "capability" = "k6=\\EU" }
+ { "capability" = "k7=\\EV" }
+ { "capability" = "k8=\\EW" }
+ { "capability" = "k9=\\EX" }
+ { "capability" = "k;=\\EY" }
+ { "capability" = "kD=\\177" }
+ { "capability" = "kI=\\EI" }
+ { "capability" = "kN=\\Eb" }
+ { "capability" = "kP=\\Ea" }
+ { "capability" = "kb=^H" }
+ { "capability" = "kd=\\EB" }
+ { "capability" = "kh=\\EE" }
+ { "capability" = "kl=\\ED" }
+ { "capability" = "kr=\\EC" }
+ { "capability" = "ku=\\EA" }
+ { "capability" = "le=^H" }
+ { "capability" = "mb=\\Er" }
+ { "capability" = "md=\\EyA" }
+ { "capability" = "me=\\Ez_" }
+ { "capability" = "mh=\\Em" }
+ { "capability" = "mr=\\Ep" }
+ { "capability" = "nd=\\EC" }
+ { "capability" = "nw=2*\\r\\n" }
+ { "capability" = "op=\\Eb@\\EcO" }
+ { "capability" = "r1=\\Ez_\\Eb@\\EcA" }
+ { "capability" = "se=\\Eq" }
+ { "capability" = "sf=2*\\n" }
+ { "capability" = "so=\\Ep" }
+ { "capability" = "sr=2*\\EI" }
+ { "capability" = "ta=^I" }
+ { "capability" = "te=\\Ev\\E. \\Ee\\Ez_" }
+ { "capability" = "ti=\\Ev\\Ee\\Ez_" }
+ { "capability" = "ue=\\EzH" }
+ { "capability" = "up=\\EA" }
+ { "capability" = "us=\\EyH" }
+ { "capability" = "ve=\\E. \\Ee" }
+ { "capability" = "vi=\\Ef" }
+ { "capability" = "vs=\\E.\"" }
+ }
+
+let termcap4 = "rbcomm|IBM PC with RBcomm and EMACS keybindings:\\
+ :am:bw:mi:ms:xn:\\
+ :co#80:it#8:li#25:\\
+ :AL=\\E[%dL:DL=\\E[%dM:al=^K:bl=^G:bt=\\E[Z:cd=^F5:ce=^P^P:\\
+ :cl=^L:cm=\\037%r%+ %+ :cr=^M:cs=\\E[%i%d;%dr:dc=^W:dl=^Z:\\
+ :dm=:do=^C:ec=\\E[%dX:ed=:ei=^]:im=^\\:\\
+ :is=\\017\\035\\E(B\\E)0\\E[?7h\\E[?3l\\E[>8g:kb=^H:kd=^N:\\
+ :ke=\\E>:kh=^A:kl=^B:kr=^F:ks=\\E=:ku=^P:le=^H:mb=\\E[5m:\\
+ :md=\\E[1m:me=\\E[m:mk=\\E[8m:mr=^R:nd=^B:nw=^M\\ED:\\
+ :r1=\\017\\E(B\\E)0\\025\\E[?3l\\E[>8g:rc=\\E8:rp=\\030%.%.:\\
+ :sc=\\E7:se=^U:sf=\\ED:so=^R:sr=\\EM:ta=^I:te=:ti=:ue=^U:up=^^:\\
+ :us=^T:ve=\\E[?25h:vi=\\E[?25l:
+"
+
+test Termcap.lns get termcap4 =
+ { "record"
+ { "name" = "rbcomm" }
+ { "name" = "IBM PC with RBcomm and EMACS keybindings" }
+ { "capability" = "am" }
+ { "capability" = "bw" }
+ { "capability" = "mi" }
+ { "capability" = "ms" }
+ { "capability" = "xn" }
+ { "capability" = "co#80" }
+ { "capability" = "it#8" }
+ { "capability" = "li#25" }
+ { "capability" = "AL=\\E[%dL" }
+ { "capability" = "DL=\\E[%dM" }
+ { "capability" = "al=^K" }
+ { "capability" = "bl=^G" }
+ { "capability" = "bt=\\E[Z" }
+ { "capability" = "cd=^F5" }
+ { "capability" = "ce=^P^P" }
+ { "capability" = "cl=^L" }
+ { "capability" = "cm=\\037%r%+ %+ " }
+ { "capability" = "cr=^M" }
+ { "capability" = "cs=\\E[%i%d;%dr" }
+ { "capability" = "dc=^W" }
+ { "capability" = "dl=^Z" }
+ { "capability" = "dm=" }
+ { "capability" = "do=^C" }
+ { "capability" = "ec=\\E[%dX" }
+ { "capability" = "ed=" }
+ { "capability" = "ei=^]" }
+ { "capability" = "im=^\\" }
+ { "capability" = "is=\\017\\035\\E(B\\E)0\\E[?7h\\E[?3l\\E[>8g" }
+ { "capability" = "kb=^H" }
+ { "capability" = "kd=^N" }
+ { "capability" = "ke=\\E>" }
+ { "capability" = "kh=^A" }
+ { "capability" = "kl=^B" }
+ { "capability" = "kr=^F" }
+ { "capability" = "ks=\\E=" }
+ { "capability" = "ku=^P" }
+ { "capability" = "le=^H" }
+ { "capability" = "mb=\\E[5m" }
+ { "capability" = "md=\\E[1m" }
+ { "capability" = "me=\\E[m" }
+ { "capability" = "mk=\\E[8m" }
+ { "capability" = "mr=^R" }
+ { "capability" = "nd=^B" }
+ { "capability" = "nw=^M\\ED" }
+ { "capability" = "r1=\\017\\E(B\\E)0\\025\\E[?3l\\E[>8g" }
+ { "capability" = "rc=\\E8" }
+ { "capability" = "rp=\\030%.%." }
+ { "capability" = "sc=\\E7" }
+ { "capability" = "se=^U" }
+ { "capability" = "sf=\\ED" }
+ { "capability" = "so=^R" }
+ { "capability" = "sr=\\EM" }
+ { "capability" = "ta=^I" }
+ { "capability" = "te=" }
+ { "capability" = "ti=" }
+ { "capability" = "ue=^U" }
+ { "capability" = "up=^^" }
+ { "capability" = "us=^T" }
+ { "capability" = "ve=\\E[?25h" }
+ { "capability" = "vi=\\E[?25l" }
+ }
+
+let termcap5 = "rxvt+pcfkeys|fragment for PC-style fkeys:\\
+ :#2=\\E[7$:#3=\\E[2$:#4=\\E[d:%c=\\E[6$:%e=\\E[5$:%i=\\E[c:\\
+ :*4=\\E[3$:*6=\\E[4~:*7=\\E[8$:@0=\\E[1~:@7=\\E[8~:F1=\\E[23~:\\
+ :F2=\\E[24~:F3=\\E[25~:F4=\\E[26~:F5=\\E[28~:F6=\\E[29~:\\
+ :F7=\\E[31~:F8=\\E[32~:F9=\\E[33~:FA=\\E[34~:FB=\\E[23$:\\
+ :FC=\\E[24$:FD=\\E[11\\136:FE=\\E[12\\136:FF=\\E[13\\136:FG=\\E[14\\136:\\
+ :FH=\\E[15\\136:FI=\\E[17\\136:FJ=\\E[18\\136:FK=\\E[19\\136:FL=\\E[20\\136:\\
+ :FM=\\E[21\\136:FN=\\E[23\\136:FO=\\E[24\\136:FP=\\E[25\\136:FQ=\\E[26\\136:\\
+ :FR=\\E[28\\136:FS=\\E[29\\136:FT=\\E[31\\136:FU=\\E[32\\136:FV=\\E[33\\136:\\
+ :FW=\\E[34\\136:FX=\\E[23@:FY=\\E[24@:k1=\\E[11~:k2=\\E[12~:\\
+ :k3=\\E[13~:k4=\\E[14~:k5=\\E[15~:k6=\\E[17~:k7=\\E[18~:\\
+ :k8=\\E[19~:k9=\\E[20~:k;=\\E[21~:kD=\\E[3~:kE=\\E[8\\136:kF=\\E[a:\\
+ :kI=\\E[2~:kN=\\E[6~:kP=\\E[5~:kR=\\E[b:kd=\\E[B:kh=\\E[7~:\\
+ :kl=\\E[D:kr=\\E[C:ku=\\E[A:
+"
+
+test Termcap.lns get termcap5 =
+ { "record"
+ { "name" = "rxvt+pcfkeys" }
+ { "name" = "fragment for PC-style fkeys" }
+ { "capability" = "#2=\\E[7$" }
+ { "capability" = "#3=\\E[2$" }
+ { "capability" = "#4=\\E[d" }
+ { "capability" = "%c=\\E[6$" }
+ { "capability" = "%e=\\E[5$" }
+ { "capability" = "%i=\\E[c" }
+ { "capability" = "*4=\\E[3$" }
+ { "capability" = "*6=\\E[4~" }
+ { "capability" = "*7=\\E[8$" }
+ { "capability" = "@0=\\E[1~" }
+ { "capability" = "@7=\\E[8~" }
+ { "capability" = "F1=\\E[23~" }
+ { "capability" = "F2=\\E[24~" }
+ { "capability" = "F3=\\E[25~" }
+ { "capability" = "F4=\\E[26~" }
+ { "capability" = "F5=\\E[28~" }
+ { "capability" = "F6=\\E[29~" }
+ { "capability" = "F7=\\E[31~" }
+ { "capability" = "F8=\\E[32~" }
+ { "capability" = "F9=\\E[33~" }
+ { "capability" = "FA=\\E[34~" }
+ { "capability" = "FB=\\E[23$" }
+ { "capability" = "FC=\\E[24$" }
+ { "capability" = "FD=\\E[11\\136" }
+ { "capability" = "FE=\\E[12\\136" }
+ { "capability" = "FF=\\E[13\\136" }
+ { "capability" = "FG=\\E[14\\136" }
+ { "capability" = "FH=\\E[15\\136" }
+ { "capability" = "FI=\\E[17\\136" }
+ { "capability" = "FJ=\\E[18\\136" }
+ { "capability" = "FK=\\E[19\\136" }
+ { "capability" = "FL=\\E[20\\136" }
+ { "capability" = "FM=\\E[21\\136" }
+ { "capability" = "FN=\\E[23\\136" }
+ { "capability" = "FO=\\E[24\\136" }
+ { "capability" = "FP=\\E[25\\136" }
+ { "capability" = "FQ=\\E[26\\136" }
+ { "capability" = "FR=\\E[28\\136" }
+ { "capability" = "FS=\\E[29\\136" }
+ { "capability" = "FT=\\E[31\\136" }
+ { "capability" = "FU=\\E[32\\136" }
+ { "capability" = "FV=\\E[33\\136" }
+ { "capability" = "FW=\\E[34\\136" }
+ { "capability" = "FX=\\E[23@" }
+ { "capability" = "FY=\\E[24@" }
+ { "capability" = "k1=\\E[11~" }
+ { "capability" = "k2=\\E[12~" }
+ { "capability" = "k3=\\E[13~" }
+ { "capability" = "k4=\\E[14~" }
+ { "capability" = "k5=\\E[15~" }
+ { "capability" = "k6=\\E[17~" }
+ { "capability" = "k7=\\E[18~" }
+ { "capability" = "k8=\\E[19~" }
+ { "capability" = "k9=\\E[20~" }
+ { "capability" = "k;=\\E[21~" }
+ { "capability" = "kD=\\E[3~" }
+ { "capability" = "kE=\\E[8\\136" }
+ { "capability" = "kF=\\E[a" }
+ { "capability" = "kI=\\E[2~" }
+ { "capability" = "kN=\\E[6~" }
+ { "capability" = "kP=\\E[5~" }
+ { "capability" = "kR=\\E[b" }
+ { "capability" = "kd=\\E[B" }
+ { "capability" = "kh=\\E[7~" }
+ { "capability" = "kl=\\E[D" }
+ { "capability" = "kr=\\E[C" }
+ { "capability" = "ku=\\E[A" }
+ }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_thttpd.aug b/Sharp.Augeas.Test/lens/tests/test_thttpd.aug
new file mode 100644
index 0000000..77eef85
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_thttpd.aug
@@ -0,0 +1,45 @@
+(*
+Module: Test_Thttpd
+ Provides unit tests and examples for the <Thttpd> lens.
+*)
+
+module Test_Thttpd =
+
+let conf = "# This file is for thttpd processes created by /etc/init.d/thttpd.
+# Commentary is based closely on the thttpd(8) 2.25b manpage, by Jef Poskanzer.
+
+# Specifies an alternate port number to listen on.
+port=80
+host=
+
+ dir=/var/www
+chroot
+ novhost
+
+ # Specifies what user to switch to after initialization when started as root.
+user=www-data # EOL comment
+nosymlinks # EOL comment
+"
+
+test Thttpd.lns get conf =
+ { "#comment" = "This file is for thttpd processes created by /etc/init.d/thttpd." }
+ { "#comment" = "Commentary is based closely on the thttpd(8) 2.25b manpage, by Jef Poskanzer." }
+ { }
+ { "#comment" = "Specifies an alternate port number to listen on." }
+ { "port" = "80" }
+ { "host" = "" }
+ { }
+ { "dir" = "/var/www" }
+ { "chroot" }
+ { "novhost" }
+ { }
+ { "#comment" = "Specifies what user to switch to after initialization when started as root." }
+ { "user" = "www-data"
+ { "#comment" = "EOL comment" }
+ }
+ { "nosymlinks"
+ { "#comment" = "EOL comment" }
+ }
+
+(* There must not be spaces around the '=' *)
+test Thttpd.lns get "port = 80" = *
diff --git a/Sharp.Augeas.Test/lens/tests/test_tinc.aug b/Sharp.Augeas.Test/lens/tests/test_tinc.aug
new file mode 100644
index 0000000..224de62
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_tinc.aug
@@ -0,0 +1,40 @@
+module Test_tinc =
+
+let lns = Tinc.lns
+
+test lns get "Subnet = 10.1.4.5\n" = { "Subnet" = "10.1.4.5" }
+test lns get "foo = bar\n" = { "foo" = "bar" }
+test lns get "foo bar\n" = { "foo" = "bar" }
+test lns get "foo bar\n" = { "foo" = "bar" }
+
+test lns get
+"-----BEGIN RSA PUBLIC KEY-----
+abcde
+-----END RSA PUBLIC KEY-----" = { "#key" = "abcde" }
+
+test lns get "foo = bar\nbar = baz\n" =
+ { "foo" = "bar" }
+ { "bar" = "baz" }
+
+test lns get
+"foo = bar
+
+-----BEGIN RSA PUBLIC KEY-----
+bar
+-----END RSA PUBLIC KEY-----" =
+ { "foo" = "bar" }
+ { }
+ { "#key" = "bar" }
+
+
+(*
+test lns get
+"-----BEGIN RSA PUBLIC KEY-----
+foo
+-----END RSA PUBLIC KEY-----
+
+-----BEGIN RSA PUBLIC KEY-----
+bar
+-----END RSA PUBLIC KEY-----
+" = ?
+*)
diff --git a/Sharp.Augeas.Test/lens/tests/test_tmpfiles.aug b/Sharp.Augeas.Test/lens/tests/test_tmpfiles.aug
new file mode 100644
index 0000000..6ced069
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_tmpfiles.aug
@@ -0,0 +1,425 @@
+(*
+Module: Test_Tmpfiles
+ Provides unit tests and examples for the <Tmpfiles> lens.
+*)
+
+module Test_Tmpfiles =
+
+(************************************************************************
+ * Group: VALID EXAMPLES
+ *************************************************************************)
+ (* Variable: simple
+One line, simple example *)
+ let simple = "d /run/user 0755 root mysql 10d -\n"
+
+ (* Variable: simple_tree
+Tree for <simple> *)
+ let simple_tree =
+ {
+ "1"
+ { "type" = "d" }
+ { "path" = "/run/user" }
+ { "mode" = "0755" }
+ { "uid" = "root" }
+ { "gid" = "mysql" }
+ { "age" = "10d" }
+ { "argument" = "-" }
+ }
+
+ (* Variable: complex
+A more complex example, comes from the manual *)
+ let complex = "#Type Path Mode UID GID Age Argument\nd /run/user 0755 root root 10d -\nL /tmp/foobar - - - - /dev/null\n"
+
+ (* Variable: complex_tree
+Tree for <complex> and <trailing_ws> *)
+ let complex_tree =
+ { "#comment" = "Type Path Mode UID GID Age Argument" }
+ { "1"
+ { "type" = "d" }
+ { "path" = "/run/user" }
+ { "mode" = "0755" }
+ { "uid" = "root" }
+ { "gid" = "root" }
+ { "age" = "10d" }
+ { "argument" = "-" }
+ }
+ { "2"
+ { "type" = "L" }
+ { "path" = "/tmp/foobar" }
+ { "mode" = "-" }
+ { "uid" = "-" }
+ { "gid" = "-" }
+ { "age" = "-" }
+ { "argument" = "/dev/null" }
+ }
+
+ (* Variable: trailing_ws
+The complex example with extra spaces *)
+ let trailing_ws = " #Type Path Mode UID GID Age Argument \n d /run/user 0755 root root 10d - \t\n L /tmp/foobar - - - - /dev/null\t\n"
+
+ (* Variable: empty
+Empty example *)
+ let empty = "\n\n\n"
+
+ (* Variable: exclamation_mark
+Example with an exclamation mark in the type *)
+ let exclamation_mark = "D! /tmp/foo - - - - -\n"
+
+ (* Variable: exclamation_mark_tree
+Tree for <exclamation_mark> *)
+ let exclamation_mark_tree =
+ {
+ "1"
+ { "type" = "D!" }
+ { "path" = "/tmp/foo" }
+ { "mode" = "-" }
+ { "uid" = "-" }
+ { "gid" = "-" }
+ { "age" = "-" }
+ { "argument" = "-" }
+ }
+
+ (* Variable: minus
+Example with an minus mark in the type *)
+ let minus = "D- /tmp/foo - - - - -\n"
+
+ (* Variable: minus_tree
+Tree for <minus_tree> *)
+ let minus_tree =
+ {
+ "1"
+ { "type" = "D-" }
+ { "path" = "/tmp/foo" }
+ { "mode" = "-" }
+ { "uid" = "-" }
+ { "gid" = "-" }
+ { "age" = "-" }
+ { "argument" = "-" }
+ }
+
+ (* Variable: short
+Example with only type and path *)
+ let short = "A+ /tmp/foo\n"
+
+ (* Variable: short_tree
+Tree for <short> *)
+ let short_tree =
+ {
+ "1"
+ { "type" = "A+" }
+ { "path" = "/tmp/foo" }
+ }
+
+ (* Variable: short_mode
+Example with only 3 fields *)
+ let short_mode = "c+! /tmp/foo ~0755\n"
+
+ (* Variable: short_mode_tree
+Tree for <short_mode> *)
+ let short_mode_tree =
+ {
+ "1"
+ { "type" = "c+!" }
+ { "path" = "/tmp/foo" }
+ { "mode" = "~0755" }
+ }
+
+ (* Variable: short_uid
+Example with only 4 fields *)
+ let short_uid = "A+ /tmp/foo - 0\n"
+
+ (* Variable: short_uid_tree
+Tree for <short_uid> *)
+ let short_uid_tree =
+ {
+ "1"
+ { "type" = "A+" }
+ { "path" = "/tmp/foo" }
+ { "mode" = "-" }
+ { "uid" = "0" }
+ }
+
+ (* Variable: short_gid
+Example with only 5 fields *)
+ let short_gid = "z /tmp/bar/foo -\t- augd\n"
+
+ (* Variable: short_gid_tree
+Tree for <short_gid> *)
+ let short_gid_tree =
+ {
+ "1"
+ { "type" = "z" }
+ { "path" = "/tmp/bar/foo" }
+ { "mode" = "-" }
+ { "uid" = "-" }
+ { "gid" = "augd" }
+ }
+
+ (* Variable: short_age
+Example with only 6 fields *)
+ let short_age = "H /var/tmp/fooBarFOO - jj jj ~10d\n"
+
+ (* Variable: short_age_tree
+Tree for <short_age> *)
+ let short_age_tree =
+ {
+ "1"
+ { "type" = "H" }
+ { "path" = "/var/tmp/fooBarFOO" }
+ { "mode" = "-" }
+ { "uid" = "jj" }
+ { "gid" = "jj" }
+ { "age" = "~10d" }
+ }
+
+ (* Variable: complex_arg
+Complex argument example. That one comes from the manual *)
+ let complex_arg = "t /run/screen - - - - user.name=\"John Smith\" security.SMACK64=screen\n"
+
+ (* Variable: complex_arg_tree
+Tree for <complex_arg> *)
+ let complex_arg_tree =
+ {
+ "1"
+ { "type" = "t" }
+ { "path" = "/run/screen" }
+ { "mode" = "-" }
+ { "uid" = "-" }
+ { "gid" = "-" }
+ { "age" = "-" }
+ { "argument" = "user.name=\"John Smith\" security.SMACK64=screen" }
+ }
+
+ (* Variable: valid_short_args
+A short argument value example. *)
+ let valid_short_args = "h /var/log/journal - - - - C\nh /var/log/journal - - - - +C\n"
+
+ (* Variable: valid_short_args_tree
+Tree for <valid_short_args> *)
+ let valid_short_args_tree =
+ {
+ "1"
+ { "type" = "h" }
+ { "path" = "/var/log/journal" }
+ { "mode" = "-" }
+ { "uid" = "-" }
+ { "gid" = "-" }
+ { "age" = "-" }
+ { "argument" = "C" }
+ }
+ {
+ "2"
+ { "type" = "h" }
+ { "path" = "/var/log/journal" }
+ { "mode" = "-" }
+ { "uid" = "-" }
+ { "gid" = "-" }
+ { "age" = "-" }
+ { "argument" = "+C" }
+ }
+
+ (* Variable: valid_age
+Example with a complex age. *)
+ let valid_age = "v /var/tmp/js 4221 johnsmith - ~10d12h\n"
+
+ (* Variable: valid_age_tree
+Tree for <valid_age> *)
+ let valid_age_tree =
+ {
+ "1"
+ { "type" = "v" }
+ { "path" = "/var/tmp/js" }
+ { "mode" = "4221" }
+ { "uid" = "johnsmith" }
+ { "gid" = "-" }
+ { "age" = "~10d12h" }
+ }
+
+ (* Variable: valid_second
+Example with full age unit *)
+ let valid_second = "p+ /var/tmp - jsmith - 0second\n"
+
+ (* Variable: valid_second_tree
+Tree for <valid_second> *)
+ let valid_second_tree =
+ {
+ "1"
+ { "type" = "p+" }
+ { "path" = "/var/tmp" }
+ { "mode" = "-" }
+ { "uid" = "jsmith" }
+ { "gid" = "-" }
+ { "age" = "0second" }
+ }
+
+ (* Variable: valid_days
+Example with full age unit (plural) *)
+ let valid_days = "x /var/tmp/manu - jonhsmith - 9days\n"
+
+ (* Variable: valid_days_tree
+Tree for <valid_days> *)
+ let valid_days_tree =
+ {
+ "1"
+ { "type" = "x" }
+ { "path" = "/var/tmp/manu" }
+ { "mode" = "-" }
+ { "uid" = "jonhsmith" }
+ { "gid" = "-" }
+ { "age" = "9days" }
+ }
+
+ (* Variable: percent
+Test with a percent sign *)
+ let percent = "m /var/log/%m 2755 root systemdjournal - -\n"
+
+ (* Variable: percent_tree
+Tree for <percent> *)
+ let percent_tree =
+ {
+ "1"
+ { "type" = "m" }
+ { "path" = "/var/log/%m" }
+ { "mode" = "2755" }
+ { "uid" = "root" }
+ { "gid" = "systemdjournal" }
+ { "age" = "-" }
+ { "argument" = "-" }
+ }
+
+ (* Variable: hyphen
+Test with a hyphen in gid *)
+ let hyphen = "L /var/log/journal 2755 root systemd-journal - -\n"
+
+ (* Variable: hyphen_tree
+Tree for <hyphen> *)
+ let hyphen_tree =
+ {
+ "1"
+ { "type" = "L" }
+ { "path" = "/var/log/journal" }
+ { "mode" = "2755" }
+ { "uid" = "root" }
+ { "gid" = "systemd-journal" }
+ { "age" = "-" }
+ { "argument" = "-" }
+ }
+
+ (* Variable: valid_base
+A valid test to be re-used by the failure cases *)
+ let valid_base = "H /var/tmp/js 0000 jonhsmith 60 1s foo\n"
+
+ (* Variable: valid_base_tree
+Tree for <valid_base> *)
+ let valid_base_tree =
+ {
+ "1"
+ { "type" = "H" }
+ { "path" = "/var/tmp/js" }
+ { "mode" = "0000" }
+ { "uid" = "jonhsmith" }
+ { "gid" = "60" }
+ { "age" = "1s" }
+ { "argument" = "foo" }
+ }
+
+ (* Variable: mode3
+Mode field example with only three digits *)
+ let mode3 = "c+! /tmp/foo 755\n"
+
+ (* Variable: mode3_tree
+Tree for <mode3> *)
+ let mode3_tree =
+ {
+ "1"
+ { "type" = "c+!" }
+ { "path" = "/tmp/foo" }
+ { "mode" = "755" }
+ }
+
+(************************************************************************
+ * Group: INVALID EXAMPLES
+ *************************************************************************)
+
+ (* Variable: invalid_too_short
+Invalid example that do not contain path *)
+ let invalid_too_short = "H\n"
+
+ (* Variable: invalid_age
+Invalid example that contain invalid age *)
+ let invalid_age = "H /var/tmp/js 0000 jonhsmith 60 1sss foo\n"
+
+ (* Variable: invalid_type
+Invalid example that contain invalid type (bad letter) *)
+ let invalid_type = "i /var/tmp/js 0000 jonhsmith 60 1s foo\n"
+
+ (* Variable: invalid_type_num
+ Invalid example that contain invalid type (numeric) *)
+ let invalid_type_num = "1 /var/tmp/js 0000 jonhsmith 60 1s foo\n"
+
+ (* Variable: invalid_mode
+Invalid example that contain invalid mode (bad int) *)
+ let invalid_mode = "H /var/tmp/js 8000 jonhsmith 60 1s foo\n"
+
+ (* Variable: invalid_mode_alpha
+Invalid example that contain invalid mode (letter) *)
+ let invalid_mode_alpha = "H /var/tmp/js a000 jonhsmith 60 1s foo\n"
+
+ test Tmpfiles.lns get simple = simple_tree
+
+ test Tmpfiles.lns get complex = complex_tree
+
+ test Tmpfiles.lns get trailing_ws = complex_tree
+
+ test Tmpfiles.lns get empty = {}{}{}
+
+ test Tmpfiles.lns get exclamation_mark = exclamation_mark_tree
+
+ test Tmpfiles.lns get minus = minus_tree
+
+ test Tmpfiles.lns get short = short_tree
+
+ test Tmpfiles.lns get short_mode = short_mode_tree
+
+ test Tmpfiles.lns get short_uid = short_uid_tree
+
+ test Tmpfiles.lns get short_gid = short_gid_tree
+
+ test Tmpfiles.lns get short_age = short_age_tree
+
+ test Tmpfiles.lns get complex_arg = complex_arg_tree
+
+ test Tmpfiles.lns get valid_short_args = valid_short_args_tree
+
+ test Tmpfiles.lns get valid_second = valid_second_tree
+
+ test Tmpfiles.lns get valid_days = valid_days_tree
+
+ test Tmpfiles.lns get valid_age = valid_age_tree
+
+ test Tmpfiles.lns get percent = percent_tree
+
+ test Tmpfiles.lns get hyphen = hyphen_tree
+
+ test Tmpfiles.lns get valid_base = valid_base_tree
+
+ test Tmpfiles.lns get mode3 = mode3_tree
+
+
+(* failure cases *)
+
+ test Tmpfiles.lns get invalid_too_short = *
+
+ test Tmpfiles.lns get invalid_age = *
+
+ test Tmpfiles.lns get invalid_type = *
+
+ test Tmpfiles.lns get invalid_type_num = *
+
+ test Tmpfiles.lns get invalid_mode = *
+
+ test Tmpfiles.lns get invalid_mode_alpha = *
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_toml.aug b/Sharp.Augeas.Test/lens/tests/test_toml.aug
new file mode 100644
index 0000000..d3247a3
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_toml.aug
@@ -0,0 +1,333 @@
+module Test_Toml =
+
+(* Test: Toml.norec
+ String value *)
+test Toml.norec get "\"foo\"" = { "string" = "foo" }
+
+(* Test: Toml.norec
+ Integer value *)
+test Toml.norec get "42" = { "integer" = "42" }
+
+(* Test: Toml.norec
+ Positive integer value *)
+test Toml.norec get "+42" = { "integer" = "+42" }
+
+(* Test: Toml.norec
+ Negative integer value *)
+test Toml.norec get "-42" = { "integer" = "-42" }
+
+(* Test: Toml.norec
+ Large integer value *)
+test Toml.norec get "5_349_221" = { "integer" = "5_349_221" }
+
+(* Test: Toml.norec
+ Hexadecimal integer value *)
+test Toml.norec get "0xDEADBEEF" = { "integer" = "0xDEADBEEF" }
+
+(* Test: Toml.norec
+ Octal integer value *)
+test Toml.norec get "0o755" = { "integer" = "0o755" }
+
+(* Test: Toml.norec
+ Binary integer value *)
+test Toml.norec get "0b11010110" = { "integer" = "0b11010110" }
+
+(* Test: Toml.norec
+ Float value *)
+test Toml.norec get "3.14" = { "float" = "3.14" }
+
+(* Test: Toml.norec
+ Positive float value *)
+test Toml.norec get "+3.14" = { "float" = "+3.14" }
+
+(* Test: Toml.norec
+ Negative float value *)
+test Toml.norec get "-3.14" = { "float" = "-3.14" }
+
+(* Test: Toml.norec
+ Complex float value *)
+test Toml.norec get "-3_220.145_223e-34" = { "float" = "-3_220.145_223e-34" }
+
+(* Test: Toml.norec
+ Inf float value *)
+test Toml.norec get "-inf" = { "float" = "-inf" }
+
+(* Test: Toml.norec
+ Nan float value *)
+test Toml.norec get "-nan" = { "float" = "-nan" }
+
+(* Test: Toml.norec
+ Bool value *)
+test Toml.norec get "true" = { "bool" = "true" }
+
+(* Test: Toml.norec
+ Datetime value *)
+test Toml.norec get "1979-05-27T07:32:00Z" =
+ { "datetime" = "1979-05-27T07:32:00Z" }
+test Toml.norec get "1979-05-27 07:32:00.999999" =
+ { "datetime" = "1979-05-27 07:32:00.999999" }
+
+(* Test: Toml.norec
+ Date value *)
+test Toml.norec get "1979-05-27" =
+ { "date" = "1979-05-27" }
+
+(* Test: Toml.norec
+ Time value *)
+test Toml.norec get "07:32:00" =
+ { "time" = "07:32:00" }
+
+(* Test: Toml.norec
+ String value with newline *)
+test Toml.norec get "\"bar\nbaz\"" =
+ { "string" = "bar\nbaz" }
+
+(* Test: Toml.norec
+ Multiline value *)
+test Toml.norec get "\"\"\"\nbar\nbaz\n \"\"\"" =
+ { "string_multi" = "bar\nbaz" }
+
+(* Test: Toml.norec
+ Literal string value *)
+test Toml.norec get "'bar\nbaz'" =
+ { "string_literal" = "bar\nbaz" }
+
+(* Test: Toml.array_norec
+ Empty array *)
+test Toml.array_norec get "[ ]" =
+ { "array" {} }
+
+(* Test: Toml.array_norec
+ Array of strings *)
+test Toml.array_norec get "[ \"foo\", \"bar\" ]" =
+ { "array" {}
+ { "string" = "foo" } {}
+ { "string" = "bar" } {} }
+
+(* Test: Toml.array_norec
+ Array of arrays *)
+test Toml.array_rec get "[ [ \"foo\", [ 42, 43 ] ], \"bar\" ]" =
+ { "array" {}
+ { "array" {}
+ { "string" = "foo" } {}
+ { "array" {}
+ { "integer" = "42" } {}
+ { "integer" = "43" } {} } {} } {}
+ { "string" = "bar" } {} }
+
+(* Test: Toml.lns
+ Global parameters *)
+test Toml.lns get "# Globals
+foo = \"bar\"\n" =
+ { "#comment" = "Globals" }
+ { "entry" = "foo" { "string" = "bar" } }
+
+(* Test: Toml.lns
+ Simple section/value *)
+test Toml.lns get "[foo]
+bar = \"baz\"\n" =
+ { "table" = "foo" { "entry" = "bar" { "string" = "baz" } } }
+
+(* Test: Toml.lns
+ Subsections *)
+test Toml.lns get "[foo]
+title = \"bar\"
+ [foo.one]
+ hello = \"world\"\n" =
+ { "table" = "foo"
+ { "entry" = "title" { "string" = "bar" } } }
+ { "table" = "foo.one"
+ { "entry" = "hello" { "string" = "world" } } }
+
+(* Test: Toml.lns
+ Nested subsections *)
+test Toml.lns get "[foo]
+[foo.one]
+[foo.one.two]
+bar = \"baz\"\n" =
+ { "table" = "foo" }
+ { "table" = "foo.one" }
+ { "table" = "foo.one.two"
+ { "entry" = "bar" { "string" = "baz" } } }
+
+(* Test: Toml.lns
+ Arrays of tables *)
+test Toml.lns get "[[products]]
+name = \"Hammer\"
+sku = 738594937
+
+[[products]]
+
+[[products]]
+name = \"Nail\"
+sku = 284758393
+color = \"gray\"\n" =
+ { "@table" = "products"
+ { "entry" = "name"
+ { "string" = "Hammer" } }
+ { "entry" = "sku"
+ { "integer" = "738594937" } }
+ { }
+ }
+ { "@table" = "products"
+ { }
+ }
+ { "@table" = "products"
+ { "entry" = "name"
+ { "string" = "Nail" } }
+ { "entry" = "sku"
+ { "integer" = "284758393" } }
+ { "entry" = "color"
+ { "string" = "gray" } }
+ }
+
+(* Test: Toml.entry
+ Empty inline table *)
+test Toml.entry get "name = { }\n" =
+ { "entry" = "name"
+ { "inline_table"
+ { } } }
+
+(* Test: Toml.entry
+ Inline table *)
+test Toml.entry get "name = { first = \"Tom\", last = \"Preston-Werner\" }\n" =
+ { "entry" = "name"
+ { "inline_table" {}
+ { "entry" = "first"
+ { "string" = "Tom" } } {}
+ { "entry" = "last"
+ { "string" = "Preston-Werner" } } {} } }
+
+(* Test: Toml.entry
+ Array value in inline_table *)
+test Toml.entry get "foo = { bar = [\"baz\"] }\n" =
+ { "entry" = "foo"
+ { "inline_table" {}
+ { "entry" = "bar"
+ { "array"
+ { "string" = "baz" } } } {} } }
+
+
+(* Variable: example
+ The example from https://github.com/mojombo/toml *)
+let example = "# This is a TOML document. Boom.
+
+title = \"TOML Example\"
+
+[owner]
+name = \"Tom Preston-Werner\"
+organization = \"GitHub\"
+bio = \"GitHub Cofounder & CEO\nLikes tater tots and beer.\"
+dob = 1979-05-27T07:32:00Z # First class dates? Why not?
+
+[database]
+server = \"192.168.1.1\"
+ports = [ 8001, 8001, 8002 ]
+connection_max = 5000
+enabled = true
+
+[servers]
+
+ # You can indent as you please. Tabs or spaces. TOML don't care.
+ [servers.alpha]
+ ip = \"10.0.0.1\"
+ dc = \"eqdc10\"
+
+ [servers.beta]
+ ip = \"10.0.0.2\"
+ dc = \"eqdc10\"
+ country = \"中国\" # This should be parsed as UTF-8
+
+[clients]
+data = [ [\"gamma\", \"delta\"], [1, 2] ] # just an update to make sure parsers support it
+
+# Line breaks are OK when inside arrays
+hosts = [
+ \"alpha\",
+ \"omega\"
+]
+
+# Products
+
+ [[products]]
+ name = \"Hammer\"
+ sku = 738594937
+
+ [[products]]
+ name = \"Nail\"
+ sku = 284758393
+ color = \"gray\"
+"
+
+test Toml.lns get example =
+ { "#comment" = "This is a TOML document. Boom." } { }
+ { "entry" = "title"
+ { "string" = "TOML Example" } } { }
+ { "table" = "owner"
+ { "entry" = "name"
+ { "string" = "Tom Preston-Werner" } }
+ { "entry" = "organization"
+ { "string" = "GitHub" } }
+ { "entry" = "bio"
+ { "string" = "GitHub Cofounder & CEO
+Likes tater tots and beer." }
+ }
+ { "entry" = "dob"
+ { "datetime" = "1979-05-27T07:32:00Z" }
+ { "#comment" = "First class dates? Why not?" } } { } }
+ { "table" = "database"
+ { "entry" = "server"
+ { "string" = "192.168.1.1" } }
+ { "entry" = "ports"
+ { "array" { }
+ { "integer" = "8001" } { }
+ { "integer" = "8001" } { }
+ { "integer" = "8002" } { } } }
+ { "entry" = "connection_max"
+ { "integer" = "5000" } }
+ { "entry" = "enabled"
+ { "bool" = "true" } } { } }
+ { "table" = "servers" { }
+ { "#comment" = "You can indent as you please. Tabs or spaces. TOML don't care." } }
+ { "table" = "servers.alpha"
+ { "entry" = "ip"
+ { "string" = "10.0.0.1" } }
+ { "entry" = "dc"
+ { "string" = "eqdc10" } } { } }
+ { "table" = "servers.beta"
+ { "entry" = "ip"
+ { "string" = "10.0.0.2" } }
+ { "entry" = "dc"
+ { "string" = "eqdc10" } }
+ { "entry" = "country"
+ { "string" = "中国" }
+ { "#comment" = "This should be parsed as UTF-8" } } { } }
+ { "table" = "clients"
+ { "entry" = "data"
+ { "array" { }
+ { "array"
+ { "string" = "gamma" } { }
+ { "string" = "delta" } } { }
+ { "array"
+ { "integer" = "1" } { }
+ { "integer" = "2" } } { } }
+ { "#comment" = "just an update to make sure parsers support it" } } { }
+ { "#comment" = "Line breaks are OK when inside arrays" }
+ { "entry" = "hosts"
+ { "array" { }
+ { "string" = "alpha" } { }
+ { "string" = "omega" } { } } } { }
+ { "#comment" = "Products" } { } }
+ { "@table" = "products"
+ { "entry" = "name"
+ { "string" = "Hammer" } }
+ { "entry" = "sku"
+ { "integer" = "738594937" } } { } }
+ { "@table" = "products"
+ { "entry" = "name"
+ { "string" = "Nail" } }
+ { "entry" = "sku"
+ { "integer" = "284758393" } }
+ { "entry" = "color"
+ { "string" = "gray" } } }
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_trapperkeeper.aug b/Sharp.Augeas.Test/lens/tests/test_trapperkeeper.aug
new file mode 100644
index 0000000..369e8f9
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_trapperkeeper.aug
@@ -0,0 +1,141 @@
+module Test_Trapperkeeper =
+
+(* Variable: config *)
+let config = "
+ # This is a comment
+ webserver: {
+ bar: {
+ # A comment
+ host: localhost
+ port= 9000
+ default-server: true
+ }
+
+ foo: {
+ host: localhost
+ port = 10000
+ }
+}
+
+jruby-puppet: {
+ # This setting determines where JRuby will look for gems. It is also
+ # used by the `puppetserver gem` command line tool.
+ gem-home: /var/lib/puppet/jruby-gems
+
+ # (optional) path to puppet conf dir; if not specified, will use the puppet default
+ master-conf-dir: /etc/puppet
+
+ # (optional) path to puppet var dir; if not specified, will use the puppet default
+ master-var-dir: /var/lib/puppet
+
+ # (optional) maximum number of JRuby instances to allow; defaults to <num-cpus>+2
+ #max-active-instances: 1
+}
+
+
+# CA-related settings
+certificate-authority: {
+
+ # settings for the certificate_status HTTP endpoint
+ certificate-status: {
+
+ # this setting contains a list of client certnames who are whitelisted to
+ # have access to the certificate_status endpoint. Any requests made to
+ # this endpoint that do not present a valid client cert mentioned in
+ # this list will be denied access.
+ client-whitelist: []
+ }
+}
+
+os-settings: {
+ ruby-load-path: [/usr/lib/ruby/vendor_ruby, /home/foo/ruby ]
+}
+\n"
+
+(* Test: Trapperkeeper.lns
+ Test full config file *)
+test Trapperkeeper.lns get config =
+ { }
+ { "#comment" = "This is a comment" }
+ { "@hash" = "webserver"
+ { "@hash" = "bar"
+ { "#comment" = "A comment" }
+ { "@simple" = "host" { "@value" = "localhost" } }
+ { "@simple" = "port" { "@value" = "9000" } }
+ { "@simple" = "default-server" { "@value" = "true" } }
+ }
+ { }
+ { "@hash" = "foo"
+ { "@simple" = "host" { "@value" = "localhost" } }
+ { "@simple" = "port" { "@value" = "10000" } }
+ }
+ }
+ { }
+ { "@hash" = "jruby-puppet"
+ { "#comment" = "This setting determines where JRuby will look for gems. It is also" }
+ { "#comment" = "used by the `puppetserver gem` command line tool." }
+ { "@simple" = "gem-home" { "@value" = "/var/lib/puppet/jruby-gems" } }
+ { }
+ { "#comment" = "(optional) path to puppet conf dir; if not specified, will use the puppet default" }
+ { "@simple" = "master-conf-dir" { "@value" = "/etc/puppet" } }
+ { }
+ { "#comment" = "(optional) path to puppet var dir; if not specified, will use the puppet default" }
+ { "@simple" = "master-var-dir" { "@value" = "/var/lib/puppet" } }
+ { }
+ { "#comment" = "(optional) maximum number of JRuby instances to allow; defaults to <num-cpus>+2" }
+ { "#comment" = "max-active-instances: 1" }
+ }
+ { }
+ { }
+ { "#comment" = "CA-related settings" }
+ { "@hash" = "certificate-authority"
+ { "#comment" = "settings for the certificate_status HTTP endpoint" }
+ { "@hash" = "certificate-status"
+ { "#comment" = "this setting contains a list of client certnames who are whitelisted to" }
+ { "#comment" = "have access to the certificate_status endpoint. Any requests made to" }
+ { "#comment" = "this endpoint that do not present a valid client cert mentioned in" }
+ { "#comment" = "this list will be denied access." }
+ { "@array" = "client-whitelist" }
+ }
+ }
+ { }
+ { "@hash" = "os-settings"
+ { "@array" = "ruby-load-path"
+ { "1" = "/usr/lib/ruby/vendor_ruby" }
+ { "2" = "/home/foo/ruby" }
+ }
+ }
+ { }
+
+
+(* Test: Trapperkeeper.lns
+ Should parse an empty file *)
+test Trapperkeeper.lns get "\n" = {}
+
+(* Test: Trapperkeeper.lns
+ Values can be quoted *)
+test Trapperkeeper.lns get "os-settings: {
+ ruby-load-paths: [\"/usr/lib/ruby/site_ruby/1.8\"]
+}\n" =
+ { "@hash" = "os-settings"
+ { "@array" = "ruby-load-paths"
+ { "1" = "/usr/lib/ruby/site_ruby/1.8" }
+ }
+ }
+
+(* Test: Trapperkeeper.lns
+ Keys can be quoted *)
+test Trapperkeeper.lns get "test: {
+ \"x\": true
+}\n" =
+ { "@hash" = "test"
+ { "@simple" = "x" { "@value" = "true" } } }
+
+(* Test: Trapperkeeper.lns
+ Keys can contain / (GH #7)
+*)
+test Trapperkeeper.lns get "test: {
+ \"x/y\" : z
+}\n" =
+ { "@hash" = "test"
+ { "@simple" = "x/y" { "@value" = "z" } } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_tuned.aug b/Sharp.Augeas.Test/lens/tests/test_tuned.aug
new file mode 100644
index 0000000..e31b19a
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_tuned.aug
@@ -0,0 +1,13 @@
+module Test_tuned =
+
+let conf = "# Global tuned configuration file.
+
+dynamic_tuning = 0
+update_interval = 10
+"
+
+test Tuned.lns get conf =
+ { "#comment" = "Global tuned configuration file." }
+ { }
+ { "dynamic_tuning" = "0" }
+ { "update_interval" = "10" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_up2date.aug b/Sharp.Augeas.Test/lens/tests/test_up2date.aug
new file mode 100644
index 0000000..b51ca08
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_up2date.aug
@@ -0,0 +1,209 @@
+(*
+Module: Test_Up2date
+ Provides unit tests and examples for the <Up2date> lens.
+*)
+
+module Test_Up2date =
+
+(* Variable: empty *)
+let empty = "keyword=
+"
+test Up2date.lns get empty =
+ { "1" = "keyword" }
+
+(* Variable: list_empty *)
+let list_empty = "keyword=;
+"
+test Up2date.lns get list_empty =
+ { "1" = "keyword"
+ { "values" } }
+
+(* Variable: list_one *)
+let list_one = "keyword=foo;
+"
+test Up2date.lns get list_one =
+ { "1" = "keyword"
+ { "values"
+ { "1" = "foo" } } }
+
+(* Variable: list_two
+ Probably not useful, up2date throws "bar" away *)
+let list_two = "keyword=foo;bar
+"
+test Up2date.lns get list_two =
+ { "1" = "keyword"
+ { "values"
+ { "1" = "foo" }
+ { "2" = "bar" } } }
+
+(* Variable: list_two_trailing *)
+let list_two_trailing = "keyword=foo;bar;
+"
+test Up2date.lns get list_two_trailing =
+ { "1" = "keyword"
+ { "values"
+ { "1" = "foo" }
+ { "2" = "bar" } } }
+
+(* Variable: conf *)
+let conf = "# Red Hat Update Agent config file.
+# Format: 1.0
+
+debug[comment]=Whether or not debugging is enabled
+debug=0
+
+systemIdPath[comment]=Location of system id
+systemIdPath=/etc/sysconfig/rhn/systemid
+
+serverURL[comment]=Remote server URL (use FQDN)
+#serverURL=https://xmlrpc.rhn.redhat.com/XMLRPC
+serverURL=https://enter.your.server.url.here/XMLRPC
+
+hostedWhitelist[comment]=RHN Hosted URL's
+hostedWhitelist=
+
+enableProxy[comment]=Use a HTTP Proxy
+enableProxy=0
+
+versionOverride[comment]=Override the automatically determined system version
+versionOverride=
+
+httpProxy[comment]=HTTP proxy in host:port format, e.g. squid.redhat.com:3128
+httpProxy=
+
+noReboot[comment]=Disable the reboot actions
+noReboot=0
+
+networkRetries[comment]=Number of attempts to make at network connections before giving up
+networkRetries=1
+
+disallowConfChanges[comment]=Config options that can not be overwritten by a config update action
+disallowConfChanges=noReboot;sslCACert;useNoSSLForPackages;noSSLServerURL;serverURL;disallowConfChanges;
+
+sslCACert[comment]=The CA cert used to verify the ssl server
+sslCACert=/usr/share/rhn/RHNS-CA-CERT
+
+# Akamai does not support http protocol, therefore setting this option as side effect disable \"Location aware\" function
+useNoSSLForPackages[comment]=Use the noSSLServerURL for package, package list, and header fetching (disable Akamai)
+useNoSSLForPackages=0
+
+retrieveOnly[comment]=Retrieve packages only
+retrieveOnly=0
+
+skipNetwork[comment]=Skips network information in hardware profile sync during registration.
+skipNetwork=0
+
+tmpDir[comment]=Use this Directory to place the temporary transport files
+tmpDir=/tmp
+
+writeChangesToLog[comment]=Log to /var/log/up2date which packages has been added and removed
+writeChangesToLog=0
+
+stagingContent[comment]=Retrieve content of future actions in advance
+stagingContent=1
+
+stagingContentWindow[comment]=How much forward we should look for future actions. In hours.
+stagingContentWindow=24
+"
+
+(* Test: Up2date.lns *)
+test Up2date.lns get conf =
+ { "#comment" = "Red Hat Update Agent config file." }
+ { "#comment" = "Format: 1.0" }
+ { }
+ { "1" = "debug[comment]"
+ { "value" = "Whether or not debugging is enabled" } }
+ { "2" = "debug"
+ { "value" = "0" } }
+ { }
+ { "3" = "systemIdPath[comment]"
+ { "value" = "Location of system id" } }
+ { "4" = "systemIdPath"
+ { "value" = "/etc/sysconfig/rhn/systemid" } }
+ { }
+ { "5" = "serverURL[comment]"
+ { "value" = "Remote server URL (use FQDN)" } }
+ { "#comment" = "serverURL=https://xmlrpc.rhn.redhat.com/XMLRPC" }
+ { "6" = "serverURL"
+ { "value" = "https://enter.your.server.url.here/XMLRPC" } }
+ { }
+ { "7" = "hostedWhitelist[comment]"
+ { "value" = "RHN Hosted URL's" } }
+ { "8" = "hostedWhitelist" }
+ { }
+ { "9" = "enableProxy[comment]"
+ { "value" = "Use a HTTP Proxy" } }
+ { "10" = "enableProxy"
+ { "value" = "0" } }
+ { }
+ { "11" = "versionOverride[comment]"
+ { "value" = "Override the automatically determined system version" } }
+ { "12" = "versionOverride" }
+ { }
+ { "13" = "httpProxy[comment]"
+ { "value" = "HTTP proxy in host:port format, e.g. squid.redhat.com:3128" } }
+ { "14" = "httpProxy" }
+ { }
+ { "15" = "noReboot[comment]"
+ { "value" = "Disable the reboot actions" } }
+ { "16" = "noReboot"
+ { "value" = "0" } }
+ { }
+ { "17" = "networkRetries[comment]"
+ { "value" = "Number of attempts to make at network connections before giving up" } }
+ { "18" = "networkRetries"
+ { "value" = "1" } }
+ { }
+ { "19" = "disallowConfChanges[comment]"
+ { "value" = "Config options that can not be overwritten by a config update action" } }
+ { "20" = "disallowConfChanges"
+ { "values"
+ { "1" = "noReboot" }
+ { "2" = "sslCACert" }
+ { "3" = "useNoSSLForPackages" }
+ { "4" = "noSSLServerURL" }
+ { "5" = "serverURL" }
+ { "6" = "disallowConfChanges" } } }
+ { }
+ { "21" = "sslCACert[comment]"
+ { "value" = "The CA cert used to verify the ssl server" } }
+ { "22" = "sslCACert"
+ { "value" = "/usr/share/rhn/RHNS-CA-CERT" } }
+ { }
+ { "#comment" = "Akamai does not support http protocol, therefore setting this option as side effect disable \"Location aware\" function" }
+ { "23" = "useNoSSLForPackages[comment]"
+ { "value" = "Use the noSSLServerURL for package, package list, and header fetching (disable Akamai)" } }
+ { "24" = "useNoSSLForPackages"
+ { "value" = "0" } }
+ { }
+ { "25" = "retrieveOnly[comment]"
+ { "value" = "Retrieve packages only" } }
+ { "26" = "retrieveOnly"
+ { "value" = "0" } }
+ { }
+ { "27" = "skipNetwork[comment]"
+ { "value" = "Skips network information in hardware profile sync during registration." } }
+ { "28" = "skipNetwork"
+ { "value" = "0" } }
+ { }
+ { "29" = "tmpDir[comment]"
+ { "value" = "Use this Directory to place the temporary transport files" } }
+ { "30" = "tmpDir"
+ { "value" = "/tmp" } }
+ { }
+ { "31" = "writeChangesToLog[comment]"
+ { "value" = "Log to /var/log/up2date which packages has been added and removed" } }
+ { "32" = "writeChangesToLog"
+ { "value" = "0" } }
+ { }
+ { "33" = "stagingContent[comment]"
+ { "value" = "Retrieve content of future actions in advance" } }
+ { "34" = "stagingContent"
+ { "value" = "1" } }
+ { }
+ { "35" = "stagingContentWindow[comment]"
+ { "value" = "How much forward we should look for future actions. In hours." } }
+ { "36" = "stagingContentWindow"
+ { "value" = "24" } }
+
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_updatedb.aug b/Sharp.Augeas.Test/lens/tests/test_updatedb.aug
new file mode 100644
index 0000000..4939d01
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_updatedb.aug
@@ -0,0 +1,32 @@
+(*
+Module: Test_UpdateDB
+ Provides unit tests and examples for the <UpdateDB> lens.
+*)
+module Test_UpdateDB =
+
+(* Test: UpdateDB.lns
+ Simple get test *)
+test UpdateDB.lns get "# A comment
+PRUNEPATHS=\"/tmp /var/spool /media /home/.ecryptfs\"
+PRUNEFS= \"NFS nfs nfs4 rpc_pipefs\"
+PRUNE_BIND_MOUNTS = \"yes\"\n" =
+ { "#comment" = "A comment" }
+ { "PRUNEPATHS"
+ { "entry" = "/tmp" }
+ { "entry" = "/var/spool" }
+ { "entry" = "/media" }
+ { "entry" = "/home/.ecryptfs" }
+ }
+ { "PRUNEFS"
+ { "entry" = "NFS" }
+ { "entry" = "nfs" }
+ { "entry" = "nfs4" }
+ { "entry" = "rpc_pipefs" }
+ }
+ { "PRUNE_BIND_MOUNTS" = "yes" }
+
+(* Test: UpdateDB.lns
+ Adding to a list *)
+test UpdateDB.lns put "PRUNEFS=\"NFS nfs nfs4 rpc_pipefs\"\n"
+ after set "/PRUNEFS/entry[last()+1]" "ecryptfs" =
+"PRUNEFS=\"NFS nfs nfs4 rpc_pipefs ecryptfs\"\n"
diff --git a/Sharp.Augeas.Test/lens/tests/test_util.aug b/Sharp.Augeas.Test/lens/tests/test_util.aug
new file mode 100644
index 0000000..2904892
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_util.aug
@@ -0,0 +1,24 @@
+module Test_Util =
+
+test Util.empty_c_style get "/* */\n" =
+ { }
+
+test Util.comment_multiline get "/* comment */\n" =
+ { "#mcomment"
+ { "1" = "comment" }
+ }
+
+test Util.comment_multiline get "/*\ncomment\n*/\n" =
+ { "#mcomment"
+ { "1" = "comment" }
+ }
+
+test Util.comment_multiline get "/**
+ * Multi line comment
+ *
+ */\n" =
+ { "#mcomment"
+ { "1" = "*" }
+ { "2" = "* Multi line comment" }
+ { "3" = "*" }
+ }
diff --git a/Sharp.Augeas.Test/lens/tests/test_vfstab.aug b/Sharp.Augeas.Test/lens/tests/test_vfstab.aug
new file mode 100644
index 0000000..54eb4ae
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_vfstab.aug
@@ -0,0 +1,88 @@
+module Test_vfstab =
+
+ let simple = "/dev/dsk/c0t0d0s1 /dev/rdsk/c0t0d0s1 /test ufs 1 yes ro\n"
+ let simple_tree =
+ { "1"
+ { "spec" = "/dev/dsk/c0t0d0s1" }
+ { "fsck" = "/dev/rdsk/c0t0d0s1" }
+ { "file" = "/test" }
+ { "vfstype" = "ufs" }
+ { "passno" = "1" }
+ { "atboot" = "yes" }
+ { "opt" = "ro" } }
+ test Vfstab.lns get simple = simple_tree
+
+ let trailing_ws = "/dev/dsk/c0t0d0s1\t /dev/rdsk/c0t0d0s1\t /test\t ufs\t 1\t yes\t ro \t \n"
+ test Vfstab.lns get trailing_ws = simple_tree
+
+ (* Now test combinations where unneeded fields can be replaced by dashes and
+ then should not appear in the tree. *)
+ let gen_empty_field(fsck:string) (passno:string) (opt:string) =
+ "/dev/dsk/c0t0d0s1\t " . fsck . "\t /test\t ufs\t " . passno . " yes " . opt . "\t\n"
+
+ (* Missing fsck *)
+ let no_fsck = gen_empty_field "-" "1" "ro"
+ test Vfstab.lns get no_fsck =
+ { "1"
+ { "spec" = "/dev/dsk/c0t0d0s1" }
+ { "file" = "/test" }
+ { "vfstype" = "ufs" }
+ { "passno" = "1" }
+ { "atboot" = "yes" }
+ { "opt" = "ro" } }
+
+ test Vfstab.lns put no_fsck after
+ insa "fsck" "/1/spec" ;
+ set "/1/fsck" "/dev/rdsk/c0t0d0s1" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro"
+
+ (* Missing passno *)
+ let no_passno = gen_empty_field "/dev/rdsk/c0t0d0s1" "-" "ro"
+ test Vfstab.lns get no_passno =
+ { "1"
+ { "spec" = "/dev/dsk/c0t0d0s1" }
+ { "fsck" = "/dev/rdsk/c0t0d0s1" }
+ { "file" = "/test" }
+ { "vfstype" = "ufs" }
+ { "atboot" = "yes" }
+ { "opt" = "ro" } }
+
+ test Vfstab.lns put no_passno after
+ insa "passno" "/1/vfstype" ;
+ set "/1/passno" "1" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro"
+
+ (* Missing opts *)
+ let no_opts = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "-"
+ test Vfstab.lns get no_opts =
+ { "1"
+ { "spec" = "/dev/dsk/c0t0d0s1" }
+ { "fsck" = "/dev/rdsk/c0t0d0s1" }
+ { "file" = "/test" }
+ { "vfstype" = "ufs" }
+ { "passno" = "1" }
+ { "atboot" = "yes" } }
+
+ test Vfstab.lns put no_opts after
+ insa "opt" "/1/atboot" ;
+ insa "opt" "/1/atboot" ;
+ set "/1/opt[1]" "ro" ;
+ set "/1/opt[2]" "fg" = gen_empty_field "/dev/rdsk/c0t0d0s1" "1" "ro,fg"
+
+ let multi_opts = "/dev/dsk/c0t0d0s1 /dev/rdsk/c0t0d0s1 /test ufs 1 yes ro,nosuid,retry=5,fg\n"
+ let multi_opts_tree =
+ { "1"
+ { "spec" = "/dev/dsk/c0t0d0s1" }
+ { "fsck" = "/dev/rdsk/c0t0d0s1" }
+ { "file" = "/test" }
+ { "vfstype" = "ufs" }
+ { "passno" = "1" }
+ { "atboot" = "yes" }
+ { "opt" = "ro" }
+ { "opt" = "nosuid" }
+ { "opt" = "retry"
+ { "value" = "5" } }
+ { "opt" = "fg" } }
+ test Vfstab.lns get multi_opts = multi_opts_tree
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_vmware_config.aug b/Sharp.Augeas.Test/lens/tests/test_vmware_config.aug
new file mode 100644
index 0000000..2431b6d
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_vmware_config.aug
@@ -0,0 +1,49 @@
+(*
+Module: Test_VMware_Config
+ Provides unit tests and examples for the <VMware_Config> lens.
+*)
+
+module Test_VMware_Config =
+
+(* Variable: conf *)
+let conf = "libdir = \"/usr/lib/vmware\"
+dhcpd.fullpath = \"/usr/bin/vmnet-dhcpd\"
+authd.fullpath = \"/usr/sbin/vmware-authd\"
+authd.client.port = \"902\"
+loop.fullpath = \"/usr/bin/vmware-loop\"
+vmware.fullpath = \"/usr/bin/vmware\"
+control.fullpath = \"/usr/bin/vmware-cmd\"
+serverd.fullpath = \"/usr/sbin/vmware-serverd\"
+wizard.fullpath = \"/usr/bin/vmware-wizard\"
+serverd.init.fullpath = \"/usr/lib/vmware/serverd/init.pl\"
+serverd.vpxuser = \"vpxuser\"
+serverd.snmpdconf.subagentenabled = \"TRUE\"
+template.useFlatDisks = \"TRUE\"
+autoStart.defaultStartDelay = \"60\"
+autoStart.enabled = \"True\"
+autoStart.defaultStopDelay = \"60\"
+"
+
+(* Test: VMware_Config.lns *)
+test VMware_Config.lns get conf =
+ { "libdir" = "/usr/lib/vmware" }
+ { "dhcpd.fullpath" = "/usr/bin/vmnet-dhcpd" }
+ { "authd.fullpath" = "/usr/sbin/vmware-authd" }
+ { "authd.client.port" = "902" }
+ { "loop.fullpath" = "/usr/bin/vmware-loop" }
+ { "vmware.fullpath" = "/usr/bin/vmware" }
+ { "control.fullpath" = "/usr/bin/vmware-cmd" }
+ { "serverd.fullpath" = "/usr/sbin/vmware-serverd" }
+ { "wizard.fullpath" = "/usr/bin/vmware-wizard" }
+ { "serverd.init.fullpath" = "/usr/lib/vmware/serverd/init.pl" }
+ { "serverd.vpxuser" = "vpxuser" }
+ { "serverd.snmpdconf.subagentenabled" = "TRUE" }
+ { "template.useFlatDisks" = "TRUE" }
+ { "autoStart.defaultStartDelay" = "60" }
+ { "autoStart.enabled" = "True" }
+ { "autoStart.defaultStopDelay" = "60" }
+
+(* Test: VMware_Config.lns
+ Quotes are not mandatory *)
+test VMware_Config.lns get "xkeymap.nokeycodeMap = true\n" =
+ { "xkeymap.nokeycodeMap" = "true" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_vsftpd.aug b/Sharp.Augeas.Test/lens/tests/test_vsftpd.aug
new file mode 100644
index 0000000..9db0a11
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_vsftpd.aug
@@ -0,0 +1,74 @@
+module Test_vsftpd =
+
+test Vsftpd.lns get "listen=YES\nmdtm_write=false\n" =
+ { "listen" = "YES" }
+ { "mdtm_write" = "false" }
+
+test Vsftpd.lns get "listen=on\n" = *
+
+test Vsftpd.lns get "local_umask=0777\n" = { "local_umask" = "0777" }
+
+test Vsftpd.lns get "listen_port=ftp\n" = *
+
+test Vsftpd.lns get "ftp_username=ftp_user\n" = { "ftp_username" = "ftp_user" }
+
+(* There must not be spaces around the '=' *)
+test Vsftpd.lns get "anon_root = /var/lib/vsftpd/anon" = *
+
+
+let conf = "# Example config file /etc/vsftpd/vsftpd.conf
+#
+# The default compiled in settings are fairly paranoid. This sample file
+# loosens things up a bit, to make the ftp daemon more usable.
+# Please see vsftpd.conf.5 for all compiled in defaults.
+#
+# Allow anonymous FTP? (Beware - allowed by default if you comment this out).
+anonymous_enable=YES
+#
+# Default umask for local users is 077. You may wish to change this to 022,
+# if your users expect that (022 is used by most other ftpd's)
+local_umask=022
+#
+# You may specify an explicit list of local users to chroot() to their home
+# directory. If chroot_local_user is YES, then this list becomes a list of
+# users to NOT chroot().
+chroot_list_enable=YES
+# (default follows)
+chroot_list_file=/etc/vsftpd/chroot_list
+#
+
+pam_service_name=vsftpd
+userlist_enable=YES
+tcp_wrappers=YES
+allow_writeable_chroot=YES
+
+"
+
+test Vsftpd.lns get conf =
+ { "#comment" = "Example config file /etc/vsftpd/vsftpd.conf" }
+ {}
+ { "#comment" = "The default compiled in settings are fairly paranoid. This sample file" }
+ { "#comment" = "loosens things up a bit, to make the ftp daemon more usable." }
+ { "#comment" = "Please see vsftpd.conf.5 for all compiled in defaults." }
+ {}
+ { "#comment" = "Allow anonymous FTP? (Beware - allowed by default if you comment this out)." }
+ { "anonymous_enable" = "YES" }
+ {}
+ { "#comment" = "Default umask for local users is 077. You may wish to change this to 022," }
+ { "#comment" = "if your users expect that (022 is used by most other ftpd's)" }
+ { "local_umask" = "022" }
+ {}
+ { "#comment" = "You may specify an explicit list of local users to chroot() to their home" }
+ { "#comment" = "directory. If chroot_local_user is YES, then this list becomes a list of" }
+ { "#comment" = "users to NOT chroot()." }
+ { "chroot_list_enable" = "YES" }
+ { "#comment" = "(default follows)" }
+ { "chroot_list_file" = "/etc/vsftpd/chroot_list" }
+ {}
+ {}
+ { "pam_service_name" = "vsftpd" }
+ { "userlist_enable" = "YES" }
+ { "tcp_wrappers" = "YES" }
+ { "allow_writeable_chroot" = "YES" }
+ {}
+
diff --git a/Sharp.Augeas.Test/lens/tests/test_webmin.aug b/Sharp.Augeas.Test/lens/tests/test_webmin.aug
new file mode 100644
index 0000000..a61dc38
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_webmin.aug
@@ -0,0 +1,11 @@
+module Test_webmin =
+
+let conf = "port=10000
+realm=Webmin Server
+denyfile=\.pl$
+"
+
+test Webmin.lns get conf =
+ { "port" = "10000" }
+ { "realm" = "Webmin Server" }
+ { "denyfile" = "\.pl$" }
diff --git a/Sharp.Augeas.Test/lens/tests/test_wine.aug b/Sharp.Augeas.Test/lens/tests/test_wine.aug
new file mode 100644
index 0000000..3faf31f
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_wine.aug
@@ -0,0 +1,163 @@
+module Test_wine =
+
+let s1 = "WINE REGISTRY Version 2
+;; All keys relative to \\Machine
+
+[Software\\Borland\\Database Engine\\Settings\\SYSTEM\\INIT] 1255960431
+\"SHAREDMEMLOCATION\"=\"9000\"
+
+[Software\\Classes\\.gif] 1255960430
+@=\"giffile\"
+\"Content Type\"=\"image/gif\"
+
+[Software\\Classes\\CLSID\\{083863F1-70DE-11D0-BD40-00A0C911CE86}\\Instance\\{1B544C20-FD0B-11CE-8C63-00AA0044B51E}] 1255960430
+\"CLSID\"=\"{1B544C20-FD0B-11CE-8C63-00AA0044B51E}\"
+\"FilterData\"=hex:02,00,00,00,00,00,60,00,02,00,00,00,00,00,00,00,30,70,69,33,\
+ 9f,53,00,20,af,0b,a7,70,76,69,64,73,00,00,10,00,80,00,00,aa,00,38,9b,71,00,\
+ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00
+\"FriendlyName\"=\"AVI Splitter\"
+
+[Software\\Classes\\CLSID\\{0AFACED1-E828-11D1-9187-B532F1E9575D}\\ShellFolder] 1255960429
+\"Attributes\"=dword:60010000
+\"CallForAttributes\"=dword:f0000000
+"
+
+test Wine.lns get s1 =
+ { "registry" = "WINE REGISTRY" }
+ { "version" = "2" }
+ { "#comment" = "All keys relative to \Machine" }
+ { }
+ { "section" = "Software\Borland\Database Engine\Settings\SYSTEM\INIT"
+ { "timestamp" = "1255960431" }
+ { "entry"
+ { "key" = "SHAREDMEMLOCATION" }
+ { "value" = "9000" } }
+ { } }
+ { "section" = "Software\Classes\.gif"
+ { "timestamp" = "1255960430" }
+ { "anon" { "value" = "giffile" } }
+ { "entry"
+ { "key" = "Content Type" }
+ { "value" = "image/gif" } }
+ { } }
+ { "section" = "Software\Classes\CLSID\{083863F1-70DE-11D0-BD40-00A0C911CE86}\Instance\{1B544C20-FD0B-11CE-8C63-00AA0044B51E}"
+ { "timestamp" = "1255960430" }
+ { "entry"
+ { "key" = "CLSID" }
+ { "value" = "{1B544C20-FD0B-11CE-8C63-00AA0044B51E}" } }
+ { "entry"
+ { "key" = "FilterData" }
+ { "type" = "hex" }
+ { "value" = "02,00,00,00,00,00,60,00,02,00,00,00,00,00,00,00,30,70,69,33,\
+ 9f,53,00,20,af,0b,a7,70,76,69,64,73,00,00,10,00,80,00,00,aa,00,38,9b,71,00,\
+ 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00" } }
+ { "entry"
+ { "key" = "FriendlyName" }
+ { "value" = "AVI Splitter" } }
+ { } }
+ { "section" = "Software\Classes\CLSID\{0AFACED1-E828-11D1-9187-B532F1E9575D}\ShellFolder"
+ { "timestamp" = "1255960429" }
+ { "entry"
+ { "key" = "Attributes" }
+ { "type" = "dword" }
+ { "value" = "60010000" } }
+ { "entry"
+ { "key" = "CallForAttributes" }
+ { "type" = "dword" }
+ { "value" = "f0000000" } } }
+
+(* The weird 'str(2)' type *)
+let s2 = "[Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\User Shell Folders] 1248768928
+\"AppData\"=str(2):\"%USERPROFILE%\\Application Data\"
+\"Cache\"=str(2):\"%USERPROFILE%\\Local Settings\\Temporary Internet Files\"
+\"Cookies\"=str(2):\"%USERPROFILE%\\Cookies\"
+\"Desktop\"=str(2):\"%USERPROFILE%\\Desktop\"
+"
+
+test Wine.section get s2 =
+ { "section" =
+ "Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders"
+ { "timestamp" = "1248768928" }
+ { "entry"
+ { "key" = "AppData" }
+ { "type" = "str(2)" }
+ { "value" = "%USERPROFILE%\Application Data" } }
+ { "entry"
+ { "key" = "Cache" }
+ { "type" = "str(2)" }
+ { "value" = "%USERPROFILE%\Local Settings\Temporary Internet Files" } }
+ { "entry"
+ { "key" = "Cookies" }
+ { "type" = "str(2)" }
+ { "value" = "%USERPROFILE%\Cookies" } }
+ { "entry"
+ { "key" = "Desktop" }
+ { "type" = "str(2)" }
+ { "value" = "%USERPROFILE%\Desktop" } } }
+
+(* Quoted doublequotes embedded in the string *)
+let s3 = "[Software\\Classes\\CLSID\\Shell\\OpenHomePage\\Command] 1248768931
+@=\"\\\"C:\\Program Files\\Internet Explorer\\iexplore.exe\\\"\"\n"
+
+test Wine.section get s3 =
+ { "section" = "Software\Classes\CLSID\Shell\OpenHomePage\Command"
+ { "timestamp" = "1248768931" }
+ { "anon"
+ { "value" = "\\\"C:\Program Files\Internet Explorer\iexplore.exe\\\"" } } }
+
+(* There's a str(7) type, too *)
+let s4 = "[Software\\Microsoft\\Cryptography\\OID\\EncodingType 1\\CertDllVerifyRevocation\\DEFAULT] 1248768928
+\"Dll\"=str(7):\"cryptnet.dll\0\"\n"
+
+test Wine.section get s4 =
+ { "section" = "Software\Microsoft\Cryptography\OID\EncodingType 1\CertDllVerifyRevocation\DEFAULT"
+ { "timestamp" = "1248768928" }
+ { "entry"
+ { "key" = "Dll" }
+ { "type" = "str(7)" }
+ { "value" = "cryptnet.dll\0" } } }
+
+(* The Windows Registry Editor header *)
+test Wine.header get "Windows Registry Editor Version 5.00\n" =
+ { "registry" = "Windows Registry Editor" }
+ { "version" = "5.00" }
+
+(* The type hex(7) *)
+let s5 = "[HKEY_LOCAL_MACHINE\SOFTWARE\ADFS]
+\"Patches\"=hex(7):25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,61,00,\
+ 64,00,66,00,73,00,73,00,70,00,32,00,2e,00,6d,00,73,00,70,00,\
+ 00,00,00,00,f8
+"
+test Wine.section get s5 =
+ { "section" = "HKEY_LOCAL_MACHINE\SOFTWARE\ADFS"
+ { "entry"
+ { "key" = "Patches" }
+ { "type" = "hex(7)" }
+ { "value" = "25,00,77,00,69,00,6e,00,64,00,69,00,72,00,25,00,5c,00,61,00,\
+ 64,00,66,00,73,00,73,00,70,00,32,00,2e,00,6d,00,73,00,70,00,\
+ 00,00,00,00,f8" } } }
+
+(* Test DOS line endings *)
+let s6 = "Windows Registry Editor Version 5.00\r\n\r
+[HKEY_LOCAL_MACHINE\SOFTWARE\C07ft5Y\WinXP]\r
+\"@\"=\"\"\r
+\r
+[HKEY_LOCAL_MACHINE\SOFTWARE\Classes]\r\n"
+
+test Wine.lns get s6 =
+ { "registry" = "Windows Registry Editor" }
+ { "version" = "5.00" }
+ { }
+ { "section" = "HKEY_LOCAL_MACHINE\SOFTWARE\C07ft5Y\WinXP"
+ { "anon" { "value" = "" } }
+ { } }
+ { "section" = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes" }
+
+(* Keys can contain '/' *)
+let s7 =
+"\"application/vnd.ms-xpsdocument\"=\"{c18d5e87-12b4-46a3-ae40-67cf39bc6758}\"\n"
+
+test Wine.entry get s7 =
+ { "entry"
+ { "key" = "application/vnd.ms-xpsdocument" }
+ { "value" = "{c18d5e87-12b4-46a3-ae40-67cf39bc6758}" } }
diff --git a/Sharp.Augeas.Test/lens/tests/test_xendconfsxp.aug b/Sharp.Augeas.Test/lens/tests/test_xendconfsxp.aug
new file mode 100644
index 0000000..3a893d5
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_xendconfsxp.aug
@@ -0,0 +1,334 @@
+module Test_xendconfsxp =
+
+ (* Empty file and comments *)
+
+ test Xendconfsxp.lns get "\n" = { }
+
+ test Xendconfsxp.lns get "# my comment\n" =
+ { "#scomment" = " my comment" }
+
+ test Xendconfsxp.lns get " \n# my comment\n" =
+ { }
+ { "#scomment" = " my comment" }
+
+ test Xendconfsxp.lns get "# my comment\n\n" =
+ { "#scomment" = " my comment" }
+ { }
+
+ test Xendconfsxp.lns get "# my comment\n \n" =
+ { "#scomment" = " my comment" }
+ { }
+
+ test Xendconfsxp.lns get "# my comment\n#com2\n" =
+ { "#scomment" = " my comment" }
+ { "#scomment" = "com2" }
+
+ test Xendconfsxp.lns get "# my comment\n\n" =
+ { "#scomment" = " my comment" }
+ { }
+
+ test Xendconfsxp.lns get "\n# my comment\n" =
+ { }
+ { "#scomment" = " my comment" }
+
+ test Xendconfsxp.lns get "(key value)" =
+ { "key" { "item" = "value" } }
+
+ test Xendconfsxp.lns get "(key value)\n# com\n" =
+ { "key" { "item" = "value" } }
+ { }
+ { "#scomment" = " com" }
+
+ test Xendconfsxp.lns get "(k2ey value)" =
+ { "k2ey" { "item" = "value" } }
+
+ test Xendconfsxp.lns get "(- value)" =
+ { "-" { "item" = "value" } }
+
+ test Xendconfsxp.lns get "(-bar value)" =
+ { "-bar" { "item" = "value" } }
+
+ test Xendconfsxp.lns get "(k-ey v-alue)\n# com\n" =
+ { "k-ey" { "item" = "v-alue" } }
+ { }
+ { "#scomment" = " com" }
+
+ test Xendconfsxp.lns get "(key value)" =
+ { "key" { "item" = "value" } }
+
+ test Xendconfsxp.lns get "(key value)(key2 value2)" =
+ { "key"
+ { "item" = "value" }
+ }
+ { "key2"
+ { "item" = "value2" }
+ }
+
+ test Xendconfsxp.lns get "( key value )( key2 value2 )" =
+ { "key"
+ { "item" = "value" }
+ }
+ { "key2"
+ { "item" = "value2" }
+ }
+
+ let source_7 = "(key value)(key2 value2)"
+ test Xendconfsxp.lns get source_7 =
+ { "key"
+ { "item" = "value" }
+ }
+ { "key2"
+ { "item" = "value2" }
+ }
+
+(* 2 items? it is a key/item *)
+
+ test Xendconfsxp.lns get "(key value)" =
+ { "key"
+ { "item" = "value" }
+ }
+
+ test Xendconfsxp.lns get "( key value )" =
+ { "key"
+ { "item" = "value" }
+ }
+
+(* 3 items? Not allowed. 2nd item must be in ()'s *)
+ test Xendconfsxp.lns get "(key value value2)" = *
+
+(* key/list pairs. *)
+
+(* 0 item -- TODO: implement this. *)
+
+ test Xendconfsxp.lns get "( key ())" = *
+
+(* 1 item *)
+
+ test Xendconfsxp.lns get "(key (listitem1) )" =
+ { "key"
+ { "array"
+ { "item" = "listitem1" }
+ }
+ }
+
+ test Xendconfsxp.lns get "(key ( (foo bar bar bat ) ) )" =
+ { "key"
+ { "array"
+ { "array"
+ { "item" = "foo" }
+ { "item" = "bar" }
+ { "item" = "bar" }
+ { "item" = "bat" }
+ }
+ }
+ }
+
+ test Xendconfsxp.lns get "(key ((foo foo foo (bar bar bar))))" =
+ { "key"
+ { "array"
+ { "array"
+ { "item" = "foo" }
+ { "item" = "foo" }
+ { "item" = "foo" }
+ { "array"
+ { "item" = "bar" }
+ { "item" = "bar" }
+ { "item" = "bar" }
+ }
+ }
+ }
+ }
+
+(* 2 item *)
+
+ test Xendconfsxp.lns get "(xen-api-server (foo bar))" =
+ { "xen-api-server"
+ { "array"
+ { "item" = "foo" }
+ { "item" = "bar" }
+ }
+ }
+
+ test Xendconfsxp.lns get "( key ( value value2 ))" =
+ { "key"
+ { "array"
+ { "item" = "value" }
+ { "item" = "value2" }
+ }
+ }
+
+(* 3 item *)
+
+ test Xendconfsxp.lns get "( key ( value value2 value3 ))" =
+ { "key"
+ { "array"
+ { "item" = "value" }
+ { "item" = "value2" }
+ { "item" = "value3" }
+ }
+ }
+
+(* quotes *)
+ test Xendconfsxp.lns get "(key \"foo\")" = { "key" { "item" = "\"foo\"" } }
+ test Xendconfsxp.lns get "(key \"\")" = { "key" { "item" = "\"\"" } }
+ test Xendconfsxp.lns get "( key \"foo\" )" = { "key" { "item" = "\"foo\"" } }
+ test Xendconfsxp.lns get "( key \"f oo\" )" = { "key" { "item" = "\"f oo\"" } }
+ test Xendconfsxp.lns get "( key \"f oo\" )" = { "key" { "item" = "\"f oo\"" } }
+ test Xendconfsxp.lns get "(foo \"this is \\\"quoted\\\" in quotes\")" =
+ { "foo" { "item" = "\"this is \\\"quoted\\\" in quotes\"" } }
+
+ test Xendconfsxp.lns get "( key \"fo\\'\" )" = { "key" { "item" = "\"fo\\'\""} }
+ test Xendconfsxp.lns get "( key \"fo\\'\" )" = { "key" { "item" = "\"fo\\'\""} }
+ test Xendconfsxp.lns get "( key \"\")" = { "key" { "item" = "\"\"" } }
+
+(* Newlines in strange places *)
+ test Xendconfsxp.lns get "(\nkey\nbar\n)" = { "key" { "item" = "bar" } }
+ test Xendconfsxp.lns get "(\n\n\nkey\n\n\nbar\n\n\n)" = { "key" { "item" = "bar" } }
+ test Xendconfsxp.lns get "(\nkey\nbar\n)" = { "key" { "item" = "bar" } }
+
+(* Comments in strange places *)
+ test Xendconfsxp.lns get "(\nkey #aa\nbar)" =
+ { "key"
+ { "#comment" = "aa" }
+ { "item" = "bar" }
+ }
+
+ test Xendconfsxp.lns get "(\nkey\n#aa\nbar)" =
+ { "key"
+ { "#comment" = "aa" }
+ { "item" = "bar" }
+ }
+
+ test Xendconfsxp.lns get "(\nkey\n #aa\nbar)" =
+ { "key"
+ { "#comment" = "aa" }
+ { "item" = "bar" }
+ }
+
+(* Comments must have 1 space before the # *)
+ test Xendconfsxp.lns get "(\nkey# com\nbar\n)" = *
+ test Xendconfsxp.lns get "(\nkey#aa\nbar)" = *
+
+(* Comments may start a line *)
+ test Xendconfsxp.lns get "(\nkey\n# com\nbar)" =
+ { "key"
+ { "#comment" = "com" }
+ { "item" = "bar" }
+ }
+ test Xendconfsxp.lns get "(\nkey\n#aa\nbar)" =
+ { "key"
+ { "#comment" = "aa" }
+ { "item" = "bar" }
+ }
+
+(* Sub lists *)
+ test Xendconfsxp.lns get "(key ((foo foo) (bar bar)))" =
+ { "key"
+ { "array"
+ { "array"
+ { "item" = "foo" }
+ { "item" = "foo" }
+ }
+ { "array"
+ { "item" = "bar" }
+ { "item" = "bar" }
+ }
+ }
+ }
+
+
+ test Xendconfsxp.lns get "(aaa ((bbb ccc ddd) (eee fff)))" =
+ { "aaa"
+ { "array"
+ { "array"
+ { "item" = "bbb" }
+ { "item" = "ccc" }
+ { "item" = "ddd" }
+ }
+ { "array"
+ { "item" = "eee" }
+ { "item" = "fff" }
+ }
+ }
+ }
+
+(* Comments in strange places *)
+ test Xendconfsxp.lns get "(\nkey\nbar # bb\n)" =
+ { "key"
+ { "item" = "bar" }
+ { "#comment" = "bb" }
+ }
+ test Xendconfsxp.lns get "(\nkey\nbar \n#cc\n)" =
+ { "key" { "item" = "bar" }
+ { "#comment" = "cc" } }
+ test Xendconfsxp.lns get "(\nkey\nbar \n #cc\n)" =
+ { "key" { "item" = "bar" }
+ { "#comment" = "cc" } }
+ test Xendconfsxp.lns get "(\nkey\nbar \n #cc\n )" =
+ { "key" { "item" = "bar" }
+ { "#comment" = "cc" } }
+ test Xendconfsxp.lns get "(foo ((foo foo foo) (unix none)))" =
+ { "foo"
+ { "array"
+ { "array"
+ { "item" = "foo" }
+ { "item" = "foo" }
+ { "item" = "foo" }
+ }
+ { "array"
+ { "item" = "unix" }
+ { "item" = "none" }
+ }
+ }
+ }
+
+ test Xendconfsxp.lns get "(foo ((foo foo 'foo') (unix none)))" =
+ { "foo"
+ { "array"
+ { "array"
+ { "item" = "foo" }
+ { "item" = "foo" }
+ { "item" = "'foo'" }
+ }
+ { "array"
+ { "item" = "unix" }
+ { "item" = "none" }
+ }
+ }
+ }
+
+ test Xendconfsxp.lns get "(xen-api-server ((9363 pam '^localhost$ example\\.com$') (unix none)))" =
+ { "xen-api-server"
+ { "array"
+ { "array"
+ { "item" = "9363" }
+ { "item" = "pam" }
+ { "item" = "'^localhost$ example\.com$'" }
+ }
+ { "array"
+ { "item" = "unix" }
+ { "item" = "none" }
+ }
+ }
+ }
+
+ test Xendconfsxp.lns get "# -*- sh -*-\n#foo\n#bar\n\n\n(foo bar)" =
+ { "#scomment" = " -*- sh -*-" }
+ { "#scomment" = "foo" }
+ { "#scomment" = "bar" }
+ { }
+ { }
+ { "foo"
+ { "item" = "bar" }
+ }
+
+(* Test whitespace before lparen *)
+ test Xendconfsxp.lns get " (network-script network-bridge)\n#\n" =
+ { "network-script" { "item" = "network-bridge" } }
+ { }
+ { "#scomment" = "" }
+
+(* Bugs: *)
+
+(* Note: It works if you change the last \n to \t *)
+ test Xendconfsxp.lns get "(\nkey\n# com\nbar\n)" = *
diff --git a/Sharp.Augeas.Test/lens/tests/test_xinetd.aug b/Sharp.Augeas.Test/lens/tests/test_xinetd.aug
new file mode 100644
index 0000000..ff69f29
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_xinetd.aug
@@ -0,0 +1,90 @@
+module Test_xinetd =
+
+let eol_ws = "defaults \t \n{\n enabled = cvs echo \n}\n\n"
+
+let cvs = "# default: off
+# description: The CVS service can record the history of your source
+# files. CVS stores all the versions of a file in a single
+# file in a clever way that only stores the differences
+# between versions.
+service cvspserver
+{
+ disable = yes
+ port = 2401
+ socket_type = stream
+ protocol = tcp
+ wait = no
+ user = root
+ passenv = PATH
+ server = /usr/bin/cvs
+ env -= HOME=/var/cvs
+ server_args = -f --allow-root=/var/cvs pserver
+# bind = 127.0.0.1
+ log_on_failure += HOST
+ FLAGS = IPv6 IPv4
+}
+"
+
+let lst_add = "service svc_add
+{
+ log_on_failure += HOST
+}
+"
+
+test Xinetd.lns get eol_ws =
+ { "defaults" { "enabled"
+ { "value" = "cvs" }
+ { "value" = "echo" } } }
+ {}
+
+test Xinetd.lns put eol_ws after rm "/defaults/enabled/value[last()]" =
+ "defaults \t \n{\n enabled = cvs \n}\n\n"
+
+test Xinetd.lns get cvs =
+ { "#comment" = "default: off" }
+ { "#comment" = "description: The CVS service can record the history of your source" }
+ { "#comment" = "files. CVS stores all the versions of a file in a single" }
+ { "#comment" = "file in a clever way that only stores the differences" }
+ { "#comment" = "between versions." }
+ { "service" = "cvspserver"
+ { "disable" = "yes" }
+ { "port" = "2401" }
+ { "socket_type" = "stream" }
+ { "protocol" = "tcp" }
+ { "wait" = "no" }
+ { "user" = "root" }
+ { "passenv" { "value" = "PATH" } }
+ { "server" = "/usr/bin/cvs" }
+ { "env" { "del" } { "value" = "HOME=/var/cvs" } }
+ { "server_args"
+ { "value" = "-f" }
+ { "value" = "--allow-root=/var/cvs" }
+ { "value" = "pserver" } }
+ { "#comment" = "bind = 127.0.0.1" }
+ { "log_on_failure" { "add" } { "value" = "HOST" } }
+ { "FLAGS"
+ { "value" = "IPv6" }
+ { "value" = "IPv4" } } }
+
+(* Switch the '+=' to a simple '=' *)
+test Xinetd.lns put lst_add after rm "/service/log_on_failure/add" =
+ "service svc_add\n{\n log_on_failure = HOST\n}\n"
+
+test Xinetd.lns put "" after
+ set "/service" "svc";
+ set "/service/instances" "UNLIMITED" = "service svc
+{
+\tinstances = UNLIMITED
+}
+"
+
+(* Support missing values in lists *)
+test Xinetd.lns get "service check_mk\n{\n log_on_success =\n server_args=\n}\n" =
+ { "service" = "check_mk"
+ { "log_on_success" }
+ { "server_args" }
+ }
+
+(* Local Variables: *)
+(* mode: caml *)
+(* End: *)
diff --git a/Sharp.Augeas.Test/lens/tests/test_xml.aug b/Sharp.Augeas.Test/lens/tests/test_xml.aug
new file mode 100644
index 0000000..7156083
--- /dev/null
+++ b/Sharp.Augeas.Test/lens/tests/test_xml.aug
@@ -0,0 +1,905 @@
+(*
+Module: Test_Xml
+ Provides unit tests and examples for the <Xml> lens.
+*)
+
+module Test_Xml =
+
+(* View: knode
+ A simple flag function
+
+ Parameters:
+ r:regexp - the pattern for the flag
+*)
+let knode (r:regexp) = [ key r ]
+
+(************************************************************************
+ * Group: Utilities lens
+ *************************************************************************)
+(*
+let _ = print_regexp(lens_ctype(Xml.text))
+let _ = print_endline ""
+*)
+
+(* Group: Comments *)
+
+(* Test: Xml.comment
+ Comments get mapped into "#comment" nodes. *)
+test Xml.comment get
+ "<!-- declarations for <head> & <body> -->" =
+
+ { "#comment" = " declarations for <head> & <body> " }
+
+(* Test: Xml.comment
+ This syntax is not understood. *)
+test Xml.comment get
+ "<!-- B+, B, or B--->" = *
+
+(* Group: Prolog and declarations *)
+
+(* Test: Xml.prolog
+ The XML prolog tag is mapped in a "#declaration" node,
+ which contains an "#attribute" node with various attributes of the tag. *)
+test Xml.prolog get
+ "<?xml version=\"1.0\" encoding=\"UTF-8\"?>" =
+
+ { "#declaration"
+ { "#attribute"
+ { "version" = "1.0" }
+ { "encoding" = "UTF-8" }
+ }
+ }
+
+(* Test: Xml.decl_def_item
+ !ELEMENT declaration tags are mapped in "!ELEMENT" nodes.
+ The associated declaration attribute is mapped in a "#decl" subnode. *)
+test Xml.decl_def_item get
+ "<!ELEMENT greeting (#PCDATA)>" =
+
+ { "!ELEMENT" = "greeting"
+ { "#decl" = "(#PCDATA)" }
+ }
+
+(* Test: Xml.decl_def_item
+ !ENTITY declaration tags are mapped in "!ENTITY" nodes.
+ The associated declaration attribute is mapped in a "#decl" subnode. *)
+test Xml.decl_def_item get
+ "<!ENTITY da \"
\">" =
+
+ { "!ENTITY" = "da"
+ { "#decl" = "
" }
+ }
+
+(* Test: Xml.doctype
+ !DOCTYPE tags are mapped in "!DOCTYPE" nodes.
+ The associated system attribute is mapped in a "SYSTEM" subnode. *)
+test Xml.doctype get
+ "<!DOCTYPE greeting:foo SYSTEM \"hello.dtd\">" =
+
+ { "!DOCTYPE" = "greeting:foo"
+ { "SYSTEM" = "hello.dtd" }
+ }
+
+(* Test: Xml.doctype
+ This is an example of a !DOCTYPE tag with !ELEMENT children tags. *)
+test Xml.doctype get "<!DOCTYPE foo [
+<!ELEMENT bar (#PCDATA)>
+<!ELEMENT baz (bar)* >
+]>" =
+
+ { "!DOCTYPE" = "foo"
+ { "!ELEMENT" = "bar"
+ { "#decl" = "(#PCDATA)" }
+ }
+ { "!ELEMENT" = "baz"
+ { "#decl" = "(bar)*" }
+ }
+ }
+
+(* Group: Attributes *)
+
+(* Variable: att_def1 *)
+let att_def1 = "<!ATTLIST termdef
+id ID #REQUIRED
+name CDATA #IMPLIED>"
+(* Variable: att_def2 *)
+let att_def2 = "<!ATTLIST list
+type (bullets|ordered|glossary) \"ordered\">"
+(* Variable: att_def3 *)
+let att_def3 = "<!ATTLIST form
+method CDATA #FIXED \"POST\">"
+
+(* Test: Xml.att_list_def *)
+test Xml.att_list_def get
+ att_def1 =
+
+ { "!ATTLIST" = "termdef"
+ { "1"
+ { "#name" = "id" }
+ { "#type" = "ID" }
+ { "#REQUIRED" }
+ }
+ { "2"
+ { "#name" = "name" }
+ { "#type" = "CDATA" }
+ { "#IMPLIED" }
+ }
+ }
+
+(* Test: Xml.att_list_def *)
+test Xml.att_list_def get
+ att_def2 =
+
+ { "!ATTLIST" = "list"
+ { "1"
+ { "#name" = "type" }
+ { "#type" = "(bullets|ordered|glossary)" }
+ { "#FIXED" = "ordered" }
+ }
+ }
+
+(* Test: Xml.att_list_def *)
+test Xml.att_list_def get
+ att_def3 =
+
+ { "!ATTLIST" = "form"
+ { "1"
+ { "#name" = "method" }
+ { "#type" = "CDATA" }
+ { "#FIXED" = "POST" }
+ }
+ }
+
+(* Test: Xml.notation_def *)
+test Xml.notation_def get
+ "<!NOTATION not3 SYSTEM \"\">" =
+
+ { "!NOTATION" = "not3"
+ { "SYSTEM" = "" }
+ }
+
+(* Variable: cdata1 *)
+let cdata1 = "<![CDATA[testing]]>"
+(* Test: Xml.cdata *)
+test Xml.cdata get cdata1 = { "#CDATA" = "testing" }
+
+(* Variable: attr1 *)
+let attr1 = " attr1=\"value1\" attr2=\"value2\""
+(* Variable: attr2 *)
+let attr2 = " attr2=\"foo\""
+(* Test: Xml.attributes *)
+test Xml.attributes get attr1 =
+ { "#attribute"
+ { "attr1" = "value1" }
+ { "attr2" = "value2" }
+ }
+
+(* Test: Xml.attributes *)
+test Xml.attributes get " refs=\"A1\nA2 A3\"" =
+ { "#attribute"
+ { "refs" = "A1\nA2 A3" }
+ }
+
+(* Test: Xml.attributes *)
+test Xml.attributes put attr1 after rm "/#attribute[1]";
+ set "/#attribute/attr2" "foo" = attr2
+
+(* test quoting *)
+(* well formed values *)
+test Xml.attributes get " attr1=\"value1\"" = { "#attribute" { "attr1" = "value1" } }
+test Xml.attributes get " attr1='value1'" = { "#attribute" { "attr1" = "value1" } }
+test Xml.attributes get " attr1='va\"lue1'" = { "#attribute" { "attr1" = "va\"lue1" } }
+test Xml.attributes get " attr1=\"va'lue1\"" = { "#attribute" { "attr1" = "va'lue1" } }
+
+(* illegal as per the XML standard *)
+test Xml.attributes get " attr1=\"va\"lue1\"" = *
+test Xml.attributes get " attr1='va'lue1'" = *
+
+(* malformed values *)
+test Xml.attributes get " attr1=\"value1'" = *
+test Xml.attributes get " attr1='value1\"" = *
+
+(* Group: empty *)
+
+(* Variable: empty1 *)
+let empty1 = "<a/>"
+(* Variable: empty2 *)
+let empty2 = "<a foo=\"bar\"/>"
+(* Variable: empty3 *)
+let empty3 = "<a foo=\"bar\"></a>\n"
+(* Variable: empty4 *)
+let empty4 = "<a foo=\"bar\" far=\"baz\"/>"
+(* Test: Xml.empty_element *)
+test Xml.empty_element get empty1 = { "a" = "#empty" }
+(* Test: Xml.empty_element *)
+test Xml.empty_element get empty2 =
+ { "a" = "#empty" { "#attribute" { "foo" = "bar"} } }
+
+(* Test: Xml.empty_element *)
+test Xml.empty_element put empty1 after set "/a/#attribute/foo" "bar" = empty2
+
+(* Test: Xml.empty_element
+ The attribute node must be the first child of the element *)
+test Xml.empty_element put empty1 after set "/a/#attribute/foo" "bar";
+ set "/a/#attribute/far" "baz" = empty4
+
+(* Test: Xml.content *)
+test Xml.content put "<a><b/></a>" after clear "/a/b" = "<a><b></b>\n</a>"
+
+
+(* Group: Full lens *)
+
+(* Test: Xml.lns *)
+test Xml.lns put "<a></a >" after set "/a/#text[1]" "foo";
+ set "/a/#text[2]" "bar" = "<a>foobar</a >"
+
+(* Test: Xml.lns *)
+test Xml.lns get "<?xml version=\"1.0\"?>
+<!DOCTYPE catalog PUBLIC \"-//OASIS//DTD XML Catalogs V1.0//EN\"
+ \"file:///usr/share/xml/schema/xml-core/catalog.dtd\">
+ <doc/>" =
+ { "#declaration"
+ { "#attribute"
+ { "version" = "1.0" }
+ }
+ }
+ { "!DOCTYPE" = "catalog"
+ { "PUBLIC"
+ { "#literal" = "-//OASIS//DTD XML Catalogs V1.0//EN" }
+ { "#literal" = "file:///usr/share/xml/schema/xml-core/catalog.dtd" }
+ }
+ }
+ { "doc" = "#empty" }
+
+(* Test: Xml.lns *)
+test Xml.lns get "<oor:component-data xmlns:oor=\"http://openoffice.org/2001/registry\"/>
+" =
+ { "oor:component-data" = "#empty"
+ { "#attribute"
+ { "xmlns:oor" = "http://openoffice.org/2001/registry" }
+ }
+ }
+
+(* Variable: input1 *)
+let input1 = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
+<html>\r
+ <head>
+ <title>Wiki
+
+
+ Augeas
+ Augeas is now able to parse XML files!
+
+ - Translate from XML to a tree syntax
+ - Translate from the tree back to XML
+ - this
+
+
+