[augeas-devel] [PATCH] Test for continuation lines

[David Lutterkort]

1 file changed, 19 insertions(+)
tests/modules/pass_cont_line.aug |   19 +++++++++++++++++++


# HG changeset patch
# User David Lutterkort <dlutter at redhat.com>
# Date 1218489926 25200
# Node ID 6c8cfb9b0d2d24d1e19dc8490c3f0100bf5bfa7d
# Parent  524fbc9f65e95d5f837f80a994d845893e0cabe5
Test for continuation lines

diff -r 524fbc9f65e9 -r 6c8cfb9b0d2d tests/modules/pass_cont_line.aug
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/modules/pass_cont_line.aug	Mon Aug 11 14:25:26 2008 -0700
@@ -0,0 +1,19 @@
+module Pass_cont_line =
+
+(* Parse a list of words where the list can stretch over multiple lines.
+   Mostly there to demonstrate how to deal with continuation lines. *)
+
+let list_elt = [ label "element" . store /[a-z]+/ ]
+
+let ws_cont = /([ \t]+|[ \t]*\\\\\n[ \t]*)/ 
+
+let sep = del ws_cont " "
+let eol = del /[ \t]*\n/ "\n"
+
+let list = list_elt . ( sep . list_elt )* . eol
+
+let exp_tree = { "element" = "a" } { "element" = "b" }
+
+test list get "a  b\n"      = exp_tree
+test list get "a  \\\n b\n" = exp_tree
+test list get "a\\\nb\n"    = exp_tree