[augeas-devel] [PATCH 2/5] * lenses/tests/test_sysconfig.aug: use a variable 'lns' for Sysconfig.lns

[lutter at redhat.com]

From: David Lutterkort <lutter at redhat.com>

---
 lenses/tests/test_sysconfig.aug |   46 ++++++++++++++++++++------------------
 1 files changed, 24 insertions(+), 22 deletions(-)

diff --git a/lenses/tests/test_sysconfig.aug b/lenses/tests/test_sysconfig.aug
index ef8abd4..aad47cf 100644
--- a/lenses/tests/test_sysconfig.aug
+++ b/lenses/tests/test_sysconfig.aug
@@ -1,6 +1,8 @@
 (* 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
@@ -16,7 +18,7 @@ unset ONBOOT
 
   let key_brack = "SOME_KEY[1]=\nDEVICE=eth0\n"
 
-  test Sysconfig.lns get eth_static =
+  test lns get eth_static =
     { "#comment" = "Intel Corporation PRO/100 VE Network Connection" }
     { "DEVICE" = "eth0" }
     { "BOOTPROTO" = "static" }
@@ -29,7 +31,7 @@ unset ONBOOT
     { "NETWORK" = "172.31.0.0" }
     { "@unset"   = "ONBOOT" }
 
-  test Sysconfig.lns put eth_static after
+  test lns put eth_static after
       set "BOOTPROTO" "dhcp" ;
       rm "IPADDR" ;
       rm "BROADCAST" ;
@@ -42,67 +44,67 @@ HWADDR=ab:cd:ef:12:34:56
 #DHCP_HOSTNAME=host.example.com
 unset ONBOOT
 "
-  test Sysconfig.lns get empty_val =
+  test lns get empty_val =
     { "EMPTY" = "" } { "DEVICE" = "eth0" }
 
-  test Sysconfig.lns get key_brack =
+  test lns get key_brack =
     { "SOME_KEY[1]" = "" } { "DEVICE" = "eth0" }
 
-  test Sysconfig.lns get "smartd_opts=\"-q never\"\n" =
+  test lns get "smartd_opts=\"-q never\"\n" =
     { "smartd_opts" = "-q never" }
 
-  test Sysconfig.lns get "var=val  \n" = { "var" = "val" }
+  test lns get "var=val  \n" = { "var" = "val" }
 
-  test Sysconfig.lns get ". /etc/java/java.conf\n" =
+  test lns get ". /etc/java/java.conf\n" =
     { ".source" = "/etc/java/java.conf" }
 
   (* Quoted strings and other oddities *)
-  test Sysconfig.lns get "var=\"foo 'bar'\"\n" =
+  test lns get "var=\"foo 'bar'\"\n" =
     { "var" = "foo 'bar'" }
 
-  test Sysconfig.lns get "var=\"eth0\"\n" =
+  test lns get "var=\"eth0\"\n" =
     { "var" = "eth0" }
 
-  test Sysconfig.lns get "var='eth0'\n" =
+  test lns get "var='eth0'\n" =
     { "var" = "eth0" }
 
-  test Sysconfig.lns get "var='Some \"funny\" value'\n" =
+  test lns get "var='Some \"funny\" value'\n" =
     { "var" = "Some \"funny\" value" }
 
-  test Sysconfig.lns get "var=\"\\\"\"\n" =
+  test lns get "var=\"\\\"\"\n" =
     { "var" = "\\\"" }
 
-  test Sysconfig.lns get "var=\\\"\n" =
+  test lns get "var=\\\"\n" =
     { "var" = "\\\"" }
 
-  test Sysconfig.lns get "var=ab#c\n" =
+  test lns get "var=ab#c\n" =
     { "var" = "ab#c" }
 
   (* We don't handle backticks *)
-  test Sysconfig.lns get
+  test lns get
       "var=`grep nameserver /etc/resolv.conf | head -1`\n" = *
 
   (* We don't handle comments at the end of a line yet *)
-  test Sysconfig.lns get "var=ab #c\n" = *
+  test lns get "var=ab #c\n" = *
 
   (* Bug 109: allow a bare export *)
-  test Sysconfig.lns get "export FOO\n" =
+  test lns get "export FOO\n" =
   { "@export" = "FOO" }
 
   (* Check we put quotes in when changes require them *)
-  test Sysconfig.lns put "var=\"v\"\n" after rm "/foo" =
+  test lns put "var=\"v\"\n" after rm "/foo" =
     "var=\"v\"\n"
 
-  test Sysconfig.lns put "var=v\n" after set "/var" "v w"=
+  test lns put "var=v\n" after set "/var" "v w"=
     "var=\"v w\"\n"
 
-  test Sysconfig.lns put "var='v'\n" after set "/var" "v w"=
+  test lns put "var='v'\n" after set "/var" "v w"=
     "var='v w'\n"
 
-  test Sysconfig.lns put "var=v\n" after set "/var" "v'w"=
+  test lns put "var=v\n" after set "/var" "v'w"=
     "var=\"v'w\"\n"
 
-  test Sysconfig.lns put "var=v\n" after set "/var" "v\"w"=
+  test lns put "var=v\n" after set "/var" "v\"w"=
     "var='v\"w'\n"
 
 (* Local Variables: *)
-- 
1.7.7.6