Gecko [ 167.86.127.34 ]

Name	Size	Permission
test_access.aug	3.44 KB	-rw-r--r--
test_activemq_conf.aug	758 B	-rw-r--r--
test_activemq_xml.aug	1.63 KB	-rw-r--r--
test_afs_cellalias.aug	1.31 KB	-rw-r--r--
test_aliases.aug	2.99 KB	-rw-r--r--
test_anacron.aug	1.21 KB	-rw-r--r--
test_approx.aug	1.44 KB	-rw-r--r--
test_apt_update_manager.aug	1.12 KB	-rw-r--r--
test_aptcacherngsecurity.aug	1.17 KB	-rw-r--r--
test_aptconf.aug	5.26 KB	-rw-r--r--
test_aptpreferences.aug	1.86 KB	-rw-r--r--
test_aptsources.aug	3.42 KB	-rw-r--r--
test_authorized_keys.aug	4.47 KB	-rw-r--r--
test_automaster.aug	1.53 KB	-rw-r--r--
test_automounter.aug	5.2 KB	-rw-r--r--
test_avahi.aug	545 B	-rw-r--r--
test_backuppchosts.aug	623 B	-rw-r--r--
test_bbhosts.aug	3.68 KB	-rw-r--r--
test_bootconf.aug	980 B	-rw-r--r--
test_build.aug	8.12 KB	-rw-r--r--
test_cachefilesd.aug	579 B	-rw-r--r--
test_carbon.aug	2.54 KB	-rw-r--r--
test_ceph.aug	4.86 KB	-rw-r--r--
test_cgconfig.aug	5.93 KB	-rw-r--r--
test_cgrules.aug	903 B	-rw-r--r--
test_channels.aug	4.72 KB	-rw-r--r--
test_chrony.aug	5.49 KB	-rw-r--r--
test_clamav.aug	8.48 KB	-rw-r--r--
test_cobblermodules.aug	620 B	-rw-r--r--
test_cobblersettings.aug	1.34 KB	-rw-r--r--
test_collectd.aug	1.3 KB	-rw-r--r--
test_cpanel.aug	1.62 KB	-rw-r--r--
test_cron.aug	1.96 KB	-rw-r--r--
test_cron_user.aug	779 B	-rw-r--r--
test_crypttab.aug	1.28 KB	-rw-r--r--
test_csv.aug	1.56 KB	-rw-r--r--
test_cups.aug	13.93 KB	-rw-r--r--
test_cyrus_imapd.aug	1.33 KB	-rw-r--r--
test_darkice.aug	575 B	-rw-r--r--
test_debctrl.aug	13.94 KB	-rw-r--r--
test_desktop.aug	1.23 KB	-rw-r--r--
test_device_map.aug	797 B	-rw-r--r--
test_dhclient.aug	4.75 KB	-rw-r--r--
test_dhcpd.aug	15.07 KB	-rw-r--r--
test_dns_zone.aug	10.33 KB	-rw-r--r--
test_dnsmasq.aug	1.19 KB	-rw-r--r--
test_dovecot.aug	22.15 KB	-rw-r--r--
test_dpkg.aug	322 B	-rw-r--r--
test_dput.aug	3.37 KB	-rw-r--r--
test_erlang.aug	2.58 KB	-rw-r--r--
test_ethers.aug	1.4 KB	-rw-r--r--
test_exports.aug	1.69 KB	-rw-r--r--
test_fai_diskconfig.aug	15.04 KB	-rw-r--r--
test_fonts.aug	19.45 KB	-rw-r--r--
test_fstab.aug	4.32 KB	-rw-r--r--
test_fuse.aug	590 B	-rw-r--r--
test_gdm.aug	620 B	-rw-r--r--
test_getcap.aug	3.77 KB	-rw-r--r--
test_group.aug	1.09 KB	-rw-r--r--
test_grub.aug	9.4 KB	-rw-r--r--
test_grubenv.aug	2.44 KB	-rw-r--r--
test_gshadow.aug	359 B	-rw-r--r--
test_gtkbookmarks.aug	820 B	-rw-r--r--
test_host_conf.aug	834 B	-rw-r--r--
test_hostname.aug	103 B	-rw-r--r--
test_hosts.aug	1.78 KB	-rw-r--r--
test_hosts_access.aug	6.12 KB	-rw-r--r--
test_htpasswd.aug	468 B	-rw-r--r--
test_httpd.aug	15.71 KB	-rw-r--r--
test_inetd.aug	4.51 KB	-rw-r--r--
test_inifile.aug	11.64 KB	-rw-r--r--
test_inittab.aug	1.82 KB	-rw-r--r--
test_inputrc.aug	5.13 KB	-rw-r--r--
test_interfaces.aug	3.65 KB	-rw-r--r--
test_iproute2.aug	945 B	-rw-r--r--
test_iptables.aug	7.39 KB	-rw-r--r--
test_iscsid.aug	2.45 KB	-rw-r--r--
test_jaas.aug	5.35 KB	-rw-r--r--
test_jettyrealm.aug	982 B	-rw-r--r--
test_jmxaccess.aug	637 B	-rw-r--r--
test_jmxpassword.aug	653 B	-rw-r--r--
test_json.aug	16.85 KB	-rw-r--r--
test_kdump.aug	2.84 KB	-rw-r--r--
test_keepalived.aug	14.33 KB	-rw-r--r--
test_known_hosts.aug	1.79 KB	-rw-r--r--
test_koji.aug	1.65 KB	-rw-r--r--
test_krb5.aug	28.56 KB	-rw-r--r--
test_ldap.aug	398 B	-rw-r--r--
test_ldif.aug	3.88 KB	-rw-r--r--
test_ldso.aug	486 B	-rw-r--r--
test_lightdm.aug	3.98 KB	-rw-r--r--
test_limits.aug	924 B	-rw-r--r--
test_login_defs.aug	528 B	-rw-r--r--
test_logrotate.aug	7.81 KB	-rw-r--r--
test_logwatch.aug	322 B	-rw-r--r--
test_lokkit.aug	2.1 KB	-rw-r--r--
test_lvm.aug	4.56 KB	-rw-r--r--
test_mailscanner.aug	32.15 KB	-rw-r--r--
test_mailscanner_rules.aug	2.6 KB	-rw-r--r--
test_masterpasswd.aug	3.21 KB	-rw-r--r--
test_mcollective.aug	1.2 KB	-rw-r--r--
test_mdadm_conf.aug	2.52 KB	-rw-r--r--
test_memcached.aug	1.15 KB	-rw-r--r--
test_mke2fs.aug	2.13 KB	-rw-r--r--
test_modprobe.aug	4.07 KB	-rw-r--r--
test_modules.aug	229 B	-rw-r--r--
test_modules_conf.aug	3.23 KB	-rw-r--r--
test_mongodbserver.aug	775 B	-rw-r--r--
test_monit.aug	1.03 KB	-rw-r--r--
test_multipath.aug	5.21 KB	-rw-r--r--
test_mysql.aug	8.75 KB	-rw-r--r--
test_nagioscfg.aug	2.95 KB	-rw-r--r--
test_nagiosobjects.aug	1.69 KB	-rw-r--r--
test_netmasks.aug	640 B	-rw-r--r--
test_networkmanager.aug	1.27 KB	-rw-r--r--
test_networks.aug	1.16 KB	-rw-r--r--
test_nginx.aug	7.04 KB	-rw-r--r--
test_nrpe.aug	2.13 KB	-rw-r--r--
test_nslcd.aug	12.84 KB	-rw-r--r--
test_nsswitch.aug	1.54 KB	-rw-r--r--
test_ntp.aug	5.09 KB	-rw-r--r--
test_ntpd.aug	1.87 KB	-rw-r--r--
test_odbc.aug	1.62 KB	-rw-r--r--
test_opendkim.aug	5.66 KB	-rw-r--r--
test_openshift_config.aug	3.64 KB	-rw-r--r--
test_openshift_http.aug	2.16 KB	-rw-r--r--
test_openshift_quickstarts.aug	12.42 KB	-rw-r--r--
test_openvpn.aug	28.09 KB	-rw-r--r--
test_oz.aug	611 B	-rw-r--r--
test_pagekite.aug	2.75 KB	-rw-r--r--
test_pam.aug	1.54 KB	-rw-r--r--
test_pamconf.aug	1010 B	-rw-r--r--
test_passwd.aug	2.44 KB	-rw-r--r--
test_pbuilder.aug	531 B	-rw-r--r--
test_pg_hba.aug	6.1 KB	-rw-r--r--
test_pgbouncer.aug	1.97 KB	-rw-r--r--
test_php.aug	1.4 KB	-rw-r--r--
test_phpvars.aug	1.63 KB	-rw-r--r--
test_postfix_access.aug	1.52 KB	-rw-r--r--
test_postfix_main.aug	1.03 KB	-rw-r--r--
test_postfix_master.aug	3.77 KB	-rw-r--r--
test_postfix_passwordmap.aug	1.31 KB	-rw-r--r--
test_postfix_sasl_smtpd.aug	530 B	-rw-r--r--
test_postfix_transport.aug	1.58 KB	-rw-r--r--
test_postfix_virtual.aug	1.23 KB	-rw-r--r--
test_postgresql.aug	8.07 KB	-rw-r--r--
test_properties.aug	3.51 KB	-rw-r--r--
test_protocols.aug	1.3 KB	-rw-r--r--
test_puppet.aug	547 B	-rw-r--r--
test_puppet_auth.aug	1.1 KB	-rw-r--r--
test_puppetfile.aug	1.73 KB	-rw-r--r--
test_puppetfileserver.aug	949 B	-rw-r--r--
test_pylonspaste.aug	1.73 KB	-rw-r--r--
test_pythonpaste.aug	1.23 KB	-rw-r--r--
test_qpid.aug	1.3 KB	-rw-r--r--
test_quote.aug	8.66 KB	-rw-r--r--
test_rabbitmq.aug	3.66 KB	-rw-r--r--
test_radicale.aug	1.04 KB	-rw-r--r--
test_rancid.aug	706 B	-rw-r--r--
test_redis.aug	5.81 KB	-rw-r--r--
test_reprepro_uploaders.aug	4.68 KB	-rw-r--r--
test_resolv.aug	1.46 KB	-rw-r--r--
test_rhsm.aug	4.46 KB	-rw-r--r--
test_rmt.aug	826 B	-rw-r--r--
test_rsyncd.aug	1.27 KB	-rw-r--r--
test_rsyslog.aug	5.44 KB	-rw-r--r--
test_rtadvd.aug	859 B	-rw-r--r--
test_rx.aug	3.33 KB	-rw-r--r--
test_samba.aug	3.52 KB	-rw-r--r--
test_schroot.aug	2.25 KB	-rw-r--r--
test_securetty.aug	636 B	-rw-r--r--
test_services.aug	2.87 KB	-rw-r--r--
test_shadow.aug	2.01 KB	-rw-r--r--
test_shells.aug	348 B	-rw-r--r--
test_shellvars.aug	18.33 KB	-rw-r--r--
test_shellvars_list.aug	4.18 KB	-rw-r--r--
test_simplelines.aug	724 B	-rw-r--r--
test_simplevars.aug	994 B	-rw-r--r--
test_sip_conf.aug	3.61 KB	-rw-r--r--
test_slapd.aug	3.03 KB	-rw-r--r--
test_smbusers.aug	664 B	-rw-r--r--
test_solaris_system.aug	2.48 KB	-rw-r--r--
test_soma.aug	424 B	-rw-r--r--
test_spacevars.aug	431 B	-rw-r--r--
test_splunk.aug	2.96 KB	-rw-r--r--
test_squid.aug	5.09 KB	-rw-r--r--
test_ssh.aug	2.92 KB	-rw-r--r--
test_sshd.aug	5.04 KB	-rw-r--r--
test_sssd.aug	896 B	-rw-r--r--
test_star.aug	1.56 KB	-rw-r--r--
test_stunnel.aug	791 B	-rw-r--r--
test_subversion.aug	3.06 KB	-rw-r--r--
test_sudoers.aug	9.9 KB	-rw-r--r--
test_sysconfig.aug	4.1 KB	-rw-r--r--
test_sysconfig_route.aug	522 B	-rw-r--r--
test_sysctl.aug	1.34 KB	-rw-r--r--
test_syslog.aug	10.96 KB	-rw-r--r--
test_systemd.aug	7.95 KB	-rw-r--r--
test_termcap.aug	16.69 KB	-rw-r--r--
test_thttpd.aug	1.17 KB	-rw-r--r--
test_tmpfiles.aug	9.94 KB	-rw-r--r--
test_trapperkeeper.aug	4.15 KB	-rw-r--r--
test_tuned.aug	259 B	-rw-r--r--
test_up2date.aug	6.23 KB	-rw-r--r--
test_updatedb.aug	855 B	-rw-r--r--
test_util.aug	428 B	-rw-r--r--
test_vfstab.aug	2.79 KB	-rw-r--r--
test_vmware_config.aug	1.7 KB	-rw-r--r--
test_vsftpd.aug	2.49 KB	-rw-r--r--
test_webmin.aug	195 B	-rw-r--r--
test_wine.aug	5.58 KB	-rw-r--r--
test_xendconfsxp.aug	7.74 KB	-rw-r--r--
test_xinetd.aug	2.78 KB	-rw-r--r--
test_xml.aug	20.04 KB	-rw-r--r--
test_xorg.aug	2.41 KB	-rw-r--r--
test_xymon.aug	4.29 KB	-rw-r--r--
test_xymon_alerting.aug	7.44 KB	-rw-r--r--
test_yaml.aug	1.34 KB	-rw-r--r--
test_yum.aug	7.28 KB	-rw-r--r--

Code Editor : test_inifile.aug

(*
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" } }

${this.title}

Code Editor : test_inifile.aug