Gecko [ paroquia-rio-de-mouro.pt ]

Name	Size	Permission	Date
test_access.aug	3.44 KB	-rw-r--r--	2017-08-18 18:45
test_activemq_conf.aug	758 B	-rw-r--r--	2017-08-18 18:45
test_activemq_xml.aug	1.63 KB	-rw-r--r--	2017-08-18 18:45
test_afs_cellalias.aug	1.31 KB	-rw-r--r--	2017-08-18 18:45
test_aliases.aug	2.99 KB	-rw-r--r--	2017-08-18 18:45
test_anacron.aug	1.21 KB	-rw-r--r--	2017-08-18 18:45
test_approx.aug	1.44 KB	-rw-r--r--	2017-08-18 18:45
test_apt_update_manager.aug	1.12 KB	-rw-r--r--	2017-08-18 18:45
test_aptcacherngsecurity.aug	1.17 KB	-rw-r--r--	2017-08-18 18:45
test_aptconf.aug	5.09 KB	-rw-r--r--	2017-08-18 18:45
test_aptpreferences.aug	1.86 KB	-rw-r--r--	2017-08-18 18:45
test_aptsource.aug	2.32 KB	-rw-r--r--	2017-08-18 18:45
test_authorized_keys.aug	4.47 KB	-rw-r--r--	2017-08-18 18:45
test_automaster.aug	1.53 KB	-rw-r--r--	2017-08-18 18:45
test_automounter.aug	5.2 KB	-rw-r--r--	2017-08-18 18:45
test_avahi.aug	545 B	-rw-r--r--	2017-08-18 18:45
test_backuppchosts.aug	623 B	-rw-r--r--	2017-08-18 18:45
test_bbhosts.aug	3.68 KB	-rw-r--r--	2017-08-18 18:45
test_bootconf.aug	980 B	-rw-r--r--	2017-08-18 18:45
test_build.aug	8.12 KB	-rw-r--r--	2017-08-18 18:45
test_cachefilesd.aug	579 B	-rw-r--r--	2017-08-18 18:45
test_carbon.aug	2.54 KB	-rw-r--r--	2017-08-18 18:45
test_cgconfig.aug	5.3 KB	-rw-r--r--	2017-08-18 18:45
test_cgrules.aug	903 B	-rw-r--r--	2017-08-18 18:45
test_channels.aug	4.72 KB	-rw-r--r--	2017-08-18 18:45
test_chrony.aug	2.98 KB	-rw-r--r--	2017-08-18 18:45
test_clamav.aug	8.48 KB	-rw-r--r--	2017-08-18 18:45
test_cobblermodules.aug	620 B	-rw-r--r--	2017-08-18 18:45
test_cobblersettings.aug	1.34 KB	-rw-r--r--	2017-08-18 18:45
test_collectd.aug	1.3 KB	-rw-r--r--	2017-08-18 18:45
test_cpanel.aug	1.62 KB	-rw-r--r--	2017-08-18 18:45
test_cron.aug	1.96 KB	-rw-r--r--	2017-08-18 18:45
test_crypttab.aug	1.28 KB	-rw-r--r--	2017-08-18 18:45
test_cups.aug	14.04 KB	-rw-r--r--	2017-08-18 18:45
test_cyrus_imapd.aug	1.33 KB	-rw-r--r--	2017-08-18 18:45
test_darkice.aug	575 B	-rw-r--r--	2017-08-18 18:45
test_debctrl.aug	13.94 KB	-rw-r--r--	2017-08-18 18:45
test_desktop.aug	1.23 KB	-rw-r--r--	2017-08-18 18:45
test_device_map.aug	797 B	-rw-r--r--	2017-08-18 18:45
test_dhclient.aug	4.62 KB	-rw-r--r--	2017-08-18 18:45
test_dhcpd.aug	15.07 KB	-rw-r--r--	2017-08-18 18:45
test_dns_zone.aug	10.33 KB	-rw-r--r--	2017-08-18 18:45
test_dnsmasq.aug	1.19 KB	-rw-r--r--	2017-08-18 18:45
test_dovecot.aug	22.15 KB	-rw-r--r--	2017-08-18 18:45
test_dpkg.aug	322 B	-rw-r--r--	2017-08-18 18:45
test_dput.aug	3.37 KB	-rw-r--r--	2017-08-18 18:45
test_erlang.aug	2.39 KB	-rw-r--r--	2017-08-18 18:45
test_ethers.aug	1.4 KB	-rw-r--r--	2017-08-18 18:45
test_exports.aug	1.49 KB	-rw-r--r--	2017-08-18 18:45
test_fai_diskconfig.aug	15.04 KB	-rw-r--r--	2017-08-18 18:45
test_fonts.aug	19.45 KB	-rw-r--r--	2017-08-18 18:45
test_fstab.aug	4.32 KB	-rw-r--r--	2017-08-18 18:45
test_fuse.aug	590 B	-rw-r--r--	2017-08-18 18:45
test_gdm.aug	620 B	-rw-r--r--	2017-08-18 18:45
test_group.aug	1017 B	-rw-r--r--	2017-08-18 18:45
test_grub.aug	9.41 KB	-rw-r--r--	2017-08-18 18:45
test_gshadow.aug	359 B	-rw-r--r--	2017-08-18 18:45
test_gtkbookmarks.aug	820 B	-rw-r--r--	2017-08-18 18:45
test_host_conf.aug	833 B	-rw-r--r--	2017-08-18 18:45
test_hostname.aug	103 B	-rw-r--r--	2017-08-18 18:45
test_hosts.aug	1.78 KB	-rw-r--r--	2017-08-18 18:45
test_hosts_access.aug	6.12 KB	-rw-r--r--	2017-08-18 18:45
test_htpasswd.aug	468 B	-rw-r--r--	2017-08-18 18:45
test_httpd.aug	10.01 KB	-rw-r--r--	2017-08-18 18:45
test_inetd.aug	4.51 KB	-rw-r--r--	2017-08-18 18:45
test_inifile.aug	11.64 KB	-rw-r--r--	2017-08-18 18:45
test_inittab.aug	1.82 KB	-rw-r--r--	2017-08-18 18:45
test_inputrc.aug	5.01 KB	-rw-r--r--	2017-08-18 18:45
test_interfaces.aug	3.49 KB	-rw-r--r--	2017-08-18 18:45
test_iproute2.aug	945 B	-rw-r--r--	2017-08-18 18:45
test_iptables.aug	7.39 KB	-rw-r--r--	2017-08-18 18:45
test_iscsid.aug	2.45 KB	-rw-r--r--	2017-08-18 18:45
test_jaas.aug	5.35 KB	-rw-r--r--	2017-08-18 18:45
test_jettyrealm.aug	982 B	-rw-r--r--	2017-08-18 18:45
test_jmxaccess.aug	637 B	-rw-r--r--	2017-08-18 18:45
test_jmxpassword.aug	653 B	-rw-r--r--	2017-08-18 18:45
test_json.aug	13.43 KB	-rw-r--r--	2017-08-18 18:45
test_kdump.aug	2.84 KB	-rw-r--r--	2017-08-18 18:45
test_keepalived.aug	13.65 KB	-rw-r--r--	2017-08-18 18:45
test_known_hosts.aug	946 B	-rw-r--r--	2017-08-18 18:45
test_koji.aug	1.65 KB	-rw-r--r--	2017-08-18 18:45
test_krb5.aug	28.11 KB	-rw-r--r--	2017-08-18 18:45
test_ldap.aug	398 B	-rw-r--r--	2017-08-18 18:45
test_ldif.aug	3.88 KB	-rw-r--r--	2017-08-18 18:45
test_ldso.aug	486 B	-rw-r--r--	2017-08-18 18:45
test_lightdm.aug	3.98 KB	-rw-r--r--	2017-08-18 18:45
test_limits.aug	924 B	-rw-r--r--	2017-08-18 18:45
test_login_defs.aug	528 B	-rw-r--r--	2017-08-18 18:45
test_logrotate.aug	7.81 KB	-rw-r--r--	2017-08-18 18:45
test_logwatch.aug	322 B	-rw-r--r--	2017-08-18 18:45
test_lokkit.aug	2.1 KB	-rw-r--r--	2017-08-18 18:45
test_lvm.aug	4.56 KB	-rw-r--r--	2017-08-18 18:45
test_mailscanner.aug	32.15 KB	-rw-r--r--	2017-08-18 18:45
test_mailscanner_rules.aug	2.6 KB	-rw-r--r--	2017-08-18 18:45
test_mcollective.aug	1.2 KB	-rw-r--r--	2017-08-18 18:45
test_mdadm_conf.aug	2.52 KB	-rw-r--r--	2017-08-18 18:45
test_memcached.aug	1.15 KB	-rw-r--r--	2017-08-18 18:45
test_mke2fs.aug	2.13 KB	-rw-r--r--	2017-08-18 18:45
test_modprobe.aug	4.07 KB	-rw-r--r--	2017-08-18 18:45
test_modules.aug	229 B	-rw-r--r--	2017-08-18 18:45
test_modules_conf.aug	3.23 KB	-rw-r--r--	2017-08-18 18:45
test_mongodbserver.aug	775 B	-rw-r--r--	2017-08-18 18:45
test_monit.aug	1.03 KB	-rw-r--r--	2017-08-18 18:45
test_multipath.aug	4.43 KB	-rw-r--r--	2017-08-18 18:45
test_mysql.aug	8.75 KB	-rw-r--r--	2017-08-18 18:45
test_nagioscfg.aug	2.95 KB	-rw-r--r--	2017-08-18 18:45
test_nagiosobjects.aug	1.69 KB	-rw-r--r--	2017-08-18 18:45
test_netmasks.aug	640 B	-rw-r--r--	2017-08-18 18:45
test_networkmanager.aug	1.27 KB	-rw-r--r--	2017-08-18 18:45
test_networks.aug	1.16 KB	-rw-r--r--	2017-08-18 18:45
test_nginx.aug	5.39 KB	-rw-r--r--	2017-08-18 18:45
test_nrpe.aug	1.82 KB	-rw-r--r--	2017-08-18 18:45
test_nsswitch.aug	1.4 KB	-rw-r--r--	2017-08-18 18:45
test_ntp.aug	4.33 KB	-rw-r--r--	2017-08-18 18:45
test_ntpd.aug	1.87 KB	-rw-r--r--	2017-08-18 18:45
test_odbc.aug	1.62 KB	-rw-r--r--	2017-08-18 18:45
test_openshift_config.aug	3.64 KB	-rw-r--r--	2017-08-18 18:45
test_openshift_http.aug	2.16 KB	-rw-r--r--	2017-08-18 18:45
test_openshift_quickstarts.aug	11.83 KB	-rw-r--r--	2017-08-18 18:45
test_openvpn.aug	3.83 KB	-rw-r--r--	2017-08-18 18:45
test_pagekite.aug	2.75 KB	-rw-r--r--	2017-08-18 18:45
test_pam.aug	1.54 KB	-rw-r--r--	2017-08-18 18:45
test_pamconf.aug	1010 B	-rw-r--r--	2017-08-18 18:45
test_passwd.aug	2.44 KB	-rw-r--r--	2017-08-18 18:45
test_pbuilder.aug	531 B	-rw-r--r--	2017-08-18 18:45
test_pg_hba.aug	6.1 KB	-rw-r--r--	2017-08-18 18:45
test_pgbouncer.aug	1.97 KB	-rw-r--r--	2017-08-18 18:45
test_php.aug	1.4 KB	-rw-r--r--	2017-08-18 18:45
test_phpvars.aug	1.63 KB	-rw-r--r--	2017-08-18 18:45
test_postfix_access.aug	1.52 KB	-rw-r--r--	2017-08-18 18:45
test_postfix_main.aug	1.03 KB	-rw-r--r--	2017-08-18 18:45
test_postfix_master.aug	3.77 KB	-rw-r--r--	2017-08-18 18:45
test_postfix_sasl_smtpd.aug	530 B	-rw-r--r--	2017-08-18 18:45
test_postfix_transport.aug	1.58 KB	-rw-r--r--	2017-08-18 18:45
test_postfix_virtual.aug	1.15 KB	-rw-r--r--	2017-08-18 18:45
test_postgresql.aug	8.07 KB	-rw-r--r--	2017-08-18 18:45
test_properties.aug	3.36 KB	-rw-r--r--	2017-08-18 18:45
test_protocols.aug	1.3 KB	-rw-r--r--	2017-08-18 18:45
test_puppet.aug	547 B	-rw-r--r--	2017-08-18 18:45
test_puppet_auth.aug	1.1 KB	-rw-r--r--	2017-08-18 18:45
test_puppetfile.aug	1.47 KB	-rw-r--r--	2017-08-18 18:45
test_puppetfileserver.aug	949 B	-rw-r--r--	2017-08-18 18:45
test_pylonspaste.aug	1.73 KB	-rw-r--r--	2017-08-18 18:45
test_pythonpaste.aug	1.23 KB	-rw-r--r--	2017-08-18 18:45
test_qpid.aug	1.3 KB	-rw-r--r--	2017-08-18 18:45
test_quote.aug	8.66 KB	-rw-r--r--	2017-08-18 18:45
test_rabbitmq.aug	2.85 KB	-rw-r--r--	2017-08-18 18:45
test_redis.aug	5.81 KB	-rw-r--r--	2017-08-18 18:45
test_reprepro_uploaders.aug	3.43 KB	-rw-r--r--	2017-08-18 18:45
test_resolv.aug	1.42 KB	-rw-r--r--	2017-08-18 18:45
test_rmt.aug	826 B	-rw-r--r--	2017-08-18 18:45
test_rsyncd.aug	1.27 KB	-rw-r--r--	2017-08-18 18:45
test_rsyslog.aug	3.62 KB	-rw-r--r--	2017-08-18 18:45
test_rx.aug	3.33 KB	-rw-r--r--	2017-08-18 18:45
test_samba.aug	3.52 KB	-rw-r--r--	2017-08-18 18:45
test_schroot.aug	2.25 KB	-rw-r--r--	2017-08-18 18:45
test_securetty.aug	636 B	-rw-r--r--	2017-08-18 18:45
test_services.aug	2.87 KB	-rw-r--r--	2017-08-18 18:45
test_shadow.aug	2.01 KB	-rw-r--r--	2017-08-18 18:45
test_shells.aug	348 B	-rw-r--r--	2017-08-18 18:45
test_shellvars.aug	12.86 KB	-rw-r--r--	2017-08-18 18:45
test_shellvars_list.aug	4.18 KB	-rw-r--r--	2017-08-18 18:45
test_simplelines.aug	724 B	-rw-r--r--	2017-08-18 18:45
test_simplevars.aug	994 B	-rw-r--r--	2017-08-18 18:45
test_sip_conf.aug	3.61 KB	-rw-r--r--	2017-08-18 18:45
test_slapd.aug	3.03 KB	-rw-r--r--	2017-08-18 18:45
test_smbusers.aug	601 B	-rw-r--r--	2017-08-18 18:45
test_solaris_system.aug	2.48 KB	-rw-r--r--	2017-08-18 18:45
test_soma.aug	424 B	-rw-r--r--	2017-08-18 18:45
test_spacevars.aug	408 B	-rw-r--r--	2017-08-18 18:45
test_splunk.aug	2.88 KB	-rw-r--r--	2017-08-18 18:45
test_squid.aug	5.09 KB	-rw-r--r--	2017-08-18 18:45
test_ssh.aug	1.51 KB	-rw-r--r--	2017-08-18 18:45
test_sshd.aug	3.91 KB	-rw-r--r--	2017-08-18 18:45
test_sssd.aug	896 B	-rw-r--r--	2017-08-18 18:45
test_stunnel.aug	791 B	-rw-r--r--	2017-08-18 18:45
test_subversion.aug	3.06 KB	-rw-r--r--	2017-08-18 18:45
test_sudoers.aug	9.17 KB	-rw-r--r--	2017-08-18 18:45
test_sysconfig.aug	4.1 KB	-rw-r--r--	2017-08-18 18:45
test_sysconfig_route.aug	522 B	-rw-r--r--	2017-08-18 18:45
test_sysctl.aug	1.34 KB	-rw-r--r--	2017-08-18 18:45
test_syslog.aug	10.68 KB	-rw-r--r--	2017-08-18 18:45
test_systemd.aug	7.95 KB	-rw-r--r--	2017-08-18 18:45
test_thttpd.aug	1.17 KB	-rw-r--r--	2017-08-18 18:45
test_tuned.aug	259 B	-rw-r--r--	2017-08-18 18:45
test_up2date.aug	6.23 KB	-rw-r--r--	2017-08-18 18:45
test_updatedb.aug	855 B	-rw-r--r--	2017-08-18 18:45
test_util.aug	428 B	-rw-r--r--	2017-08-18 18:45
test_vfstab.aug	2.79 KB	-rw-r--r--	2017-08-18 18:45
test_vmware_config.aug	1.7 KB	-rw-r--r--	2017-08-18 18:45
test_vsftpd.aug	2.43 KB	-rw-r--r--	2017-08-18 18:45
test_webmin.aug	195 B	-rw-r--r--	2017-08-18 18:45
test_wine.aug	5.58 KB	-rw-r--r--	2017-08-18 18:45
test_xendconfsxp.aug	7.74 KB	-rw-r--r--	2017-08-18 18:45
test_xinetd.aug	2.78 KB	-rw-r--r--	2017-08-18 18:45
test_xml.aug	17.88 KB	-rw-r--r--	2017-08-18 18:45
test_xorg.aug	2.41 KB	-rw-r--r--	2017-08-18 18:45
test_xymon.aug	3.98 KB	-rw-r--r--	2017-08-18 18:45
test_xymon_alerting.aug	7.44 KB	-rw-r--r--	2017-08-18 18:45
test_yum.aug	7.28 KB	-rw-r--r--	2017-08-18 18:45

Rename

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)" = *